CO\1\IODORE64 FUN AND GAMESVolume 2


12060IF CN=13THENPRINT"IT READS";AL*250;"PSI.":GOTO 700:rem 53954
12070IF CN=16THENPRINT"IT HAS....A....RED....BUTTON ....AND....A....BLUE ....BUTTON.:
GOTO 700:rem 55490

12090IF CN=3THEN 12300:rem 30439
12100IF CN=20THEN 13080:rem 55791

12110IF(CN=21) OR(CN=15) OR(CN=4) THEN 12400:rem 41812

12120IF PN%(CN)=23THENPRINT"IT....APPEARS ....TO....BE....COUNTERFEIT.":
GOTO 700:rem 51245

12130IF PN%(CN)=8THENPRINT"IT'S....REAL.":GOTO700:rem 29717
12190PRINT"r....SEE....NOTH ING....SPECIAL ....ABOUTIT.":GOTO 700:rem 36109

12300PRINT"IT'S....AN....AD....FOR....AN....AMUSEMENTPARK ........IT:rem 37688
12310OU$="SHOWS ....A....MAN....THROWING ....RINGS ....AT"A"BUNCH"OF "BOTTLES :
GOSUB30000:rem 14966

12320GOTO700:rem 9583

12400PRINT"THERE'S"SOMETHING ....WRITTEN ....ON....IT.":GOTO700:rem 11445

13000GOSUB35000:rem 32599

13040IF CN=3THENPRINT"IT'S....JUST ....A....PICTURE ....(TRY....EXAM) :
GOTO 700:rern52047

13050IF CN=4THEN 13200:rem 58353

13060IF CN=15THEN 13300:rem 30607
13070IF CN=13THEN 12060:rem 41498

13080IF CN=20THENPRINT"IT....SAYS, ....'WEAR/UNWEAR'.":GOTO700:rem 902
13090IF CN<>21THEN 13190:rem 31328

13100PRINT"IT....SAYS:"'RETURN"TREASURES....HERE,,FOR{5space}POINTS.'":
GOTO 700:rem 59529

13190PRINT"THERE'S ....NOTHING"WRITTEN....ON"IT.":GOTO700:rem 61897

13200OU$="IT ....SAYS, ....'THE....BEST ....IN"C64"SOFTWARE"--"THE,,CODE ....WORKS,,,SANTA"
:rem 4289

13210OU$=OU$+" ....BARBARA,,,CA'":GOSUB30000:GOTO700:rem 51987

13300OU$="THE ....LABEL"SAYS,,,'COMPRESSED,,AIR........KEEP....FROM ....FIRE ....AND ....HEAT.'
:rem 60577

13310GOSUB30000:GOTO700:rem 37336
14000GOSUB35000:rem 48783

14010IF(PN%(CN)=5)AND ML THEN PRINT"OK":ML=ML-l:MB=2:GOTO700:rem 607E

14020IF(PN%(CN)=5)AND(ML=O) THENPRINTNO ....MATCHES ....LEFT.":
GOTO 700:rem 62338

14030IF PN%(CN) =12 THENPRINT"THE....MATCHES ....ARE ....TOO....WET....TO....BURN.":
GOTO700:rem 28540

14040PRINT"YOU....RUB....IT....TOGETHER"UNTIL ....YOUR ARMS ....ARE :rem 58654
14050OU$="TIRED, ....BUT....I"GUESS ....YOU....WEREN' T....A BOY ....SCOUT ........IT....DOESN' T....LIGHT."
:rem 32390

14060GOSUB30000:GOTO700:rem 42534
15000IF CN<>OTHEN 31000:rem 61874

15010IF(CP=l) OR(CP=2) OR(CP=5) THEN 15200:rem 60497

15020IF CP=42THEN CP=18:GOTO15300:rem 39381

15030IF CP=18THEN CP=42:GOTO15300:rem 14208

15040IF CP=32THEN CP=37:GOTO15300:rem 36818
15050IF CP=37THEN CP=32:GOTO15300:rem 65107
15060IF(CP<36) AND(CP>32) THEN15600:rem 23555

15070OU$="YOU....EXECUTEA....PERFECT ....SWAN "DIVE....AND...." :rem 16335

15075OU$=OU$+"HIT"THEFLOOR"WITH"A ....LOUD"SMACK":rem 43591
15080GOSUB30000:PRINT:GOTO36000:rem 48557

15200GOSUB15400:PRINT"YOU"SWIM ....AROUND,,,BUT....FIND....NOTHING ....OF{4space}
INTEREST.":rem 37197
15210GOTO15500:rem 18807

