0000-2500 SEQ
FILE INFORMATION
FILENAME(S): 0000-2500 SEQ
FILE TYPE(S): DEL
FILE SIZE: 11.4K
FIRST SEEN: 2025-11-30 16:27:20
APPEARS ON: 1 disk(s)
FILE HASH
7d9230d94474668e376c089251c3ffcb6fa2ad60eee3b36f27ab88c99e73b27b
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| TESTDISK | 0000-2500 SEQ | DEL | BrainSkull, Thomas Marosits | 28 | 7 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 80 2A 4E 42 22 30 30 30 30 2D 32 35 30 30 20 53 |.*NB"0000-2500 S| 00000010: 45 51 22 0D 80 2A 30 3D 32 37 3A 31 3D 31 34 3A |EQ"..*0=27:1=14:| 00000020: 32 3D 39 31 3A 33 3D 39 32 3A 34 3D 39 33 0D 80 |2=91:3=92:4=93..| 00000030: 2A 35 3D 38 32 3A 36 3D 30 3A 37 3D 32 3A 38 3D |*5=82:6=0:7=2:8=| 00000040: 31 32 36 3A 39 3D 31 35 0D 80 2A 4C 46 31 3A 50 |126:9=15..*LF1:P| 00000050: 4C 37 32 3A 54 4C 36 30 3A 52 4D 33 35 0D 80 2A |L72:TL60:RM35..*| 00000060: 48 44 31 3A 80 31 D0 CC C1 CE C5 D4 20 D8 20 36 |HD1:.1...... . 6| 00000070: 34 2C 2C 2D 80 23 2D 0D 31 30 20 52 45 4D 20 50 |4,,-.#-.10 REM P| 00000080: 4C 41 4E 45 54 20 58 20 41 44 56 45 4E 54 55 52 |LANET X ADVENTUR| 00000090: 45 20 3D 3D 3D 3D 3D 3D 3D 36 34 0D 32 30 20 52 |E =======64.20 R| 000000A0: 45 4D 20 28 50 29 20 38 36 20 43 4F 4D 4D 4F 44 |EM (P) 86 COMMOD| 000000B0: 4F 52 45 20 57 45 4C 54 20 20 20 20 20 20 3D 0D |ORE WELT =.| 000000C0: 33 30 20 52 45 4D 20 3D 3D 3D 3D 3D 3D 3D 3D 3D |30 REM =========| 000000D0: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================| 000000E0: 3D 3D 3D 0D 34 30 80 A3 52 45 4D 20 28 43 29 20 |===.40..REM (C) | 000000F0: 38 36 20 42 59 20 48 41 52 41 4C 44 20 42 45 49 |86 BY HARALD BEI| 00000100: 4C 45 52 20 20 20 20 3D 0D 35 30 20 52 45 4D 20 |LER =.50 REM | 00000110: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000120: 20 20 20 20 20 20 20 20 20 20 20 3D 0D 36 30 20 | =.60 | 00000130: 52 45 4D 20 20 20 20 20 20 20 20 20 20 20 20 20 |REM | 00000140: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3D | =| 00000150: 0D 37 30 20 52 45 4D 20 56 45 52 53 49 4F 4E 20 |.70 REM VERSION | 00000160: 32 2E 30 20 20 34 30 5A 2F 41 53 43 49 49 20 20 |2.0 40Z/ASCII | 00000170: 20 20 20 3D 0D 38 30 20 52 45 4D 20 43 2D 36 34 | =.80 REM C-64| 00000180: 20 2B 20 31 35 34 31 2F 31 35 37 30 2F 31 35 37 | + 1541/1570/157| 00000190: 31 20 20 20 20 20 20 3D 0D 39 30 20 52 45 4D 20 |1 =.90 REM | 000001A0: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================| 000001B0: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 0D 31 30 30 |============.100| 000001C0: 80 A3 43 34 24 3D 43 48 52 24 28 30 31 37 29 3A |..C4$=CHR$(017):| 000001D0: 52 4E 24 3D 43 48 52 24 28 30 31 38 29 0D 31 31 |RN$=CHR$(018).11| 000001E0: 30 80 A3 44 32 24 3D 43 34 24 2B 43 34 24 3A 44 |0..D2$=C4$+C4$:D| 000001F0: 33 24 3D 43 34 24 2B 44 32 24 3A 44 34 24 3D 43 |3$=C4$+D2$:D4$=C| 00000200: 34 24 2B 44 33 24 0D 31 32 30 80 A3 48 45 24 3D |4$+D3$.120..HE$=| 00000210: 43 48 52 24 28 30 31 39 29 3A 43 33 24 3D 43 48 |CHR$(019):C3$=CH| 00000220: 52 24 28 30 32 39 29 0D 31 33 30 80 A3 4F 45 24 |R$(029).130..OE$| 00000230: 3D 43 48 52 24 28 31 32 39 29 3A 0D 31 34 30 80 |=CHR$(129):.140.| 00000240: A3 52 46 24 3D 43 48 52 24 28 31 34 36 29 3A 43 |.RF$=CHR$(146):C| 00000250: 4C 24 3D 43 48 52 24 28 31 34 37 29 0D 31 35 30 |L$=CHR$(147).150| 00000260: 80 A3 43 31 24 3D 43 48 52 24 28 31 35 37 29 3A |..C1$=CHR$(157):| 00000270: 59 45 24 3D 43 48 52 24 28 31 35 38 29 0D 31 36 |YE$=CHR$(158).16| 00000280: 30 80 A3 52 41 3D 36 38 3A 47 41 3D 34 33 3A 42 |0..RA=68:GA=43:B| 00000290: 41 3D 32 33 3A 57 4F 3D 34 3A 4D 41 3D 31 3A 4D |A=23:WO=4:MA=1:M| 000002A0: 47 3D 34 3A 41 46 3D 32 3A 47 3D 31 36 0D 31 37 |G=4:AF=2:G=16.17| 000002B0: 30 80 A3 44 49 4D 52 4D 24 28 52 41 29 2C 44 47 |0..DIMRM$(RA),DG| 000002C0: 28 52 41 2C 36 29 2C 47 47 24 28 47 41 29 2C 4E |(RA,6),GG$(GA),N| 000002D0: 4D 24 28 47 41 29 2C 47 47 28 47 41 29 2C 42 41 |M$(GA),GG(GA),BA| 000002E0: 24 28 42 41 29 2C 41 53 24 28 34 38 29 2C 47 24 |$(BA),AS$(48),G$| 000002F0: 28 47 29 2C 46 4C 24 28 52 41 29 0D 31 38 30 80 |(G),FL$(RA).180.| 00000300: A3 43 53 3D 32 31 31 3A 43 5A 3D 32 31 34 3A 58 |.CS=211:CZ=214:X| 00000310: 3D 35 38 36 34 30 3A 53 43 3D 35 33 32 36 35 0D |=58640:SC=53265.| 00000320: 31 39 30 80 A3 50 4F 4B 45 36 34 36 2C 31 35 3A |190..POKE646,15:| 00000330: 50 4F 4B 45 35 33 32 38 30 2C 30 3A 50 4F 4B 45 |POKE53280,0:POKE| 00000340: 35 33 32 38 31 2C 30 3A 50 52 49 4E 54 43 48 52 |53281,0:PRINTCHR| 00000350: 24 28 31 34 37 29 43 48 52 24 28 31 34 29 0D 32 |$(147)CHR$(14).2| 00000360: 30 30 80 A3 50 4F 4B 45 43 53 2C 35 3A 50 4F 4B |00..POKECS,5:POK| 00000370: 45 43 5A 2C 35 3A 53 59 53 35 38 36 34 30 0D 32 |ECZ,5:SYS58640.2| 00000380: 31 30 80 A3 50 52 49 4E 54 22 D6 C5 D2 D3 C3 C8 |10..PRINT"......| 00000390: CF CC CC C5 CE 80 A3 C1 D5 C6 80 A3 D0 CC C1 CE |................| 000003A0: C5 D4 80 A3 D8 22 0D 32 32 30 80 A3 50 52 49 4E |.....".220..PRIN| 000003B0: 54 44 33 24 44 34 24 3B 54 41 42 28 35 29 22 C1 |TD3$D4$;TAB(5)".| 000003C0: 44 56 45 4E 54 55 52 45 80 A3 80 A3 56 4F 4E 80 |DVENTURE....VON.| 000003D0: A3 80 A3 C8 2E C2 45 49 4C 45 52 22 3A 47 4F 53 |......EILER":GOS| 000003E0: 55 42 33 33 30 0D 32 33 30 80 A3 47 4F 54 4F 34 |UB330.230..GOTO4| 000003F0: 31 30 0D 32 34 30 80 A3 46 4F 52 49 3D 31 54 4F |10.240..FORI=1TO| 00000400: 33 38 3A 50 52 49 4E 54 43 48 52 24 28 31 35 30 |38:PRINTCHR$(150| 00000410: 29 43 48 52 24 28 34 35 29 43 48 52 24 28 31 35 |)CHR$(45)CHR$(15| 00000420: 34 29 3B 3A 46 4F 52 54 3D 31 54 4F 35 30 3A 4E |4);:FORT=1TO50:N| 00000430: 45 58 54 3A 4E 45 58 54 3A 50 52 49 4E 54 3A 52 |EXT:NEXT:PRINT:R| 00000440: 45 54 55 52 4E 0D 32 35 30 80 A3 47 47 28 34 31 |ETURN.250..GG(41| 00000450: 29 3D 30 3A 47 47 28 34 30 29 3D 4D 41 3A 52 45 |)=0:GG(40)=MA:RE| 00000460: 54 55 52 4E 0D 32 36 30 80 A3 47 47 28 33 30 29 |TURN.260..GG(30)| 00000470: 3D 4D 41 3A 44 47 28 33 34 2C 34 29 3D 32 36 3A |=MA:DG(34,4)=26:| 00000480: 47 47 24 28 32 33 29 3D 22 54 4F 54 45 20 52 49 |GG$(23)="TOTE RI| 00000490: 45 53 45 4E 53 50 49 4E 4E 45 2E 22 3A 52 45 54 |ESENSPINNE.":RET| 000004A0: 55 52 4E 0D 32 37 30 80 A3 47 47 28 33 30 29 3D |URN.270..GG(30)=| 000004B0: 4D 41 3A 44 47 28 36 35 2C 32 29 3D 34 39 3A 44 |MA:DG(65,2)=49:D| 000004C0: 47 28 36 35 2C 31 29 3D 36 34 3A 47 47 24 28 33 |G(65,1)=64:GG$(3| 000004D0: 37 29 3D 22 54 4F 54 45 52 80 A3 53 41 55 52 49 |7)="TOTER..SAURI| 000004E0: 45 52 2E 22 3A 52 45 54 55 52 4E 0D 32 38 30 80 |ER.":RETURN.280.| 000004F0: A3 47 47 28 33 30 29 3D 4D 41 3A 44 47 28 36 38 |.GG(30)=MA:DG(68| 00000500: 2C 32 29 3D 35 39 3A 47 47 24 28 33 39 29 3D 22 |,2)=59:GG$(39)="| 00000510: 54 4F 54 45 80 A3 55 52 57 41 4C 44 53 50 49 4E |TOTE..URWALDSPIN| 00000520: 4E 45 2E 22 3A 52 45 54 55 52 4E 0D 32 39 30 80 |NE.":RETURN.290.| 00000530: A3 47 47 28 33 30 29 3D 4D 41 3A 44 47 28 36 33 |.GG(30)=MA:DG(63| 00000540: 2C 32 29 3D 35 38 3A 44 47 28 36 33 2C 33 29 3D |,2)=58:DG(63,3)=| 00000550: 35 37 3A 47 47 24 28 33 35 29 3D 22 54 4F 54 45 |57:GG$(35)="TOTE| 00000560: 52 80 A3 54 49 47 45 52 2E 22 3A 52 45 54 55 52 |R..TIGER.":RETUR| 00000570: 4E 0D 33 30 30 80 A3 44 47 28 36 34 2C 31 29 3D |N.300..DG(64,1)=| 00000580: 30 3A 44 47 28 36 34 2C 32 29 3D 36 30 3A 44 47 |0:DG(64,2)=60:DG| 00000590: 28 36 34 2C 33 29 3D 35 38 3A 44 47 28 36 34 2C |(64,3)=58:DG(64,| 000005A0: 34 29 3D 35 39 3A 44 47 28 36 34 2C 35 29 3D 30 |4)=59:DG(64,5)=0| 000005B0: 3A 44 47 28 36 34 2C 36 29 3D 30 3A 52 45 54 55 |:DG(64,6)=0:RETU| 000005C0: 52 4E 0D 33 31 30 80 A3 50 4F 4B 45 43 53 2C 30 |RN.310..POKECS,0| 000005D0: 3A 50 4F 4B 45 43 5A 2C 31 35 3A 53 59 53 58 0D |:POKECZ,15:SYSX.| 000005E0: 33 32 30 80 A3 46 4F 52 49 3D 31 54 4F 39 3A 50 |320..FORI=1TO9:P| 000005F0: 52 49 4E 54 4C 45 24 3A 4E 45 58 54 3A 52 45 54 |RINTLE$:NEXT:RET| 00000600: 55 52 4E 0D 33 33 30 80 A3 46 4F 52 54 3D 31 54 |URN.330..FORT=1T| 00000610: 4F 33 30 30 30 3A 4E 45 58 54 3A 52 45 54 55 52 |O3000:NEXT:RETUR| 00000620: 4E 0D 33 34 30 80 A3 50 52 49 4E 54 48 45 24 3A |N.340..PRINTHE$:| 00000630: 50 52 49 4E 54 54 41 42 28 31 29 43 48 52 24 28 |PRINTTAB(1)CHR$(| 00000640: 31 31 37 29 3B 3A 46 4F 52 49 3D 31 54 4F 33 36 |117);:FORI=1TO36| 00000650: 3A 50 52 49 4E 54 43 48 52 24 28 39 36 29 3B 3A |:PRINTCHR$(96);:| 00000660: 4E 45 58 54 3A 50 52 49 4E 54 43 48 52 24 28 31 |NEXT:PRINTCHR$(1| 00000670: 30 35 29 0D 33 35 30 80 A3 46 4F 52 49 3D 31 54 |05).350..FORI=1T| 00000680: 4F 31 32 3A 50 52 49 4E 54 54 41 42 28 31 29 43 |O12:PRINTTAB(1)C| 00000690: 48 52 24 28 31 32 35 29 54 41 42 28 33 38 29 43 |HR$(125)TAB(38)C| 000006A0: 48 52 24 28 31 32 35 29 3A 4E 45 58 54 0D 33 36 |HR$(125):NEXT.36| 000006B0: 30 80 A3 50 52 49 4E 54 54 41 42 28 31 29 43 48 |0..PRINTTAB(1)CH| 000006C0: 52 24 28 31 30 36 29 3B 3A 46 4F 52 49 3D 31 54 |R$(106);:FORI=1T| 000006D0: 4F 33 36 3A 50 52 49 4E 54 43 48 52 24 28 39 36 |O36:PRINTCHR$(96| 000006E0: 29 3B 3A 4E 45 58 54 3A 50 52 49 4E 54 43 48 52 |);:NEXT:PRINTCHR| 000006F0: 24 28 31 30 37 29 3A 52 45 54 55 52 4E 0D 33 37 |$(107):RETURN.37| 00000700: 30 80 A3 46 4C 28 31 29 3D 2D 31 3A 44 47 28 31 |0..FL(1)=-1:DG(1| 00000710: 36 2C 31 29 3D 31 39 3A 44 47 28 31 36 2C 32 29 |6,1)=19:DG(16,2)| 00000720: 3D 31 35 3A 52 45 54 55 52 4E 0D 33 38 30 80 A3 |=15:RETURN.380..| 00000730: 46 4C 28 32 29 3D 2D 31 3A 44 47 28 32 35 2C 31 |FL(2)=-1:DG(25,1| 00000740: 29 3D 33 31 3A 44 47 28 32 35 2C 32 29 3D 32 32 |)=31:DG(25,2)=22| 00000750: 3A 47 4F 54 4F 31 34 34 30 0D 33 39 30 80 A3 44 |:GOTO1440.390..D| 00000760: 47 28 36 34 2C 33 29 3D 35 38 3A 44 47 28 36 34 |G(64,3)=58:DG(64| 00000770: 2C 34 29 3D 35 39 3A 47 47 28 33 36 29 3D 30 3A |,4)=59:GG(36)=0:| 00000780: 52 45 54 55 52 4E 0D 34 30 30 80 A3 47 47 28 34 |RETURN.400..GG(4| 00000790: 32 29 3D 4D 41 3A 44 47 28 32 35 2C 31 29 3D 33 |2)=MA:DG(25,1)=3| 000007A0: 31 3A 52 45 54 55 52 4E 0D 34 31 30 80 A3 52 45 |1:RETURN.410..RE| 000007B0: 4D 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |M **************| 000007C0: 2A 20 41 4E 54 57 4F 52 54 45 4E 20 2A 0D 34 32 |* ANTWORTEN *.42| 000007D0: 30 80 A3 41 53 24 28 31 29 3D 22 4F 4B 41 59 2E |0..AS$(1)="OKAY.| 000007E0: 22 0D 34 33 30 80 A3 41 53 24 28 32 29 3D 22 48 |".430..AS$(2)="H| 000007F0: 49 45 52 80 A3 49 53 54 80 A3 4E 49 43 48 54 53 |IER..IST..NICHTS| 00000800: 80 A3 42 45 53 4F 4E 44 45 52 45 53 2E 22 0D 34 |..BESONDERES.".4| 00000810: 34 30 80 A3 41 53 24 28 33 29 3D 22 47 45 48 54 |40..AS$(3)="GEHT| 00000820: 80 A3 4E 49 43 48 54 2C 80 A3 56 49 45 4C 80 A3 |..NICHT,..VIEL..| 00000830: 5A 55 80 A3 53 43 48 57 45 52 2E 22 0D 34 35 30 |ZU..SCHWER.".450| 00000840: 80 A3 41 53 24 28 34 29 3D 22 44 41 53 80 A3 49 |..AS$(4)="DAS..I| 00000850: 53 54 80 A3 56 4F 45 4C 4C 49 47 80 A3 55 4E 4D |ST..VOELLIG..UNM| 00000860: 4F 45 47 4C 49 43 48 21 22 0D 34 36 30 80 A3 41 |OEGLICH!".460..A| 00000870: 53 24 28 35 29 3D 22 55 4E 44 80 A3 57 49 45 80 |S$(5)="UND..WIE.| 00000880: A3 53 4F 4C 4C 80 A3 4D 41 4E 80 A3 44 41 53 80 |.SOLL..MAN..DAS.| 00000890: A3 41 4E 53 54 45 4C 4C 45 4E 80 A3 3F 22 0D 34 |.ANSTELLEN..?".4| 000008A0: 37 30 80 A3 41 53 24 28 36 29 3D 22 C4 41 53 80 |70..AS$(6)=".AS.| 000008B0: A3 57 41 52 80 A3 D0 45 43 48 21 21 21 22 0D 34 |.WAR...ECH!!!".4| 000008C0: 38 30 80 A3 41 53 24 28 37 29 3D 22 41 55 46 80 |80..AS$(7)="AUF.| 000008D0: A3 44 49 45 53 45 80 A3 57 45 49 53 45 80 A3 47 |.DIESE..WEISE..G| 000008E0: 45 48 54 80 A3 44 41 53 80 A3 4E 49 43 48 54 21 |EHT..DAS..NICHT!| 000008F0: 22 0D 34 39 30 80 A3 41 53 24 28 38 29 3D 22 4B |".490..AS$(8)="K| 00000900: 45 49 4E 80 A3 57 45 47 80 A3 49 4E 80 A3 44 49 |EIN..WEG..IN..DI| 00000910: 45 53 45 80 A3 52 49 43 48 54 55 4E 47 2E 22 0D |ESE..RICHTUNG.".| 00000920: 35 30 30 80 A3 41 53 24 28 39 29 3D 22 44 41 53 |500..AS$(9)="DAS| 00000930: 80 A3 49 53 54 80 A3 54 4F 54 41 4C 45 52 80 A3 |..IST..TOTALER..| 00000940: 55 4E 53 49 4E 4E 21 22 0D 35 31 30 80 A3 41 53 |UNSINN!".510..AS| 00000950: 24 28 31 30 29 3D 22 48 49 45 52 80 A3 49 53 54 |$(10)="HIER..IST| 00000960: 80 A3 4E 49 45 4D 41 4E 44 2E 2E 2E 22 0D 35 32 |..NIEMAND...".52| 00000970: 30 80 A3 41 53 24 28 31 31 29 3D 22 44 41 53 80 |0..AS$(11)="DAS.| 00000980: A3 46 55 4E 4B 54 49 4F 4E 49 45 52 54 80 A3 53 |.FUNKTIONIERT..S| 00000990: 4F 80 A3 4E 49 43 48 54 2E 22 0D 35 33 30 80 A3 |O..NICHT.".530..| 000009A0: 41 53 24 28 31 32 29 3D 22 49 4E 80 A3 4F 52 44 |AS$(12)="IN..ORD| 000009B0: 4E 55 4E 47 21 80 A3 55 4E 44 80 A3 57 45 49 54 |NUNG!..UND..WEIT| 000009C0: 45 52 3F 22 0D 35 34 30 80 A3 41 53 24 28 31 33 |ER?".540..AS$(13| 000009D0: 29 3D 22 44 49 45 53 45 4E 80 A3 42 45 46 45 48 |)="DIESEN..BEFEH| 000009E0: 4C 80 A3 4B 45 4E 4E 45 80 A3 49 43 48 80 A3 4E |L..KENNE..ICH..N| 000009F0: 49 43 48 54 2E 22 0D 35 35 30 80 A3 41 53 24 28 |ICHT.".550..AS$(| 00000A00: 31 34 29 3D 22 44 49 45 53 45 53 80 A3 48 41 55 |14)="DIESES..HAU| 00000A10: 50 54 57 4F 52 54 80 A3 4B 45 4E 4E 45 80 A3 49 |PTWORT..KENNE..I| 00000A20: 43 48 80 A3 4E 49 43 48 54 2E 22 0D 35 36 30 80 |CH..NICHT.".560.| 00000A30: A3 41 53 24 28 31 35 29 3D 22 42 49 53 54 80 A3 |.AS$(15)="BIST..| 00000A40: 44 55 80 A3 42 45 49 80 A3 44 45 52 80 A3 4D 55 |DU..BEI..DER..MU| 00000A50: 45 4C 4C 41 42 46 55 48 52 3F 22 0D 35 37 30 80 |ELLABFUHR?".570.| 00000A60: A3 41 53 24 28 31 36 29 3D 22 45 52 80 A3 49 53 |.AS$(16)="ER..IS| 00000A70: 54 80 A3 4A 41 80 A3 4E 4F 43 48 80 A3 47 41 52 |T..JA..NOCH..GAR| 00000A80: 80 A3 4E 49 43 48 54 80 A3 44 4F 52 54 21 22 0D |..NICHT..DORT!".| 00000A90: 35 38 30 80 A3 41 53 24 28 31 37 29 3D 22 44 41 |580..AS$(17)="DA| 00000AA0: 53 80 A3 54 4F 52 80 A3 49 53 54 80 A3 47 45 53 |S..TOR..IST..GES| 00000AB0: 43 48 4C 4F 53 53 45 4E 2E 22 0D 35 39 30 80 A3 |CHLOSSEN.".590..| 00000AC0: 41 53 24 28 31 38 29 3D 22 53 54 45 48 54 80 A3 |AS$(18)="STEHT..| 00000AD0: 45 53 80 A3 53 49 43 48 80 A3 47 55 54 80 A3 44 |ES..SICH..GUT..D| 00000AE0: 41 52 41 55 46 80 A3 3F 22 0D 36 30 30 80 A3 41 |ARAUF..?".600..A| 00000AF0: 53 24 28 31 39 29 3D 22 49 4E 80 A3 57 45 4C 43 |S$(19)="IN..WELC| 00000B00: 48 45 80 A3 52 49 43 48 54 55 4E 47 80 A3 3F 22 |HE..RICHTUNG..?"| 00000B10: 0D 36 31 30 80 A3 41 53 24 28 32 30 29 3D 22 57 |.610..AS$(20)="W| 00000B20: 45 52 80 A3 52 41 53 54 45 54 2C 80 A3 44 45 52 |ER..RASTET,..DER| 00000B30: 80 A3 52 4F 53 54 45 54 2E 22 0D 36 32 30 80 A3 |..ROSTET.".620..| 00000B40: 41 53 24 28 32 31 29 3D 22 49 43 48 80 A3 57 55 |AS$(21)="ICH..WU| 00000B50: 45 52 44 45 80 A3 41 4C 4C 45 53 80 A3 55 4E 54 |ERDE..ALLES..UNT| 00000B60: 45 52 53 55 43 48 45 4E 2E 2E 2E 22 0D 36 33 30 |ERSUCHEN...".630| 00000B70: 80 A3 41 53 24 28 32 32 29 3D 22 44 49 45 80 A3 |..AS$(22)="DIE..| 00000B80: 53 4F 4E 4E 45 80 A3 47 45 48 54 80 A3 49 4D 80 |SONNE..GEHT..IM.| 00000B90: A3 57 45 53 54 45 4E 80 A3 55 4E 54 45 52 2E 2E |.WESTEN..UNTER..| 00000BA0: 2E 22 0D 36 34 30 80 A3 41 53 24 28 32 33 29 3D |.".640..AS$(23)=| 00000BB0: 22 48 4F 45 48 4C 45 4E 80 A3 42 45 52 47 45 4E |"HOEHLEN..BERGEN| 00000BC0: 80 A3 47 45 48 45 49 4D 4E 49 53 53 45 2E 2E 2E |..GEHEIMNISSE...| 00000BD0: 22 0D 36 35 30 80 A3 41 53 24 28 32 34 29 3D 22 |".650..AS$(24)="| 00000BE0: 46 45 4C 53 57 41 45 4E 44 45 80 A3 4B 41 4E 4E |FELSWAENDE..KANN| 00000BF0: 80 A3 4D 41 4E 80 A3 55 4D 47 45 48 45 4E 2E 22 |..MAN..UMGEHEN."| 00000C00: 0D 36 36 30 80 A3 41 53 24 28 32 35 29 3D 22 45 |.660..AS$(25)="E| 00000C10: 49 4E 80 A3 55 4D 57 45 47 80 A3 46 55 45 48 52 |IN..UMWEG..FUEHR| 00000C20: 54 80 A3 53 45 4C 54 45 4E 80 A3 5A 55 4D 80 A3 |T..SELTEN..ZUM..| 00000C30: 5A 49 45 4C 2E 22 0D 36 37 30 80 A3 41 53 24 28 |ZIEL.".670..AS$(| 00000C40: 32 36 29 3D 22 55 4D 4B 45 48 52 80 A3 42 45 49 |26)="UMKEHR..BEI| 00000C50: 5A 45 49 54 45 4E 80 A3 56 45 52 48 49 4E 44 45 |ZEITEN..VERHINDE| 00000C60: 52 54 80 A3 50 4C 45 49 54 45 4E 2E 2E 22 0D 36 |RT..PLEITEN..".6| 00000C70: 38 30 80 A3 41 53 24 28 32 37 29 3D 22 44 49 45 |80..AS$(27)="DIE| 00000C80: 80 A3 47 45 52 41 44 45 4E 80 A3 57 45 47 45 80 |..GERADEN..WEGE.| 00000C90: A3 53 49 4E 44 80 A3 44 49 45 80 A3 53 43 48 4E |.SIND..DIE..SCHN| 00000CA0: 45 4C 4C 53 54 45 4E 2E 22 0D 36 39 30 80 A3 41 |ELLSTEN.".690..A| 00000CB0: 53 24 28 32 38 29 3D 22 53 45 45 46 41 48 52 45 |S$(28)="SEEFAHRE| 00000CC0: 52 80 A3 4B 45 4E 4E 45 4E 80 A3 44 45 4E 80 A3 |R..KENNEN..DEN..| 00000CD0: 50 4F 4C 41 52 53 54 45 52 4E 2E 22 0D 37 30 30 |POLARSTERN.".700| 00000CE0: 80 A3 41 53 24 28 32 39 29 3D 22 41 4C 4C 45 53 |..AS$(29)="ALLES| 00000CF0: 80 A3 44 41 53 80 A3 5A 55 80 A3 49 53 54 2C 80 |..DAS..ZU..IST,.| 00000D00: A3 57 41 52 80 A3 4D 41 4C 80 A3 4F 46 46 45 4E |.WAR..MAL..OFFEN| 00000D10: 2E 22 0D 37 31 30 80 A3 41 53 24 28 33 30 29 3D |.".710..AS$(30)=| 00000D20: 22 48 49 4E 4C 41 4E 47 45 4E 2C 80 A3 5A 55 50 |"HINLANGEN,..ZUP| 00000D30: 41 43 4B 45 4E 21 22 0D 37 32 30 80 A3 41 53 24 |ACKEN!".720..AS$| 00000D40: 28 33 31 29 3D 22 49 4D 4D 45 52 80 A3 44 45 52 |(31)="IMMER..DER| 00000D50: 80 A3 4E 41 53 45 80 A3 4E 41 43 48 2E 2E 2E 22 |..NASE..NACH..."| 00000D60: 0D 37 33 30 80 A3 41 53 24 28 33 32 29 3D 22 4E |.730..AS$(32)="N| 00000D70: 49 4D 4D 2C 80 A3 57 41 53 80 A3 44 55 80 A3 53 |IMM,..WAS..DU..S| 00000D80: 49 45 48 53 54 2E 22 0D 37 34 30 80 A3 41 53 24 |IEHST.".740..AS$| 00000D90: 28 33 33 29 3D 22 4F 46 54 80 A3 49 53 54 80 A3 |(33)="OFT..IST..| 00000DA0: 45 53 80 A3 4F 42 45 4E 80 A3 48 45 4C 4C 45 52 |ES..OBEN..HELLER| 00000DB0: 80 A3 41 4C 53 80 A3 55 4E 54 45 4E 2E 22 0D 37 |..ALS..UNTEN.".7| 00000DC0: 35 30 80 A3 41 53 24 28 33 34 29 3D 22 4A 45 44 |50..AS$(34)="JED| 00000DD0: 45 80 A3 4D 41 55 45 52 80 A3 48 41 54 80 A3 45 |E..MAUER..HAT..E| 00000DE0: 49 4E 45 4E 80 A3 44 55 52 43 48 53 43 48 4C 55 |INEN..DURCHSCHLU| 00000DF0: 50 46 21 22 0D 37 36 30 80 A3 41 53 24 28 33 35 |PF!".760..AS$(35| 00000E00: 29 3D 22 56 4F 52 57 41 45 52 54 53 80 A3 49 53 |)="VORWAERTS..IS| 00000E10: 54 80 A3 4D 55 54 49 47 2C 80 A3 52 55 45 43 4B |T..MUTIG,..RUECK| 00000E20: 57 41 45 52 54 53 80 A3 4B 4C 55 47 2E 22 0D 37 |WAERTS..KLUG.".7| 00000E30: 37 30 80 A3 41 53 24 28 33 36 29 3D 22 44 45 52 |70..AS$(36)="DER| 00000E40: 80 A3 4B 4C 55 47 45 80 A3 42 4C 49 43 4B 54 80 |..KLUGE..BLICKT.| 00000E50: A3 49 4E 80 A3 4A 45 44 45 80 A3 52 49 43 48 54 |.IN..JEDE..RICHT| 00000E60: 55 4E 47 2E 2E 22 0D 37 38 30 80 A3 41 53 24 28 |UNG..".780..AS$(| 00000E70: 33 37 29 3D 22 42 49 53 48 45 52 80 A3 57 41 52 |37)="BISHER..WAR| 00000E80: 80 A3 45 53 80 A3 47 4C 55 45 43 4B 2E 80 A3 41 |..ES..GLUECK...A| 00000E90: 42 45 52 80 A3 4A 45 54 5A 54 2E 2E 2E 22 0D 37 |BER..JETZT...".7| 00000EA0: 39 30 80 A3 41 53 24 28 33 38 29 3D 22 44 41 53 |90..AS$(38)="DAS| 00000EB0: 80 A3 47 52 41 53 80 A3 49 53 54 80 A3 47 52 55 |..GRAS..IST..GRU| 00000EC0: 45 4E 45 52 80 A3 44 4F 52 54 2E 22 0D 38 30 30 |ENER..DORT.".800| 00000ED0: 80 A3 41 53 24 28 33 39 29 3D 22 49 53 54 80 A3 |..AS$(39)="IST..| 00000EE0: 44 41 53 80 A3 4E 49 43 48 54 80 A3 45 49 4E 80 |DAS..NICHT..EIN.| 00000EF0: A3 41 4C 54 45 52 80 A3 42 45 41 54 4C 45 53 2D |.ALTER..BEATLES-| 00000F00: 53 4F 4E 47 3F 22 0D 38 31 30 80 A3 41 53 24 28 |SONG?".810..AS$(| 00000F10: 34 30 29 3D 22 41 55 53 80 A3 42 52 45 49 54 80 |40)="AUS..BREIT.| 00000F20: A3 57 49 52 44 80 A3 4D 41 4E 43 48 4D 41 4C 80 |.WIRD..MANCHMAL.| 00000F30: A3 53 43 48 4D 41 4C 2E 22 0D 38 32 30 80 A3 41 |.SCHMAL.".820..A| 00000F40: 53 24 28 34 31 29 3D 22 49 4D 80 A3 4F 53 54 45 |S$(41)="IM..OSTE| 00000F50: 4E 80 A3 47 45 48 54 80 A3 44 49 45 80 A3 53 4F |N..GEHT..DIE..SO| 00000F60: 4E 4E 45 80 A3 41 55 46 2E 2E 2E 22 0D 38 33 30 |NNE..AUF...".830| 00000F70: 80 A3 41 53 24 28 34 32 29 3D 22 44 49 45 80 A3 |..AS$(42)="DIE..| 00000F80: 5A 45 49 54 80 A3 44 52 41 45 4E 47 54 2E 80 A3 |ZEIT..DRAENGT...| 00000F90: 45 53 80 A3 57 49 52 44 80 A3 53 43 48 4F 4E 80 |ES..WIRD..SCHON.| 00000FA0: A3 4E 41 43 48 54 2E 22 0D 38 34 30 80 A3 41 53 |.NACHT.".840..AS| 00000FB0: 24 28 34 33 29 3D 22 42 45 4E 55 54 5A 45 80 A3 |$(43)="BENUTZE..| 00000FC0: 44 45 49 4E 45 4E 80 A3 56 45 52 53 54 41 4E 44 |DEINEN..VERSTAND| 00000FD0: 80 A3 55 4E 44 80 A3 44 49 45 80 A3 57 41 46 46 |..UND..DIE..WAFF| 00000FE0: 45 4E 2E 22 0D 38 35 30 80 A3 41 53 24 28 34 34 |EN.".850..AS$(44| 00000FF0: 29 3D 22 49 4D 80 A3 53 55 45 44 45 4E 80 A3 49 |)="IM..SUEDEN..I| 00001000: 53 54 80 A3 45 53 80 A3 48 45 49 53 53 2C 80 A3 |ST..ES..HEISS,..| 00001010: 41 42 45 52 80 A3 53 49 43 48 45 52 45 52 2E 22 |ABER..SICHERER."| 00001020: 0D 38 36 30 80 A3 41 53 24 28 34 35 29 3D 22 4E |.860..AS$(45)="N| 00001030: 49 45 4D 41 4E 44 80 A3 42 52 45 4D 53 54 80 A3 |IEMAND..BREMST..| 00001040: 53 45 49 4E 45 4E 80 A3 56 4F 52 57 41 45 52 54 |SEINEN..VORWAERT| 00001050: 53 44 52 41 4E 47 2E 22 0D 38 37 30 80 A3 41 53 |SDRANG.".870..AS| 00001060: 24 28 34 36 29 3D 22 45 49 4E 80 A3 53 45 49 4C |$(46)="EIN..SEIL| 00001070: 80 A3 44 49 45 4E 54 80 A3 5A 55 4D 80 A3 4B 4C |..DIENT..ZUM..KL| 00001080: 45 54 54 45 52 4E 2E 22 0D 38 38 30 80 A3 41 53 |ETTERN.".880..AS| 00001090: 24 28 34 37 29 3D 22 49 53 54 80 A3 44 45 49 4E |$(47)="IST..DEIN| 000010A0: 80 A3 56 45 52 53 54 41 4E 44 80 A3 45 49 4E 47 |..VERSTAND..EING| 000010B0: 45 52 4F 53 54 45 54 80 A3 3F 22 0D 38 39 30 80 |EROSTET..?".890.| 000010C0: A3 41 53 24 28 34 38 29 3D 22 4E 55 52 80 A3 45 |.AS$(48)="NUR..E| 000010D0: 49 4E 80 A3 54 4F 54 45 52 80 A3 53 41 55 52 49 |IN..TOTER..SAURI| 000010E0: 45 52 80 A3 49 53 54 80 A3 48 41 52 4D 4C 4F 53 |ER..IST..HARMLOS| 000010F0: 2E 2E 2E 22 0D 39 30 30 80 A3 50 52 49 4E 54 43 |...".900..PRINTC| 00001100: 48 52 24 28 31 34 37 29 43 48 52 24 28 31 34 29 |HR$(147)CHR$(14)| 00001110: 3A 46 4F 52 54 3D 31 54 4F 32 30 30 3A 4E 45 58 |:FORT=1TO200:NEX| 00001120: 54 0D 39 31 30 80 A3 50 52 49 4E 54 44 32 24 52 |T.910..PRINTD2$R| 00001130: 4E 24 22 80 A3 C2 49 54 54 45 80 A3 C6 4C 4F 50 |N$"...ITTE...LOP| 00001140: 50 59 80 A3 80 A3 4E 49 43 48 54 80 A3 80 A3 41 |PY....NICHT....A| 00001150: 55 53 53 43 48 41 4C 54 45 4E 2C 80 A3 80 A3 80 |USSCHALTEN,.....| 00001160: A3 22 52 46 24 0D 39 32 30 80 A3 50 52 49 4E 54 |."RF$.920..PRINT| 00001170: 43 34 24 52 4E 24 22 80 A3 C4 49 53 4B 45 54 54 |C4$RN$"...ISKETT| 00001180: 45 80 A3 49 4D 80 A3 CC 41 55 46 57 45 52 4B 80 |E..IM...AUFWERK.| 00001190: A3 4C 41 53 53 45 4E 80 A3 55 4E 44 80 A3 80 A3 |.LASSEN..UND....| 000011A0: 80 A3 80 A3 80 A3 22 52 46 24 0D 39 33 30 80 A3 |......"RF$.930..| 000011B0: 50 52 49 4E 54 43 34 24 52 4E 24 22 80 A3 57 41 |PRINTC4$RN$"..WA| 000011C0: 45 48 52 45 4E 44 80 A3 44 45 53 80 A3 D3 50 49 |EHREND..DES...PI| 000011D0: 45 4C 53 80 A3 4E 49 43 48 54 80 A3 45 4E 54 46 |ELS..NICHT..ENTF| 000011E0: 45 52 4E 45 4E 2E 22 52 46 24 0D 39 34 30 80 A3 |ERNEN."RF$.940..| 000011F0: 46 4F 52 46 3D 31 54 4F 42 41 3A 52 45 41 44 42 |FORF=1TOBA:READB| 00001200: 41 24 28 46 29 3A 42 41 24 28 46 29 3D 4C 45 46 |A$(F):BA$(F)=LEF| 00001210: 54 24 28 42 41 24 28 46 29 2C 57 4F 29 3A 4E 45 |T$(BA$(F),WO):NE| 00001220: 58 54 0D 39 35 30 80 A3 46 4F 52 47 47 3D 31 54 |XT.950..FORGG=1T| 00001230: 4F 47 41 3A 52 45 41 44 47 47 24 28 47 47 29 2C |OGA:READGG$(GG),| 00001240: 4E 4D 24 28 47 47 29 2C 47 47 28 47 47 29 3A 4E |NM$(GG),GG(GG):N| 00001250: 4D 24 28 47 47 29 3D 4C 45 46 54 24 28 4E 4D 24 |M$(GG)=LEFT$(NM$| 00001260: 28 47 47 29 2C 57 4F 29 3A 4E 45 58 54 0D 39 36 |(GG),WO):NEXT.96| 00001270: 30 80 A3 46 4F 52 4A 3D 31 54 4F 52 41 3A 52 45 |0..FORJ=1TORA:RE| 00001280: 41 44 52 4D 24 28 4A 29 3A 46 4F 52 4B 3D 31 54 |ADRM$(J):FORK=1T| 00001290: 4F 36 3A 52 45 41 44 44 47 28 4A 2C 4B 29 3A 4E |O6:READDG(J,K):N| 000012A0: 45 58 54 3A 4E 45 58 54 0D 39 37 30 80 A3 46 4F |EXT:NEXT.970..FO| 000012B0: 52 49 3D 31 54 4F 36 3A 52 45 41 44 52 43 24 28 |RI=1TO6:READRC$(| 000012C0: 49 29 3A 4E 45 58 54 0D 39 38 30 80 A3 46 4F 52 |I):NEXT.980..FOR| 000012D0: 49 3D 31 54 4F 52 41 3A 52 45 41 44 46 4C 24 28 |I=1TORA:READFL$(| 000012E0: 49 29 3A 4E 45 58 54 0D 39 39 30 80 A3 50 52 49 |I):NEXT.990..PRI| 000012F0: 4E 54 43 48 52 24 28 31 34 29 44 33 24 44 33 24 |NTCHR$(14)D3$D3$| 00001300: 3B 3A 49 4E 50 55 54 22 D3 50 49 45 4C 41 4E 4C |;:INPUT".PIELANL| 00001310: 45 49 54 55 4E 47 80 A3 28 4A 2F 4E 29 22 3B 41 |EITUNG..(J/N)";A| 00001320: 24 0D 31 30 30 30 80 A3 49 46 41 24 3D 22 4A 22 |$.1000..IFA$="J"| 00001330: 54 48 45 4E 47 4F 53 55 42 31 30 37 30 0D 31 30 |THENGOSUB1070.10| 00001340: 31 30 80 A3 50 52 49 4E 54 44 32 24 52 4E 24 22 |10..PRINTD2$RN$"| 00001350: C1 22 52 46 24 22 4C 54 45 53 80 A3 D3 50 49 45 |."RF$"LTES...PIE| 00001360: 4C 80 A3 4C 41 44 45 4E 80 A3 4F 44 45 52 22 0D |L..LADEN..ODER".| 00001370: 31 30 32 30 80 A3 50 52 49 4E 54 43 34 24 52 4E |1020..PRINTC4$RN| 00001380: 24 22 CE 22 52 46 24 22 45 55 42 45 47 49 4E 4E |$"."RF$"EUBEGINN| 00001390: 80 A3 3F 22 0D 31 30 33 30 80 A3 47 45 54 41 24 |..?".1030..GETA$| 000013A0: 0D 31 30 34 30 80 A3 49 46 41 24 3D 22 41 22 54 |.1040..IFA$="A"T| 000013B0: 48 45 4E 41 4E 24 3D 42 41 24 28 31 38 29 3A 50 |HENAN$=BA$(18):P| 000013C0: 52 49 4E 54 43 48 52 24 28 31 34 37 29 43 48 52 |RINTCHR$(147)CHR| 000013D0: 24 28 31 34 32 29 3A 47 4F 54 4F 31 39 36 30 0D |$(142):GOTO1960.| 000013E0: 31 30 35 30 80 A3 49 46 41 24 3D 22 4E 22 54 48 |1050..IFA$="N"TH| 000013F0: 45 4E 31 34 31 30 0D 31 30 36 30 80 A3 47 4F 54 |EN1410.1060..GOT| 00001400: 4F 31 30 33 30 0D 31 30 37 30 80 A3 50 52 49 4E |O1030.1070..PRIN| 00001410: 54 43 48 52 24 28 31 34 37 29 3A 47 4F 53 55 42 |TCHR$(147):GOSUB| 00001420: 32 34 30 0D 31 30 38 30 80 A3 50 52 49 4E 54 22 |240.1080..PRINT"| 00001430: C5 49 4E 54 52 41 47 80 A3 C3 4F 4D 4D 41 4E 44 |.INTRAG...OMMAND| 00001440: 45 52 80 A3 D0 48 49 4C 80 A3 D2 45 45 44 80 A3 |ER...HIL...EED..| 00001450: 56 4F 4D 80 A3 D2 41 55 4D 2D 22 0D 31 30 39 30 |VOM...AUM-".1090| 00001460: 80 A3 50 52 49 4E 54 22 53 43 48 49 46 46 80 A3 |..PRINT"SCHIFF..| 00001470: 27 D3 D4 C1 D2 C4 D5 D3 D4 80 A3 C9 27 80 A3 49 |'...........'..I| 00001480: 4E 80 A3 44 41 53 80 A3 C2 4F 52 44 4C 4F 47 42 |N..DAS...ORDLOGB| 00001490: 55 43 48 3A 22 3A 47 4F 53 55 42 32 34 30 0D 31 |UCH:":GOSUB240.1| 000014A0: 31 30 30 80 A3 50 52 49 4E 54 22 D4 52 4F 54 5A |100..PRINT".ROTZ| 000014B0: 80 A3 49 4E 54 45 4E 53 49 56 53 54 45 52 80 A3 |..INTENSIVSTER..| 000014C0: C2 45 4D 55 45 48 55 4E 47 45 4E 80 A3 49 53 54 |.EMUEHUNGEN..IST| 000014D0: 80 A3 44 49 45 22 0D 31 31 31 30 80 A3 50 52 49 |..DIE".1110..PRI| 000014E0: 4E 54 22 D2 45 50 41 52 41 54 55 52 80 A3 44 45 |NT".EPARATUR..DE| 000014F0: 53 80 A3 44 45 46 45 4B 54 45 4E 80 A3 C2 4F 52 |S..DEFEKTEN...OR| 00001500: 44 2D D3 54 45 55 45 52 55 4E 47 53 2D 22 0D 31 |D-.TEUERUNGS-".1| 00001510: 31 32 30 80 A3 50 52 49 4E 54 22 C3 4F 4D 50 55 |120..PRINT".OMPU| 00001520: 54 45 52 53 80 A3 4E 49 43 48 54 80 A3 47 45 4C |TERS..NICHT..GEL| 00001530: 55 4E 47 45 4E 2E 22 3A 47 4F 53 55 42 32 34 30 |UNGEN.":GOSUB240| 00001540: 0D 31 31 33 30 80 A3 50 52 49 4E 54 22 D7 45 52 |.1130..PRINT".ER| 00001550: 44 45 80 A3 CE 4F 54 4C 41 4E 44 45 2D C1 47 47 |DE...OTLANDE-.GG| 00001560: 52 45 47 41 54 80 A3 5A 55 45 4E 44 45 4E 2E 2E |REGAT..ZUENDEN..| 00001570: 2E 2E 2E 2E 2E 22 0D 31 31 34 30 80 A3 50 52 49 |.....".1140..PRI| 00001580: 4E 54 22 D6 4F 52 47 45 53 45 48 45 4E 45 80 A3 |NT".ORGESEHENE..| 00001590: 80 A3 CC 41 4E 44 55 4E 47 80 A3 41 55 46 80 A3 |...ANDUNG..AUF..| 000015A0: 80 A3 55 4E 42 45 4B 41 4E 4E 54 45 4D 80 A3 22 |..UNBEKANNTEM.."| 000015B0: 0D 31 31 35 30 80 A3 50 52 49 4E 54 22 D0 4C 41 |.1150..PRINT".LA| 000015C0: 4E 45 54 45 4E 2C 80 A3 CB 4F 4F 52 44 49 4E 41 |NETEN,...OORDINA| 000015D0: 54 45 4E 50 55 4E 4B 54 80 A3 D8 2F 33 36 2D C3 |TENPUNKT.../36-.| 000015E0: 2F 34 35 2E 22 3A 47 4F 53 55 42 32 34 30 0D 31 |/45.":GOSUB240.1| 000015F0: 31 36 30 80 A3 50 52 49 4E 54 22 C5 4E 54 46 45 |160..PRINT".NTFE| 00001600: 52 4E 55 4E 47 80 A3 5A 55 80 A3 D2 41 55 4D 53 |RNUNG..ZU...AUMS| 00001610: 43 48 49 46 46 80 A3 45 58 41 4B 54 80 A3 39 38 |CHIFF..EXAKT..98| 00001620: 35 36 37 2E 36 22 0D 31 31 37 30 80 A3 50 52 49 |567.6".1170..PRI| 00001630: 4E 54 22 D2 41 55 4D 4D 45 49 4C 45 4E 2E 80 A3 |NT".AUMMEILEN...| 00001640: C1 55 46 53 43 48 4C 41 47 80 A3 45 52 46 4F 4C |.UFSCHLAG..ERFOL| 00001650: 47 54 80 A3 49 4E 80 A3 47 45 4E 41 55 22 0D 31 |GT..IN..GENAU".1| 00001660: 31 38 30 80 A3 50 52 49 4E 54 22 32 3A 34 38 2C |180..PRINT"2:48,| 00001670: 30 33 2E 34 35 80 A3 4D 49 4E 2E 2E 2E 2E 2E 22 |03.45..MIN....."| 00001680: 3A 47 4F 53 55 42 32 34 30 0D 31 31 39 30 80 A3 |:GOSUB240.1190..| 00001690: 50 52 49 4E 54 22 C6 55 4E 4B 4B 4F 4E 54 41 4B |PRINT".UNKKONTAK| 000016A0: 54 45 80 A3 42 4C 49 45 42 45 4E 80 A3 55 4E 42 |TE..BLIEBEN..UNB| 000016B0: 45 41 4E 54 57 4F 52 54 45 54 2C 80 A3 45 53 22 |EANTWORTET,..ES"| 000016C0: 0D 31 32 30 30 80 A3 50 52 49 4E 54 22 4D 55 53 |.1200..PRINT"MUS| 000016D0: 53 80 A3 44 41 56 4F 4E 80 A3 41 55 53 47 45 47 |S..DAVON..AUSGEG| 000016E0: 41 4E 47 45 4E 80 A3 57 45 52 44 45 4E 2C 80 A3 |ANGEN..WERDEN,..| 000016F0: 44 41 53 53 80 A3 22 0D 31 32 31 30 80 A3 50 52 |DASS..".1210..PR| 00001700: 49 4E 54 22 44 45 52 80 A3 45 52 44 41 45 48 4E |INT"DER..ERDAEHN| 00001710: 4C 49 43 48 45 80 A3 D0 4C 41 4E 45 54 80 A3 55 |LICHE...LANET..U| 00001720: 4E 42 45 57 4F 48 4E 54 80 A3 49 53 54 2E 22 0D |NBEWOHNT..IST.".| 00001730: 31 32 32 30 80 A3 50 52 49 4E 54 22 C1 55 53 53 |1220..PRINT".USS| 00001740: 49 43 48 54 45 4E 80 A3 45 49 4E 45 52 80 A3 4D |ICHTEN..EINER..M| 00001750: 4F 45 47 4C 49 43 48 45 4E 80 A3 C2 45 48 45 42 |OEGLICHEN...EHEB| 00001760: 55 4E 47 80 A3 22 0D 31 32 33 30 80 A3 50 52 49 |UNG..".1230..PRI| 00001770: 4E 54 22 44 45 53 80 A3 D3 43 48 41 44 45 4E 53 |NT"DES...CHADENS| 00001780: 80 A3 53 49 4E 44 80 A3 53 45 48 52 80 A3 47 45 |..SIND..SEHR..GE| 00001790: 52 49 4E 47 2E 2E 2E 2E 2E 2E 2E 2E 22 3A 47 4F |RING........":GO| 000017A0: 53 55 42 32 34 30 0D 31 32 34 30 80 A3 50 52 49 |SUB240.1240..PRI| 000017B0: 4E 54 4F 45 24 44 32 24 22 C6 4F 4C 47 45 4E 44 |NTOE$D2$".OLGEND| 000017C0: 45 80 A3 C2 45 46 45 48 4C 45 80 A3 57 45 52 44 |E...EFEHLE..WERD| 000017D0: 45 80 A3 49 43 48 80 A3 56 45 52 57 45 4E 44 45 |E..ICH..VERWENDE| 000017E0: 4E 3A 22 3A 47 4F 53 55 42 32 34 30 0D 31 32 35 |N:":GOSUB240.125| 000017F0: 30 80 A3 50 52 49 4E 54 22 4E 49 4D 4D 2C 55 4E |0..PRINT"NIMM,UN| 00001800: 54 45 52 53 55 43 48 45 2C 42 45 54 52 45 54 45 |TERSUCHE,BETRETE| 00001810: 2C 4B 4C 45 54 54 45 52 45 2C 47 45 48 45 2C 22 |,KLETTERE,GEHE,"| 00001820: 0D 31 32 36 30 80 A3 50 52 49 4E 54 22 42 45 46 |.1260..PRINT"BEF| 00001830: 52 45 49 45 2C 52 45 54 54 45 2C 52 45 50 41 52 |REIE,RETTE,REPAR| 00001840: 49 45 52 45 2C 48 49 4C 46 2C 42 45 4E 55 54 5A |IERE,HILF,BENUTZ| 00001850: 45 2C 22 0D 31 32 37 30 80 A3 50 52 49 4E 54 22 |E,".1270..PRINT"| 00001860: 57 49 52 46 2C 42 45 4B 41 45 4D 50 46 45 2C 53 |WIRF,BEKAEMPFE,S| 00001870: 50 52 49 43 48 2C 56 45 52 4C 49 45 52 45 2C 52 |PRICH,VERLIERE,R| 00001880: 41 45 55 4D 45 2C 22 3A 47 4F 53 55 42 32 34 30 |AEUME,":GOSUB240| 00001890: 0D 31 32 38 30 80 A3 50 52 49 4E 54 22 CD 49 54 |.1280..PRINT".IT| 000018A0: 80 A3 D3 C1 D6 C5 80 A3 57 49 52 44 80 A3 44 45 |........WIRD..DE| 000018B0: 52 80 A3 4D 4F 4D 45 4E 54 41 4E 45 80 A3 D3 50 |R..MOMENTANE...P| 000018C0: 49 45 4C 53 54 41 4E 44 2D 22 0D 31 32 39 30 80 |IELSTAND-".1290.| 000018D0: A3 50 52 49 4E 54 22 41 55 46 80 A3 C4 49 53 4B |.PRINT"AUF...ISK| 000018E0: 45 54 54 45 80 A3 41 42 47 45 53 50 45 49 43 48 |ETTE..ABGESPEICH| 000018F0: 45 52 54 80 A3 22 20 3A 47 4F 53 55 42 32 34 30 |ERT.." :GOSUB240| 00001900: 0D 31 33 30 30 80 A3 50 52 49 4E 54 22 CD 49 54 |.1300..PRINT".IT| 00001910: 80 A3 CC CF C1 C4 80 A3 55 4E 54 45 52 80 A3 C1 |........UNTER...| 00001920: 4E 47 41 42 45 80 A3 44 45 53 80 A3 52 49 43 48 |NGABE..DES..RICH| 00001930: 54 49 47 45 4E 22 0D 31 33 31 30 80 A3 50 52 49 |TIGEN".1310..PRI| 00001940: 4E 54 22 C6 49 4C 45 2D CE 41 4D 45 4E 53 80 A3 |NT".ILE-.AMENS..| 00001950: 57 49 45 44 45 52 80 A3 49 4E 80 A3 44 45 4E 80 |WIEDER..IN..DEN.| 00001960: A3 C3 4F 4D 50 55 54 45 52 22 0D 31 33 32 30 80 |..OMPUTER".1320.| 00001970: A3 50 52 49 4E 54 22 47 45 4C 41 44 45 4E 80 A3 |.PRINT"GELADEN..| 00001980: 55 4E 44 80 A3 44 41 53 80 A3 D3 50 49 45 4C 80 |UND..DAS...PIEL.| 00001990: A3 41 4E 80 A3 44 49 45 53 45 52 80 A3 D3 54 45 |.AN..DIESER...TE| 000019A0: 4C 4C 45 22 0D 31 33 33 30 80 A3 50 52 49 4E 54 |LLE".1330..PRINT| 000019B0: 22 46 4F 52 54 47 45 53 45 54 5A 54 2E 22 3A 47 |"FORTGESETZT.":G| 000019C0: 4F 53 55 42 32 34 30 0D 31 33 34 30 80 A3 50 52 |OSUB240.1340..PR| 000019D0: 49 4E 54 22 C6 41 4C 4C 53 80 A3 D3 49 45 80 A3 |INT".ALLS...IE..| 000019E0: 45 49 4E 4D 41 4C 80 A3 4E 49 43 48 54 80 A3 52 |EINMAL..NICHT..R| 000019F0: 45 43 48 54 80 A3 57 45 49 54 45 52 22 0D 31 33 |ECHT..WEITER".13| 00001A00: 35 30 80 A3 50 52 49 4E 54 22 57 49 53 53 45 4E |50..PRINT"WISSEN| 00001A10: 2C 80 A3 42 45 4B 4F 4D 4D 45 4E 80 A3 D3 49 45 |,..BEKOMMEN...IE| 00001A20: 80 A3 D4 49 50 53 80 A3 4D 49 54 80 A3 C8 C5 CC |...IPS..MIT.....| 00001A30: D0 2E 22 0D 31 33 36 30 80 A3 50 52 49 4E 54 22 |..".1360..PRINT"| 00001A40: C4 49 45 80 A3 C2 45 53 43 48 52 45 49 42 55 4E |.IE...ESCHREIBUN| 00001A50: 47 80 A3 44 45 52 80 A3 C2 49 4C 44 45 52 80 A3 |G..DER...ILDER..| 00001A60: 4B 41 4E 4E 80 A3 4A 45 44 45 52 2D 22 0D 31 33 |KANN..JEDER-".13| 00001A70: 37 30 80 A3 50 52 49 4E 54 22 5A 45 49 54 80 A3 |70..PRINT"ZEIT..| 00001A80: 4D 49 54 80 A3 D4 C5 D8 D4 80 A3 41 55 46 53 80 |MIT........AUFS.| 00001A90: A3 4E 45 55 45 80 A3 47 45 4C 45 53 45 4E 80 A3 |.NEUE..GELESEN..| 00001AA0: 57 45 52 44 45 4E 2E 22 3A 47 4F 53 55 42 32 34 |WERDEN.":GOSUB24| 00001AB0: 30 0D 31 33 38 30 80 A3 50 52 49 4E 54 22 C4 45 |0.1380..PRINT".E| 00001AC0: 52 80 A3 C2 45 46 45 48 4C 80 A3 CC C9 D3 D4 80 |R...EFEHL.......| 00001AD0: A3 47 49 42 54 80 A3 C9 48 4E 45 4E 80 A3 D5 45 |.GIBT...HNEN...E| 00001AE0: 42 45 52 42 4C 49 43 4B 22 0D 31 33 39 30 80 A3 |BERBLICK".1390..| 00001AF0: 50 52 49 4E 54 22 55 45 42 45 52 80 A3 44 49 45 |PRINT"UEBER..DIE| 00001B00: 80 A3 4D 49 54 47 45 46 55 45 48 52 54 45 4E 80 |..MITGEFUEHRTEN.| 00001B10: A3 C7 45 47 45 4E 53 54 41 45 4E 44 45 2E 22 3A |..EGENSTAENDE.":| 00001B20: 47 4F 53 55 42 32 34 30 0D 31 34 30 30 80 A3 52 |GOSUB240.1400..R| 00001B30: 45 54 55 52 4E 0D 31 34 31 30 80 A3 52 45 4D 80 |ETURN.1410..REM.| 00001B40: A3 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |.***************| 00001B50: 2A 2A 20 44 52 49 56 45 52 20 2A 0D 31 34 32 30 |** DRIVER *.1420| 00001B60: 80 A3 50 52 49 4E 54 43 48 52 24 28 31 34 37 29 |..PRINTCHR$(147)| 00001B70: 43 48 52 24 28 39 29 43 48 52 24 28 31 34 32 29 |CHR$(9)CHR$(142)| 00001B80: 43 48 52 24 28 38 29 3B 0D 31 34 33 30 80 A3 4C |CHR$(8);.1430..L| 00001B90: 45 24 3D 22 80 A3 80 A3 80 A3 80 A3 80 A3 80 A3 |E$="............| 00001BA0: 80 A3 80 A3 80 A3 80 A3 80 A3 80 A3 80 A3 80 A3 |................| 00001BB0: 80 A3 80 A3 80 A3 80 A3 80 A3 80 A3 80 A3 80 A3 |................| 00001BC0: 80 A3 80 A3 80 A3 80 A3 80 A3 80 A3 80 A3 80 A3 |................| 00001BD0: 80 A3 80 A3 80 A3 80 A3 80 A3 80 A3 80 A3 80 A3 |................| 00001BE0: 80 A3 22 3A 52 45 4D 80 A3 33 39 80 A3 58 80 A3 |..":REM..39..X..| 00001BF0: 4C 45 45 52 54 41 53 54 45 0D 31 34 34 30 20 52 |LEERTASTE.1440 R| 00001C00: 45 4D 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 20 41 42 20 |EM ********* AB | 00001C10: 48 49 45 52 20 53 43 52 45 45 4E 20 2A 0D 31 34 |HIER SCREEN *.14| 00001C20: 35 30 80 A3 49 46 47 52 3C 3E 4D 41 54 48 45 4E |50..IFGR<>MATHEN| 00001C30: 36 32 32 30 0D 31 34 36 30 80 A3 47 52 3D 4D 41 |6220.1460..GR=MA| 00001C40: 3A 47 4F 53 55 42 33 33 30 3A 47 4F 53 55 42 33 |:GOSUB330:GOSUB3| 00001C50: 31 30 0D 31 34 37 30 80 A3 50 4F 4B 45 43 53 2C |10.1470..POKECS,| 00001C60: 30 3A 50 4F 4B 45 43 5A 2C 31 35 3A 53 59 53 58 |0:POKECZ,15:SYSX| 00001C70: 0D 31 34 38 30 80 A3 50 52 49 4E 54 52 4D 24 28 |.1480..PRINTRM$(| 00001C80: 4D 41 29 0D 31 34 39 30 80 A3 47 44 3D 30 0D 31 |MA).1490..GD=0.1| 00001C90: 35 30 30 80 A3 46 4F 52 49 3D 31 54 4F 47 41 3A |500..FORI=1TOGA:| 00001CA0: 49 46 47 47 28 49 29 3C 3E 4D 41 54 48 45 4E 31 |IFGG(I)<>MATHEN1| 00001CB0: 35 33 30 0D 31 35 31 30 80 A3 49 46 50 4F 53 28 |530.1510..IFPOS(| 00001CC0: 30 29 2B 4C 45 4E 28 47 47 24 28 49 29 29 2B 32 |0)+LEN(GG$(I))+2| 00001CD0: 3C 33 39 54 48 45 4E 50 52 49 4E 54 47 47 24 28 |<39THENPRINTGG$(| 00001CE0: 49 29 3B 22 2C 22 3B 3A 47 44 3D 2D 31 3A 47 4F |I);",";:GD=-1:GO| 00001CF0: 54 4F 31 35 33 30 0D 31 35 32 30 80 A3 49 46 50 |TO1530.1520..IFP| 00001D00: 4F 53 28 30 29 2B 4C 45 4E 28 47 47 24 28 49 29 |OS(0)+LEN(GG$(I)| 00001D10: 29 2B 32 3E 3D 33 39 54 48 45 4E 50 52 49 4E 54 |)+2>=39THENPRINT| 00001D20: 3A 47 4F 54 4F 31 35 31 30 0D 31 35 33 30 80 A3 |:GOTO1510.1530..| 00001D30: 4E 45 58 54 3A 49 46 47 44 3D 30 54 48 45 4E 50 |NEXT:IFGD=0THENP| 00001D40: 52 49 4E 54 22 4E 49 43 48 54 53 80 A3 42 45 53 |RINT"NICHTS..BES| 00001D50: 4F 4E 44 45 52 45 53 2E 22 3B 0D 31 35 34 30 80 |ONDERES.";.1540.| 00001D60: A3 50 52 49 4E 54 43 48 52 24 28 31 34 35 29 43 |.PRINTCHR$(145)C| 00001D70: 48 52 24 28 31 34 35 29 0D 31 35 35 30 80 A3 50 |HR$(145).1550..P| 00001D80: 4F 4B 45 43 5A 2C 31 39 3A 53 59 53 58 3A 52 45 |OKECZ,19:SYSX:RE| 00001D90: 24 3D 22 22 0D 31 35 36 30 80 A3 50 52 49 4E 54 |$="".1560..PRINT| 00001DA0: 22 52 49 43 48 54 55 4E 47 3A 22 3B 0D 31 35 37 |"RICHTUNG:";.157| 00001DB0: 30 80 A3 49 46 44 47 28 4D 41 2C 31 29 3D 30 41 |0..IFDG(MA,1)=0A| 00001DC0: 4E 44 44 47 28 4D 41 2C 32 29 3D 30 41 4E 44 44 |NDDG(MA,2)=0ANDD| 00001DD0: 47 28 4D 41 2C 33 29 3D 30 41 4E 44 44 47 28 4D |G(MA,3)=0ANDDG(M| 00001DE0: 41 2C 34 29 3D 30 41 4E 44 44 47 28 4D 41 2C 35 |A,4)=0ANDDG(MA,5| 00001DF0: 29 3D 30 54 48 45 4E 47 4F 53 55 42 31 35 39 30 |)=0THENGOSUB1590| 00001E00: 0D 31 35 38 30 80 A3 47 4F 54 4F 31 36 30 30 0D |.1580..GOTO1600.| 00001E10: 31 35 39 30 80 A3 52 45 24 3D 22 4D 4F 4D 45 4E |1590..RE$="MOMEN| 00001E20: 54 41 4E 80 A3 4B 45 49 4E 45 2E 2E 2E 22 3A 52 |TAN..KEINE...":R| 00001E30: 45 54 55 52 4E 0D 31 36 30 30 80 A3 46 4F 52 49 |ETURN.1600..FORI| 00001E40: 3D 31 54 4F 36 0D 31 36 31 30 80 A3 49 46 44 47 |=1TO6.1610..IFDG| 00001E50: 28 4D 41 2C 49 29 3D 30 54 48 45 4E 31 36 36 30 |(MA,I)=0THEN1660| 00001E60: 0D 31 36 32 30 80 A3 49 46 50 4F 53 28 30 29 3D |.1620..IFPOS(0)=| 00001E70: 31 34 54 48 45 4E 50 52 49 4E 54 52 43 24 28 49 |14THENPRINTRC$(I| 00001E80: 29 3B 3A 47 4F 54 4F 31 36 36 30 0D 31 36 33 30 |);:GOTO1660.1630| 00001E90: 80 A3 49 46 50 4F 53 28 30 29 2B 4C 45 4E 28 52 |..IFPOS(0)+LEN(R| 00001EA0: 43 24 28 49 29 29 3C 33 37 54 48 45 4E 50 52 49 |C$(I))<37THENPRI| 00001EB0: 4E 54 22 80 A3 22 3B 52 43 24 28 49 29 3B 3A 47 |NT"..";RC$(I);:G| 00001EC0: 4F 54 4F 31 36 36 30 0D 31 36 34 30 80 A3 49 46 |OTO1660.1640..IF| 00001ED0: 50 4F 53 28 30 29 2B 4C 45 4E 28 52 43 24 28 49 |POS(0)+LEN(RC$(I| 00001EE0: 29 29 3E 3D 33 37 54 48 45 4E 50 52 49 4E 54 22 |))>=37THENPRINT"| 00001EF0: 2C 22 3B 52 43 24 28 49 29 3B 3A 47 4F 54 4F 31 |,";RC$(I);:GOTO1| 00001F00: 36 36 30 0D 31 36 35 30 80 A3 49 46 50 4F 53 28 |660.1650..IFPOS(| 00001F10: 30 29 3C 31 36 41 4E 44 50 4F 53 28 30 29 3E 32 |0)<16ANDPOS(0)>2| 00001F20: 54 48 45 4E 50 52 49 4E 54 22 2C 22 3B 52 43 24 |THENPRINT",";RC$| 00001F30: 28 49 29 3B 3A 47 4F 54 4F 31 36 36 30 0D 31 36 |(I);:GOTO1660.16| 00001F40: 36 30 80 A3 4E 45 58 54 0D 31 36 37 30 80 A3 50 |60..NEXT.1670..P| 00001F50: 52 49 4E 54 52 45 24 3B 22 2E 80 A3 22 0D 31 36 |RINTRE$;"...".16| 00001F60: 38 30 20 52 45 4D 20 2A 2A 20 4E 45 47 41 54 49 |80 REM ** NEGATI| 00001F70: 56 45 20 4D 49 54 54 45 49 4C 55 4E 47 45 4E 20 |VE MITTEILUNGEN | 00001F80: 2A 0D 31 36 39 30 80 A3 58 31 24 3D 22 C5 52 80 |*.1690..X1$=".R.| 00001F90: A3 49 53 54 80 A3 49 4E 80 A3 44 45 52 80 A3 D7 |.IST..IN..DER...| 00001FA0: 55 45 53 54 45 80 A3 56 45 52 44 55 52 53 54 45 |UESTE..VERDURSTE| 00001FB0: 54 2E 22 0D 31 37 30 30 80 A3 58 32 24 3D 22 C4 |T.".1700..X2$=".| 00001FC0: 49 45 80 A3 C7 49 46 54 53 50 49 4E 4E 45 80 A3 |IE...IFTSPINNE..| 00001FD0: 48 41 54 80 A3 49 48 4E 80 A3 47 45 42 49 53 53 |HAT..IHN..GEBISS| 00001FE0: 45 4E 2E 22 0D 31 37 31 30 80 A3 58 33 24 3D 22 |EN.".1710..X3$="| 00001FF0: C4 49 45 80 A3 D7 49 4C 44 45 4E 80 A3 48 41 42 |.IE...ILDEN..HAB| 00002000: 45 4E 80 A3 49 48 4E 80 A3 47 45 54 4F 45 54 45 |EN..IHN..GETOETE| 00002010: 54 2E 22 0D 31 37 32 30 80 A3 58 34 24 3D 22 C4 |T.".1720..X4$=".| 00002020: 45 52 80 A3 D4 49 47 45 52 80 A3 48 41 54 80 A3 |ER...IGER..HAT..| 00002030: 49 48 4E 80 A3 5A 45 52 46 4C 45 49 53 43 48 54 |IHN..ZERFLEISCHT| 00002040: 2E 22 0D 31 37 33 30 80 A3 58 35 24 3D 22 C4 45 |.".1730..X5$=".E| 00002050: 52 80 A3 D3 41 55 52 49 45 52 80 A3 48 41 54 80 |R...AURIER..HAT.| 00002060: A3 49 48 4E 80 A3 5A 45 52 54 52 41 4D 50 45 4C |.IHN..ZERTRAMPEL| 00002070: 54 2E 22 0D 31 37 34 30 80 A3 58 36 24 3D 22 C4 |T.".1740..X6$=".| 00002080: 49 45 80 A3 D2 49 45 53 45 4E 53 50 49 4E 4E 45 |IE...IESENSPINNE| 00002090: 80 A3 48 41 54 80 A3 49 48 4E 80 A3 47 45 46 52 |..HAT..IHN..GEFR| 000020A0: 45 53 53 45 4E 2E 22 0D 31 37 35 30 80 A3 49 46 |ESSEN.".1750..IF| 000020B0: 4D 41 3D 32 54 48 45 4E 4E 47 24 3D 22 C5 52 80 |MA=2THENNG$=".R.| 000020C0: A3 49 53 54 80 A3 49 4E 80 A3 44 45 52 80 A3 D7 |.IST..IN..DER...| 000020D0: 55 45 53 54 45 80 A3 56 45 52 44 55 52 53 54 45 |UESTE..VERDURSTE| 000020E0: 54 2E 2E 2E 22 3A 47 4F 54 4F 33 31 39 30 0D 31 |T...":GOTO3190.1| 000020F0: 37 36 30 80 A3 49 46 4D 41 3D 33 34 41 4E 44 47 |760..IFMA=34ANDG| 00002100: 47 28 31 36 29 3C 3E 2D 31 54 48 45 4E 4E 47 24 |G(16)<>-1THENNG$| 00002110: 3D 58 32 24 0D 31 37 37 30 80 A3 49 46 4D 41 3D |=X2$.1770..IFMA=| 00002120: 33 34 41 4E 44 47 47 28 32 39 29 3C 3E 2D 31 54 |34ANDGG(29)<>-1T| 00002130: 48 45 4E 4E 47 24 3D 58 32 24 0D 31 37 38 30 80 |HENNG$=X2$.1780.| 00002140: A3 49 46 4D 41 3D 33 34 41 4E 44 47 47 28 33 30 |.IFMA=34ANDGG(30| 00002150: 29 3C 3E 2D 31 54 48 45 4E 4E 47 24 3D 58 32 24 |)<>-1THENNG$=X2$| 00002160: 0D 31 37 39 30 80 A3 49 46 4D 41 3D 35 34 41 4E |.1790..IFMA=54AN| 00002170: 44 47 47 28 31 36 29 3C 3E 2D 31 54 48 45 4E 4E |DGG(16)<>-1THENN| 00002180: 47 24 3D 58 33 24 0D 31 38 30 30 80 A3 49 46 4D |G$=X3$.1800..IFM| 00002190: 41 3D 35 34 41 4E 44 47 47 28 32 39 29 3C 3E 2D |A=54ANDGG(29)<>-| 000021A0: 31 54 48 45 4E 4E 47 24 3D 58 33 24 0D 31 38 31 |1THENNG$=X3$.181| 000021B0: 30 80 A3 49 46 4D 41 3D 35 34 41 4E 44 47 47 28 |0..IFMA=54ANDGG(| 000021C0: 33 30 29 3C 3E 2D 31 54 48 45 4E 4E 47 24 3D 58 |30)<>-1THENNG$=X| 000021D0: 33 24 0D 31 38 32 30 80 A3 49 46 4D 41 3D 35 38 |3$.1820..IFMA=58| 000021E0: 41 4E 44 47 47 28 31 36 29 3C 3E 2D 31 54 48 45 |ANDGG(16)<>-1THE| 000021F0: 4E 4E 47 24 3D 58 33 24 0D 31 38 33 30 80 A3 49 |NNG$=X3$.1830..I| 00002200: 46 4D 41 3D 35 38 41 4E 44 47 47 28 32 39 29 3C |FMA=58ANDGG(29)<| 00002210: 3E 2D 31 54 48 45 4E 4E 47 24 3D 58 33 24 0D 31 |>-1THENNG$=X3$.1| 00002220: 38 34 30 80 A3 49 46 4D 41 3D 35 38 41 4E 44 47 |840..IFMA=58ANDG| 00002230: 47 28 33 30 29 3C 3E 2D 31 54 48 45 4E 4E 47 24 |G(30)<>-1THENNG$| 00002240: 3D 58 33 24 0D 31 38 35 30 80 A3 49 46 4D 41 3D |=X3$.1850..IFMA=| 00002250: 36 33 41 4E 44 47 47 28 31 36 29 3C 3E 2D 31 54 |63ANDGG(16)<>-1T| 00002260: 48 45 4E 4E 47 24 3D 58 34 24 0D 31 38 36 30 80 |HENNG$=X4$.1860.| 00002270: A3 49 46 4D 41 3D 36 33 41 4E 44 47 47 28 32 39 |.IFMA=63ANDGG(29| 00002280: 29 3C 3E 2D 31 54 48 45 4E 4E 47 24 3D 58 34 24 |)<>-1THENNG$=X4$| 00002290: 0D 31 38 37 30 80 A3 49 46 4D 41 3D 36 33 41 4E |.1870..IFMA=63AN| 000022A0: 44 47 47 28 33 30 29 3C 3E 2D 31 54 48 45 4E 4E |DGG(30)<>-1THENN| 000022B0: 47 24 3D 58 34 24 0D 31 38 38 30 80 A3 49 46 4D |G$=X4$.1880..IFM| 000022C0: 41 3D 36 35 41 4E 44 47 47 28 31 36 29 3C 3E 2D |A=65ANDGG(16)<>-| 000022D0: 31 54 48 45 4E 4E 47 24 3D 58 35 24 0D 31 38 39 |1THENNG$=X5$.189| 000022E0: 30 80 A3 49 46 4D 41 3D 36 35 41 4E 44 47 47 28 |0..IFMA=65ANDGG(| 000022F0: 32 39 29 3C 3E 2D 31 54 48 45 4E 4E 47 24 3D 58 |29)<>-1THENNG$=X| 00002300: 35 24 0D 31 39 30 30 80 A3 49 46 4D 41 3D 36 35 |5$.1900..IFMA=65| 00002310: 41 4E 44 47 47 28 33 30 29 3C 3E 2D 31 54 48 45 |ANDGG(30)<>-1THE| 00002320: 4E 4E 47 24 3D 58 35 24 0D 31 39 31 30 80 A3 49 |NNG$=X5$.1910..I| 00002330: 46 4D 41 3D 36 38 41 4E 44 47 47 28 31 36 29 3C |FMA=68ANDGG(16)<| 00002340: 3E 2D 31 54 48 45 4E 4E 47 24 3D 58 36 24 0D 31 |>-1THENNG$=X6$.1| 00002350: 39 32 30 80 A3 49 46 4D 41 3D 36 38 41 4E 44 47 |920..IFMA=68ANDG| 00002360: 47 28 32 39 29 3C 3E 2D 31 54 48 45 4E 4E 47 24 |G(29)<>-1THENNG$| 00002370: 3D 58 36 24 0D 31 39 33 30 80 A3 49 46 4D 41 3D |=X6$.1930..IFMA=| 00002380: 36 38 41 4E 44 47 47 28 33 30 29 3C 3E 2D 31 54 |68ANDGG(30)<>-1T| 00002390: 48 45 4E 4E 47 24 3D 58 36 24 0D 31 39 34 30 80 |HENNG$=X6$.1940.| 000023A0: A3 49 46 4D 41 3D 33 39 54 48 45 4E 4E 47 24 3D |.IFMA=39THENNG$=| 000023B0: 22 C5 52 80 A3 49 53 54 80 A3 49 4E 80 A3 44 49 |".R..IST..IN..DI| 000023C0: 45 80 A3 D3 43 48 4C 55 43 48 54 80 A3 47 45 53 |E...CHLUCHT..GES| 000023D0: 54 55 45 52 5A 54 2E 2E 2E 22 3A 47 4F 54 4F 33 |TUERZT...":GOTO3| 000023E0: 31 39 30 0D 31 39 35 30 80 A3 50 4F 4B 45 43 5A |190.1950..POKECZ| 000023F0: 2C 32 31 3A 53 59 53 58 3A 50 4F 4B 45 31 39 38 |,21:SYSX:POKE198| 00002400: 2C 30 3A 50 4F 4B 45 31 39 2C 36 34 3A 50 52 49 |,0:POKE19,64:PRI| 00002410: 4E 54 22 3E 22 43 31 24 3B 3A 49 4E 50 55 54 41 |NT">"C1$;:INPUTA| 00002420: 4E 24 3A 50 4F 4B 45 31 39 2C 30 3A 50 52 49 4E |N$:POKE19,0:PRIN| 00002430: 54 0D 31 39 36 30 80 A3 49 46 4C 45 4E 28 41 4E |T.1960..IFLEN(AN| 00002440: 24 29 3E 32 54 48 45 4E 32 30 36 30 0D 31 39 37 |$)>2THEN2060.197| 00002450: 30 80 A3 49 46 41 4E 24 3D 22 4E 22 41 4E 44 44 |0..IFAN$="N"ANDD| 00002460: 47 28 4D 41 2C 31 29 3C 3E 30 54 48 45 4E 4D 41 |G(MA,1)<>0THENMA| 00002470: 3D 44 47 28 4D 41 2C 31 29 3A 50 52 49 4E 54 41 |=DG(MA,1):PRINTA| 00002480: 53 24 28 31 29 3A 47 4F 54 4F 31 34 34 30 0D 31 |S$(1):GOTO1440.1| 00002490: 39 38 30 80 A3 49 46 41 4E 24 3D 22 53 22 41 4E |980..IFAN$="S"AN| 000024A0: 44 44 47 28 4D 41 2C 32 29 3C 3E 30 54 48 45 4E |DDG(MA,2)<>0THEN| 000024B0: 4D 41 3D 44 47 28 4D 41 2C 32 29 3A 50 52 49 4E |MA=DG(MA,2):PRIN| 000024C0: 54 41 53 24 28 31 29 3A 47 4F 54 4F 31 34 34 30 |TAS$(1):GOTO1440| 000024D0: 0D 31 39 39 30 80 A3 49 46 41 4E 24 3D 22 57 22 |.1990..IFAN$="W"| 000024E0: 41 4E 44 44 47 28 4D 41 2C 33 29 3C 3E 30 54 48 |ANDDG(MA,3)<>0TH| 000024F0: 45 4E 4D 41 3D 44 47 28 4D 41 2C 33 29 3A 50 52 |ENMA=DG(MA,3):PR| 00002500: 49 4E 54 41 53 24 28 31 29 3A 47 4F 54 4F 31 34 |INTAS$(1):GOTO14| 00002510: 34 30 0D 32 30 30 30 80 A3 49 46 41 4E 24 3D 22 |40.2000..IFAN$="| 00002520: 4F 22 41 4E 44 44 47 28 4D 41 2C 34 29 3C 3E 30 |O"ANDDG(MA,4)<>0| 00002530: 54 48 45 4E 4D 41 3D 44 47 28 4D 41 2C 34 29 3A |THENMA=DG(MA,4):| 00002540: 50 52 49 4E 54 41 53 24 28 31 29 3A 47 4F 54 4F |PRINTAS$(1):GOTO| 00002550: 31 34 34 30 0D 32 30 31 30 80 A3 49 46 41 4E 24 |1440.2010..IFAN$| 00002560: 3D 22 4F 42 22 41 4E 44 44 47 28 4D 41 2C 35 29 |="OB"ANDDG(MA,5)| 00002570: 3C 3E 30 54 48 45 4E 4D 41 3D 44 47 28 4D 41 2C |<>0THENMA=DG(MA,| 00002580: 35 29 3A 50 52 49 4E 54 41 53 24 28 31 29 3A 47 |5):PRINTAS$(1):G| 00002590: 4F 54 4F 31 34 34 30 0D 32 30 32 30 80 A3 49 46 |OTO1440.2020..IF| 000025A0: 41 4E 24 3D 22 55 22 41 4E 44 44 47 28 4D 41 2C |AN$="U"ANDDG(MA,| 000025B0: 36 29 3C 3E 30 54 48 45 4E 4D 41 3D 44 47 28 4D |6)<>0THENMA=DG(M| 000025C0: 41 2C 36 29 3A 50 52 49 4E 54 41 53 24 28 31 29 |A,6):PRINTAS$(1)| 000025D0: 3A 47 4F 54 4F 31 34 34 30 0D 32 30 33 30 80 A3 |:GOTO1440.2030..| 000025E0: 49 46 4C 45 4E 28 41 4E 24 29 3C 33 54 48 45 4E |IFLEN(AN$)<3THEN| 000025F0: 50 52 49 4E 54 41 53 24 28 38 29 3A 47 4F 54 4F |PRINTAS$(8):GOTO| 00002600: 31 34 34 30 0D 32 30 34 30 80 A3 49 46 4C 45 4E |1440.2040..IFLEN| 00002610: 28 41 4E 24 29 3E 36 54 48 45 4E 32 39 37 30 0D |(AN$)>6THEN2970.| 00002620: 32 30 35 30 20 52 45 4D 20 2A 2A 2A 2A 2A 2A 2A |2050 REM *******| 00002630: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 20 4C 49 53 54 |*********** LIST| 00002640: 45 20 2A 0D 32 30 36 30 80 A3 49 46 4C 45 46 54 |E *.2060..IFLEFT| 00002650: 24 28 41 4E 24 2C 34 29 3C 3E 22 4C 49 53 54 22 |$(AN$,4)<>"LIST"| 00002660: 54 48 45 4E 32 31 33 30 0D 32 30 37 30 80 A3 47 |THEN2130.2070..G| 00002670: 4F 53 55 42 33 31 30 3A 50 4F 4B 45 43 53 2C 30 |OSUB310:POKECS,0| 00002680: 3A 50 4F 4B 45 43 5A 2C 31 35 3A 53 59 53 58 0D |:POKECZ,15:SYSX.| 00002690: 32 30 38 30 80 A3 50 52 49 4E 54 22 45 52 80 A3 |2080..PRINT"ER..| 000026A0: 48 41 54 80 A3 46 4F 4C 47 45 4E 44 45 53 80 A3 |HAT..FOLGENDES..| 000026B0: 42 45 49 80 A3 53 49 43 48 3A 22 0D 32 30 39 30 |BEI..SICH:".2090| 000026C0: 80 A3 46 4F 52 49 3D 31 54 4F 47 41 0D 32 31 30 |..FORI=1TOGA.210| 000026D0: 30 80 A3 49 46 47 47 28 49 29 3D 2D 31 54 48 45 |0..IFGG(I)=-1THE| 000026E0: 4E 50 52 49 4E 54 47 47 24 28 49 29 3B 22 80 A3 |NPRINTGG$(I);"..| 000026F0: 22 0D 32 31 31 30 80 A3 4E 45 58 54 3A 47 4F 54 |".2110..NEXT:GOT| 00002700: 4F 31 34 34 30 0D 32 31 32 30 20 52 45 4D 20 2A |O1440.2120 REM *| 00002710: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00002720: 2A 2A 20 53 41 56 45 20 2A 0D 32 31 33 30 80 A3 |** SAVE *.2130..| 00002730: 49 46 4C 45 46 54 24 28 41 4E 24 2C 34 29 3C 3E |IFLEFT$(AN$,4)<>| 00002740: 22 53 41 56 45 22 54 48 45 4E 32 33 30 30 0D 32 |"SAVE"THEN2300.2| 00002750: 31 34 30 80 A3 47 4F 53 55 42 33 31 30 0D 32 31 |140..GOSUB310.21| 00002760: 35 30 80 A3 50 4F 4B 45 43 53 2C 30 3A 50 4F 4B |50..POKECS,0:POK| 00002770: 45 43 5A 2C 31 35 3A 53 59 53 58 3A 50 52 49 4E |ECZ,15:SYSX:PRIN| 00002780: 54 22 53 50 49 45 4C 53 54 41 4E 44 80 A3 53 50 |T"SPIELSTAND..SP| 00002790: 45 49 43 48 45 52 4E 22 3A 50 52 49 4E 54 43 34 |EICHERN":PRINTC4| 000027A0: 24 3B 3A 49 4E 50 55 54 22 46 49 4C 45 2D 4E 41 |$;:INPUT"FILE-NA| 000027B0: 4D 45 22 3B 41 4E 24 0D 32 31 36 30 80 A3 49 46 |ME";AN$.2160..IF| 000027C0: 4C 45 4E 28 41 4E 24 29 3E 31 36 54 48 45 4E 32 |LEN(AN$)>16THEN2| 000027D0: 31 34 30 0D 32 31 37 30 80 A3 50 52 49 4E 54 43 |140.2170..PRINTC| 000027E0: 34 24 41 4E 24 22 80 A3 57 49 52 44 80 A3 41 42 |4$AN$"..WIRD..AB| 000027F0: 47 45 53 50 45 49 43 48 45 52 54 2E 22 3B 0D 32 |GESPEICHERT.";.2| 00002800: 31 38 30 80 A3 4F 50 45 4E 32 2C 38 2C 32 2C 22 |180..OPEN2,8,2,"| 00002810: 40 30 3A 22 2B 41 4E 24 2B 22 2C 53 2C 57 22 0D |@0:"+AN$+",S,W".| 00002820: 32 31 39 30 80 A3 50 52 49 4E 54 23 32 2C 4D 41 |2190..PRINT#2,MA| 00002830: 0D 32 32 30 30 80 A3 46 4F 52 49 3D 31 54 4F 47 |.2200..FORI=1TOG| 00002840: 41 3A 50 52 49 4E 54 23 32 2C 47 47 28 49 29 3A |A:PRINT#2,GG(I):| 00002850: 4E 45 58 54 3A 50 52 49 4E 54 22 2E 22 3B 0D 32 |NEXT:PRINT".";.2| 00002860: 32 31 30 80 A3 46 4F 52 49 3D 31 54 4F 52 41 3A |210..FORI=1TORA:| 00002870: 46 4F 52 4A 3D 31 54 4F 36 3A 50 52 49 4E 54 23 |FORJ=1TO6:PRINT#| 00002880: 32 2C 44 47 28 49 2C 4A 29 3A 4E 45 58 54 3A 4E |2,DG(I,J):NEXT:N| 00002890: 45 58 54 3A 50 52 49 4E 54 22 2E 22 3B 0D 32 32 |EXT:PRINT".";.22| 000028A0: 32 30 80 A3 46 4F 52 49 3D 31 54 4F 41 46 3A 50 |20..FORI=1TOAF:P| 000028B0: 52 49 4E 54 23 32 2C 46 4C 28 49 29 3A 4E 45 58 |RINT#2,FL(I):NEX| 000028C0: 54 3A 50 52 49 4E 54 22 2E 22 3B 3A 43 4C 4F 53 |T:PRINT".";:CLOS| 000028D0: 45 32 0D 32 32 33 30 80 A3 47 4F 53 55 42 32 32 |E2.2230..GOSUB22| 000028E0: 35 30 3A 47 4F 54 4F 31 34 34 30 0D 32 32 34 30 |50:GOTO1440.2240| 000028F0: 20 52 45 4D 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A | REM ***********| 00002900: 2A 20 44 49 53 4B 2D 46 45 48 4C 45 52 20 2A 0D |* DISK-FEHLER *.| 00002910: 32 32 35 30 80 A3 4F 50 45 4E 31 2C 38 2C 31 35 |2250..OPEN1,8,15| 00002920: 3A 49 4E 50 55 54 23 31 2C 41 2C 42 24 2C 43 2C |:INPUT#1,A,B$,C,| 00002930: 44 0D 32 32 36 30 80 A3 49 46 41 3C 3E 30 54 48 |D.2260..IFA<>0TH| 00002940: 45 4E 50 52 49 4E 54 52 4E 24 22 44 49 53 4B 2D |ENPRINTRN$"DISK-| 00002950: 45 52 52 4F 52 3A 22 52 46 24 42 24 3A 46 4F 52 |ERROR:"RF$B$:FOR| 00002960: 54 3D 31 54 4F 33 30 30 30 3A 4E 45 58 54 3A 43 |T=1TO3000:NEXT:C| 00002970: 4C 4F 53 45 32 3A 43 4C 4F 53 45 31 3A 47 4F 54 |LOSE2:CLOSE1:GOT| 00002980: 4F 31 34 34 30 0D 32 32 37 30 80 A3 43 4C 4F 53 |O1440.2270..CLOS| 00002990: 45 31 0D 32 32 38 30 80 A3 52 45 54 55 52 4E 0D |E1.2280..RETURN.| 000029A0: 32 32 39 30 20 52 45 4D 20 2A 2A 2A 2A 2A 2A 2A |2290 REM *******| 000029B0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 20 4C 4F 41 |************ LOA| 000029C0: 44 20 2A 0D 32 33 30 30 80 A3 49 46 4C 45 46 54 |D *.2300..IFLEFT| 000029D0: 24 28 41 4E 24 2C 34 29 3C 3E 22 4C 4F 41 44 22 |$(AN$,4)<>"LOAD"| 000029E0: 54 48 45 4E 32 34 31 30 0D 32 33 31 30 80 A3 47 |THEN2410.2310..G| 000029F0: 4F 53 55 42 33 31 30 0D 32 33 32 30 80 A3 50 4F |OSUB310.2320..PO| 00002A00: 4B 45 43 53 2C 30 3A 50 4F 4B 45 43 5A 2C 31 35 |KECS,0:POKECZ,15| 00002A10: 3A 53 59 53 58 3A 50 52 49 4E 54 22 41 4C 54 45 |:SYSX:PRINT"ALTE| 00002A20: 53 80 A3 53 50 49 45 4C 80 A3 4C 41 44 45 4E 2E |S..SPIEL..LADEN.| 00002A30: 22 3A 50 52 49 4E 54 43 34 24 3B 3A 49 4E 50 55 |":PRINTC4$;:INPU| 00002A40: 54 22 46 49 4C 45 2D 4E 41 4D 45 22 3B 4D 46 24 |T"FILE-NAME";MF$| 00002A50: 0D 32 33 33 30 80 A3 49 46 4C 45 4E 28 4D 46 24 |.2330..IFLEN(MF$| 00002A60: 29 3E 31 36 54 48 45 4E 32 33 31 30 0D 32 33 34 |)>16THEN2310.234| 00002A70: 30 80 A3 50 52 49 4E 54 4D 46 24 22 20 57 49 52 |0..PRINTMF$" WIR| 00002A80: 44 20 47 45 4C 41 44 45 4E 2E 22 3B 0D 32 33 35 |D GELADEN.";.235| 00002A90: 30 80 A3 4F 50 45 4E 32 2C 38 2C 32 2C 4D 46 24 |0..OPEN2,8,2,MF$| 00002AA0: 2B 22 2C 53 2C 52 22 3A 49 4E 50 55 54 23 32 2C |+",S,R":INPUT#2,| 00002AB0: 4D 41 3A 50 52 49 4E 54 22 2E 22 3B 0D 32 33 36 |MA:PRINT".";.236| 00002AC0: 30 80 A3 46 4F 52 49 3D 31 54 4F 47 41 3A 49 4E |0..FORI=1TOGA:IN| 00002AD0: 50 55 54 23 32 2C 47 47 28 49 29 3A 4E 45 58 54 |PUT#2,GG(I):NEXT| 00002AE0: 3A 50 52 49 4E 54 22 2E 22 3B 0D 32 33 37 30 80 |:PRINT".";.2370.| 00002AF0: A3 46 4F 52 49 3D 31 54 4F 52 41 3A 46 4F 52 4A |.FORI=1TORA:FORJ| 00002B00: 3D 31 54 4F 36 3A 49 4E 50 55 54 23 32 2C 44 47 |=1TO6:INPUT#2,DG| 00002B10: 28 49 2C 4A 29 3A 4E 45 58 54 3A 4E 45 58 54 3A |(I,J):NEXT:NEXT:| 00002B20: 50 52 49 4E 54 22 2E 22 3B 0D 32 33 38 30 80 A3 |PRINT".";.2380..| 00002B30: 46 4F 52 49 3D 31 54 4F 41 46 3A 49 4E 50 55 54 |FORI=1TOAF:INPUT| 00002B40: 23 32 2C 46 4C 28 49 29 3A 4E 45 58 54 3A 50 52 |#2,FL(I):NEXT:PR| 00002B50: 49 4E 54 22 2E 22 3B 3A 43 4C 4F 53 45 32 0D 32 |INT".";:CLOSE2.2| 00002B60: 33 39 30 80 A3 47 4F 53 55 42 32 32 35 30 0D 32 |390..GOSUB2250.2| 00002B70: 34 30 30 80 A3 49 46 41 4E 24 3D 42 41 24 28 31 |400..IFAN$=BA$(1| 00002B80: 38 29 54 48 45 4E 31 34 31 30 0D 32 34 31 30 80 |8)THEN1410.2410.| 00002B90: A3 49 46 4C 45 46 54 24 28 41 4E 24 2C 34 29 3C |.IFLEFT$(AN$,4)<| 00002BA0: 3E 22 48 45 4C 50 22 54 48 45 4E 32 37 34 30 0D |>"HELP"THEN2740.| 00002BB0: 32 34 32 30 80 A3 49 46 4D 41 3D 31 54 48 45 4E |2420..IFMA=1THEN| 00002BC0: 50 52 49 4E 54 41 53 24 28 32 30 29 3A 47 4F 54 |PRINTAS$(20):GOT| 00002BD0: 4F 31 34 34 30 0D 32 34 33 30 80 A3 49 46 4D 41 |O1440.2430..IFMA| 00002BE0: 3D 33 4F 52 4D 41 3D 34 54 48 45 4E 50 52 49 4E |=3ORMA=4THENPRIN| 00002BF0: 54 41 53 24 28 32 31 29 3A 47 4F 54 4F 31 34 34 |TAS$(21):GOTO144| 00002C00: 30 0D 32 34 34 30 80 A3 49 46 4D 41 3D 35 54 48 |0.2440..IFMA=5TH| 00002C10: 45 4E 50 52 49 4E 54 22 48 4F 43 48 80 A3 48 49 |ENPRINT"HOCH..HI| 00002C20: 4E 41 55 53 80 A3 49 53 54 80 A3 4E 49 43 48 54 |NAUS..IST..NICHT| 00002C30: 80 A3 49 4D 4D 45 52 80 A3 47 55 54 2E 2E 22 3A |..IMMER..GUT..":| 00002C40: 47 4F 54 4F 31 34 34 30 0D 32 34 35 30 80 A3 49 |GOTO1440.2450..I| 00002C50: 46 4D 41 3D 36 4F 52 4D 41 3D 39 4F 52 4D 41 3D |FMA=6ORMA=9ORMA=| 00002C60: 31 33 54 48 45 4E 50 52 49 4E 54 41 53 24 28 32 |13THENPRINTAS$(2| 00002C70: 32 29 3A 47 4F 54 4F 31 34 34 30 0D 32 34 36 30 |2):GOTO1440.2460| 00002C80: 80 A3 49 46 4D 41 3D 37 54 48 45 4E 50 52 49 4E |..IFMA=7THENPRIN| 00002C90: 54 41 53 24 28 32 33 29 3A 47 4F 54 4F 31 34 34 |TAS$(23):GOTO144| 00002CA0: 30 0D 32 34 37 30 80 A3 49 46 4D 41 3D 38 4F 52 |0.2470..IFMA=8OR| 00002CB0: 4D 41 3D 34 35 4F 52 4D 41 3D 35 31 54 48 45 4E |MA=45ORMA=51THEN| 00002CC0: 50 52 49 4E 54 41 53 24 28 32 34 29 3A 47 4F 54 |PRINTAS$(24):GOT| 00002CD0: 4F 31 34 34 30 0D 32 34 38 30 80 A3 49 46 4D 41 |O1440.2480..IFMA| 00002CE0: 3D 31 30 54 48 45 4E 50 52 49 4E 54 41 53 24 28 |=10THENPRINTAS$(| 00002CF0: 32 35 29 3A 47 4F 54 4F 31 34 34 30 0D 32 34 39 |25):GOTO1440.249| 00002D00: 30 80 A3 49 46 4D 41 3D 31 31 4F 52 4D 41 3D 32 |0..IFMA=11ORMA=2| 00002D10: 30 4F 52 4D 41 3D 33 38 4F 52 4D 41 3D 35 36 4F |0ORMA=38ORMA=56O| 00002D20: 52 4D 41 3D 35 37 4F 52 4D 41 3D 36 31 54 48 45 |RMA=57ORMA=61THE| 00002D30: 4E 50 52 49 4E 54 41 53 24 28 32 36 29 3A 47 4F |NPRINTAS$(26):GO| 00002D40: 54 4F 31 34 34 30 0D 32 35 30 30 80 A3 49 46 4D |TO1440.2500..IFM| 00002D50: 41 3D 31 32 4F 52 4D 41 3D 32 32 4F 52 4D 41 3D |A=12ORMA=22ORMA=| 00002D60: 32 33 4F 52 4D 41 3D 32 38 4F 52 4D 41 3D 32 39 |23ORMA=28ORMA=29| 00002D70: 54 48 45 4E 50 52 49 4E 54 41 53 24 28 32 37 29 |THENPRINTAS$(27)| 00002D80: 3A 47 4F 54 4F 31 34 34 30 0D 80 2A 4C 4B 3A 32 |:GOTO1440..*LK:2| 00002D90: 35 31 30 2D 35 30 30 30 20 53 45 51 0D |510-5000 SEQ. |
.*NB"0000-2500 SEQ"..*0=27:1=14:2=91:3=9
2:4=93..*5=82:6=0:7=2:8=126:9=15..*LF1:P
L72:TL60:RM35..*HD1:.1PLANET X 64,,-.#-.
10 REM PLANET X ADVENTURE =======64.20 R
EM (P) 86 COMMODORE WELT =.30 REM =
===========================.40..REM (C)
86 BY HARALD BEILER =.50 REM
=.60 REM
=.70 REM VERSION 2.0 40Z
/ASCII =.80 REM C-64 + 1541/1570/157
1 =.90 REM ========================
====.100..C4$=CHR$(017):RN$=CHR$(018).11
0..D2$=C4$+C4$:D3$=C4$+D2$:D4$=C4$+D3$.1
20..HE$=CHR$(019):C3$=CHR$(029).130..OE$
=CHR$(129):.140..RF$=CHR$(146):CL$=CHR$(
147).150..C1$=CHR$(157):YE$=CHR$(158).16
0..RA=68:GA=43:BA=23:WO=4:MA=1:MG=4:AF=2
:G=16.170..DIMRM$(RA),DG(RA,6),GG$(GA),N
M$(GA),GG(GA),BA$(BA),AS$(48),G$(G),FL$(
RA).180..CS=211:CZ=214:X=58640:SC=53265.
190..POKE646,15:POKE53280,0:POKE53281,0:
PRINTCHR$(147)CHR$(14).200..POKECS,5:POK
ECZ,5:SYS58640.210..PRINT"VERSCHOLLEN..A
UF..PLANET..X".220..PRINTD3$D4$;TAB(5)"A
DVENTURE....VON....H.BEILER":GOSUB330.23
0..GOTO410.240..FORI=1TO38:PRINTCHR$(150
)CHR$(45)CHR$(154);:FORT=1TO50:NEXT:NEXT
:PRINT:RETURN.250..GG(41)=0:GG(40)=MA:RE
TURN.260..GG(30)=MA:DG(34,4)=26:GG$(23)=
"TOTE RIESENSPINNE.":RETURN.270..GG(30)=
MA:DG(65,2)=49:DG(65,1)=64:GG$(37)="TOTE
R..SAURIER.":RETURN.280..GG(30)=MA:DG(68
,2)=59:GG$(39)="TOTE..URWALDSPINNE.":RET
URN.290..GG(30)=MA:DG(63,2)=58:DG(63,3)=
57:GG$(35)="TOTER..TIGER.":RETURN.300..D
G(64,1)=0:DG(64,2)=60:DG(64,3)=58:DG(64,
4)=59:DG(64,5)=0:DG(64,6)=0:RETURN.310..
POKECS,0:POKECZ,15:SYSX.320..FORI=1TO9:P
RINTLE$:NEXT:RETURN.330..FORT=1TO3000:NE
XT:RETURN.340..PRINTHE$:PRINTTAB(1)CHR$(
117);:FORI=1TO36:PRINTCHR$(96);:NEXT:PRI
NTCHR$(105).350..FORI=1TO12:PRINTTAB(1)C
HR$(125)TAB(38)CHR$(125):NEXT.360..PRINT
TAB(1)CHR$(106);:FORI=1TO36:PRINTCHR$(96
);:NEXT:PRINTCHR$(107):RETURN.370..FL(1)
=-1:DG(16,1)=19:DG(16,2)=15:RETURN.380..
FL(2)=-1:DG(25,1)=31:DG(25,2)=22:GOTO144
0.390..DG(64,3)=58:DG(64,4)=59:GG(36)=0:
RETURN.400..GG(42)=MA:DG(25,1)=31:RETURN
.410..REM *************** ANTWORTEN *.42
0..AS$(1)="OKAY.".430..AS$(2)="HIER..IST
..NICHTS..BESONDERES.".440..AS$(3)="GEHT
..NICHT,..VIEL..ZU..SCHWER.".450..AS$(4)
="DAS..IST..VOELLIG..UNMOEGLICH!".460..A
S$(5)="UND..WIE..SOLL..MAN..DAS..ANSTELL
EN..?".470..AS$(6)="DAS..WAR..PECH!!!".4
80..AS$(7)="AUF..DIESE..WEISE..GEHT..DAS
..NICHT!".490..AS$(8)="KEIN..WEG..IN..DI
ESE..RICHTUNG.".500..AS$(9)="DAS..IST..T
OTALER..UNSINN!".510..AS$(10)="HIER..IST
..NIEMAND...".520..AS$(11)="DAS..FUNKTIO
NIERT..SO..NICHT.".530..AS$(12)="IN..ORD
NUNG!..UND..WEITER?".540..AS$(13)="DIESE
N..BEFEHL..KENNE..ICH..NICHT.".550..AS$(
14)="DIESES..HAUPTWORT..KENNE..ICH..NICH
T.".560..AS$(15)="BIST..DU..BEI..DER..MU
ELLABFUHR?".570..AS$(16)="ER..IST..JA..N
OCH..GAR..NICHT..DORT!".580..AS$(17)="DA
S..TOR..IST..GESCHLOSSEN.".590..AS$(18)=
"STEHT..ES..SICH..GUT..DARAUF..?".600..A
S$(19)="IN..WELCHE..RICHTUNG..?".610..AS
$(20)="WER..RASTET,..DER..ROSTET.".620..
AS$(21)="ICH..WUERDE..ALLES..UNTERSUCHEN
...".630..AS$(22)="DIE..SONNE..GEHT..IM.
.WESTEN..UNTER...".640..AS$(23)="HOEHLEN
..BERGEN..GEHEIMNISSE...".650..AS$(24)="
FELSWAENDE..KANN..MAN..UMGEHEN.".660..AS
$(25)="EIN..UMWEG..FUEHRT..SELTEN..ZUM..
ZIEL.".670..AS$(26)="UMKEHR..BEIZEITEN..
VERHINDERT..PLEITEN..".680..AS$(27)="DIE
..GERADEN..WEGE..SIND..DIE..SCHNELLSTEN.
".690..AS$(28)="SEEFAHRER..KENNEN..DEN..
POLARSTERN.".700..AS$(29)="ALLES..DAS..Z
U..IST,..WAR..MAL..OFFEN.".710..AS$(30)=
"HINLANGEN,..ZUPACKEN!".720..AS$(31)="IM
MER..DER..NASE..NACH...".730..AS$(32)="N
IMM,..WAS..DU..SIEHST.".740..AS$(33)="OF
T..IST..ES..OBEN..HELLER..ALS..UNTEN.".7
50..AS$(34)="JEDE..MAUER..HAT..EINEN..DU
RCHSCHLUPF!".760..AS$(35)="VORWAERTS..IS
T..MUTIG,..RUECKWAERTS..KLUG.".770..AS$(
36)="DER..KLUGE..BLICKT..IN..JEDE..RICHT
UNG..".780..AS$(37)="BISHER..WAR..ES..GL
UECK...ABER..JETZT...".790..AS$(38)="DAS
..GRAS..IST..GRUENER..DORT.".800..AS$(39
)="IST..DAS..NICHT..EIN..ALTER..BEATLES-
SONG?".810..AS$(40)="AUS..BREIT..WIRD..M
ANCHMAL..SCHMAL.".820..AS$(41)="IM..OSTE
N..GEHT..DIE..SONNE..AUF...".830..AS$(42
)="DIE..ZEIT..DRAENGT...ES..WIRD..SCHON.
.NACHT.".840..AS$(43)="BENUTZE..DEINEN..
VERSTAND..UND..DIE..WAFFEN.".850..AS$(44
)="IM..SUEDEN..IST..ES..HEISS,..ABER..SI
CHERER.".860..AS$(45)="NIEMAND..BREMST..
SEINEN..VORWAERTSDRANG.".870..AS$(46)="E
IN..SEIL..DIENT..ZUM..KLETTERN.".880..AS
$(47)="IST..DEIN..VERSTAND..EINGEROSTET.
.?".890..AS$(48)="NUR..EIN..TOTER..SAURI
ER..IST..HARMLOS...".900..PRINTCHR$(147)
CHR$(14):FORT=1TO200:NEXT.910..PRINTD2$R
N$"..BITTE..FLOPPY....NICHT....AUSSCHALT
EN,......"RF$.920..PRINTC4$RN$"..DISKETT
E..IM..LAUFWERK..LASSEN..UND.........."R
F$.930..PRINTC4$RN$"..WAEHREND..DES..SPI
ELS..NICHT..ENTFERNEN."RF$.940..FORF=1TO
BA:READBA$(F):BA$(F)=LEFT$(BA$(F),WO):NE
XT.950..FORGG=1TOGA:READGG$(GG),NM$(GG),
GG(GG):NM$(GG)=LEFT$(NM$(GG),WO):NEXT.96
0..FORJ=1TORA:READRM$(J):FORK=1TO6:READD
G(J,K):NEXT:NEXT.970..FORI=1TO6:READRC$(
I):NEXT.980..FORI=1TORA:READFL$(I):NEXT.
990..PRINTCHR$(14)D3$D3$;:INPUT"SPIELANL
EITUNG..(J/N)";A$.1000..IFA$="J"THENGOSU
B1070.1010..PRINTD2$RN$"A"RF$"LTES..SPIE
L..LADEN..ODER".1020..PRINTC4$RN$"N"RF$"
EUBEGINN..?".1030..GETA$.1040..IFA$="A"T
HENAN$=BA$(18):PRINTCHR$(147)CHR$(142):G
OTO1960.1050..IFA$="N"THEN1410.1060..GOT
O1030.1070..PRINTCHR$(147):GOSUB240.1080
..PRINT"EINTRAG..COMMANDER..PHIL..REED..
VOM..RAUM-".1090..PRINT"SCHIFF..'STARDUS
T..I'..IN..DAS..BORDLOGBUCH:":GOSUB240.1
100..PRINT"TROTZ..INTENSIVSTER..BEMUEHUN
GEN..IST..DIE".1110..PRINT"REPARATUR..DE
S..DEFEKTEN..BORD-STEUERUNGS-".1120..PRI
NT"COMPUTERS..NICHT..GELUNGEN.":GOSUB240
.1130..PRINT"WERDE..NOTLANDE-AGGREGAT..Z
UENDEN.......".1140..PRINT"VORGESEHENE..
..LANDUNG..AUF....UNBEKANNTEM..".1150..P
RINT"PLANETEN,..KOORDINATENPUNKT..X/36-C
/45.":GOSUB240.1160..PRINT"ENTFERNUNG..Z
U..RAUMSCHIFF..EXAKT..98567.6".1170..PRI
NT"RAUMMEILEN...AUFSCHLAG..ERFOLGT..IN..
GENAU".1180..PRINT"2:48,03.45..MIN....."
:GOSUB240.1190..PRINT"FUNKKONTAKTE..BLIE
BEN..UNBEANTWORTET,..ES".1200..PRINT"MUS
S..DAVON..AUSGEGANGEN..WERDEN,..DASS..".
1210..PRINT"DER..ERDAEHNLICHE..PLANET..U
NBEWOHNT..IST.".1220..PRINT"AUSSICHTEN..
EINER..MOEGLICHEN..BEHEBUNG..".1230..PRI
NT"DES..SCHADENS..SIND..SEHR..GERING....
....":GOSUB240.1240..PRINTOE$D2$"FOLGEND
E..BEFEHLE..WERDE..ICH..VERWENDEN:":GOSU
B240.1250..PRINT"NIMM,UNTERSUCHE,BETRETE
,KLETTERE,GEHE,".1260..PRINT"BEFREIE,RET
TE,REPARIERE,HILF,BENUTZE,".1270..PRINT"
WIRF,BEKAEMPFE,SPRICH,VERLIERE,RAEUME,":
GOSUB240.1280..PRINT"MIT..SAVE..WIRD..DE
R..MOMENTANE..SPIELSTAND-".1290..PRINT"A
UF..DISKETTE..ABGESPEICHERT.." :GOSUB240
.1300..PRINT"MIT..LOAD..UNTER..ANGABE..D
ES..RICHTIGEN".1310..PRINT"FILE-NAMENS..
WIEDER..IN..DEN..COMPUTER".1320..PRINT"G
ELADEN..UND..DAS..SPIEL..AN..DIESER..STE
LLE".1330..PRINT"FORTGESETZT.":GOSUB240.
1340..PRINT"FALLS..SIE..EINMAL..NICHT..R
ECHT..WEITER".1350..PRINT"WISSEN,..BEKOM
MEN..SIE..TIPS..MIT..HELP.".1360..PRINT"
DIE..BESCHREIBUNG..DER..BILDER..KANN..JE
DER-".1370..PRINT"ZEIT..MIT..TEXT..AUFS.
.NEUE..GELESEN..WERDEN.":GOSUB240.1380..
PRINT"DER..BEFEHL..LIST..GIBT..IHNEN..UE
BERBLICK".1390..PRINT"UEBER..DIE..MITGEF
UEHRTEN..GEGENSTAENDE.":GOSUB240.1400..R
ETURN.1410..REM..***************** DRIVE
R *.1420..PRINTCHR$(147)CHR$(9)CHR$(142)
CHR$(8);.1430..LE$="....................
........................................
..................":REM..39..X..LEERTAST
E.1440 REM ********* AB HIER SCREEN *.14
50..IFGR<>MATHEN6220.1460..GR=MA:GOSUB33
0:GOSUB310.1470..POKECS,0:POKECZ,15:SYSX
.1480..PRINTRM$(MA).1490..GD=0.1500..FOR
I=1TOGA:IFGG(I)<>MATHEN1530.1510..IFPOS(
0)+LEN(GG$(I))+2<39THENPRINTGG$(I);",";:
GD=-1:GOTO1530.1520..IFPOS(0)+LEN(GG$(I)
)+2>=39THENPRINT:GOTO1510.1530..NEXT:IFG
D=0THENPRINT"NICHTS..BESONDERES.";.1540.
.PRINTCHR$(145)CHR$(145).1550..POKECZ,19
:SYSX:RE$="".1560..PRINT"RICHTUNG:";.157
0..IFDG(MA,1)=0ANDDG(MA,2)=0ANDDG(MA,3)=
0ANDDG(MA,4)=0ANDDG(MA,5)=0THENGOSUB1590
.1580..GOTO1600.1590..RE$="MOMENTAN..KEI
NE...":RETURN.1600..FORI=1TO6.1610..IFDG
(MA,I)=0THEN1660.1620..IFPOS(0)=14THENPR
INTRC$(I);:GOTO1660.1630..IFPOS(0)+LEN(R
C$(I))<37THENPRINT"..";RC$(I);:GOTO1660.
1640..IFPOS(0)+LEN(RC$(I))>=37THENPRINT"
,";RC$(I);:GOTO1660.1650..IFPOS(0)<16AND
POS(0)>2THENPRINT",";RC$(I);:GOTO1660.16
60..NEXT.1670..PRINTRE$;"...".1680 REM *
* NEGATIVE MITTEILUNGEN *.1690..X1$="ER.
.IST..IN..DER..WUESTE..VERDURSTET.".1700
..X2$="DIE..GIFTSPINNE..HAT..IHN..GEBISS
EN.".1710..X3$="DIE..WILDEN..HABEN..IHN.
.GETOETET.".1720..X4$="DER..TIGER..HAT..
IHN..ZERFLEISCHT.".1730..X5$="DER..SAURI
ER..HAT..IHN..ZERTRAMPELT.".1740..X6$="D
IE..RIESENSPINNE..HAT..IHN..GEFRESSEN.".
1750..IFMA=2THENNG$="ER..IST..IN..DER..W
UESTE..VERDURSTET...":GOTO3190.1760..IFM
A=34ANDGG(16)<>-1THENNG$=X2$.1770..IFMA=
34ANDGG(29)<>-1THENNG$=X2$.1780..IFMA=34
ANDGG(30)<>-1THENNG$=X2$.1790..IFMA=54AN
DGG(16)<>-1THENNG$=X3$.1800..IFMA=54ANDG
G(29)<>-1THENNG$=X3$.1810..IFMA=54ANDGG(
30)<>-1THENNG$=X3$.1820..IFMA=58ANDGG(16
)<>-1THENNG$=X3$.1830..IFMA=58ANDGG(29)<
>-1THENNG$=X3$.1840..IFMA=58ANDGG(30)<>-
1THENNG$=X3$.1850..IFMA=63ANDGG(16)<>-1T
HENNG$=X4$.1860..IFMA=63ANDGG(29)<>-1THE
NNG$=X4$.1870..IFMA=63ANDGG(30)<>-1THENN
G$=X4$.1880..IFMA=65ANDGG(16)<>-1THENNG$
=X5$.1890..IFMA=65ANDGG(29)<>-1THENNG$=X
5$.1900..IFMA=65ANDGG(30)<>-1THENNG$=X5$
.1910..IFMA=68ANDGG(16)<>-1THENNG$=X6$.1
920..IFMA=68ANDGG(29)<>-1THENNG$=X6$.193
0..IFMA=68ANDGG(30)<>-1THENNG$=X6$.1940.
.IFMA=39THENNG$="ER..IST..IN..DIE..SCHLU
CHT..GESTUERZT...":GOTO3190.1950..POKECZ
,21:SYSX:POKE198,0:POKE19,64:PRINT">"C1$
;:INPUTAN$:POKE19,0:PRINT.1960..IFLEN(AN
$)>2THEN2060.1970..IFAN$="N"ANDDG(MA,1)<
>0THENMA=DG(MA,1):PRINTAS$(1):GOTO1440.1
980..IFAN$="S"ANDDG(MA,2)<>0THENMA=DG(MA
,2):PRINTAS$(1):GOTO1440.1990..IFAN$="W"
ANDDG(MA,3)<>0THENMA=DG(MA,3):PRINTAS$(1
):GOTO1440.2000..IFAN$="O"ANDDG(MA,4)<>0
THENMA=DG(MA,4):PRINTAS$(1):GOTO1440.201
0..IFAN$="OB"ANDDG(MA,5)<>0THENMA=DG(MA,
5):PRINTAS$(1):GOTO1440.2020..IFAN$="U"A
NDDG(MA,6)<>0THENMA=DG(MA,6):PRINTAS$(1)
:GOTO1440.2030..IFLEN(AN$)<3THENPRINTAS$
(8):GOTO1440.2040..IFLEN(AN$)>6THEN2970.
2050 REM ****************** LISTE *.2060
..IFLEFT$(AN$,4)<>"LIST"THEN2130.2070..G
OSUB310:POKECS,0:POKECZ,15:SYSX.2080..PR
INT"ER..HAT..FOLGENDES..BEI..SICH:".2090
..FORI=1TOGA.2100..IFGG(I)=-1THENPRINTGG
$(I);"..".2110..NEXT:GOTO1440.2120 REM *
****************** SAVE *.2130..IFLEFT$(
AN$,4)<>"SAVE"THEN2300.2140..GOSUB310.21
50..POKECS,0:POKECZ,15:SYSX:PRINT"SPIELS
TAND..SPEICHERN":PRINTC4$;:INPUT"FILE-NA
ME";AN$.2160..IFLEN(AN$)>16THEN2140.2170
..PRINTC4$AN$"..WIRD..ABGESPEICHERT.";.2
180..OPEN2,8,2,"@0:"+AN$+",S,W".2190..PR
INT#2,MA.2200..FORI=1TOGA:PRINT#2,GG(I):
NEXT:PRINT".";.2210..FORI=1TORA:FORJ=1TO
6:PRINT#2,DG(I,J):NEXT:NEXT:PRINT".";.22
20..FORI=1TOAF:PRINT#2,FL(I):NEXT:PRINT"
.";:CLOSE2.2230..GOSUB2250:GOTO1440.2240
REM ************ DISK-FEHLER *.2250..OP
EN1,8,15:INPUT#1,A,B$,C,D.2260..IFA<>0TH
ENPRINTRN$"DISK-ERROR:"RF$B$:FORT=1TO300
0:NEXT:CLOSE2:CLOSE1:GOTO1440.2270..CLOS
E1.2280..RETURN.2290 REM ***************
**** LOAD *.2300..IFLEFT$(AN$,4)<>"LOAD"
THEN2410.2310..GOSUB310.2320..POKECS,0:P
OKECZ,15:SYSX:PRINT"ALTES..SPIEL..LADEN.
":PRINTC4$;:INPUT"FILE-NAME";MF$.2330..I
FLEN(MF$)>16THEN2310.2340..PRINTMF$" WIR
D GELADEN.";.2350..OPEN2,8,2,MF$+",S,R":
INPUT#2,MA:PRINT".";.2360..FORI=1TOGA:IN
PUT#2,GG(I):NEXT:PRINT".";.2370..FORI=1T
ORA:FORJ=1TO6:INPUT#2,DG(I,J):NEXT:NEXT:
PRINT".";.2380..FORI=1TOAF:INPUT#2,FL(I)
:NEXT:PRINT".";:CLOSE2.2390..GOSUB2250.2
400..IFAN$=BA$(18)THEN1410.2410..IFLEFT$
(AN$,4)<>"HELP"THEN2740.2420..IFMA=1THEN
PRINTAS$(20):GOTO1440.2430..IFMA=3ORMA=4
THENPRINTAS$(21):GOTO1440.2440..IFMA=5TH
ENPRINT"HOCH..HINAUS..IST..NICHT..IMMER.
.GUT..":GOTO1440.2450..IFMA=6ORMA=9ORMA=
13THENPRINTAS$(22):GOTO1440.2460..IFMA=7
THENPRINTAS$(23):GOTO1440.2470..IFMA=8OR
MA=45ORMA=51THENPRINTAS$(24):GOTO1440.24
80..IFMA=10THENPRINTAS$(25):GOTO1440.249
0..IFMA=11ORMA=20ORMA=38ORMA=56ORMA=57OR
MA=61THENPRINTAS$(26):GOTO1440.2500..IFM
A=12ORMA=22ORMA=23ORMA=28ORMA=29THENPRIN
TAS$(27):GOTO1440..*LK:2510-5000 SEQ.
> CLICK IMAGE PREVIEW FOR FULL MODAL