Listing of file='FROG.BAS;01' on disk='vmedia/ccug_14b-sector.ccvf'
0 PLOT 6,2,14,12 5 CT= 1= 0 10 PRINT "FROG" 20 PRINT :PRINT 25 INPUT "DO YOU NEED INSTRUCTIONS? ";A$ 26 IF LEFT$ (A$,1)= "Y"THEN 10000 27 PRINT :PRINT 30 PLOT 6,3 40 INPUT "INPUT GOAL: ";GO 90 PLOT 6,0,12 100 PLOT 6,7,15,3,0,13 101 PRINT "THE GOAL IS", 102 PLOT 6,3,14:PRINT GO 103 PLOT 6,7,15:PRINT :PRINT 105 PRINT "YOUR TOTAL IS", 110 PLOT 6,1,14:PRINT YT;" " 120 PLOT 6,7,15:PRINT : 122 PRINT 125 PRINT "MY TOTAL IS", 130 PLOT 6,4,14:PRINT MT;" " 131 IF MT< GOAND YT< GOTHEN 140 132 PLOT 6,1:PRINT 133 PLOT 11:IF YT> = GOTHEN PRINT "YOU WIN.";:GOTO 136 134 PLOT 6,4:PRINT "I WIN."; 136 INPUT " PLAY AGAIN? ";A$ 137 IF LEFT$ (A$,1)= "Y"THEN PLOT 12:RUN 30 138 PLOT 1 140 PLOT 6,7,15:PRINT :PRINT 150 PRINT "THE TOTAL FOR "; 152 A$= "YOUR":IF CTTHEN A$= "MY" 154 PRINT A$;" TURN IS ", 160 PLOT 6,5,14:PRINT TT;" " 165 IF CTTHEN 700 170 PLOT 6,7,15:PRINT :PRINT :INPUT "ROLL? ";A$ 172 PLOT 28,11 180 IF Z= 0THEN Z= 1:GOSUB 1000 190 IF RIGHT$ (A$,1)= "N"THEN 500 200 GOSUB 4000 210 IF X= 1OR Y= 1THEN 300 220 TT= TT+ X+ Y 230 PLOT 3,32,24:GOTO 160 300 PLOT 3,32,24,6,66,14:PRINT "FROG " 330 IF CTTHEN CT= 1= 0:TT= 0:FOR I= 1TO 1000:NEXT I:GOTO 100 340 GOTO 600 500 YT= YT+ TT:TT= 0 505 CT= 1= 1 510 GOTO 100 600 CT= 1= 1:TT= 0 610 FOR I= 1TO 1000:NEXT I 630 GOTO 100 700 FOR I= 1TO 1000:NEXT I 702 IF TT> (GO- MT- TT)/ (GO- YT)* 18THEN MT= MT+ TT:TT= 0:CT= 1= 0:GOTO 100 704 GOSUB 4000 710 IF X= 1OR Y= 1THEN 300 720 TT= TT+ X+ Y 740 GOTO 100 1000 REM SBR DIEPREP 1010 PLOT 6,56,29 1020 FOR I= 1TO 10:PLOT 3,4,I 1030 PRINT SPC( 14),SPC( 14) 1035 PRINT 1040 NEXT I 1050 RETURN 2000 REM SBR DIE(X,Y) 2005 PLOT 15 2010 PLOT 3,6,2 2020 PLOT 6,56:IF X= 1THEN PLOT 6,63 2030 GOSUB 3000 2040 PLOT 3,6,5 2050 PLOT 6,63:IF X= 6THEN PLOT 6,56 2060 GOSUB 3000 2070 PLOT 3,6,8 2080 PLOT 6,56:IF X< 4THEN PLOT 6,63 2090 GOSUB 3000 2100 PLOT 3,10,5 2110 PLOT 6,56:IF X/ 2= INT (X/ 2)THEN PLOT 6,63 2120 GOSUB 3000 2130 PLOT 3,14,2 2140 PLOT 6,56:IF X< 4THEN PLOT 6,63 2150 GOSUB 3000 2160 PLOT 3,14,5 2170 PLOT 6,63:IF X= 6THEN PLOT 6,56 2180 GOSUB 3000 2190 PLOT 3,14,8 2200 PLOT 6,56:IF X= 1THEN PLOT 6,63 2210 GOSUB 3000 2220 PLOT 3,26,2 2230 PLOT 6,56:IF Y= 1THEN PLOT 6,63 2235 GOTO 3010 3000 PLOT 116,117,10,26,26,118,119:RETURN 3010 GOSUB 3000 3020 PLOT 3,26,5 3030 PLOT 6,63:IF Y= 6THEN PLOT 6,56 3040 GOSUB 3000 3050 PLOT 3,26,8 3060 PLOT 6,56:IF Y< 4THEN PLOT 6,63 3070 GOSUB 3000 3080 PLOT 3,30,5 3090 PLOT 6,56:IF Y/ 2= INT (Y/ 2)THEN PLOT 6,63 3100 GOSUB 3000 3110 PLOT 3,34,2 3120 PLOT 6,56:IF Y< 4THEN PLOT 6,63 3130 GOSUB 3000 3140 PLOT 3,34,5 3150 PLOT 6,63:IF Y= 6THEN PLOT 6,56 3160 GOSUB 3000 3170 PLOT 3,34,8 3180 PLOT 6,56:IF Y= 1THEN PLOT 6,63 3190 GOSUB 3000 3200 RETURN 4000 REM SBR ROLL 4010 X= INT (RND (1)* 6)+ 1 4020 Y= INT (RND (1)* 6)+ 1 4030 GOSUB 2000 4040 RETURN 10000 :PLOT 12,6,5 10010 PRINT " CHOOSE A GOAL, AND THEN TRY TO REACH IT BEFORE THE" 10020 PRINT "COMPUTER DOES. YOU AND THE COMPUTER ALTERNATE TURNS" 10030 PRINT "(YOU GO FIRST). EACH TURN, YOU MAY ROLL THE DICE AS" 10040 PRINT "MANY TIMES AS YOU LIKE. WHEN YOU DECIDE TO STOP, YOUR" 10050 PRINT "TOTAL FOR THE TURN IS ADDED TO YOUR GRAND TOTAL. IF" 10060 PRINT "YOU ROLL A FROG (ANYTHING WITH A 1), YOUR TURN ENDS," 10065 PRINT "AND YOU LOSE ANY POINTS ACCUMULATED ON THAT TURN." 10068 PRINT 10070 PRINT " WHEN THE COMPUTER ASKS 'ROLL?', ENTER 'Y' TO ROLL," 10080 PRINT "OR 'N' TO STOP." 10090 PRINT :PRINT :GOTO 30