8bitfiles.net/archives/archives.tar/archives/genie-commodore-file-library/C64-128BBS/P.CHANCE

Commodore BASIC | 2019-04-13 | 1.6 KB | 34 lines

1 ONJSGOTO2:A$="ôï\C7 ╥EVISION ┬Y->╠IBERTY ┬┬╙ï      702-454-5478":SYSO:JS=1
2 A$="ïï             \C1├ \C3╚ \C7┴ \CJ╬ \CN├ \C1┼ \C3!":SYSO:GOSUB54
4 A$="ïï╔'M ╟OING ╘O ╘HINK ╧F ┴ ╬UMBER ┬ETWEEN":SYSO
6 A$="ï1 ┴ND 99. ┘OU ╘ELL ═E ╘HE ╬UMBER,┴ND ╔F":SYSO
8 A$="ï╔F ┘OU ╟UESS ╔T ╔N 4 ╘RIES ╧R ╠ESS, ┘OU":SYSO
10 A$="ï╫IN 50 ├REDITS, ┴ND ┘OUR ╬AME ╫ILL ┬E":SYSO
12 A$="ï┴DDED ╘O ╘HE ╚ONOR ╥OLL!":SYSO
13 A$="ï╔F ┘OU ╟UESS ╔T ╔N ╧╬┼á╟UESS, ┘OU ╫INï 500 ├REDITS!!!":SYSO
14 A$="ïï┘OU ╚AVE 10 ╘RIES ╘O ╟UESS ╘HE ╬UMBER.":SYSO
16 A$="ïï┘OU ╫ANNA ╟IVE ╔T ┴ ╙HOT? :":SYSO:GOSUB1007:GOSUB1903:IFA=.THEN56
18 A$="ôïï\C7╧KAY! ╚ERE ╫E ╟O!":SYSO
20 G3=.:G1=INT(99*RND(0))+1:A$="ïïï╔ ╚AVE ┴ ╬UMBER ╔N ═EMORY.":SYSO
22 G3=G3+1:B$=STR$(G3):A$="ï┼NTER ╟UESS #\V6 : ":SYSO:POKE53252,2:GOSUB1006
24 G2=VAL(AN$):ON-(G2<1)-(G2=G1)*2GOTO56,30:B$="╚IGH!":IFG2<G1THENB$="╠OW!"
26 A$="ïï┘OU ┴RE ╟UESSING ╘OO \V6":SYSO:IFG3<10THEN22
28 B$=STR$(G1):A$="ïï╙ORRY, ┘OU ┬LEW ╔T!ïï╘HE ╬UMBER ╫AS\V6!!!":SYSO:GOTO50
30 B$=STR$(G3):AN$="ES":IFG3=1THENAN$=""
32 A$="ïï\R1 ┘OU ╟OT ╔T ╔N\V6 ╟UESS\V7!!! ":SYSO:IFG3=1THENCR=CR+500:GOTO36
34 IFG3>4THENA$="ïï╬OT ╠OW ┼NOUGH ╘O ═AKE ╘HE ╚ONOR ╥OLL.":SYSO:GOTO50
35 CR=CR+50
36 B$=STR$(CR):A$="ïï┘OU ╬OW ╚AVE\V6 ├REDITS.":SYSO
2342
40 B$="HONOR ROLL":A$="A":GOSUB1027:GOSUB1003:IFA$="00"THEN48
42 B$="HONOR ROLL":A$="W":GOSUB1027
44 PRINT#2,"ïï      * * * * ╚╧╬╧╥ ╥╧╠╠ * * * *ïï╒PDATED: "D1$
46 PRINT#2,"       # ╟UESSES       ╬AMEï\VZ"
48 PRINT#2,"         "+STR$(G3)+"           "+NA$:CLOSE2
50 A$="ïï\R1 (╚IT ┴ ╦EY) ï":SYSO:GOSUB1007:GOSUB54
52 A$="ïï╨LAY ┴GAIN? :":SYSO:GOSUB1007:GOSUB1903:ONAGOTO18:GOTO56
54 A$="ETC.HONOR ROLL":DR=3:GOTO1076
56 SYS52605:ON-(TR$<"
")GOTO1080:GOSUB1018:GOTO1812
999 REM
8224