Sitenotice: 11/29/2018: The wiki is back. It turns out, some anti-virus product on my web server had an issue with the latest version of PHP. My server techs have resolved this issue, and things should be working again. During the investigation, I did restore to a backup from September. There is a chance that any changes done since then were lost, but I do not recall any edits. --OS-9 Al

8/30/2016: Massive re-work is being done on the InfoBox Templates. Read that page to keep up with the plan for that, and adding better keyword tags (categories) to all the pages. --OS-9 Al (talk) 15:28, 31 August 2016 (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