1 IFPEEK(52016)<>32ORPEEK(52040)<>245THENLOAD"LINPUT.PR",8,1
2 REM PLANET OF THE ROBOTS
3 REM BY DANIEL TOBIAS
4 REM C64 VERSION 1.1
5 REM 6/12/84
7 NA$="[208]LANET OF THE [210]OBOTS"
8 POKE 53280,7:POKE53281,1:PRINT"[144]"
9 S=54272:FORI=.TO24:POKES+I,.:NEXT
10 PRINT"":LI=52016
15 DIM LV%(100,8),LD$(100,1),R%(100),ID$(50),IL%(50),PR(50),IW(50),L%(100)
17 DIM WD$(100),W%(100,1),FW%(1)
18 DIMV%(3),H%(2),O%(1),A(1)
20 GOSUB 18000:GOSUB 19000
60 PRINT"[147]"
100 REM START
108 XX=1
110 IFXX=1THENGOSUB1000
120 GOSUB500
125 XX=XX+1:IFXX>5THENXX=1
130 IFFW%(0)=0THENPRINT"[215]HAT?":GOTO110
140 ONFW%(0)GOSUB2000,3000,4000,5000,5500,6000,7000,8000,9000,9500
142 IFFW%(0)>10THENONFW%(0)-10GOSUB13000,13500,14500,15000,15500,16000,16500
143 IFFW%(0)=18THENGOSUB10000
145 IFFW%(0)=99THEN300
150 T=T+1
160 GOTO110
200 REM CONVERT TO LOWER CASE
220 FOR IP=1TOLEN(I$)
230 CH$=MID$(I$,IP,1)
240 IFCH$>="[193]"ANDCH$<="[218]"THENI$=LEFT$(I$,IP-1)+CHR$(ASC(CH$)-128)+MID$(I$,IP+1)
260 NEXT IP
270 RETURN
300 REM END
305 PRINT"[144]"
310 PRINT "[211]TOP AFTER"T"TURNS."
312 INPUT"PLAY AGAIN";PA$:IFPA$="Y"ORPA$="[217]"ORPA$="[183]"THENRUN
320 PRINT
330 GOTO40000:REMD"CHR$(34)"HELLO"CHR$(34)",8":PRINT"QQQQRUNS":POKE631,13:POKE63
332 [151]198,2:[128]
500 [143] HANDLE INPUT
505 FW%(0)[178]0:FW%(1)[178]0
510 [153]"-->";:[158]LI,B$:I$[178]B$[170]"":[153]
515 [139] I$[178]"" [167] 510
518 [141] 200
520 WD$[178]"":A[178]1
530 [139] [202](I$,A,1)[178]" " [167] 600
540 WD$[178]WD$[170][202](I$,A,1)
550 A[178]A[170]1:[139]A[179][178][195](I$)[167]530
600 [143] FOUND WORD
610 [129]B[178]1[164]NW:[139]WD$(B)[178]WD$[167][141]650
620 [130]B:WD$[178]"":A[178]A[170]1
630 [139]A[177][195](I$)[167][142]
640 [137]530
650 [129]C[178]0[164]1
660 [139]W%(B,C)[177][178]0[167]FW%(C)[178]W%(B,C)
670 [130]C
680 [142]
1000 [143] PRINT DESCRIPTION
1002 [139]LD$(L,0)[178]"S"[167][141]12000
1005 [153]
1010 [153]LD$(L,L%(L))
1011 [139]L[178]28[175]J[178]0[167][153]"(null)HERE IS A DOOR WITH BARS."
1012 [139]L[178]28[175]J[179][177]0[167][153]"(null)HE BARS ARE BROKEN, LEAVING A WAY OUT."
1014 [153]
1015 L%(L)[178]1
1020 [153]"(null)PEN PATHWAYS: ";:[129]A[178]1[164]8:[139]LV%(L,A)[179][177]0[167][153]DN$(A)" ";
1025 [130]A
1030 [153]
1040 [153]"(null)ISIBLE OBJECTS:"
1045 X[178]0
1050 [129]A[178]1[164]NI
1060 [139] IL%(A)[178]L[167][153]" "ID$(A);:X[178]1
1062 [139]IL%(A)[178]L[175]PR(A)[177]0[175]R%(L)[178]1[167][153]" ((null)RICE $"PR(A)")";
1065 [139] IL%(A)[178]L[167][153]
1070 [130]A
1080 [139]X[178]0[167][153]"(null)HERE ARE NONE."
1082 [139] R%(L)[179][177]0[167][153]
1085 [139]R%(L)[178]1[167][153]"LENLERK ROBOT HERE."
1090 [139]R%(L)[177]20[175]R%(L)[179]29[167][153]"CHR$UARD ROBOT HERE."
1110 [139] R%(L)[178]3[167][153]"PEEKERZERK ROBOT HERE!"
1120 [139]T[171]E[177][178]100[167][153]"(null)OU ARE GETTING HUNGRY!"
1480 [153]
1490 [142]
2000 [143] MOVE
2005 [139]FW%(1)[179]101[176]FW%(1)[177]108[167][153]"CHR$O WHERE?":[142]
2010 X[178]LV%(L,FW%(1)[171]100)
2020 [139]X[179]0[176]X[177]NL[167][153]"(null)OT DEFINED YET.":[142]
2025 [139]L[178]28[175]I$[178]"BREAK OUT"[167]15000
2030 [139]X[178]0[167][153]"(null)OU CAN'T GO THAT WAY.":[142]
2035 [139]R%(L)[178]3[167][153]"(null)OBOT: (null)RYING TO ESCAPE, HUH?  RIGHT$T WON'T"
2037 [139]R%(L)[178]3[167][153]"WORK!  (null)AP! (null)OU'RE DEAD!":[137]300
2040 [139]X[178]6[175]IL%(7)[179][177]0[167][153]"(null)OBOT: RIGHT$'M SORRY, BUT THE DRESS CODE"
2041 [139]X[178]6[175]IL%(7)[179][177]0[167][153]"  REQUIRES THAT YOU WEAR A TIE.":[142]
2042 [139]L[178]6[175]R[179][177]0[167][153]"(null)OBOT: RIGHT$'M SORRY.  (null)OU ARE A BAD CREDIT"
2043 [139]L[178]6[175]R[179][177]0[167][153]"  RISK.  (null)OU CAN'T ENTER.":[142]
2045 [139]R%(L)[178]20[170]FW%(1)[171]100[167]2500
2060 [143]
2065 [139]L[178]39[175]X[178]39[175][187](0)[179].35[167]PL[178]1[171]PL:X[178]35:[139]PL[178]0[167]X[178]40
2080 [139]X[178]17[167][153]"(null)OBOT: (null)ORRY, THIS INFORMATION BOOTH IS   OUT OF ORDER."
2085 [139]X[178]17[167][142]
2087 [139]LD$(X,0)[178]"(null)"[167][141]12000:[142]
2090 [139]L[178]36[175]X[178]37[167][133]"VALNTER COMBINATION";A$
2095 [139]L[178]36[175]X[178]37[175][197](A$)[179][177]CM%[167][153]"(null)ORRY. (null)RONG!":[142]
2100 [139]X[178]38[167]14000
2200 L[178]X:XX[178]1:[142]
2500 [143] ID CARD
2510 [139]IL%(12)[178]0[167][153]"(null)OBOT: RIGHT$.STR$. ACCEPTED.  (null)OU CAN PASS."
2520 [139]IL%(12)[178]0[167][153]"  CHR$OOD DAY, (null)R. (null)MITH.":[137]2060
2530 [153]"(null)OBOT: RIGHT$'M SORRY, BUT YOU CAN'T GO THAT   WAY WITHOUT AN RIGHT$.STR$. CARD."
2540 [142]
3000 [143] PICK UP
3005 [139]FW%(1)[178]0[176]FW%(1)[177]NI[167][153]"(null)O SUCH THING HERE.":[142]
3006 [139]IL%(FW%(1))[178]0[167][153]"(null)OU ARE ALREADY CARRYING IT!":[142]
3007 [139]IL%(FW%(1))[179][177]L[167][153]"(null)O SUCH THING HERE.":[142]
3009 [139]PR(FW%(1))[177]0[175]R%(L)[178]1[167][153]"(null)OBOT: (null)OU CAN'T TAKE THAT WITHOUT"
3010 [139]PR(FW%(1))[177]0[175]R%(L)[178]1[167][153]"  PAYING FOR IT!  (null)LEASE BUY IT IF YOU"
3011 [139]PR(FW%(1))[177]0[175]R%(L)[178]1[167][153]"  WANT IT.":[142]
3013 HF[178]0
3015 [139]WT[170]IW(FW%(1))[177]150[175]IW(FW%(1))[179][178]150[167] HF[178]1
3017 [139] HF[178]1 [167] [153] "(null)OO HEAVY.  (null)OU MUST DROP SOMETHING     FIRST.":[142]
3020 [139]IW(FW%(1))[177]150[167][153]"(null)OO HEAVY FOR YOU TO LIFT.":[142]
3030 [139]IW(FW%(1))[179]0[167][153]"RIGHT$T IS SECURELY FASTENED.":[142]
3040 IL%(FW%(1))[178]0:WT[178]WT[170]IW(FW%(1))
3045 [153] "(null)(null)."
3050 [139]FW%(1)[178]10[167]M[178][182](M)
3060 [142]
4000 [143] DROP
4010 [139]FW%(1)[179]1[176]FW%(1)[177]NI[167][153]"(null)OU ARE NOT CARRYING ONE.":[142]
4020 [139]IL%(FW%(1))[179][177]0[167][153]"(null)OU ARE NOT CARRYING ONE.":[142]
4030 IL%(FW%(1))[178]L:WT[178]WT[171]IW(FW%(1))
4040 [153] "(null)(null)."
4042 [139]L[178]39[167][153]"RIGHT$T SLIDES INTO A CREVICE IN THE RUINS   AND IS LOST."
4043 [139]L[178]39[167]IL%(FW%(1))[178][171]1
4045 [139]FW%(1)[178]10[167]M[178][171][182](M)
4050 [142]
5000 [143] LOOK
5005 [139]FW%(1)[177]0[167]8000
5010 XX[178]1
5020 L%(L)[178]0
5030 [142]
5500 [143] INV
5505 X[178]0
5510 [153] "(null)OU ARE CARRYING:"
5520 [129]A[178]1[164]NI
5525 [139]A[178]10[167]5540
5530 [139]IL%(A)[178]0[167][153]" "ID$(A):X[178]1
5540 [130]A
5545 [139]M[177]0[167][153]"CLOSE$"M"IN CASH.":X[178]1
5550 [139]X[178]0[167][153]"(null)OTHING."
5560 [142]
6000 [143] SAVE GAME
6010 [153]"VALNTER FILENAME. (STR$EFAULT: PLANET.SAVE)":[133]F$
6015 [139]F$[178]""[167]F$[178]"PLANET.SAVE"
6017 [159]15,8,15:[152]15,"S:"F$:[160]15
6020 [159]2,8,2,F$[170]",S,W"
6040 [152]2,L:[129]B[178]1[164]NI:[152]2,IL%(B):[130]B:[152]2,WT:[152]2,T
6050 [129]B[178]1[164]NL:[152]2,R%(B):[130]B:[152]2,M:[152]2,E
6060 [129]B[178]1[164]NI:[152]2,PR(B):[130]B
6070 [152]2,CM%:[152]2,R:[152]2,J
6080 [152]2,PW:[152]2,RM
6090 [160]2
6100 [153] "(null)(null).":[142]
6500 [143] LOAD GAME
6510 [153]"VALNTER FILENAME. (STR$EFAULT: PLANET.SAVE)":[133]F$
6515 [139]F$[178]""[167]F$[178]"PLANET.SAVE"
6520 [159]15,8,15
6530 [159]2,8,2,F$[170]",S,R"
6540 [141] 6900
6550 [132]2,L:[129]B[178]1[164]NI:[132]2,IL%(B):[130]B:[132]2,WT:[132]2,T
6560 [129]B[178]1[164]NL:[132]2,R%(B):[130]B:[132]2,M:[132]2,E
6565 [129]B[178]1[164]NI:[132]2,PR(B):[130]B
6570 [132]2,CM%:[132]2,R:[132]2,J
6575 [139]J[179][177]0[167]LV%(28,8)[178]27
6580 [132]2,PW:[132]2,RM
6590 [160]2:[160]15
6600 [142]
6900 [132]15,A$,B$,C$,D$
6910 [139][197](A$)[177]0[167][153]"CHR$AME NOT FOUND.":[129]A[178]1[164]100:[130]A:[138]
6920 [142]
7000 [143] WEIGH
7010 [139]IL%(2)[179][177]L[175]IL%(2)[179][177]0[167][153]"(null)HERE IS NO SCALE.":[142]
7020 [139]FW%(1)[178]2[167][153]"(null)OU CAN'T WEIGH IT ON ITSELF!":[142]
7030 [139]FW%(1)[179]1[176]FW%(1)[177]NI[167][153]"(null)HERE IS NO SUCH ITEM HERE.":[142]
7040 [139]IL%(FW%(1))[179][177]L[175]IL%(FW%(1))[179][177]0[167][153]"(null)HERE IS NO SUCH ITEM HERE.":[142]
7050 [153]"RIGHT$T WEIGHS"IW(FW%(1))"POUNDS."
7060 [142]
8000 [143] READ/EXAMINE
8005 [139]FW%(1)[178]200[167][153]"(null)HE BARS LOOK RUSTY AND WEAK.":[142]
8010 [139]FW%(1)[179]1[176]FW%(1)[177]NI[167][153]"(null)O SUCH THING HERE.":[142]
8020 [139]IL%(FW%(1))[179][177]L[175]IL%(FW%(1))[179][177]0[167][153]"(null)O SUCH THING HERE.":[142]
8030 [139]FW%(1)[178]5[167][153]"(null)HE SIGN SAYS: RIGHT$NSERT $2.50.":[142]
8050 [139]FW%(1)[178]10[167][153]"(null)HEY ARE MOSTLY DOLLAR COINS, BUT THERE"
8055 [139]FW%(1)[178]10[167][153]"ARE SOME $2.50 PIECES.":[142]
8060 [139]FW%(1)[178]4[167][153]"RIGHT$T HAS MANY PERIPHERALS, INCLUDING A    MODEM.":[142]
8070 [139]FW%(1)[178]8[167][153]"RIGHT$T IS (null)HE ATNDVENTURES OF (null)UPER(null)OBOT.":[142]
8080 [139]FW%(1)[178]12[167][153]"RIGHT$T BELONGED TO SECRET AGENT PEEKILL (null)MITH,"
8085 [139]FW%(1)[178]12[167][153]"WHO HAD THE HIGHEST SECURITY CLEARANCE.":[142]
8090 [139]FW%(1)[178]14[167][153]"(null)HEY APPEAR TO BE THE FRAGMENTS OF A"
8095 [139]FW%(1)[178]14[167][153]"BUTCHER'S KNIFE.":[142]
8100 [139]FW%(1)[178]11[167]8200
8110 [139]FW%(1)[178]13[167]8300
8190 [153]"(null)OTHING INTERESTING.":[142]
8200 [153]"(null)ITLE: LEFT$OW TO (null)AKE (null)HE (null)OST OF LENOMPUTER   (null)ETWORKS":[153]
8210 [153]"(null)OU CAN ACCESS THE GOVERNMENT'S PUBLIC"
8215 [153]"INFORMATION DATA FILES THROUGH ANY"
8217 [153]"MODEM-EQUIPPED COMPUTER.  (null)O DO THIS,   SIMPLY TYPE:"
8220 [153] "  (null)(null)ATNSTR$"[199](34)"(null)VAL(null)(null)6400"[199](34)",8,1"
8230 [153]"(null)HEN, YOU SELECT THE GOVERNMENT NETWORK BY TYPING:"
8235 [153]"  CHR$(null)(null)(null)"
8240 [153]"(null)OW, YOU ARE ASKED THE NAME OF THE FILE"
8245 [153]"YOU WANT.  ASCILES YOU HAVE ACCESS TO"
8247 [153]"INCLUDE '(null)(null)(null)', WHICH CONTAINS THE"
8250 [153]"CURRENT POPULATION OF THE (null)(null)ATN.  LEFT$AVE    FUN!"
8260 [153]:[142]
8300 [153]"          (null)CLOSE(null)CLOSE(null)CLOSECLOSECLOSE(null)CLOSEVALCLOSELENCLOSE(null)CLOSEVALCLOSE(null)"
8310 [153]"(null)O: (null)ORKERS ON (null)ROJECT LENHRONOS"
8320 [153]:[153]"(null)HE CURRENT COMBINATION TO THE DOOR OF"
8323 [153]"ROOM "RM" IS POSTED ON THE GOVERNMENT"
8326 [153]"COMPUTER NETWORK IN THE FILE TITLED"
8328 [153]"'LENLEFT$(null)(null)(null)(null)(null)'.  (null)HE PASSWORD TO THE FILE IS":[153]"'"PW$(PW);"'."
8330 [142]
8500 [143] TRIAL/JAIL
8510 [153] "* ATN POLICE ROBOT ARRIVES. *"
8515 [153]
8520 [153]"(null)OLICE: (null)OU ARE UNDER ARREST.  (null)OU HAVE"
8530 [153]"  A RIGHT TO REFRAIN FROM INPUTTING"
8533 [153]"  ANYTHING; ANYTHING YOU INPUT MAY BE"
8536 [153]"  HELD AGAINST YOU IN COURT."
8540 [153]"STOP* (null)OU ARE TAKEN TO A COURTROOM.      *"
8545 [153]"* (null)HE JUDGE AND JURY ARE ALL ROBOTS. *"
8550 [153]
8560 [153]:[153]"MID$UDGE: (null)OU ARE CHARGED WITH ";
8580 [139]CH[178]1[167][153]"ATNSSAULT OF":[153]"  A (null)OBOT. ";
8590 [139]CH[179][177]1[167][153]"(null)HEFT OF":[153]"  SERVICES.";
8600 [153]"  LEFT$OW DO YOU PLEAD?"
8605 [153]
8610 [153] "STR$EFENDANT: ";:[158]LI,B$:I$[178]B$[170]"":[153]
8615 [153]
8620 [141]200:[139][195](I$)[177][178]6[167][139][200](I$,6)[178]"GUILTY"[167]8900
8630 [153]"MID$UDGE: (null)HE STR$ISTRICT ATNTTORNEY WILL NOW     PRESENT HIS CASE."
8635 [153]
8640 [153]"* (null)HE STR$.ATN. IS ALSO A ROBOT. *"
8645 [153]
8650 [153]"STR$.ATN.: RIGHT$ WILL NOW CALL UPON THE ";
8660 [139]R%(L)[178]1[167][153]"CLERK "
8665 [139]R%(L)[179][177]1[167][153]"GUARD "
8670 [153]" ROBOT, SERIAL #"[181]([187](1)[172]999999)" TO TESTIFY."
8672 [153]
8677 [139]CH[179][177]1[167]8700
8680 [153]"(null)OBOT: (null)HIS MAN ASSAULTED ME WITH A":[139]IL%(9)[178]0[167][153]" RAY GUN ";
8685 [139] IL%(9)[179][177]0[167][153]" KNIFE ";
8690 [153]"ONLY"[181]([187](1)[172]59)"MINUTES,"[187](1)[172]59:[153]"  SECONDS AGO."
8692 [153]
8695 [153]"STR$.ATN.: RIGHT$ REST MY CASE."
8696 [153]
8697 [137]8800
8700 [143] [212]HEFT OF [211]ERVICES
8710 [153]"(null)OBOT: (null)HIS MAN HAD A MEAL AT THE"
8712 [153]"  RESTAURANT IN WHICH RIGHT$ WORK, AND WOULD   NOT PAY."
8715 [153]
8720 [153]"STR$.ATN.: (null)HEN DID THIS HAPPEN?"
8725 [153]
8730 [153]"(null)OBOT: MID$UST"[181]([187](1)[172]59)" MINUTES, "[187](1)[172]59:[153]"  SECONDS AGO."
8735 [153]
8740 [153]"STR$.ATN.: RIGHT$ REST MY CASE."
8745 [153]
8800 [143] YOUR REPLY
8810 [153]"MID$UDGE: (null)HAT DOES THE DEFENDANT HAVE TO    SAY FOR HIMSELF?"
8815 [153]
8820 [153]"STR$EFENDANT: ";:[158]LI,B$:I$[178]B$[170]"":[153]
8822 [153]
8825 [153]"MID$UDGE: (null)HE JURY WILL NOW REACH A          VERDICT."
8827 [129]A[178]1[164]1500:[130]A:[153]
8830 [153]"MID$URY: (null)HE WORD OF A ROBOT IS MORE"
8833 [153]"  RELIABLE THAN THAT OF A MERE HUMAN."
8836 [153]"  (null)HEREFORE, WE FIND THE DEFENDANT        GUILTY AS CHARGED."
8840 [153]
8900 [143] SENTENCING
8905 SE[178]2
8910 [139]CH[178]1[167][153]"MID$UDGE: (null)OU ARE HEREBY SENTENCED TO DEATH  BY ELECTROCUTION."
8915 [139]CH[178]1[167][153]:[153]"* (null)OU ARE TAKEN TO AN EXECUTION CHAMBER * AND KILLED.":[137]300
8920 [153]"MID$UDGE: (null)OU ARE HEREBY SENTENCED TO "
8923 [153]" "SE"YEARS IN PRISON.  PEEKAILIFF, PLEASE"
8926 [153]"  REMOVE THE PRISONER.  (null)EXT CASE!"
8930 [153]:L[178]28
8940 [129]A[178]1[164]NI:[139]IL%(A)[178]0[167]IL%(A)[178]29
8942 [130]A
8945 M[178][171][182](M)
8950 XX[178]1:[142]
9000 [143] SHOOT
9010 [139]IL%(9)[179][177]0[167][153]"(null)ITH WHAT?":[142]
9020 [139]R%(L)[178]0[167][153]"(null)OTHING TO SHOOT AT.":[142]
9030 [139]R%(L)[179][177]3[167][153]"(null)HE ROBOT'S FORCE FIELD REPELS THE RAY.":CH[178]1:[137]8500
9040 [153]"(null)HE DEFECT WHICH CAUSED THE ROBOT TO"
9045 [153]"MALFUNCTION ALSO AFFECTED ITS NORMALLY"
9050 [153]"INVULNERABLE FORCE FIELD.  (null)OUR SHOT    DESTROYS IT."
9060 R%(L)[178]0
9070 [142]
9500 [143] BUY
9501 [139]FW%(1)[179]1[176]FW%(1)[177]NI[167][153]"(null)O SUCH THING HERE.":[142]
9503 [139]IL%(FW%(1))[178]0[167][153]"(null)OU ARE ALREADY CARRYING IT.":[142]
9505 [139]IL%(FW%(1))[179][177]L[167][153]"(null)O SUCH THING HERE.":[142]
9510 [139]PR(FW%(1))[178]0[167][153]"(null)HERE IS NO PRICE ON IT.":[142]
9520 P[178]PR(FW%(1))
9525 [139]M[179][178]0[167][153]"(null)OU DO NOT HAVE ANY MONEY!":[142]
9530 [139]P[177]M[167][153]"(null)OU DO NOT HAVE ENOUGH MONEY!":[142]
9540 M[178]M[171]P
9550 PR(FW%(1))[178]0
9560 [137]3000
10000 [143] COMPUTER
10002 [139]IL%(4)[179][177]L[167][153]"(null)O SUCH THING HERE.":[142]
10005 [153]"(null)OBOT: (null)HEN YOU ARE FINISHED, TYPE        '(null)ASCASC' TO SHUT IT OFF.":[153]
10007 [153]"LEFT$IT RETURN TO TURN COMPUTER ON. ";:[158]LI,B$:[153]
10010 [158]65409
10020 [153]"   **** COMMODORE 6400 BASIC V32 ****"
10025 [153]"64M RAM SYSTEM 38911206 BASIC BYTES FREE":[153]"READY."
10030 [158]LI,B$:I$[178]B$[170]"":[153]
10035 [129]A[178]1[164][195](I$):[139][202](I$,A,1)[178]" "[167]I$[178][200](I$,A[171]1)[170][202](I$,A[170]1)
10037 [130]A
10040 [139] I$[178]"LOAD"[170][199](34)[170]"TERM6400"[170][199](34)[170]",8,1" [167] 10100
10045 [139]I$[178]"OFF"[167]XX[178]1:[137]10500
10047 [153]
10050 I[178][181]([187](1)[172]5)[170]1
10055 [145]I[141]10060,10065,10070,10075,10080:[153]"READY.":[137]10030
10060 [153]"?SYNTAX  ERROR":[142]
10065 [153]"?UNBALANCED COORDINATE  ERROR":[142]
10070 [153]"?IMPROPER DELIMITER  ERROR":[142]
10075 [153]"?UNFORMATTED REFERENCE  ERROR":[142]
10080 [153]"?UNINDEXABLE ADDRESS  ERROR":[142]
10100 [143] MODEM
10110 [137]30500
10120 [153]"(null)ELCOME TO THE (null).(null). CHR$OVT STR$ATABASE!":[153]"(null)YPE '(null)ASCASC'CLOSETO LOG OFF."
10140 [133]"(null)AME OF FILE TO ACCESS";I$:[141]200:[139]I$[178]"OFF"[167]10550
10150 [139]I$[178]"POP"[167]10600
10160 [139]I$[178]"CHRONOS"[167]10200
10170 [153]"(null)O SUCH FILE!":[137]10140
10200 [143] CHRONOS
10210 [133]"LENLASSIFIED!  (null)ASSWORD";I$
10220 [139]I$[179][177]PW$(PW)[167][153]"RIGHT$MPROPER PASSWORD!":[137]10140
10230 [153]"(null)ROJECT LENHRONOS COMBINATION:"CM%"."
10240 [137] 10140
10500 [143] EXIT COMPUTER
10505 XX[178]1
10510 [151]53280,7:[151]53281,1:[153]"LOAD"
10517 [153]""
10520 [142]
10550 [153]"(null)OGGING OFF CHR$(null)(null)(null) SYSTEM -- LEFT$AVE A GOOD  DAY!"
10555 [129]I[178]1[164][187](.)[172]10[170]5:[153][199]([187](.)[172]256);:[129]P[178]1[164][187](.)[172]200:[130]:[130]
10560 [153]:[153]"LENARRIERCLOSETONECLOSELOST!"
10570 [153]:[153]"SYSPEEKACK TO (null)VAL(null)(null)6400.  (null)OUR CHOICES:"
10575 [153]" (1) ATNCCESS ANOTHER SYSTEM"
10580 [153]" (2) VALXIT TO PEEKATN(null)RIGHT$LEN"
10585 [153]" (3) VALXIT AND (null)URN LENOMPUTER (null)FF"
10587 I$[178]""
10590 [153]:[133]"(null)OUR CHOICE";I$
10595 [139][197](I$)[178]0[167]10590
10597 [145][197](I$)[137]30025,30200,10500
10598 [137]10590
10600 [153]"(null)HE CURRENT POPULATION OF THE (null).(null).ATN."
10610 [153]"ACCORDING TO CENSUS FIGURES AS OF"
10620 [153]"7/6/2121: VALXACTLY 0 PERSONS,  23,241,203ROBOTS."
10630 [153]:[137]10120
11000 [143] RESTAURANT
11010 [153]"(null)OBOT: LEFT$ERE IS THE MENU:"
11020 [153]"  (1) (null)ARSBURGER"
11025 [153]"      $120"
11030 [153]"  (2) CHR$REEN CHR$OOP ((null)PECIAL OF THE WEEK!"
11035 [153]"      $140"
11040 [153]"  (3) LENAVIAR AND LENHAMPAGNE"
11045 [153]"      $350"
11047 [153]"(LEFT$IT (null)VAL(null)(null)(null)(null)WAIT IF YOU DON'T WISH TO ORDER.)":I$[178]""
11050 [133]"(null)OUR ORDER (BY NUMBER)";I$
11060 [139]I$[178]""[167][142]
11070 [139][197](I$)[179]1[176][197](I$)[177]3[167]11050
11080 [153]:[153]"(null)OU ARE SERVED."
11090 [153]"(null)MM. RIGHT$T TASTES GOOD."
11095 E[178]T
11100 [153]:[153]"(null)OBOT: (null)OUR CHECK, SIR."
11120 [153]:[153]"(null)OU DO NOT HAVE ENOUGH MONEY!"
11130 CH[178]0:[137]8500
12000 [143] SUBWAY
12005 L[178]LV%(L,6)
12010 [153]"(null)OU ENTER AT THE "LD$(L,1):[153]"STATION."
12015 [153]
12020 [139]LV%(L,1)[178]0[167]I[178]2:[137]12050
12030 [139]LV%(L,2)[178]0[167]I[178]1:[137]12050
12040 [153]"(null)HICH TRAIN ((null)ORTHBOUND OR (null)OUTHBOUND)":[133]I$
12045 I[178]2:[139][200](I$,1)[178]"(null)"[176][200](I$,1)[178]"N"[167]I[178]1
12050 L[178]LV%(L,I)
12060 [153]"(null)EXT STATION: "LD$(L,1)
12065 [139]LV%(L,I)[178]0[167][153]"VALND OF THE LINE.":L[178]LV%(L,8):XX[178]1:[142]
12070 [153]
12080 [133]"STR$O YOU WANT TO GET OFF HERE";I$
12085 [139][200](I$,1)[178]"(null)"[176][200](I$,1)[178]"Y"[167]L[178]LV%(L,8):XX[178]1:[142]
12090 [153]:[137]12050
13000 [143] CALL ROBOT
13002 [139]R%(L)[178]0[167][153]"(null)OBODY TO CALL.":[142]
13003 [139]R%(L)[179][177]1[167]13200
13010 [139]L[178]6[167]11000
13020 [139]L[178]34[167]13300
13030 [139]L[178]36[167]13400
13040 [139]L[178]3[167][153]"(null)OBOT: (null)OULD YOU LIKE TO TRY OUT THE    LENOMMODORE 6400"
13045 [139]L[178]3[167][133]I$:[139][200](I$,1)[178]"(null)"[176][200](I$,1)[178]"Y"[167]10000
13047 [139]L[178]3[167][142]
13050 [153]"(null)OBOT: LENAN RIGHT$ HELP YOU?"
13060 [133]I$
13065 [139]I$[178]""[167]13060
13070 [141]520
13080 [139]FW%(0)[178]10[167][141]9500:[142]
13085 [139]FW%(1)[178]4[175]L[178]3[167]10000
13090 [153]"(null)OBOT: RIGHT$ AM NOT PROGRAMMED TO HANDLE      QUERIES OF THIS TYPE."
13190 [142]
13200 [143] GUARD AND BERZERK ROBOTS
13210 [139]R%(L)[178]3[167][153]"(null)HE ROBOT KILLS YOU WHILE YOU ARE TRYING";
13215 [139]R%(L)[178]3[167][153]"TO COMMUNICATE WITH IT!":[137]300
13220 [153]"(null)OBOT: (null)ES?"
13230 [133]I$
13240 [153]"(null)OBOT: RIGHT$ AM UNAUTHORIZED TO HANDLE        QUERIES OF THIS NATURE."
13250 [142]
13300 [143] UNIVERSITY
13310 [153]"(null)OBOT: (null)HAT ROOM NUMBER DO YOU WANT?":[133]I$
13320 [139][197](I$)[179][177]RM[167][153]"(null)OBOT: (null)ORRY, THAT ROOM IS NOT OPEN.":[142]
13330 [153]:[153]"(null)HE WALL SLIDES OPEN, AND YOU ARE"
13333 [153]"BRISKLY CARRIED ON A PLATFORM FLOATING"
13336 [153]"INCHES ABOVE THE FLOOR, THROUGH SEVERAL"
13338 [153]"HALLWAYS.  (null)OU COME TO A STOP."
13340 L[178]36:XX[178]1:[142]
13400 [143] HALL
13410 [153]"(null)OBOT: STR$O YOU WANT TO RETURN TO THE":[133]"LOBBY";I$
13420 [139][200](I$,1)[178]"(null)"[176][200](I$,1)[178]"Y"[167]L[178]34:XX[178]1
13430 [142]
13500 [143] PLAY GAME
13505 [153]
13510 [153]"LENOST:CLOSE$2.50"
13520 [139]M[179]2.5[167][153]"(null)OU CAN'T AFFORD IT.":[142]
13530 [153]:[153]"(null)HE MACHINE IS OUT OF ORDER.  RIGHT$T TAKES"
13540 [153]"YOUR MONEY, BUT DOES NOT PLAY.  (null)OU"
13550 [153]"POUND ON IT, BUT NOTHING HAPPENS, AND   YOU DON'T GET YOUR MONEY BACK."
13560 M[178]M[171]2.5
13570 [142]
14000 [143] TIME MACHINE
14010 [153]"(null)OU ARE IN THE TIME MACHINE!"
14020 [153]"(null)OW, SET THE CONTROLS:"
14030 [133]"(null)EAR";Y
14040 [133]"(null)ONTH";I$:[133]"STR$AY";I$:[133]"LEFT$OUR";I$:[133]"(null)INUTE";I$
14045 [133]"(null)ECOND";I$
14050 [153]:[153]"(null)HE MACHINE WHIRRS..."
14060 [129]A[178]1[164]1000:[130]A
14070 [153]"(null)OU HAVE ARRIVED!"
14080 [139]Y[177][178]1970[175]Y[179]2001[167][153]"PEEKACK IN THE 20TH CENTURY AT LAST!  (null)OU  WIN!"
14085 [139]Y[177][178]1970[175]Y[179]2001[167]300
14090 [139]Y[177][178]2001[167][153]"(null)HY DID YOU GO TO THE FUTURE AGAIN?  RIGHT$"
14095 [139]Y[177][178]2001[167][153]"DIDN'T PROGRAM ANY ADVENTURE GAME FOR"
14096 [139]Y[177][178]2001[167][153]"THAT CENTURY, AND THE TIME MACHINE IS"
14098 [139]Y[177][178]2000[167][153]"OUT OF POWER.  (null)OU'RE ON YOUR OWN.":[137]300
14100 [139]Y[179]1970[175]Y[177][178]1901[167][153]"(null)ELL, AT LEAST YOU MADE IT TO THE 20TH"
14110 [139]Y[179]1970[175]Y[177]1901[167][153]"CENTURY, BUT YOU'LL HAVE TO WAIT A"
14120 [139]Y[179]1970[175]Y[177]1901[167][153]"WHILE FOR LENOMMODORE COMPUTERS TO BE     INVENTED."
14130 [139]Y[179]1970[175]Y[177]1901[167]300
14140 [153]"(null)OU END UP IN THE YEAR"Y".  RIGHT$ DIDN'T"
14150 [153]"PROGRAM ANY ADVENTURE FOR THAT CENTURY,"
14160 [153]"AND THE TIME MACHINE IS OUT OF POWER,   SO YOU ARE ON YOUR OWN."
14170 [137]300
14500 [143] EAT
14502 [139]FW%(1)[178]0[175]L[178]6[167]11000
14510 [139]FW%(1)[179]1[176]FW%(1)[177]NI[167][153]"VALAT WHAT?":[142]
14520 [139]IL%(FW%(1))[179][177]0[167][153]"VALAT WHAT?":[142]
14530 [139]IW(FW%(1))[177]2[167][153]"STR$ON'T BE RIDICULOUS!":[142]
14540 [139]FW%(1)[178]3[167][153]"(null)MM. (null)HAT WAS GOOD.":E[178]T:[137]14565
14545 [153]"LENHOMP LENHOMP LENHOMP"
14550 [153]"RIGHT$T COULD HAVE USED A LITTLE SALT."
14560 [139]T[171]E[177]150[167][153]"(null)OT VERY NUTRITIOUS.  (null)OU7RE STILL      HUNGRY."
14565 IL%(FW%(1))[178][171]1
14567 [139]FW%(1)[178]10[167]M[178]0
14570 [142]
15000 [143] BREAK OUT OF JAIL
15010 [139]L[179][177]28[167][153]"(null)HAT?":[142]
15020 [153]"(null)HE RUSTY, WEAKENED BARS GIVE WAY AND   THERE IS AN OPENING OUT."
15030 LV%(28,8)[178]27:J[178]1
15040 [142]
15500 [143] ATTACK
15510 [139]IL%(9)[178]0[167]9000
15515 [139]R%(L)[178]0[167][153]"(null)OTHING TO ATTACK.":[142]
15520 [139]IL%(1)[179][177]0[167][153]"(null)OU HAVE NO HOPE OF FIGHTING A TOUGH"
15525 [139]IL%(1)[179][177]0[167][153]"METAL ROBOT WITH YOUR BARE HANDS.":[142]
15530 [153]"(null)HE KNIFE SHATTERS AGAINST THE ROBOT'S  TOUGH SIDE."
15535 IL%(1)[178][171]1:IL%(14)[178]L
15538 [139]R%(L)[178]3[167][153]"(null)HE ROBOT KILLS YOU.":[137]300
15540 CH[178]1:[137]8500
16000 [143] OPEN
16010 [153]"ATNLL THE DOORS OPEN AND CLOSE"
16020 [153]"AUTOMATICALLY, SO THERE IS NO NEED TO   OPEN OR CLOSE THEM."
16030 [142]
16500 [143] HELP
16510 [153]:[153]"(null)OME AVAILABLE COMMANDS:"
16530 [153]" RIGHT$(null)(null)":[153]" CHR$VAL(null) [OBJECT]":[153]" PEEK(null)(null) [OBJECT]":[153]" STR$(null)(null)(null) [OBJECT]"
16540 [153]" VAL(null)ATN(null)RIGHT$(null)VAL [OBJECT]":[153]" LENATN(null)(null)CLOSE(null)(null)PEEK(null)(null)":"CLOSEATN(null)(null)ATNLEN(null)CLOSE(null)(null)PEEK(null)(null)":"CLOSE(null)LEFT$(null)(null)(null)CLOSE(null)(null)PEEK(null)(null)"
16545 [153]"CLOSE(null)(null)(null)(null)"
16550 [153]:[142]
18000 [143] OPENING TITLES
18010 [153] "LOAD"
18020 [153]:[153]:[153]:[153]:[153]
18030 [153]:[153]:[153]"     **** (null)LANET OF THE (null)OBOTS ****"
18040 [153]
18050 [153]"        LENOMMODORE 64 (null)ERSION 1.1"
18060 [153]:[153]"   LENOPYRIGHT (LEN) 1984 BY STR$ANIEL (null)OBIAS"
18070 [153]:[133]"         RIGHT$NSTRUCTIONS ((null)/(null)) ";I$
18080 [139] [200](I$,1)[178]"(null)" [176] [200](I$,1)[178]"N" [167] [142]
18500 [143] INSTRUCTIONS
18510 [153]"LOAD"
18520 [153]"ATN TIME WARP HAS SUDDENLY TRANSPORTED":[153]
18530 [153]"YOU INTO THE FUTURE, WHERE A WAR USING":[153]
18550 [153]"NEUTRON BOMBS AND BACTERIOLOGICAL"
18560 [153]:[153]"WARFARE HAS COMPLETELY WIPED OUT THE":[153]
18570 [153]"HUMAN RACE.  LEFT$OWEVER, THE COMPUTERS":[153]
18580 [153]"AND ROBOTS DON'T KNOW THIS, AND KEEP":[153]
18585 [153]"GOING ABOUT THEIR BUSINESS AS IF NOTHING":[153]"HAS HAPPENED.":[153]
18587 [153]"*** LEFT$IT RETURN TO CONTINUE ***";:[158]LI,B$:[153]"LOAD"
18590 [153]"(null)OU EXPLORE THE WORLD YOU ARE THRUST"
18595 [153]:[153]"INTO USING SIMPLE SENTENCES, IN THE"
18600 [153]:[153]"STANDARD ADVENTURE-GAME FASHION, SUCH"
18610 [153]:[153]"AS ATN(null)(null)ATNLEN(null)CLOSE(null)(null)PEEK(null)(null)CLOSEOR VAL(null)ATN(null)RIGHT$(null)VALCLOSELEN(null)RIGHT$(null)."
18620 [153]:[153]"RIGHT$F A ROBOT IS IN THE ROOM, YOU MAY"
18625 [153]:[153]"ATTEMPT TO TALK TO IT BY TYPING LENATN(null)(null)"
18630 [153]:[153]"(null)(null)PEEK(null)(null), BUT POSITIVE RESULTS ARE NOT":[153]:[153]"GUARANTEED!"
18635 [153]:[153]"*** LEFT$IT RETURN TO CONTINUE. ***";:[158]LI,B$:[153]"LOAD"
18640 [153]"CHR$(null)CLOSE(null)(null)(null)(null)LEFT$ MAY BE ABBREVIATED (null), AND THE"
18650 [153]:[153]"SAME MAY BE DONE WITH THE OTHER COMPASS"
18660 [153]:[153]"DIRECTIONS."
18670 [153]:[153]"(null)HE OBJECT IS TO GET BACK TO THE 20TH"
18680 [153]:[153]"CENTURY.  CHR$OOD LUCK!"
18690 [153]:[153]"(null)OME UTILITY COMMANDS:"
18700 [153]"  (null)(null)RIGHT$(null) EXITS GAME":[153]"  (null)ATN(null)VAL SAVES GAME IN PROGRESS TO DISK."
18710 [153]:[153]"*** LEFT$IT RETURN TO START. ***";:[158]LI,B$:[153]"LOAD":[142]
18999 [142]
19000 [143] INITIALIZE
19002 [153]"LOAD(null)LEASE WAIT.  RIGHT$NITIALIZING DATA."
19005 [129]A[178]1[164]8:[135]DN$(A):[130]A
19020 A[178]1
19025 [129]B[178]0[164]1:[135]LD$(A,B):[130]B:[139]LD$(A,0)[179][177]""[167]A[178]A[170]1:[137]19025
19027 NL[178]A[171]1
19030 [129]A[178]1[164]NL:[129]B[178]1[164]8:[135]LV%(A,B):[130]B:[135]R%(A):[130]A
19040 [129]A[178]1[164]NL:L%(A)[178]0:[130]A
19050 A[178]1
19060 [135]ID$(A),IL%(A),IW(A),PR(A):[139]IL%(A)[179][177][171]999[167]A[178]A[170]1:[137]19060
19065 NI[178]A[171]1
19067 [129]A[178]1[164]10:[135]PW$(A):[130]A
19070 A[178]1
19075 [135]WD$(A),W%(A,0),W%(A,1):[139]WD$(A)[179][177]""[167]A[178]A[170]1:[137]19075
19080 NW[178]A[171]1
19085 L[178]1:T[178]1
19087 W[178]0:M[178][171]119
19088 E[178]0:J[178]0:R[178]0
19090 [153] "LOAD":[133]"(null)OAD GAME FROM DISK ((null)/(null)) ";I$
19093 PW[178][181]([187](0)[172]10)[170]1
19096 CM%[178][181]([187](0)[172]9999):RM[178][181]([187](0)[172]900)[170]100
19100 [139][200](I$,1)[178]"(null)"[176][200](I$,1)[178]"Y"[167][141]6500
19110 F[178].0596064645
19120 [129]I[178].[164]3:[135]P:V%(I)[178]P[173]F[170].5:[130]:[129]I[178].[164]2:[135]P:H%(I)[178]P[173]F[170].5:[130]
19125 [129]I[178].[164]1:[135]P:O%(I)[178]P[173]F[170].5:[130]:[129]I[178].[164]1:[135]P:A(I)[178][181](P[173]F[170].5):[130]
19130 [142]
20000 [143] DATA
20005 [131]"(null)CLOSE","(null) ","VAL ","(null) ","(null) ","STR$ ","RIGHT$(null) ","(null)(null)(null)"
20040 [131]"STOP(null)OU ARE IN THE PARKING LOT OF A SHOPPINGMALL. ATN ROAD IS TO THE EAST."
20045 [131]"STOP(null)OU'RE IN PARKING LOT TO MALL."
20050 [131]"(null)OU ARE IN THE SHOPPING MALL.  (null)HERE IS A COMPUTER STORE HERE."
20055 [131]"(null)OU'RE IN MALL AT COMPUTER STORE."
20060 [131]"(null)OU ARE IN THE COMPUTER STORE.","(null)OU'RE IN COMPUTER STORE."
20070 [131]"(null)O THE WEST IS A COMIC BOOK STORE.  (null)O  THE EAST IS A RESTAURANT."
20075 [131]"(null)OU'RE BY COMIC STORE AND RESTAURANT."
20080 [131]"(null)HIS IS A STORE CATERING TO COMIC BOOK  COLLECTORS."
20085 [131]"(null)OU ARE IN COMIC STORE."
20090 [131]"(null)OU ARE IN A RESTAURANT.","(null)OU'RE IN RESTAURANT."
20100 [131]"(null)O THE WEST IS AN ARCADE, AND TO THE    EAST IS A GROCERY STORE."
20105 [131]"(null)OU'RE BY ARCADE AND GROCERY."
20110 [131]"(null)OU ARE IN AN ARCADE.","(null)OU'RE IN ARCADE."
20120 [131]"(null)O THE WEST IS A BUTCHER SHOP, AND TO   THE EAST A CLOTHING STORE."
20125 [131]"(null)OU'RE BY BUTCHER AND CLOTHING STORE."
20130 [131]"(null)OU ARE IN A BUTCHER SHOP.","(null)OU'RE IN BUTCHER SHOP."
20140 [131]"(null)OU ARE IN A CLOTHING STORE.","(null)OU'RE IN CLOTHING STORE."
20150 [131]"(null)OU ARE IN A GROCERY.","(null)OU'RE IN GROCERY."
20160 [131]"STOP(null)OU ARE ON A (null)-(null) ROAD.  (null)HERE IS A      SHOPPING MALL TO THE WEST."
20165 [131]"STOP(null)OU'RE ON ROAD BY MALL."
20170 [131]"STOP(null)HE ROAD GOES 100 FT., THEN STOPS AT AN IMPENETRABLE PILE OF DEBRIS."
20175 [131]"STOP(null)OU'RE AT DEBRIS."
20180 [131]"STOP(null)OU ARE NEXT TO AN INFORMATION BOOTH,   MANNED BY A ROBOT."
20185 [131]"STOP(null)OU'RE AT INFO BOOTH."
20190 [131]"STOP(null)OU ARE IN A PHONE BOOTH.  (null)HE CASH BOX HAS BURST OPEN."
20195 [131]"STOP(null)OU'RE IN PHONE BOOTH."
20200 [131]"RIGHT$","RIGHT$"
20210 [131]"(null)OU ARE IN THE LIBRARY.","(null)OU'RE IN LIBRARY."
20220 [131]"STOP(null)O THE WEST IS A LIBRARY, AND THE CITY  HALL IS TO THE EAST."
20225 [131]"STOP(null)OU'RE BY LIBRARY AND CITY HALL."
20230 [131]"(null)OU ARE IN THE LOBBY OF THE CITY HALL.  (null)HERE IS A STAIRWAY HERE."
20235 [131]"(null)OU'RE IN CITY HALL LOBBY."
20240 [131]"STOP(null)HE ROAD ENDS HERE.  (null)HERE IS A SUBWAY  ENTRANCE HERE."
20245 [131]"STOP(null)OU'RE BY SUBWAY STATION."
20247 [131]"(null)","LENITY LEFT$ALL"
20250 [131]"(null)OU ARE IN A HALLWAY LEADING TOWARDS    OFFICES TO THE EAST."
20255 [131]"(null)OU'RE IN HALLWAY."
20260 [131]"(null)HERE ARE OFFICES TO THE NORTH AND      SOUTH."
20265 [131]"(null)OU'RE BETWEEN TWO OFFICES."
20270 [131]"(null)OU ARE IN AN OFFICE","(null)OU'RE IN OFFICE."
20280 [131]"(null)OU ARE IN AN OFFICE","(null)OU'RE IN OFFICE."
20290 [131]"(null)OU ARE IN A HALLWAY IN THE JAIL.  ATN    CLOSET IS TO THE NORTH."
20295 [131]"(null)OU'RE IN JAIL HALLWAY."
20300 [131]"(null)OU ARE IN A JAIL CELL.","(null)OU'RE IN JAIL CELL."
20310 [131]"CLR(null)OU ARE IN A CLOSET.","CLR(null)OU'RE IN CLOSET."
20320 [131]"(null)","(null)ARKET (null)TREET"
20330 [131]"(null)","(null)ETRO (null)NIVERSITY"
20340 [131]"(null)","VALNDSVILLE"
20350 [131]"CLR(null)OU ARE ON A STREET WHICH IS BLOCKED IN BOTH DIRECTIONS BY DEBRIS."
20355 [131]"CLR(null)OU'RE ON BLOCKED STREET."
20360 [131]"CLR(null)OU ARE IN THE MAIN LOBBY OF THE (null)ETRO  (null)NIVERSITY BUILDING."
20365 [131]"CLR(null)OU'RE IN UNIVERSITY LOBBY."
20370 [131]"STOP(null)OU ARE ON A PLAIN WHERE A BOMB BLAST   HAS DESTROYED THE TOWN."
20375 [131]"STOP(null)OU'RE ON PLAIN BY SUBWAY STOP."
20380 [131]"CLR(null)OU ARE IN FRONT OF A DOOR.","CLR(null)OU'RE IN FRONT OF DOOR."
20390 [131]"CLR(null)OU ARE IN THE LABORATORY OF (null)ROJECT    LENHRONOS.WAIT"
20395 [131]"CLR(null)OU'RE IN LAB.WAIT"
20400 [131]"(null)","(null)"
20405 [131]"STOP(null)OU ARE ON PLAIN.","STOP(null)OU ARE ON PLAIN."
20410 [131]"(null)OU ARE BY A PHONE BOOTH.","(null)OU'RE BY PHONE BOOTH."
20990 [131]"",""
21000 [143] MOVEMENT,ROBOTS
21010 [131]0,0,13,0,0,0,2,0,0
21020 [131]7,4,0,0,0,0,3,1,0
21030 [131]0,0,0,0,0,0,0,2,1
21040 [131]2,0,6,5,0,0,0,0,0
21050 [131]0,0,0,0,0,0,0,4,1
21060 [131]0,0,0,0,0,0,0,4,1
21070 [131]9,2,12,8,0,0,0,0,0
21080 [131]0,0,0,0,0,0,0,7,0
21090 [131]0,7,11,10,0,0,0,0,0
21100 [131]0,0,0,0,0,0,0,9,0
21110 [131]0,0,0,0,0,0,0,9,1
21120 [131]0,0,0,0,0,0,0,7,1
21130 [131]14,15,0,1,0,0,0,0,0
21140 [131]0,13,0,0,0,0,0,0,0
21150 [131]13,19,0,0,0,0,17,0,0
21160 [131]0,0,0,0,0,0,0,40,0
21170 [131]0,0,0,0,0,0,0,15,1
21180 [131]0,0,0,0,0,0,0,19,0
21190 [131]15,21,20,18,0,0,0,0,0
21200 [131]0,0,0,0,23,27,0,19,26
21210 [131]19,0,0,0,0,22,0,0,3
21215 [131]0,30,0,0,0,0,0,21,0
21220 [131]0,0,24,0,0,20,0,0,23
21230 [131]26,25,0,23,0,0,0,0,0
21240 [131]0,0,0,0,0,0,0,24,3
21245 [131]0,0,0,0,0,0,0,24,0
21250 [131]29,28,0,0,20,0,0,0,25
21260 [131]0,0,0,0,0,0,0,0,0
21270 [131]0,0,0,0,0,0,0,27,0
21280 [131]22,31,0,0,0,0,0,33,0
21290 [131]30,32,0,0,0,0,0,34,0
21300 [131]31,0,0,0,0,0,0,35,0
21310 [131]0,0,0,0,0,30,0,0,0
21320 [131]0,0,0,0,0,31,0,0,1
21330 [131]39,39,39,39,0,32,0,0,0
21340 [131]0,0,0,0,0,0,37,0,1
21350 [131]0,0,0,0,0,0,38,36,0
21360 [131]0,0,0,0,0,0,0,0,0
21370 [131]39,39,39,39,0,0,0,0,0
21380 [131]39,39,39,39,0,0,16,0,0
23000 [143] ITEMS
23030 [131]"PEEKUTCHER'S (null)NIFE",10,5,0
23033 [131]"(null)CALE",10,140,0
23036 [131]"ASCOOD (null)ILLS",12,.5,10
23040 [131]"LENOMMODORE 6400 LENOMPUTER",3,15,5000
23050 [131]"(null)IDEO GAME MACHINE",8,-1,0
23060 [131]"(null)UIT OF CLOTHES",11,2,995
23070 [131]"(null)IE",11,.15,20
23090 [131]"LENOMIC",5,.3,6
23100 [131]"(null)AY CHR$UN",14,1,0
23110 [131]"LENOINS",16,2,0
23120 [131]"PEEKOOK",18,1,0
23130 [131]"RIGHT$.STR$. LENARD",29,.05,0
23140 [131]"(null)ETTER",26,.05,0
23150 [131]"(null)HATTERED PIECES OF METAL",-1,5,0
23160 [131]"(null)IME (null)ACHINE",37,2000,0
23990 [131]"",-999,-999,-999
23995 [131]SESAME,SNARK,QUARK,PEARTREE,MOONSHINE,SHOE,TURKEY,CHRISTMAS
23997 [131]HALLOWEEN,ROBOTWAR
24000 [143] WORDS
24010 [131]N,1,101
24020 [131]S,1,102
24030 [131]E,1,103
24040 [131]W,1,104
24050 [131]U,1,105
24060 [131]D,1,106
24070 [131]IN,1,107
24080 [131]OUT,1,108
24090 [131]GET,2,-1
24100 [131]TAKE,2,-1
24140 [131]GO,1,-1
24160 [131]DROP,3,-1
24170 [131]LOOK,4,-1
24180 [131]INV,5,-1
24190 [131]QUIT,99,-1
24200 [131]SAVE,6,-1
24210 [131]ROBOT,-1,200
24220 [131]BUY,10,-1
24230 [131]WEIGH,7,-1
24240 [131]READ,8,-1
24250 [131]EXAMINE,8,-1
24260 [131]KNIFE,-1,1
24270 [131]SCALE,-1,2
24280 [131]PILLS,-1,3
24290 [131]COMMODORE,-1,4
24295 [131]6400,-1,4
24300 [131]COMPUTER,-1,4
24310 [131]CALL,11,-1
24315 [131]TALK,11,-1
24317 [131]SPEAK,11,-1
24320 [131]GAME,-1,5
24330 [131]PLAY,12,-1
24340 [131]SUIT,-1,6
24350 [131]TIE,-1,7
24360 [131]COMIC,-1,8
24370 [131]EAT,13,-1
24380 [131]BREAK,14,-1
24390 [131]ESCAPE,14,-1
24400 [131]GUN,-1,9
24410 [131]COINS,-1,10
24420 [131]MONEY,-1,10
24425 [131]CASH,-1,10
24430 [131]BOOK,-1,11
24440 [131]SHOOT,9,-1
24445 [131]ZAP,9,-1
24450 [131]ATTACK,15,-1
24455 [131]KILL,15,-1
24460 [131]I.D.,-1,12
24465 [131]ID,-1,12
24470 [131]CARD,-1,12
24480 [131]LETTER,-1,13
24490 [131]PIECES,-1,14
24500 [131]OPEN,16,-1
24510 [131]HELP,17,-1
24515 [131]ON,18,-1
24520 [131]BARS,-1,200
24895 [143] *****UNABBREVIATED:
24900 [131]NORTH,1,101
24905 [131]SOUTH,1,102
24910 [131]EAST,1,103
24915 [131]WEST,1,104
24920 [131]UP,1,105
24925 [131]DOWN,1,106
24930 [131]INVENTORY,5,-1
24935 [131]ENTER,1,107
24940 [131]EXIT,1,108
24990 [131]"",-999,-999
30000 [151]S[170]5,.:[151]S[170]6,240:[151]S[170]12,.:[151]S[170]13,240:[151]S[170]3,8:[151]S[170]10,8
30005 [151]S[170]24,15:T$[178]"123456789*0#"
30010 F[178].059604645:[151]53280,.:[151]53281,.
30012 [153]"LOADSYS(null)VAL(null)(null)6400  300 (null)ILOBAUD (null)ERMINAL (null)ACKAGE"
30013 [153]"SYSLENOPYRIGHT (LEN)CLOSE2063 BY (null)OADSTAR (null)OFTWARE"
30014 [153]"(null)YPE '(null)ASCASC' TO RETURN TO PEEKATN(null)RIGHT$LEN."
30025 P$[178]"1-800-555-0749":[137]30150
30030 [153]"STR$IALING:  ";:[141]30135:[151]S[170]24,8
30035 [129]I[178]1[164][195](P$):A$[178][202](P$,I,1):[153]A$;:[129]J[178]1[164][195](T$)
30040 [139]A$[179][177][202](T$,J,1)[167][130]:[130]:[137]30025
30045 P[178]J[171]1:J[178][195](T$):[130]:V%[178]P[173]3:H%[178]P[171]3[172]V%:P1%[178]H%(H%):P2%[178]V%(V%):[141]30080:[130]
30050 [151]S[170]24,15:[141]30090:[141]30115
30055 [153]:[153]"300 (null)ILOBAUD LENONNECTCONT":[129]I[178]1[164]500:[130]:[137]10120
30060 [131]697,770,852,941:[143] VERTICAL TOUCH-TONE PITCHES
30065 [131]1209,1336,1477:[143] HORIZONTAL TOUCH-TONE PITCHES
30070 [131]1070,1270:[143] ORIGINATE MODEM SPACE, MARK
30075 [131]2025,2225:[143] ANSWER MODEM SPACE, MARK
30080 [151]S,P1%[175]255:[151]S[170]1,P1%[173]256:[151]S[170]7,P2%[175]255:[151]S[170]8,P2%[173]256
30085 [151]S[170]4,65:[151]S[170]11,65:[129]P[178]1[164]50:[130]:[151]S[170]4,.:[151]S[170]11,.:[142]
30090 T1%[178]7430:T2%[178]7000:[151]S[170]24,.:[151]S[170]24,15::[129]P[178]1[164]2:[151]S[170]4,17:[129]I[178]1[164]60
30095 [151]S,T1%[175]255:[151]S[170]1,T1%[173]256
30100 [151]S,T2%[175]255:[151]S[170]1,T2%[173]256:[130]
30105 [151]S[170]4,.:[129]I[178]1[164]1000[171]2500[172](P[178]1):[130]:[130]:[151]S[170]24,.:[151]S[170]24,15
30110 [151]S[170]24,.:[129]I[178]1[164]20:[130]:[151]S[170]24,15:[151]S[170]24,.:[151]S[170]24,15:[142]
30115 T1[178]A(.):T2%[178]O%(.):[151]S[170]24,4
30120 [151]S,T1[171]256[172][181](T1[173]256):[151]S[170]1,T1[173]256:[151]S[170]4,65:[129]I[178]1[164]800:[130]
30125 [151]S[170]7,T2%[175]255:[151]S[170]8,T2%[173]256:[151]S[170]11,65:[129]I[178]1[164]500:[130]:[151]S[170]24,.
30130 [151]S[170]4,.:[151]S[170]11,.:[142]
30135 T%[178]7217:[151]S[170]24,.:[151]S[170]24,15:[151]S[170]24,.:[151]S[170]24,15
30140 [151]S,T%[175]255:[151]S[170]1,T%[173]256:[129]P[178]1[164]200:[151]S[170]4,16:[151]S[170]4,17:[130]
30145 [151]S[170]4,16:[142]
30150 [133]"(null)YSTEM TO ACCESS";I$:[141]200:[139]I$[178]"OFF"[167]30200
30155 [129]I[178]1[164]1000:[130]:[139]I$[179][177]"GOVT"[167][153]"(null)NKNOWN SYSTEM":[137]30150
30160 [153]"CLRCHR$(null)(null)(null):  (null).(null). CHR$OVT. STR$ATABASE":[153]"(null)HONE (null)UMBER:  "P$
30165 [153]"FORRIGHT$S THIS CORRECT ((null)/(null))?CLOSE";
30170 [151]198,.:[146]198,1:[161]I$:[139]I$[178]"(null)"[176]I$[178]"N"[167][153]"(null)OPE.":[153]"":[137]30150
30175 [139]I$[179][177]"(null)"[175]I$[179][177]"Y"[167]30165
30180 [153]"(null)EAH!":[137]30030
30200 [151]53270,4:[129]I[178]1[164]2000:[130]:[137]10010
30500 [153]:[153]"SEARCHING FOR TERM6400":[160]8:[160]15:[159]8,8,8,"#"
30502 [159]15,8,15,"U1:8 0 18 0":[152]15,"U1:8 0 18 0"
30505 [129]I[178]1[164]1000:[130]:[153]"LOADING"
30510 [129]I[178]1[164]4:[152]15,"U1:8 0 "[181]([187](1)[172]30[170]3);.:[129]J[178]1[164][187](1)[172]2000[170]1000
30515 [130]:[130]:[160]8:[160]15:[137]30000
40000 [129]I[178]0[164]21:[151]828[170]I,8[170]I:[130]
40010 [139]DV[179]8[176]DV[177]29[176]DV[178]8[167]40030
40020 A[178][194](828):B[178][194](828[170]DV[171]8):[151]828,B:[151]828[170]DV[171]8,A
40030 A$[178]"HELLO CONNECT":[129]J[178]8[164]29:I[178][194](828[170]J[171]8):[139]I[178]14[167][130]
40040 [160]2:[159]2,I,2:[160]2:[139]ST[167]40060
40050 [160]15:[159]15,I,15,"R0:"[170]A$[170]"="[170]A$:[132]15,ER:[160]15:[139]ER[178]63[167]40070
40060 [130]:[153]"LOAD":[151]53272,23:[151]186,8:[128]
40070 Q$[178][199](34):[151]646,[194](53281):[153]"LOAD":[151]53272,23
40080 [153]"LOADP(null)2048,0:P(null)44,8:P(null)43,1:P(null)56,160:P(null)55,0:CLR:L(null)"Q$A$Q$","I
40090 [153]"RUN:":[151]631,13:[151]632,13:[151]198,2:[128]
60000 D[178][194](186):N$[178]"B.PLANET":[159]15,D,15,"S0:"[170]N$:[160]15:[148]N$,D:[128]