0 ::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: 1 GOTO10 3 @P:PRINT"[147]";:POKE53272,21:LIST1800-1997 5 @L:PRINT"[147]";:POKE53272,21:LIST10000- 10 :POKE56,96:CLR:GOTO100:REM POKE50953,6*16:POKE51254,6*16 20 SYS49152:INPUTA$:POKE150,128:POKE146,1:CLOSE1:OPEN1,4:PRINT#1,CHR$(8); 25 SYS49152+36,0:END 100 V=53248:S=54272:JO=V-1:POKE659,1:POKE56325,64:MA=49152 105 DQ$=CHR$(27)+CHR$(42)+CHR$(0)+CHR$(64)+CHR$(1):SE=1:REM PRINTDATA FOR P6 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 113 FORJ=1TO20:READO$(J):IFO$(J)<>"***"THENNEXT 115 RN=I-1:SYSMA 120 GOSUB999:POKEV,50:POKEV+1,50:LP=1:LO=0:E=0:LS=1 130 REM CLOSE1:OPEN1,8,15,"M-W"+CHR$(7)+CHR$(28)+CHR$(1)+CHR$(15):CLOSE1 200 POKE659,0:LA=0:E4=E2:POKE53240,46 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"[144]"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)<220THENSYSMA+24 1001 PRINT"[147][142][152] ";:POKEV,60:POKEV+1,70 1002 PRINT" "; 1003 PRINT" "; 1004 PRINT" [144] [152] ";:POKEV+16,0 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,4:PRINT:FORK=0TORN:POKE211,X:PRINT""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 1060 IFPEEK(789)>220THENSYSMA+21:POKE53240,46 1070 RETURN 1200 REM ---- COL A,B-- 1210 FORC=S+ATOS+B:POKEC,1:NEXT:RETURN 1300 REM ---- LOAD I,E--- 1304 IFI=10THEN2500 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""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-(EE2THENE4=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"THENBA=1:GOSUB1900 1785 IFPEEK(56320)=127ANDPEEK(56321)=255ANDQ$<>" "THEN1770 1790 SYSMA+21:GOTO1727 1800 REM --- PRINTER --- 1805 E3=E:BA=0 1810 SYSMA+24:GOSUB1900:GOTO1860: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:SYSMA+21:POKE53240,46 1870 GOTO1330 1900 J2=18:IFBA=1THENJ2=24 1910 FORJ=0TOJ2 1920 CLOSE1:OPEN1,4,SE:FORK=1TO6:PRINT#1,CHR$(X(K));:NEXT 1925 POKE150,GB:POKE146,GC 1930 SYSMA+36,J:FORK=1TO3:PRINT#1,CHR$(Y(K));:NEXT 1940 NEXT:CLOSE1:RETURN 1950 REM --- IECTEST --- 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,3:[153] 2220 [129]J[178]0[164]11:[153]" ":[130] 2230 [153]"CHR$ATN(null)VAL (null)VAL(null)SQR 2240 FORJ=1TO10:IFB$(J)="***"THEN2270 2243 IF(PEEK(214)-2)/4=LSTHENPRINT"[144]";:GOTO2247 2245 PRINT""; 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]"";:[137]2380 2375 [153]"STOP";:LS[178]J 2380 [153]""B$(J):[130] 2390 [137]2270 2395 [158]MA[170]24:[158]MA[170]3:[151]53272,23 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] 2500 [143] --- OPTIONS --- 2505 [151]214,16:[153]:[153][163]33)"POKE (null)(null) " 2510 [151]214,4:[153] 2520 [129]J[178]0[164]10:[153]" ":[130] 2530 [153]" (null)(null)(null)RIGHT$(null)(null)(null)  2540 FORJ=1TO10:IFO$(J)="***"THEN2570 2543 IFJ=1THENPRINT"[144]";:GOTO2547 2545 PRINT""; 2547 PRINT""O$(J):NEXT 2570 : 2600 Y=ABS(INT((PEEK(V)-24)/8+.5)+(33AND(PEEK(V+16)AND1)=1)) 2610 X=INT(ABS(PEEK(V+1)-62)/8+.5) 2620 IF(PEEK(JO)AND16)=16THEN2570 2630 POKE214,4:PRINT 2640 IFY>9ANDY<16THENIFX>19THEN120 2645 IFX>14ANDX<18THENIFY>33ANDY<39THEN2695 2650 PRINT" 2660 [129]J[178]1[164]10:[139]O$(J)[178]"***"[167]2690 2670 [139][181](X[171]6)[173]2[179][177]J[167][153]"";:[137]2680 2675 [153]"STOP";:LS[178]J 2680 [153]""O$(J):[130] 2690 [137]2570 2695 [145]LS[141]2700,2900,3000 2699 [137]120 2700 [143] --- PRINTOPT --- 2710 [151]53281,12:[153]"LOADSTOP STR$(null)(null)LEN(null)VAL(null)ATN(null)(null)ATN(null)(null)(null)(null)CHR$":[151]198,0 2720 [153]"STR$EFINIEREN (null)IE HIER BITTE DIE PEEKEFEHLE F@R RIGHT$HREN STR$RUCKER>  2730 PRINT"[144][199]RAFIKMODUS EIN> ";:CLOSE1:OPEN1,0:FORJ=1TO6:GOSUB2891:X(J)=E9:NEXT 2740 CLOSE1:PRINT 2750 PRINT"[144][218]EILENABSTAND> ";:CLOSE1:OPEN1,0:FORJ=1TO3:GOSUB2891:Y(J)=E9:NEXT 2760 CLOSE1:PRINT 2770 PRINT"[144][211]EKUND;RADRESSE> ";:CLOSE1:OPEN1,0:GOSUB2891:SE=E9 2800 PRINT:PRINT"[144][205]U[219] [194]IT 7 BEI [199]RAFIKDATEN IMMER GESETZT SEIN? (J/N)"; 2805 POKEV,110:POKEV+1,154:POKE198,0 2810 GETA$:IFA$=""THEN2810 2820 IFA$<>"J"THENIFA$<>"N"THEN2810 2830 B$="[206]EIN":GB=0:IFA$="J"THENGB=128:B$="[202]A" 2840 POKE150,GB:PRINT"[157][157][157][157][157]"B$" " 2850 PRINT"[144][194]ITREIHENFOLGE (1=0-7/2=7-0)? (1/2) 2855 [151]V,45:[151]V[170]1,174:[151]198,0:[151]V[170]16,1 2860 [161]A$:[139]A$[178]""[167]2860 2870 [139]A$[179][177]"1"[167][139]A$[179][177]"2"[167]2860 2880 GC[178]1:[139]A$[178]"2"[167]GC[178]0 2890 [151]146,GC:[142] 2891 [151]198,0:[151]659,1:X[178][194](214)[172]8[170]60:Y[178][194](211)[172]8[170]36:[151]V[170]16,0 2892 [139]Y[177]255[167]Y[178]Y[171]255:[151]V[170]16,1 2893 [151]V,Y:[151]V[170]1,X 2895 [153]"00 CMDCMDCMDCMD";:[132]1,E$:[139][195](E$)[178]0[167]2890 2896 [139][198]([200](E$,1))[179]48[176][198]([200](E$,1))[177]57[167]2890 2897 [139][197](E$)[177]255[176][197](E$)[179]0[167]2890 2899 E9[178][197](E$):[142] 2900 [143] --- _SPEED --- 2910 [151]53281,12:[153]"LOADSTOP (null)(null)VALVALSTR$(null)VAL(null)SQR 2920 POKE659,1:POKE198,0 2930 PRINT"[144][195]URSORPFEILGESCHWINDIGKEIT (1-100)> ";:CLOSE1:OPEN1,0 2940 GOSUB2891:IFE9>100ORE9=0THENGOSUB2890 2950 POKE56325,((100-E9)/1.5)+10:RETURN 3000 REM --- DIR --- 3010 CLOSE1:SYSMA+39 3020 IF(PEEK(56320)AND16)=16THENIFPEEK(203)=64THEN3020 3099 RETURN 4000 REM --- ERRORS ON IEC --- 4005 FORJ=240TO230:POKEJ,PEEK(J)OR128:NEXT 4010 PRINT"":FORJ=1TO3:PRINT 4020 PRINT" ";:NEXT:PRINT"[145][145]" 4050 ONIEGOTO4100 4060 PRINT" [196]ER [196]RUCKER WILL NICHT DRUCKEN ![145][145][145]"; 4070 GOTO4150 4100 PRINT" [215]O IST DENN DAS [204]AUFWERK ? [145][145][145]"; 4150 FORJ=0TO1000:NEXT:RETURN 10000 DATA"[200]ALLO",4 10001 DATA"[200]ARDWARE",12 10002 DATA"[211]OFTWARE",20 10003 DATA"[194]ASTELWARE",9 10004 DATA"[200]ACK-[205]ECK",8 10005 DATA"[213]TILITIES",19 10006 DATA"[205]ESSEBERICHT",4 10007 DATA"[199]AMES",7 10008 DATA"[201]NTERN",21 10009 DATA"[214]ORSCHAU",2 10010 DATA"[207]PTIONS",1 10011 DATA"[199]AME [205]EN@",1 10100 DATA***,0 10110 DATA"[198]AST [196]ISK",FAST DISK,"[211]OLID [201]",SOLID I 10120 DATA"[200]OT [198]OOT",HOT FOOT 10130 DATA"[211]TARFIGHTER",STARFIGHTER,"[207]MEGA [215]RITER",OMEGA WRITER 10150 DATA"[196]ISK [211]TAR 64",DISK DTAR 64,"[199]RAPH-[195]HANGER",GRAPH-CHANGER 10155 DATA"[203]OALA [197]NTPACKER",KOALA ENTPACKER 10160 DATA"[196]EMO",ALF'S DEMO* 10200 DATA***,*** 10300 DATA"[196]RUCKERANPASSUNG","[208]FEILGESCHWINDIGKEIT" 10310 DATA"[196]IRECTORY 10350 [131]***