MediaWiki:Sitenotice:
2024-03-02: The wiki ran out of disk space, so things were not working. This has been resolved by adding another 5GB of quota ;-) Thanks to Tim Lindner for reporting the issues. 2020-05-17: If a page gives you an error about some revision not being found, just EDIT the page and the old page should appear in the editor. If it does, just SAVE that and the page should be restored. OS-9 Al (talk) 12:22, 17 May 2020 (CDT)

CFLIP

From CoCopedia - The Tandy/Radio Shack Color Computer Wiki
Jump to navigation Jump to search
100 T1=0: T2=0: T3=0
110 CLS: PRINT@10,"COIN FLIPPER"
120 PRINT@64,"PRESS ANY KEY TO FLIP COIN"
130 A$=INKEY$
140 IF A$="" THEN 130
150 PRINT@128: PRINT: PRINT: PRINT: PRINT: PRINT: PRINT
160 R=RND(2)
170 ON R GOSUB230,330
180 T1=T1+1
190 PRINT@385,"TOTAL FLIPS=";T1
200 PRINT@417,"TOTAL HEADS=";T2
210 PRINT@449,"TOTAL TAILS=";T3
220 GOTO130
230 REM - PRINT HEADS
240 PRINT@141,"*  *"
250 PRINT@170,"*  "+CHR$(191)+"  "+CHR$(191)+ "  *"
260 PRINT@201,"*   "+CHR$(191)+"  "+CHR$(191)+ "   *"
270 PRINT@233,"*   "+CHR$(191)+CHR$(191)+CHR$(191)+CHR$(191)+ "   *"
280 PRINT@265,"*   "+CHR$(191)+"  "+CHR$(191)+ "   *"
290 PRINT@298,"*  "+CHR$(191)+"  "+CHR$(191)+ "  *"
300 PRINT@333,"*  *"
310 T2=T2+1
320 RETURN
330 REM - PRINT TAILS
340 PRINT@141,"*  *"
350 PRINT@170,"* "+CHR$(175);
360 PRINT@173,CHR$(175)+CHR$(175)+CHR$(175)+CHR$(175)+CHR$(175)+" *"
370 PRINT@201,"*    "+CHR$(175)+CHR$(175)+ "    *"
380 PRINT@233,"*    "+CHR$(175)+CHR$(175)+ "    *"
390 PRINT@265,"*    "+CHR$(175)+CHR$(175)+ "    *"
400 PRINT@298,"*   "+CHR$(175)+CHR$(175)+ "   *"
410 PRINT@333,"*  *"
420 T3=T3+1
430 RETURN