5 IFATHEN26
10 DV=PEEK(186):IFDV<8THENDV=8
20 GOSUB70
25 IFA=0THENA=1:LOAD"I-PRG C000",DV,1
26 IFA=1THENA=2:LOAD"INVENTORY.O",DV,1
27 IFA=2THENA=3:LOAD"SCREENS",DV,1
30 PRINT"[144]":PRINT""
40 PRINT "P[207]44,16:P[207]43,1:P[207]16*256,0:LOAD";CHR$(34);F$;CHR$(34)","DV":"
50 PRINT"RUN:"
60 POKE631,13:POKE632,13:POKE198,2:END
70 PRINT"[147]":POKE53280,0:POKE53281,0:IFFTHENRETURN
80 POKE214,10:PRINT"[145]";
85 PRINT"[159][169][169][169][169][169][169][169][169][169][169][223][223][223][223][223][223][223][223][223][223][154][169][169][169][169][169][169][169][169][169][169][223][223][223][223][223][223][223][223][223][223]";
90 FORI=1TO12:PRINT"[159][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][154][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223]";:NEXT:PRINT""
100 FORI=217TO242:POKEI,PEEK(I)OR128:NEXT
110 POKE214,12:PRINT"[145]"TAB(2)"[164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]"
120 FORI=1TO7:PRINTTAB(2)"[155]                                    [146][223]":NEXT
130 PRINTTAB(2)"[152][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][146][223]"
140 PRINT"[169][169][169][169][169][169][169][223][223][223][223][223][223][223][223][223][223][169][169][169][169][169][169][169][169][169][169][223][223][223][223][223][223][223][223][223][154][223]"
150 POKE214,14:PRINT"[145][155]";
160 FORI=1TO5:READA$:GOSUB170:NEXT:GOTO180
170 PRINTSPC(20-LEN(A$)/2)""A$:A$="":RETURN
180 F$="INV.BASIC":POKE214,24:PRINT"[145]"SPC(13)"[158][204] [207] [193] [196] [201] [206] [199]":RETURN
190 DATA"[205][201][206][196][160][217][207][213][210][160][194][213][211][201][206][197][211][211]","BY [202]EFF [202]ONES"
200 DATA"[214]1.0 [208]UBLISHED ON [204][207][193][196][211][212][193][210] #87?","[211]UBSCRIPTIONS 1-800-831-2694"
210 DATA"[195]OPYRIGHT ([195]) 1991 [211]OFTDISK"