0 ::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: 1 GOTO10 3 @P:PRINT"[147]";:POKE53272,21:LIST1800-1997 4 @M:PRINT"[147]";:POKE53272,21:LIST1700-1799 5 @L:PRINT"[147]";:POKE53272,21:LIST10000- 6 @L:PRINT"[147]";:POKE53272,21:LIST10000- 10 :POKE56,96:CLR 100 V=53248:S=54272:JO=V-1:POKE659,1:POKE56325,40:MA=49152 110 DIMA$(20),A(20),B(20),C(20):FORI=0TO20:READA$(I),A(I):IFA$(I)<>"***"THENNEXT 112 FORJ=1TO20:READB$(J),B2$(J):IFB$(J)<>"***"THENNEXT 115 RN=I-1:SYSMA 120 GOSUB999:POKEV,50:POKEV+1,50:LP=1:LO=0:E=0:LS=1 130 OPEN1,8,15,"M-W"+CHR$(7)+CHR$(28)+CHR$(1)+CHR$(15):CLOSE1 200 POKE659,0:LA=0:E4=E2 205 IF(PEEK(JO)AND16)=16THEN205 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:GOTO1725 255 IFY>21ANDY<26THENPOKES+1927,1:E2=1:GOTO1725 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:E2=1 350 GOTO1300 360 GOTO200 998 :END 999 POKE53265,PEEK(53265)AND239 1000 POKE53280,12:POKE53281,15:SYSMA+18:IFPEEK(789)>200THENSYSMA+21:POKE53240,19 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 POKE53223,160:POKES+2023,12 1027 FORK=217TO240:POKEK,PEEK(K)OR128:NEXT:RETURN 1030 IFR%=1THENPRINT"";:POKE2023,160:RETURN 1035 X=7:POKE214,3: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,3: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--- 1304 IFI=10THENLA=0:GOTO205 1305 IFI=11THEN2200 1307 E$=RIGHT$(STR$(I+1),LEN(STR$(I+1))-1)+".":LP=2 1308 E$=E$+RIGHT$(STR$(E),LEN(STR$(E))-1) 1309 IFE<>1ORE2<1THEN1325 1310 IFE=1THENIFE2>0THENCLOSE2:CLOSE1:OPEN1,8,15:OPEN2,8,2,E$+",P,R" 1311 INPUT#1,A:CLOSE2:CLOSE1:IFA=62THENGOSUB2000:GOTO1380 1320 IFA>19THEN120 1325 LP=2:PRINT"[144][147]";:GOTO1700 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 E --- 1510 POKE214,21:PRINT:C$="":IFE<10THENC$="0" 1515 IFE=10THENC$="10":GOTO1530 1520 C$=C$+RIGHT$(STR$(E),LEN(STR$(E-1))-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-(E200THENSYSMA+21:POKE53240,19:POKEV,160:POKEV+1,234 1724 GOTO200 1725 IFE4<>E2THENE4=E2:GOSUB1400:GOSUB1400:GOTO1705 1727 POKE53265,PEEK(53265)AND239:SYSMA+18:POKE53281,0:PRINT"[144][147]";:POKE53281,15 1728 IFLA=0THENSYSMA+15:SYSMA+12:QQ=PEEK(781):IFQQ>1THENSYSMA+24:POKEV,0:GOTO1750 1729 POKEV,222:POKEV+1,230:POKEV+16,0 1730 PRINT"":GOSUB1020:GOSUB1500:POKE53265,PEEK(53265)OR16 1735 GOSUB1400:IFLA<>1THEN1710 1740 POKEV+16,0:POKEV,138:POKEV+1,230:GOTO200 1750 POKE53265,PEEK(53265)OR16:GOSUB1400:IFLA=1THENSYSMA+6:GOTO120 1760 SYSMA+9:SYSMA+33,I+1,E,6*4096 1765 IFQQ<>2THENSYSMA+6:GOTO1790 1770 GETQ$:IFQ$=""THENIFPEEK(56320)=127ORPEEK(56321)=255THEN1770 1780 IFQ$="D"THENSYSMA+36,24 1785 IFPEEK(56320)=127ANDPEEK(56321)=255ANDQ$<>" "THEN1770 1790 GOTO1727 1800 REM --- PRINTER --- 1805 POKE816,165:POKE817,244:POKE665,2:POKE666,2:E3=E 1810 SYSMA+36,18:CLOSE1:OPEN1,4:CMD1 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 SYS43957:CLOSE1 1870 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 2200 REM --- GAME MENU --- 2205 POKE214,16:PRINT:PRINTTAB(33)"[151][208][204][193][217] 2210 [151]214,2:[153] 2220 [129]J[178]0[164]11:[153]"STOP ":[130] 2230 [153]"CHR$ATN(null)VAL (null)VAL(null)SQR 2240 FORJ=1TO10:IFB$(J)="***"THEN2270 2243 IF(PEEK(214)-2)/4=LSTHENPRINT"";:GOTO2247 2245 PRINT"[144]"; 2247 PRINT""B$(J):NEXT 2270 : 2300 Y=ABS(INT((PEEK(V)-24)/8+.5)+(33AND(PEEK(V+16)AND1)=1)) 2310 X=INT(ABS(PEEK(V+1)-62)/8+.5) 2320 IF(PEEK(JO)AND16)=16THEN2270 2330 POKE214,2:PRINT 2340 IFY>9ANDY<16THENIFX>19THEN120 2345 IFX>14ANDX<18THENIFY>33ANDY<39THEN2395 2350 PRINT" 2360 [129]J[178]1[164]10:[139]B$(J)[178]"***"[167]2390 2370 [139][181](X[171]4)[173]1[179][177]J[167][153]"STOP";:[137]2380 2375 [153]"";:LS[178]J 2380 [153]""B$(J):[130] 2390 [137]2270 2395 [158]MA[170]24:[158]MA[170]3:[151]53272,23:[151]56325,64 2397 [153]"LOADSTOP(null)OADING "B$(LS):[151]V,0 2400 [151]V[170]21,0:[160]1:[160]2:[159]1,8,15,"I":[159]2,8,2,B2$(LS)[170]",P,R" 2410 [132]1,A:[139]A[179]19[167]2460 2420 [153]"PEEKITTE WENDEN (null)IE DIE STR$ISKETTE." 2450 [151]198,0:[146]198,1:[137]2395 2460 [153]"LISTLOAD":[153]"LOAD"[199](34)B2$(LS)[199](34)",8,8":[151]56,160:[156] 2470 [153]"RUNONONONONONONONON" 2480 [151]631,13:[151]632,13:[151]198,2:[128] 2499 [128] 10000 [131]"LEFT$ALLO",4 10001 [131]"LEFT$ARDWARE",9 10002 [131]"(null)OFTWARE",22 10003 [131]"PEEKASTELWARE",9 10004 [131]"(null)TILITIES",15 10005 [131]"CHR$AMES",3 10006 [131]"(null)EWS",12 10007 [131]"RIGHT$NTERN",19 10008 [131]"(null)IPS & (null)RICKS",10 10009 [131]"(null)HE VALND",3 10010 [131]" ",1 10011 [131]"CHR$AME (null)EN@",1 10100 [131]***,0 10110 [131]"STR$ARK (null)OWER",DARK TOWER,"RIGHT$MPERATOR",IMPERATOR 10130 [131]"ATNNLEITUNG ZU (null).LEN.(null)",L.C.S.INFO 10150 [131]"STR$EMO 1",DEMO1,"STR$EMO 2",DEMO2 10160 [131]"(null)ISTSCHUTZDEMO",LISTSCHUTZ 10200 [131]***,***