0 :::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
1 GOTO10
2 ZPOKE53265,27
3 @P:PRINT"[147]";:POKE53272,21:LIST1800-1997
4 @M:PRINT"[147]";:POKE53272,21:LIST1700-1790
10 :POKE56,47:CLR
100 V=53248:S=54272:JO=V-1:POKE659,1:POKE56325,40
110 DIMA$(20),A(20),B(20),C(20):FORI=0TO20:READA$(I),A(I):IFA$(I)<>"***"THENNEXT
115 RN=I-1:SYS14336
120 POKE53272,29:GOSUB999:POKEV,50:POKEV+1,50:LP=1:LO=0:E=0
130 OPEN1,8,15,"M-W"+CHR$(7)+CHR$(28)+CHR$(1)+CHR$(15):CLOSE1
200 GOSUB1500:POKE659,0:LA=0
205 IF(PEEK(JO)AND16)=16THEN200
210 Y=ABS(INT((PEEK(V)-24)/8+.5)+(33AND(PEEK(V+16)AND1)=1))
215 X=INT(ABS(PEEK(V+1)-62)/8+.5)
217 REM PRINT""X,Y"[157] "
220 ONLPGOTO300,230
230 IFX<19ORX>21THEN200
240 IFY>1ANDY<9THENA=1906:B=1910:GOSUB1200:GOTO1800
245 IFY>9ANDY<16THEN120
250 IFY>18ANDY<22THENPOKES+1923,1:E2=-1:GOSUB1400:GOTO1370
255 IFY>21ANDY<26THENPOKES+1927,1:E2=1:GOSUB1400:GOTO1370
260 IFY>28ANDY<34THENPOKES+1933,1:POKES+1934,1:GOTO1600
270 GOTO200
300 IFX>14ANDX<18THENIFY>33ANDY<39THENSYS64738
305 FORI=0TORN
310 IFB(I)<>XTHENNEXT:GOTO360
320 IFC(I)<20ANDY>20ORC(I)>20ANDY<20THENNEXT:GOTO360
330 POKE214,B(I):PRINT:PRINT""TAB(C(I))A$(I)
340 E=1:E3=1
350 GOTO1300
360 GOTO200
998 :END
999 POKE53265,0
1000 POKE53280,12:POKE53281,15
1001 PRINT"[147][142][152]                                        ";
1002 PRINT"      [144]                              [152]    ";
1003 PRINT"     [146]                              [144] [152]    ";
1004 PRINT"     [146]                              [144] [152]    ";
1005 PRINT"     [146]                              [144] [152]    ";
1006 FORI=6TO14:PRINT"     [146]                              [144] [152]    ";:NEXT
1015 PRINT"     [146]                              [144]     [152]";
1016 PRINT"[152]     [146]                           [152][164][144]       [152]";
1017 PRINT"     [144][146]                           [152][165][151][162][162][162][162][144]   [152]";
1018 PRINT"                                [146][151] [197][216][201][212][146] [144][152]  ";
1019 PRINT"                                [146] [151][162][162][162][162][144][146] [152]  ";:GOSUB1020:GOTO1030
1020 PRINT"[152]                                        ";
1021 PRINT" [144]                                      [152] ";
1022 PRINT"[146] [156][162][162][162][162][162][162][162][151] [162][162][162][162][162][162] [144] [151] [162][162][162] [162][162][162] [144] [151] [162][162][162][162] [144][176][178][178][174][151] [144] [152] ";
1023 PRINT"[146] [156] [196]RUCK [146]  [205]EN@ [144][146]   [151] _ [144][146] [151] [255] [146] [144] [151]  _[255] [146] [144][171][151][144][179][151] [144] [152] ";
1024 PRINT"[146] [156][162][162][162][162][162][162][162][146] [162][162][162][162][162][162][144][146]   [151][162][162][162][144][146] [151][162][162][162][144][146]  [151] [162][162][162][162][146] [144][173][177][177][189][151] [152]  ";
1025 PRINT"[152]                                       ";
1026 POKE2023,160:POKES+2023,12
1027 FORK=217TO240:POKEK,PEEK(K)OR128:NEXT:RETURN
1030 IFR%=1THENPRINT"";:POKE2023,160:RETURN
1035 X=7:POKE214,4:PRINT:FORK=0TORN:POKE211,X:PRINT"[144]"A$(K):PRINT
1040 B(K)=PEEK(214)-3:C(K)=X:IFK=INT(RN/2)THENX=20:POKE214,4:PRINT
1050 NEXT:PRINT"":POKE53265,27:RETURN
1200 REM  ---- COL A,B--
1210 FORC=S+ATOS+B:POKEC,1:NEXT:RETURN
1300 REM  ---- LOAD I,E---
1307 E$=RIGHT$(STR$(I+1),LEN(STR$(I+1))-1)+".":LP=2
1308 E$=E$+RIGHT$(STR$(E),LEN(STR$(E))-1)
1310 CLOSE2:CLOSE1:OPEN1,8,15,"U9":SYS52525:OPEN2,8,2,E$+",P,R"
1311 INPUT#1,A:IFA=62THENGOSUB2000:GOTO1380
1312 IFA>19THENCLOSE2:CLOSE1:E=E-E2:ONLPGOTO1340,1330
1314 GET#2,A$:GET#2,A$:CLOSE2:CLOSE1
1315 A=0:IFLEN(A$)<>0THENA=ASC(A$)
1320 IFA=96THENGOSUB1700:E2=SGN(E2):GOSUB1400:GOTO1370
1325 LP=2:PRINT"[144][147]";:A$=E$:GOSUB1750
1330 PRINT"";:POKE53280,12:POKE53281,15:E=E3
1335 GOSUB1020:POKE53265,27:GOTO1360
1340 :
1350 POKE214,B(I):PRINT:PRINT"[144]"TAB(C(I))A$(I)
1360 GOTO200
1370 IFLA=1THENLP=1:GOSUB999:E=0:GOTO200
1375 GOTO1300
1380 IFE2=0THENE2=1
1385 LP=1:GOTO1340
1400 REM --- INC/DEC PAGE ---
1405 IFE2=0THENE2=1
1410 IFE=1ANDE2=-1THENLA=1:RETURN
1420 IFE=A(I)ANDE2=1THENLA=1:RETURN
1430 E=E+E2:RETURN
1500 REM --- PRINT E/SET COUNTER ---
1510 POKE214,21:PRINT:C$="":IFE<10THENC$="0"
1520 C$=C$+RIGHT$(STR$(E),LEN(STR$(E))-1)
1530 PRINT"[151]"TAB(34)C$:RETURN
1600 REM --- FFORWARD I/E ---
1610 POKE659,1:IF(PEEK(V+16)AND1)=1THEN1630
1620 FORJ=PEEK(V)TO255:POKEV,J:AW=((null)):NEXT:POKEV,0:POKEV+16,PEEK(V+16)OR1
1630 FORJ=PEEK(V)TO56:POKEV,J:AW=((null)):NEXT
1640 FORJ=PEEK(V+1)TO230:POKEV+1,J:AW=SQR(((null))):NEXT
1650 IF(PEEK(JO)AND16)=0THEN1680
1660 IF(PEEK(JO)AND4)=0THENE=E+(E>1):GOSUB1500
1670 IF(PEEK(JO)AND8)=0THENE=E-(E<A(I)):GOSUB1500
1675 E2=SGN(E-E3):GOTO1650
1680 LO=0:GOTO1300
1700 REM --- HIRES ON/OFF ---
1702 IFE2=0THENE2=1
1705 A$=E$:GOSUB1750
1710 SYS14342:POKE53269,0:POKE53270,216
1720 SYS34872:A=PEEK(34576):POKE53280,A:POKE53281,A:POKE53265,59:SYS34955
1730 IF(PEEK(56320)AND16)=16THENIF(PEEK(56321)AND16)=16THEN1730
1740 SYS35554:SYS35999:POKE53270,200
1749 A$="M4"
1750 REM --- LOAD A$ ---
1751 POKE53265,0
1755 FORJ=1TOLEN(A$):POKE1023+J,ASC(MID$(A$,J,1)):NEXT
1760 POKE781,8:POKE782,1:SYS65466:POKE780,LEN(A$):POKE781,0:POKE782,4
1770 SYS65469:POKE780,0:IFA=4THENPOKE185,0
1780 SYS65493:IFPEEK(789)>160THENSYS14336
1790 POKE53272,29:E3=E:RETURN
1800 REM --- PRINTER ---
1805 POKE816,165:POKE817,244:POKE665,2:POKE666,2
1810 OPEN1,4:CMD1:SYS14339
1820 A$="(MAGIC DISK 64: ":B$=" SEITE"+STR$(E)+")"
1830 Z=(39-LEN(A$)-LEN(A$(I))-LEN(B$))/2
1835 C$="":FORJ=1TOLEN(A$(I)):C$=C$+CHR$(ASC(MID$(A$(I),J,1))AND127):NEXT
1840 FORJ=1TOZ:A$=A$+" ":NEXT:A$=A$+C$:FORJ=1TOZ:A$=A$+" ":NEXT
1850 A$=A$+B$:PRINTA$
1860 PRINT#1:CLOSE1
1870 POKE816,56:POKE817,205:POKE665,14:POKE666,2:GOTO1330
2000 REM --- DISK WENDEN ---
2001 AX=PEEK(V+1):AY=PEEK(V):POKE659,1
2003 Z=20:A2=A:A=(99-PEEK(V))/Z:B=(227-PEEK(V+1))/Z:C=PEEK(V):D=PEEK(V+1)
2005 FORJ=1TOZ:D=D+B:C=C+A:POKEV,C:POKEV+1,D:NEXT
2010 PRINT"";:R%=1
2020 PRINT"[144]             [146][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157]";
2025 PRINT"[144]             [146][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157]";
2030 PRINT"               [146][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157]";
2040 PRINT" [185][175] [196]ISKETTE[144]   [146][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157]";
2050 PRINT" [161][182] WENDEN ![144]  [146][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157]";
2060 PRINT"             [157][157][157][157][157][157][157][157][157][157][157][157][157][157][145][145]";
2070 FORQS=0TO6
2080 PRINT"[185][175][157][157][161][182][157][157][145]";:FORSQ=1TO200:NEXT
2090 PRINT"  [157][157]  [157][157][145]";:FORSQ=1TO200:NEXT
2100 NEXTQS:PRINT"[152]                     [146]"
2102 PRINT"                     [146]"
2105 PRINT"";:GOSUB1020:R%=0:PRINT"";
2110 Z=20:A=(AY-PEEK(V))/Z:B=(AX-PEEK(V+1))/Z:C=PEEK(V):D=PEEK(V+1)
2120 FORJ=1TOZ:D=D+B:C=C+A:POKEV,C:POKEV+1,D:NEXT:POKE659,0
2125 POKEV,INT(PEEK(V)/2)*2:POKEV+1,INT(PEEK(V+1)/2)*2
2150 A=A2:RETURN
10000 DATA"[200]ALLO",3
10001 DATA"[200]ARDWARE",20
10002 DATA"[211]OFTWARE",13
10003 DATA"[194]ASTELWARE",6
10004 DATA"[213]TILITIES",31
10005 DATA"[199]AMES",3
10006 DATA"[206]EWS",6
10007 DATA"[201]NTERN",9
10008 DATA"[212]IPS & [212]RICKS",4
10009 DATA"[212]HE [197]ND",2
10100 DATA***,0