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"
47 if PNTS < 0 then 700


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 "Bad Luck"
620 PNTS = PNTS-5
630 PRINT " Extra Points lost"
650 GOTO 145

700 PRINT "GAME OVER"
701 END