1 B=INP(113)AND3:IFB<2THEN M=1:C=63919:D=22:K=63100 ELSE M=2:C=62122:D=45:K=61287
2 B=INP(112) AND 1:IF B<>0 THEN PRINT"error: not mode 0 - stopping!":END
3 OUT 112,INP(112) OR 4
4 CLS:PRINT@0,"Restoring all maps from MAP"+MID$(STR$(M),2,1)+"00.CO"
5 BA=PEEK(K)+PEEK(K+1)*256
9 E=C:I=0
10 E=E+11
11 A$="":A=VARPTR(A$):POKEA,11:POKEA+1,(E-(INT(E/256)*256)):POKEA+2,INT(E/256)
12 B$=MID$(A$,4,8):IFB$="LDMAP BA" AND PEEK(E)=128 THEN15
14 I=I+1:IF I >D THEN PRINT@40,"Program must be run as a .BA file.":END ELSE 10
15 BB=PEEK(E+1) + PEEK(E+2)*256:IF BA <> BB THEN PRINT@40,"Run LDMAP.BA not LDMAP.DO.":END
16 PRINT@40,"(Running LDMAP.BA not LDMAP.DO)"
19 E=C:I=0
20 E=E+11
21 A$="":A=VARPTR(A$):POKEA,11:POKEA+1,(E-(INT(E/256)*256)):POKEA+2,INT(E/256)
22 B$=MID$(A$,4,8):IFB$="MAP"+MID$(STR$(M),2,1)+"00CO" AND PEEK(E)=160THEN30
24 I=I+1:IF I >D THEN PRINT"Error: data file not found.":END ELSE 20
30 T=PEEK(E+1)+PEEK(E+2)*256+ 6:if (peek(t-4)+peek(t-3)*256)<>4096 then print@80,"Map file problem...stopping.":end
34 PRINT@80,"DATA FILE FOUND IN MEMORY"
35 PRINT@120,"COPY ROUTINE:LOADING";:GOSUB60
36 PRINT":CALLING";:CALL64704,,T
40 PRINT":DONE!":OUT112,INP(112) AND 251:END
60 FORI=64704TO64731:READD:POKEI,D:NEXTI:RETURN:DATA6,0,14,0,120,211,97,126,211,99,35,12,62,128,185,194,199,252,14,0,4,62,32,184,194,196,252,201