PROG : 16509
D-FILE: 17804
VARS : 18597
E-LINE: 18598
STKBOT: 18598
STKEND: 18598
9999 means line number
PRINT means treat as KEYWORD P
10 REM **WORLD**SLR/2025**
20 REM **GET DATA**
30 GOSUB 1000
40 REM **PRINT MAP**
50 PRINT AT 0,6;"ZX81 BASIC WO
RLD MAP"
60 FOR F=2 TO 21
70 GOSUB 500
80 LET Z$=""
90 FOR I=1 TO LEN A$
100 IF A$(I)<"A" THEN GOTO 200
110 IF A$(I)<"A" THEN GOTO 250
120 GOSUB 300
130 NEXT I
140 PRINT AT F,0;Z$;
150 NEXT F
160 PAUSE 500
170 CLS
180 RUN
200 FOR B=1 TO CODE A$(I)-28
210 LET Z$=Z$+" "
220 NEXT B
230 GOTO 130
250 LET Z$=Z$+G$(CODE A$(I)-37)
260 GOTO 130
300 FOR B=1 TO CODE A$(I)-165
310 LET Z$=Z$+" "
320 NEXT B
330 RETURN
500 REM **READ**
510 LET A$=""
520 IF D$(L)="." THEN GOTO 560
530 LET A$=A$+D$(L)
540 LET L=L+1
550 GOTO 520
560 LET L=L+1
570 RETURN
1000 REM **DATA**
1010 LET D$="EEEDDNPPLCIBJBCIH."
1020 LET D$=D$+"DGEADABPPKBBCJBP
EMAEE."
1030 LET D$=D$+"MMEJPMIMKBPLCBEM
IAON5MPOMMA."
1040 LET D$=D$+"3M2CEDFLAMBNHON6
6C."
1050 LET D$=D$+"LHPOPOAPOACBEBHB
55LDFB."
1060 LET D$=D$+"AB4O2ICGOON55OAB
B."
1070 LET D$=D$+"B4JPDBCMMLPDHHH6
LIC."
1080 LET D$=D$+"B5CEDABBDPN6HAKC
."
1090 LET D$=D$+"BF2LLFNPOMMPH6IB
D."
1100 LET D$=D$+"CHPAEEE5HOJH3LCE
."
1110 LET D$=D$+"DBHADDF5ODABLBPI
EE."
1120 LET D$=D$+"FGHICBHL4CBGAKAI
CD."
1130 LET D$=D$+"FN2MEHPOLEGFKAMC
."
1140 LET D$=D$+"F5DF2KFCBBDB."
1150 LET D$=D$+"FB3KDF2CIGNNIB."
1160 LET D$=D$+"G2LFPLACEE3OB."
1170 LET D$=D$+"GPLCFPCGBPHPLB."
1180 LET D$=D$+"GPCSDCAF."
1190 LET D$=D$+"GLVEC."
1200 LET D$=D$+"GGX."
1210 LET L=1
1220 LET G$=" òñ󷵶´ôöõ÷³±² "
1230 RETURN
2000 SAVE "WORLD"
2010 RUN