8 POKE56,159
10 GOTO1000
20 POKE53281,15:POKE53280,15:PRINT"[147]";:POKE2,1:CLR:RUN22
22 DIMT$(2),OB$(64,16),IV(64,16),IP(16),AA$(32),AL(32),RM$(96):A$=A$:EL=7
23 DEBUG=-1:P=FRE(0):IF(DEBUG)THENPRINT"<[196]EBUG MODE ON!"
25 DV=PEEK(186):IFDV<8THENDV=8
29 FL=0:CL=6:SYS57812"33C.IA.O",DV,1:SYS62631:IF(PEEK(828)=0)THENPOKE43,1:END
30 OPEN15,DV,15,"R0:CONFIG.PARSE=CONFIG.PARSE":INPUT#15,EN:CLOSE15
40 IFEN<>63THENPRINT"[195]AN'T FIND CONFIG FILE.":POKE43,1:GOTO1000
42 PRINT"[144][147][212]HE STORY IS LOADING ...":BF$="":T$(1)="":T$(2)=""
50 OPEN1,DV,2,"CONFIG.PARSE":SYS828,1,80:T$(1)=A$+"":SYS828,1,80:T$(2)=A$+""
60 SYS828,1,80:BF$=A$+"":INPUT#1,MD:CLOSE1:TJ=0:TR=0
70 Z$=BF$+".OBJ"+RIGHT$("0"+MID$(STR$(TJ+1),2),2):OPEN15,DV,15,"R0:"+Z$+"="+Z$
80 INPUT#15,EN:CLOSE15:IFEN<>63GOTO130
90 OPEN1,DV,2,Z$:L=1
100 SYS828,1,80:OB$(L,TJ+1)=A$+"":IF(ST=0)THENL=L+1:GOTO100
110 OB$(L+1,TJ+1)="**":IF(DEBUG)THENPRINT"<[204]OADED OBJECT"TJ+1
120 CLOSE1:TJ=TJ+1:GOTO70
130 IF(DEBUG)AND(TJ=0)THENPRINT"<[215]ARNING: LOADED NO OBJECTS"
140 PRINT:PRINTT$(1)CHR$(13)T$(2)
150 PRINT"[208]ROGRAMMED WITH [195]AMERON [203]AISER'S [215][207][210][204][196]"
160 PRINT"[205][193][203][197][210] V1.5 ([195])1997 [202] & [198] [208]UBLISHING,"
170 PRINT"[201]NC. [193]LL RIGHTS RESERVED."
180 OPEN15,DV,15,"R0:"+BF$+".INTRO="+BF$+".INTRO":INPUT#15,EN:CLOSE15
190 IF(EN<>63)AND(DEBUG)THENPRINT"<[215]ARNING: NO INTRO TEXT":GOTO220
200 OPEN1,DV,2,BF$+".INTRO"
210 SYS828,1,80:PRINTA$:IF(ST=0)GOTO210
220 PRINT:CLOSE1:OPEN15,DV,15,"R0:"+BF$+".SINV="+BF$+".SINV":INPUT#15,EN:CLOSE15
230 IFEN=63THENOPEN1,DV,2,BF$+".SINV":GOSUB780:GOTO260
240 IF(DEBUG)THENPRINT"<[215]ARNING: NO INVENTORY CONFIGURATION":PRINT
250 CR=01
260 REM <<< MAIN ROOM LOADER LOOP >>>
270 Z$=BF$+".ROOM"+RIGHT$("0"+MID$(STR$(CR),2),2):OPEN15,DV,15,"R0:"+Z$+"="+Z$
280 INPUT#15,EN:CLOSE15:IFEN=63GOTO310
290 ER$="[198]AILED TO LOAD ROOM.":GOSUB60001
300 IF(CR>64)THENER$="[207]UT OF MEMORY.":GOSUB60000:END
310 OPEN1,DV,2,Z$:I=1:P=828:Z=1:C=95:AA=0
320 SYSP,1,80:RM$(I)=A$+""
321 IFLEFT$(RM$(I),7)="ACTION "THENAA=AA+Z:AA$(AA)=MID$(RM$(I),8):AL(AA)=I
322 IFLEFT$(RM$(I),6)="ALIAS "THENAA=AA+Z:AA$(AA)=MID$(RM$(I),7):AL(AA)=I
325 IF(ST=NU)AND(I<C)THENI=I+Z:GOTO320
330 CLOSE1:RM$(I+1)="**":IFI=95THENER$="[210]OOM TOO COMPLEX.":GOSUB60000
332 IFRND(1)>.85THENPRINT"([205]EMORY MAINTENANCE -- ONE MOMENT)":Q=FRE(0)
340 T=CR:VB$="LOOK":IF(NOTBM)GOTO356
342 PRINTMID$(RM$(2),7)
350 VB$="":PRINT"> [144]";:POKE204,.
351 GETA$:IFA$=""GOTO351
352 IFA$=CHR$(20)ANDVB$<>""THENPRINTA$;:VB$=LEFT$(VB$,LEN(VB$)-1):GOTO351
353 IFA$=CHR$(13)ANDVB$<>""THENPOKE204,1:PRINT" ":GOTO356
354 IF(LEN(VB$)>36)OR(A$<" "ORA$>"Z")GOTO351
355 PRINTA$" [157]";:VB$=VB$+A$:GOTO351
356 GA=0:GOSUB60008:IFCR<>TGOTO260
357 IV(CR,0)=INT(-(IV(CR,0)<16)*IV(CR,0)):IFIV(CR,0)=0ORVB$<>"LOOK"GOTO360
358 PRINT:PRINT"[201]N THE ROOM:":PRINT:Z=0
359 PRINTMID$(OB$(2,IV(CR,Z)),7):Z=Z+1:IFIV(CR,Z)<>0GOTO359
360 IFVB$<>"QUIT"ANDGA<>999GOTO369
361 PRINT"[211]ESSION CONCLUDED -- PLAY AGAIN? (Y/N)"
362 GETA$:IFA$<>"Y"ANDA$<>"N"GOTO362
363 IFA$="Y"THENRUN22
364 PRINT"[197]ND OF SESSION.":RUN1000
369 IF(BA)GOTO350
370 IFVB$="I"ORVB$="INVENTORY"THENGOSUB450:GOTO350
380 IFLEFT$(VB$,4)="GET "THENGOSUB560:GOTO350
390 IFLEFT$(VB$,5)="DROP "THENGOSUB620:GOTO350
400 IFLEFT$(VB$,4)="EXA "THENGOSUB530:GOTO350
401 IFLEFT$(VB$,5)="SAVE "THENGOSUB670:GOTO350
402 IFLEFT$(VB$,5)="LOAD "THENGOSUB750:GOTO260
403 IFVB$="BRIEF"THENBM=NOTBM:PRINT"[207]K.":GOTO350
404 IFVB$="VERSION"THENPRINT"[215][207][210][204][196] [205][193][203][197][210] V1.5 BY [195]AMERON [203]AISER":GOTO350
410 IF(DEBUG)ANDLEFT$(VB$,6)="CLONE "THENP=0:P$=VB$:GOSUB60044:GOTO350
420 IF(DEBUG)ANDLEFT$(VB$,5)="DEST "THENP=0:P$="X"+VB$:GOSUB60048:GOTO350
422 IF(DEBUG)ANDLEFT$(VB$,5)="GOTO "THENCR=VAL(MID$(VB$,6)):GOTO260
430 IF(DEBUG)ANDVB$="DEBUG"THENPRINT"<[196]EBUG OFF.":DEBUG=0:GOTO350
440 PRINT"[200]UH?":GOTO350
450 Z=0:IFIP(0)=0THENPRINT"[217]OU HAVE NOTHING.":RETURN
452 PRINT"[217]OUR INVENTORY CONTAINS:":PRINT
460 IFIP(Z)<>0THENPRINTMID$(OB$(2,IP(Z)),7):Z=Z+1:GOTO460
470 RETURN
480 F=-1:Z=0:IFIP(0)=0GOTO510
490 IFMID$(OB$(1,IP(Z)),4)=ID$THENF=Z
500 Z=Z+1:IFIP(Z)<>0GOTO490
510 IFF=-1THENPRINT"[217]OU DON'T SEE THAT HERE."
520 RETURN
530 X=3:F=0:ID$=MID$(VB$,5):IFIV(CR,0)=0GOTO550
531 IFMID$(OB$(1,IV(CR,F)),4)=ID$GOTO540
532 F=F+1:IFIV(CR,F)<>0GOTO531
533 GOTO550
540 IFOB$(X,IV(CR,F))<>"**"THENPRINTOB$(X,IV(CR,F)):X=X+1:GOTO540
542 RETURN
550 GOSUB480:IFF=-1THENRETURN
551 IFOB$(X,IP(F))<>"**"THENPRINTOB$(X,IP(F)):X=X+1:GOTO551
552 RETURN
560 F=-1:Z=0:IFIV(CR,0)=0THENPRINT"[212]HERE'S NOTHING HERE TO GET.":RETURN
570 IFMID$(OB$(1,IV(CR,Z)),4)=MID$(VB$,5)THENF=Z
580 Z=Z+1:IFIV(CR,Z)<>0GOTO570
590 IFF=-1THENPRINT"[212]HERE'S NONE OF THAT HERE.":RETURN
600 O=IV(CR,F):FORI=FTO15:IV(CR,I)=IV(CR,I+1):NEXT:IV(CR,15)=0
610 P=0:GOSUB60045:PRINT"[212]AKEN.":RETURN
620 ID$=MID$(VB$,6):GOSUB480:IFF=-1THENRETURN
630 IFIV(CR,15)<>0THENPRINT"[212]HERE SEEMS TO BE NO SPACE FOR IT HERE.":RETURN
640 O=IP(F):P=F:GOSUB60051:P=0
650 IFIV(CR,P)<>0THENP=P+1:GOTO650
660 IV(CR,P)=O:PRINT"[196]ROPPED.":RETURN
670 F$=MID$(VB$,6):OPEN15,DV,15,"R0:SAV."+F$+"=SAV."+F$:INPUT#15,EN:CLOSE15
680 IFEN<>62THENPRINT"[198]ILE EXISTS/DISK ERROR IN SAVE.":RETURN
690 PRINT"[211]AVING GAME: "F$" ";
700 OPEN1,DV,2,"0:SAV."+F$+",S,W":PRINT#1,FL:PRINT#1,CR:FORX=1TO64:Y=0
710 PRINT#1,IV(X,Y):IFIV(X,Y)<>0THENY=Y+1:GOTO710
720 IF(XAND1)THENPRINT".";
722 NEXT:Y=0
730 PRINT#1,IP(Y):IFIP(Y)<>0THENY=Y+1:GOTO730
740 PRINT" DONE.":CLOSE1:RETURN
750 F$=MID$(VB$,6):OPEN15,DV,15,"R0:SAV."+F$+"=SAV."+F$:INPUT#15,EN:CLOSE15
760 IFEN=62THENPRINT"[206]O SUCH FILE/DISK ERROR IN LOAD.":GOTO350
770 PRINT"[207]NE MOMENT PLEASE ...":OPEN1,DV,2,"0:SAV."+F$
780 INPUT#1,FL:INPUT#1,CR:FORX=1TO64:Y=0
790 INPUT#1,IV(X,Y):IFIV(X,Y)<>0ANDY<15THENY=Y+1:GOTO790
800 IFY=16THENCLOSE1:PRINT"[197]RROR IN SAVED FILE (BAD SEGMENTATION)":RETURN
810 NEXT:Y=0
820 INPUT#1,IP(Y):IFIP(Y)<>0THENY=Y+1:GOTO820
830 CLOSE1:RETURN
1000 POKE53280,0:POKE53281,0:PRINT"[147][215][207][210][204][196][160][205][193][203][197][210] 1.5 [196]EVELOPER":CLR:A$=""
1002 DV=PEEK(186):IFDV<8THENDV=8
1004 DR=159*256
1010 PRINT"[208]ROGRAMMED BY [195]AMERON [203]AISER":PRINT"([195])1997 [202]&[198] [208]UBLISHING, [201]NC."
1011 PRINT" ** [208]RESS [_] TO CREATE NEW PROJECT. **"
1012 IFPEEK(828)<>32THENSYS57812"33C.IA.O",DV,1:POKE780,0:SYS65493
1013 IFPEEK(828)<>32THENPRINT"[213][206][193][194][204][197][160][212][207][160][198][201][206][196][160][205][204] [207][194][202][197][195][212] [198][201][204][197][211]":END
1020 OPEN15,DV,15,"R0:CONFIG.PARSE=CONFIG.PARSE":INPUT#15,EN:CLOSE15
1030 IFEN<>63GOTO2110
1040 PRINT"    [204]OADING CURRENT CONFIGURATION..."
1041 A=0:I=0
1042 READA:IFA<>-1THENPOKEDR+I,A:I=I+1:GOTO1042
1043 DATA169,36,133,251,169,251,133,187,169,0,133,188,169,1,133,183,169,8
1044 DATA133,186,169,96,133,185,32,213,243,165,186,32,180,255,165,185,32,150
1045 DATA255,169,0,133,144
1046 DATA160,3,132,251,32,165,255,133,252,164,144,208,47,32,165,255
1047 DATA164,144,208,40,164,251,136,208,233,166,252
1048 DATA32,205,189,169,32,32,210,255,32,165,255,166,144,208,18,170,240,6
1049 DATA32,210,255,184,80,240,169,13,32,210,255,160,2,208,198,32,66,246,96,-1
1058 OPEN1,DV,2,"CONFIG.PARSE":Y=0
1060 GET#1,A$:IFA$=CHR$(13)THENY=Y+1
1070 IFY<2GOTO1060
1080 INPUT#1,BF$:CLOSE1
1089 GETA$:IFA$="_"GOTO2000
1090 POKE53281,12:POKE53280,12:PRINT"[147][208]ROJECT: "BF$
1100 POKEDR+17,DV
1108 PRINT"[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
1110 PRINT""TAB(10)"[144][198]1  [193]PPEND/WRITE FILE"
1120 PRINTTAB(10)"[144][198]3  [199]ENERATE OBJECT"
1130 PRINTTAB(10)"[144][198]5  [212]EST RUN"
1140 PRINTTAB(10)"[144][198]7  [214]IEW FILE"
1150 PRINT"[208]RESS [144][209] TO QUIT."
1160 PRINT"[208]RESS [144]@ TO EXECUTE A DISK COMMAND."
1161 GETA$:IFA$<>"Q"ANDA$<>"@"ANDA$<>"[133]"ANDA$<>"[134]"ANDA$<>"[135]"ANDA$<>"[136]"GOTO1161
1170 IFA$="Q"GOTO63000
1180 IFA$="[135]"THENRUN20
1181 IFA$="[134]"GOTO1300
1182 IFA$="[136]"GOTO1480
1183 IFA$="[133]"GOTO1190
1184 PRINT"@[144]";:GOSUB60200:IFQGOTO1090
1185 IFS$="$"THENSYSDR:GOTO1189
1188 OPEN15,DV,15,S$:INPUT#15,EN$,EM$,ET$,ES$:CLOSE15:PRINTEN$","EM$","ET$","ES$
1189 PRINT"[208]RESS ANY KEY":WAIT198,1:GETA$:GOTO1090
1190 PRINT"[144][147]"TAB(10)"[193]PPEND/[215]RITE [212]O [198]ILE"
1200 PRINT"[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
1210 PRINT"[197]NTER FILENAME ([198]1 TO EXIT): [144]";:GOSUB60200:IFQGOTO1090
1220 PRINT"";:F$=BF$+"."+S$:OPEN15,DV,15,"R0:"+F$+"="+F$:INPUT#15,EN:CLOSE15
1230 IFEN<62OREN>63THENPRINT"[198]ATAL DISK ERROR (PRESS ANY KEY)":WAIT198,1
1240 IFEN<62OREN>63THENGETA$:GOTO1090
1250 MD$="S,W":IFEN=63THENPRINT"[198]ILE EXISTS (APPENDING)":MD$="A"
1260 PRINT"[208]RESS [198]1 ON A LINE TO CLOSE FILE/QUIT."
1270 OPEN1,DV,2,F$+","+MD$
1280 PRINT"> [144]";:GOSUB60200:IFQTHENCLOSE1:GOTO1090
1290 PRINT#1,S$:GOTO1280
1300 PRINT"[144][147]"TAB(11)"[199]ENERATE [193]N[160][207]BJECT"
1310 PRINT"[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
1320 PRINT"[199]ETTING NEXT AVAILABLE OBJECT SLOT ...":Z=1
1330 F$=BF$+".OBJ"+RIGHT$("0"+MID$(STR$(Z),2),2)
1340 OPEN15,DV,15,"R0:"+F$+"="+F$:INPUT#15,EN:CLOSE15:IFEN=62GOTO1370
1350 Z=Z+1:IFZ<100GOTO1330
1351 PRINT"[207]UT OF SLOTS TO ADD OBJECTS!"
1360 PRINT"[208]RESS ANY KEY TO ABORT.":WAIT198,1:GETA$:GOTO1090
1370 PRINT"[215]RITING TO [144]"F$".":OPEN1,DV,2,F$+",S,W":PRINT"[197]NTER IDENTIFIER."
1380 PRINT"> [144]";:GOSUB60200:IFQTHENPRINT"([201]NVALID)":GOTO1380
1390 PRINT#1,"ID "S$:PRINT"[197]NTER SHORT DESCRIPTION."
1400 PRINT"> [144]";:GOSUB60200:IFQTHENPRINT"([201]NVALID)":GOTO1400
1410 PRINT#1,"SHORT "S$
1420 PRINT"[194]EGIN ENTERING LONG DESCRIPTION. [208]RESS"
1430 PRINT"[198]1 WHEN FINISHED WITH ENTRY."
1440 PRINT"> [144]";:GOSUB60200:IFQ=0THENPRINT#1,S$:GOTO1440
1450 CLOSE1:PRINT"[208]RESS ANY KEY TO COMMIT THIS OBJECT."
1460 PRINT"[208]RESS [198]1 TO ABORT.":WAIT198,1:GETA$:IFA$<>"[133]"GOTO1090
1470 PRINT"[144][196]ELETING OBJECT.":OPEN15,8,15,"S0:"+F$:CLOSE15:GOTO1090
1480 PRINT"[197]NTER FILENAME TO VIEW: [144]";:GOSUB60200:IFQGOTO1090
1490 PRINT"[147]";:OPEN15,DV,15,"R0:"+S$+"="+S$:INPUT#15,EN:CLOSE15:IFEN=63GOTO1520
1510 PRINT"[198]ILE NOT FOUND ... PRESS ANY KEY":WAIT198,1:GETA$:GOTO1090
1520 OPEN1,DV,2,S$:R=0
1530 IF(ST<>0)GOTO1560
1540 SYS828,1,80:B$=A$+"":PRINTB$:R=R+INT(LEN(B$)/39)+1:IFR<20GOTO1530
1550 PRINT"** [205][207][210][197] ** ([198]1 TO ABORT)[146]":WAIT198,1:GETA$:IFA$="[133]"GOTO1560
1552 R=0:PRINT"[145]                        [145]":GOTO1530
1560 PRINT"[197]ND OF FILE (PRESS ANY KEY)[146]":CLOSE1:WAIT198,1:GETA$:GOTO1090
2000 REM -- INSTALL/CONFIGURE --
2010 PRINT"[215][193][210][206][201][206][199]! [217]OU HAVE OPTED TO DELETE THE"
2020 PRINT"CURRENT PROJECT [155]"BF$" AND CREATE A
2030 [153]"NEW PROJECT FROM SCRATCH!"
2040 [153]"(null)RESS ASC1 TO CONFIRM.":[153]"(null)RESS ANY OTHER KEY TO ABORT."
2050 [161]A$:[139]A$[179][177]""[137]2050
2060 [161]A$:[139]A$[178]""[137]2060
2070 [139]A$[179][177]"INPUT"[137]1090
2080 [153]"STR$ELETING PROJECT ..."
2090 [159]15,DV,15,"S0:"[170]BF$[170]".*":[152]15,"S0:CONFIG.PARSE":[132]15,EN:[160]15
2100 [139]EN[179][177]1[167][153]"VALRROR IN CLEANUP."
2110 [153]"(null)ELCOME TO (null)(null)(null)(null)STR$ (null)ATN(null)VAL(null) 1.5."
2120 [153]"(null)O BEGIN CREATING YOUR PROJECT, ENTER"
2130 [153]"THE PROJECT NAME: ";:[141]60200
2132 [139][195](S$)[177]8[167][153]"(null)AME MUST BE EIGHT CHARACTERS MAX.":Q[178]1
2140 [139]Q[167][153]"(null)EENTER NAME: ";:[141]60200:[137]2132
2150 BF$[178]S$:[153]"VALNTER TWO LINES OF TITLE TEXT FOR YOUR"
2160 [153]"GAME FILE. (null)RESS ASC1 TO RESTART IF YOU"
2170 [153]"MAKE A MISTAKE."
2180 [153]"1> ";:[141]60200:[139]Q[137]2180
2190 Z$[178]S$:[153]"2> ";:[141]60200:[139]Q[137]2180
2200 [153]"(null)NE MOMENT PLEASE ..."
2210 [159]1,DV,2,"CONFIG.PARSE,S,W":[152]1,Z$:[152]1,S$:[152]1,BF$:[152]1,0
2220 [160]1:[159]15,DV,15:[132]15,EN:[160]15
2230 [139]EN[179][177]0[167][153]"(null)NABLE TO REWRITE CONFIG FILE."
2240 [153]"(null)RESS ANY KEY TO RESTART WITH YOUR NEW"
2250 [153]"CONFIGURATION AND BEGIN CONSTUCTION.":[146]198,1:[161]A$:[138]1000
9999 [128]
10000 D[178][194](186):N$[178]"DEVELOPER":[159]15,D,15,"S0:"[170]N$:[160]15:[148]N$,D:[128]
59999 [128]
60000 [143] <<< STANDARD SUBROUTINES >>>
60001 [139]([168]DEBUG)[167][153]"*** VALRROR IN CODE. (null)LEASE NOTIFY AUTHOR."
60002 [153]"(null)(null)(null)(null)RIGHT$(null)VAL VAL(null)(null)(null)(null): "ER$
60003 [153]"WITHIN: "Z$" DISK:"EN"LINE:"LN:GA[178]0:EN[178]0:[142]
60008 [143] <<< EXECUTE A ROOM ACTION >>>
60009 BA[178][171]1
60011 [139]CR[178]0[176]AA[178]0[167]ER$[178]"(null)O ACTIONS.":[141]60001:[142]
60012 LN[178]0:[129]X[178]1[164]AA:[139]AA$(X)[178]VB$[167]LN[178]AL(X)
60013 [130]:[139]LN[178]0[167]BA[178]0:[142]
60014 LN[178]LN[170]1:P$[178]RM$(LN):[139]LN[178]96[167]ER$[178]"(null)OO LONG EVAL.":[141]60001:[142]
60015 [139]GA[176][200](P$,EL)[178]"ACTION "[176]P$[178]"RETURN"[176]P$[178]"**"[167][142]
60016 [139][200](P$,CL)[178]"PTELL "[167][153][202](P$,7):[137]60014
60017 [139][200](P$,CL)[178]"ALIAS "[176][200](P$,CL)[178]"LABEL "[176][200](P$,Z)[178]";"[137]60014
60018 [139][200](P$,5)[178]"GOTO "[167]LN[178]0:[141]60041:[137]60014
60019 [139][200](P$,CL)[178]"FSET+ "[167]FL[178]((FL)[176](2[174]([197]([202](P$,7,1))))):[137]60014
60020 [139][200](P$,CL)[178]"FSET- "[167]FL[178]((FL)[175]511[171]2[174]([197]([202](P$,7,1)))):[137]60014
60021 [139][200](P$,6)[178]"FSET? "[167]P[178]2[174][197]([202](P$,7)):LN[178]1[170]LN[171](FL[175]P)[173]P:[137]60014
60022 [139][200](P$,5)[178]"PKILL"[167]GA[178]999:[142]
60023 [139][200](P$,CL)[178]"PMOVE "[167]CR[178][197]([202](P$,7)):[137]60014
60024 [139][200](P$,CL)[178]"PGIVE "[167]P[178]0:[141]60044:[137]60014
60025 [139][200](P$,CL)[178]"PGOT? "[167]P[178]0:[141]60052:[137]60014
60026 [139][200](P$,CL)[178]"PDEST "[167]P[178]0:[141]60048:[142]
60040 [153]P$:[137]60014
60041 LN[178]LN[170]1:[139]RM$(LN)[178]"LABEL "[170][202](P$,6)[167]LN[178]LN[171]1:[142]
60042 [139]RM$(LN)[179][177]"**"[137]60041
60043 LN[178]95:[142]
60044 O[178][197]([202](P$,7)):[139]O[177]TJ[167]ER$[178]"(null)BJECT NOT FOUND.":[141]60000:GA[178]1:[142]
60045 [139]IP(P)[178]0[167]IP(P)[178]O:[142]
60046 [139]P[179]15[167]P[178]P[170]1:[137]60045
60047 [153]"(null)OU CAN'T CARRY ANY MORE.":VB$[178]"DROP "[170][202](OB$(1,O),3):BA[178]0:[142]
60048 O[178][197]([202](P$,7))
60049 [139]IP(P)[179][177]O[175]P[179]15[167]P[178]P[170]1:[137]60049
60050 [139]P[178]15[167][142]
60051 [129]I[178]P[164]15:IP(I)[178]IP(I[170]1):[130]:IP(15)[178]0:[142]
60052 O[178][197]([202](P$,7))
60053 [139]IP(P)[179][177]O[175]P[179]15[167]P[178]P[170]1:[137]60053
60054 [139]P[178]15[167]LN[178]LN[170]1
60055 [142]
60100 S$[178]"":[151]204,.
60110 [161]A$:[139]A$[178]""[137]60110
60120 [139]A$[178][199](20)[175]S$[179][177]""[167][153]A$;:S$[178][200](S$,[195](S$)[171]1):[137]60110
60130 [139]A$[178][199](13)[175]S$[179][177]""[167][151]204,1:[153]" ":[142]
60140 [139][195](S$)[177]38[137]60110
60150 [139]A$[178][177]" "[175]A$[179][178]"Z"[167][153]A$;:S$[178]S$[170]A$:[137]60110
60160 [139]A$[178][177]"ATN"[175]A$[179][178]"(null)"[167][153]A$;:S$[178]S$[170]A$:[137]60110
60170 [137]60110
60200 [143] <<< GETIN >>>
60201 S$[178]"":[151]204,.:Q[178]0
60210 [161]A$:[139]A$[178]""[137]60210
60211 [139]A$[178][199](13)[175]S$[179][177]""[167][151]204,1:[153]" ":[142]
60212 [139]A$[178]"INPUT"[167][151]204,1:[153]" ":Q[178]1:[142]
60213 [139]A$[178][199](20)[175]S$[179][177]""[167]S$[178][200](S$,[195](S$)[171]1):[153]" "A$A$;:[137]60210
60214 [139][195](S$)[177]77[137]60210
60215 [139][168]((A$[178][177]"ATN"[175]A$[179][178]"(null)")[176](A$[178][177]" "[175]A$[179][178]"_"))[137]60210
60216 [153]A$;:S$[178]S$[170]A$:[137]60210
63000 [153]"LOAD";:[159]15,DV,15,"R0:B.WORLD MAKER=B.WORLD MAKER"
63010 [132]15,EN:[160]15:[139]EN[179][177]63[167][162]:[128]
63020 [153]"LOAD"[199](34)"B.WORLD MAKER"[199](34)","DV:[153]"RUN"
63030 [151]198,3:[151]631,19:[151]632,13:[151]633,13:[128]
63999 [134]T$(2),OB$(64,16),RM$(96),AA$(32),AL(32),IV(64,16),IP(16):A$[178]A$:EL[178]7