LCO.\I.\IODORE64 FUN AND GAMESVolume 2



40450 DATA0,0,37,0,0,0,"IN~AASQUAREAROOM":rem 23540

40460DATA47,47,47,47,47,47,"RESTINGAONAAACLOUDBANKAABOVEAMIAMI":rem 64227

40470 DATA46,46,46,46,46,46,"ATATHEAPEARLYAGATES":rem 55425
40480DATA0,0,0,19,0,0:rem 24827
40485 DATA"INATHEAHALLAOFAICICLES.AASTRANGEASPIRESACOVERATHEAFLOOR"
:rem 26351

40490 DATA1,0,0,0,0,0,"INAAASTORAGEACLOSET":rem 13223

40500DATA0,0,13,0,0,0,"INATHEAHALLACLOSET":rem 57738

40510DATA37,0,0,0,0,0,"INAAAROUNDAROOM":rem 54956
40520DATA20,53,0,0,0,0,"INAAALONG'ANARROWATUBE":rem 45405

40530DATA52,54,0,0,0,0,"INAAALONG'ANARROWATUBE":rem 7620
40540DATA53,55,0,0,0,0,"INAAALONG'ANARROWATUBE":rem 53562
40550DATA54,0,0,0,0,0,"ATATHEAENDAOFATHEATUBE":rem 46005
41000DATA N,NORT,S,SOUT,E,EAST,W,WEST,U,UP,D,DOWN,L,LOOK,I,INVE,SAY,GET,
TAKE:rem 36669

41010DATADROP,EXAM,READ,LIGH,DIVE,SWIM,WEAR,UNWE,IGNI,PUSH,PRES,THRO,SCOR
:rem 14072

41020 DATAQUIT,OPEN,JUMP,Q:rem 41400\
42000 DATAPARA,1,BUCK,2,BROC,4,MATC,5,XYZZ,-13,PLUG,-13,RITN,-13,DOOR,-3
:rem 24023

42010DATASCUB,6,RING,7,KEY,8,GOLD,9,GAUG,-6,BRUS,10,LABE,-6,AUTO,-14,RED,
-14 :rern57047

42020 DATABLUE,-14,GIRA,17,GRAF,-16,SIGN,-19,RUBI,20,CUBE,20,MINK,21,COAT,
21:rem 50653

42030 DATABUTT,-14,CASH,23,MONE,23:rem 41206

43000 DATAPARACHUTE,-1,BUCKET,-1,DOOR,12,"TRAVELABROCHURE":rem 52835

43005DATA21,"PRINTEDAMATCHBOOK":rem 22957
43010DATA35, "SCUBAAEQUIPMENT",16:rem 57303
43015DATA"SIXAINCHAPLASTICARING",45,"*$10,000*",0:rem 32538

43020DATA"*HEAVYANUGGETAOFAGOLD*",34,"DRYAPILEAOFABRUSH":rem 3950

43025DATA51,"SOGGYAPILEAOFABRUSH",0:rem 11701
43030DATA"SOGGYAMATCHBOOK",0,<$>,0,AUTOPILOT,3,"RAGINGABRUSHAFIRE",0
:rem 32207

43040DATA"GRAFFITIACOVERINGATHEAWALL",9,"*STUFFEDAGIRAFFE*",0:rem 33713

43050DATA"CELLARASTAIRWAYALEADINGADOWN",11,"SIGNAONATHEAWALL",49:rem 44 ~
43060DATA"*PLATINUMARUBIK'SACUBEA(TM)*",29,"*MINKACOAT*",50:rem 22175
43070DATA"SCORCHEDAAREAAONATHEAWALL",0,"$10,000",4:rem 10250
43500DATA NOVICE,5,AMATEUR,30,EXPERIENCED,50,PRO,70,MASTER,90,GRANDMASTER
999:rem 11661

44000READ RC,VC,NC,OC,CC:rem 51252

44010 DIMRM$(RC) ,MV%(RC,6) ,VB$(VC) ,NN$(NC) ,PN%(NC) ,OB$(OC) ,OL%<OC) ,RT$(C
:rem 34063

44015DIM RP%(CC):PRINT"{wht}SETTINGAUP {pur}":rem 41972
44020FORX=l TO RC:FORY=lTO 6:READMV%(X,Y):NEXTY:READRM$(X):
NEXTX:rem 25016

44030FORX=l TO VC:READVB$(X):NEXTX:rem 64301

44040FORX=l TO NC:READNN$(X),PN%(X):NEXTX:rem 26178

44050FOR X=lTO OC:READOB$(X),OL%(X):NEXTX:rem 18553

44055FOR X=lTO CC:READRT$(X),RP%(X):NEXTX:rem 62565
44060CP=1:DR$="NSEWUD":EM$(1)="WHAT?":EM$(2)="IADON'TAUNDERSTANDATHAT.":
EM=l:rem 39592

44070PRINT"{clr}":ML=4:AL=11:rem 246
44080 DEFFNW(X)=OL% (ABS(PN%(X):rem 53855

44090 DEFFNR(X)=(PN%(XO):rem 31297
44100 DEFFNF(X)=(PN%(X)<O):rem 63041

