Seven-Eleven for TI-99

My version of Seven-Eleven for TI-99


10 REM Seven Eleven
15 REM by Michael R Gibson
20 GAME=0
25 WIN=0
30 LOSS=0
32 PNTS=105
34 A=0
36 GOSUB 400
40 CALL CLEAR
45 PRINT " Seven / Eleven"
50 PRINT " *$$$$$$$$$$$$$$$$$+"
52 PRINT "! The Win Tally ~"
54 PRINT "! ~"
60 PRINT "! Wins:", WIN
65 PRINT "! Losses:", LOSS
70 GAME=GAME+1
80 PNTS=PNTS-5
90 PRINT "! Points:",PNTS
100 PRINT "!"
105 PRINT "! Game:", GAME
108 CALL VCHAR(19,22,126,5)
110 GOSUB 200
120 IF A = 7 THEN 300
125 IF A = 11 THEN 300
130 IF A = 2 THEN 600
135 IF A = 12 THEN 600
145 GOTO 310
200 N=0
210 PRINT
215 PRINT "Press any key to roll"
220 N=N+WIN
225 CALL KEY(0,K,S)
227 IF S = 0 THEN 220
230 CALL CLEAR
240 C=INT(RND*6)+1
250 B=INT(RND*6)+1
260 A = B + C
270 PRINT " "
275 PRINT "Total rolled", A
278 PRINT " "
280 GOSUB 500
290 RETURN
300 PRINT "Great, You won"
301 PRINT " "
302 WIN = WIN + 1
303 PNTS = PNTS + 20
304 PRINT "Press R and Enter to roll"
305 PRINT "Press Q and Enter to quit"
306 INPUT KEY$
307 IF KEY$ = "Q" THEN 700
308 GOTO 40
310 PRINT "Sorry, you lose"
312 PRINT " "
320 LOSS = LOSS + 1
322 PRINT "Press R and Enter to roll"
324 PRINT "Press Q and Enter to quit"
326 INPUT KEY$
328 IF KEY$ = "Q" THEN 700
330 GOTO 40
400 REM define graphics
410 CALL CHAR(33,"0101010101010101")
415 CALL CHAR(42,"00000708102040FF")
420 CALL CHAR(43,"0000FC0C14244484")
424 REM 64=@
425 CALL CHAR(64,"8585858991A1C181")
426 CALL CHAR(95,"8585858990A0C080")
429 REM 94 = ^
430 CALL CHAR(94,"FF")
435 CALL CHAR(36, "0000FF00000000FF")
440 REM 45 = -
445 CALL CHAR(45, "8585858585858585")
450 REM 126 = ~
455 CALL CHAR(126,"8484848484848484")
490 RETURN
500 REM print graphics
505 PRINT " "
510 PRINT "YOU ROLLED A "
515 PRINT " *$$+*$$+"
518 PRINT "! - ~ "
520 PRINT "!";C;"-";B;"~ "
522 PRINT "! @ _"
525 PRINT " ^^^ ^^^ "
530 PRINT "With two D6"
540 RETURN
600 PRINT "Rolled 2 ones or 2 sixes"
610 PRINT "End of the game"
620 PNTS = PNTS-5
630 PRINT " Extra Points lost"
650 GOTO 145
700 END