PIC SAVER SEQ 64
FILE INFORMATION
FILENAME(S): PIC SAVER SEQ 64
FILE TYPE(S): DEL
FILE SIZE: 10.9K
FIRST SEEN: 2025-11-30 16:27:20
APPEARS ON: 1 disk(s)
FILE HASH
df0fa5320b20cf2e208e4dd1f10c5b97cd9ca4cc4c26a63c9c3630f2d1cc1045
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| TESTDISK | PIC SAVER SEQ 64 | DEL | BrainSkull, Thomas Marosits | 32 | 1 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 34 24 3D 43 34 24 2B 44 33 24 0D 31 32 30 80 A3 |4$=C4$+D3$.120..| 00000010: 48 45 24 3D 43 48 52 24 28 30 31 39 29 3A 43 33 |HE$=CHR$(019):C3| 00000020: 24 3D 43 48 52 24 28 30 32 39 29 0D 31 33 30 80 |$=CHR$(029).130.| 00000030: A3 4F 45 24 3D 43 48 52 24 28 31 32 39 29 3A 0D |.OE$=CHR$(129):.| 00000040: 31 34 30 80 A3 52 46 24 3D 43 48 52 24 28 31 34 |140..RF$=CHR$(14| 00000050: 36 29 3A 43 4C 24 3D 43 48 52 24 28 31 34 37 29 |6):CL$=CHR$(147)| 00000060: 0D 31 35 30 80 A3 43 31 24 3D 43 48 52 24 28 31 |.150..C1$=CHR$(1| 00000070: 35 37 29 3A 59 45 24 3D 43 48 52 24 28 31 35 38 |57):YE$=CHR$(158| 00000080: 29 0D 31 36 30 80 A3 52 41 3D 36 38 3A 47 41 3D |).160..RA=68:GA=| 00000090: 34 33 3A 42 41 3D 32 33 3A 57 4F 3D 34 3A 4D 41 |43:BA=23:WO=4:MA| 000000A0: 3D 31 3A 4D 47 3D 34 3A 41 46 3D 32 3A 47 3D 31 |=1:MG=4:AF=2:G=1| 000000B0: 36 0D 31 37 30 80 A3 44 49 4D 52 4D 24 28 52 41 |6.170..DIMRM$(RA| 000000C0: 29 2C 44 47 28 52 41 2C 36 29 2C 47 47 24 28 47 |),DG(RA,6),GG$(G| 000000D0: 41 29 2C 4E 4D 24 28 47 41 29 2C 47 47 28 47 41 |A),NM$(GA),GG(GA| 000000E0: 29 2C 42 41 24 28 42 41 29 2C 41 53 24 28 34 38 |),BA$(BA),AS$(48| 000000F0: 29 2C 47 24 28 47 29 2C 46 4C 24 28 52 41 29 0D |),G$(G),FL$(RA).| 00000100: 31 38 30 80 A3 43 53 3D 32 31 31 3A 43 5A 3D 32 |180..CS=211:CZ=2| 00000110: 31 34 3A 58 3D 35 38 36 34 30 3A 53 43 3D 35 33 |14:X=58640:SC=53| 00000120: 32 36 35 0D 31 39 30 80 A3 50 4F 4B 45 36 34 36 |265.190..POKE646| 00000130: 2C 31 35 3A 50 4F 4B 45 35 33 32 38 30 2C 30 3A |,15:POKE53280,0:| 00000140: 50 4F 4B 45 35 33 32 38 31 2C 30 3A 50 52 49 4E |POKE53281,0:PRIN| 00000150: 54 43 48 52 24 28 31 34 37 29 43 48 52 24 28 31 |TCHR$(147)CHR$(1| 00000160: 34 29 0D 32 30 30 80 A3 50 4F 4B 45 43 53 2C 35 |4).200..POKECS,5| 00000170: 3A 50 4F 4B 45 43 5A 2C 35 3A 53 59 53 35 38 36 |:POKECZ,5:SYS586| 00000180: 34 30 0D 32 31 30 80 A3 50 52 49 4E 54 22 D6 C5 |40.210..PRINT"..| 00000190: D2 D3 C3 C8 CF CC CC C5 CE 80 A3 C1 D5 C6 80 A3 |................| 000001A0: D0 CC C1 CE C5 D4 80 A3 D8 22 0D 32 32 30 80 A3 |.........".220..| 000001B0: 50 52 49 4E 54 44 33 24 44 34 24 3B 54 41 42 28 |PRINTD3$D4$;TAB(| 000001C0: 35 29 22 C1 44 56 45 4E 54 55 52 45 80 A3 80 A3 |5)".DVENTURE....| 000001D0: 56 4F 4E 80 A3 80 A3 C8 2E C2 45 49 4C 45 52 22 |VON.......EILER"| 000001E0: 3A 47 4F 53 55 42 33 33 30 0D 32 33 30 80 A3 47 |:GOSUB330.230..G| 000001F0: 4F 54 4F 34 31 30 0D 32 34 30 80 A3 46 4F 52 49 |OTO410.240..FORI| 00000200: 3D 31 54 4F 33 38 3A 50 52 49 4E 54 43 48 52 24 |=1TO38:PRINTCHR$| 00000210: 28 31 35 30 29 43 48 52 24 28 34 35 29 43 48 52 |(150)CHR$(45)CHR| 00000220: 24 28 31 35 34 29 3B 3A 46 4F 52 54 3D 31 54 4F |$(154);:FORT=1TO| 00000230: 35 30 3A 4E 45 58 54 3A 4E 45 58 54 3A 50 52 49 |50:NEXT:NEXT:PRI| 00000240: 4E 54 3A 52 45 54 55 52 4E 0D 32 35 30 80 A3 47 |NT:RETURN.250..G| 00000250: 47 28 34 31 29 3D 30 3A 47 47 28 34 30 29 3D 4D |G(41)=0:GG(40)=M| 00000260: 41 3A 52 45 54 55 52 4E 0D 32 36 30 80 A3 47 47 |A:RETURN.260..GG| 00000270: 28 33 30 29 3D 4D 41 3A 44 47 28 33 34 2C 34 29 |(30)=MA:DG(34,4)| 00000280: 3D 32 36 3A 47 47 24 28 32 33 29 3D 22 54 4F 54 |=26:GG$(23)="TOT| 00000290: 45 20 52 49 45 53 45 4E 53 50 49 4E 4E 45 2E 22 |E RIESENSPINNE."| 000002A0: 3A 52 45 54 55 52 4E 0D 32 37 30 80 A3 47 47 28 |:RETURN.270..GG(| 000002B0: 33 30 29 3D 4D 41 3A 44 47 28 36 35 2C 32 29 3D |30)=MA:DG(65,2)=| 000002C0: 34 39 3A 44 47 28 36 35 2C 31 29 3D 36 34 3A 47 |49:DG(65,1)=64:G| 000002D0: 47 24 28 33 37 29 3D 22 54 4F 54 45 52 80 A3 53 |G$(37)="TOTER..S| 000002E0: 41 55 52 49 45 52 2E 22 3A 52 45 54 55 52 4E 0D |AURIER.":RETURN.| 000002F0: 32 38 30 80 A3 47 47 28 33 30 29 3D 4D 41 3A 44 |280..GG(30)=MA:D| 00000300: 47 28 36 38 2C 32 29 3D 35 39 3A 47 47 24 28 33 |G(68,2)=59:GG$(3| 00000310: 39 29 3D 22 54 4F 54 45 80 A3 55 52 57 41 4C 44 |9)="TOTE..URWALD| 00000320: 53 50 49 4E 4E 45 2E 22 3A 52 45 54 55 52 4E 0D |SPINNE.":RETURN.| 00000330: 32 39 30 80 A3 47 47 28 33 30 29 3D 4D 41 3A 44 |290..GG(30)=MA:D| 00000340: 47 28 36 33 2C 32 29 3D 35 38 3A 44 47 28 36 33 |G(63,2)=58:DG(63| 00000350: 2C 33 29 3D 35 37 3A 47 47 24 28 33 35 29 3D 22 |,3)=57:GG$(35)="| 00000360: 54 4F 54 45 52 80 A3 54 49 47 45 52 2E 22 3A 52 |TOTER..TIGER.":R| 00000370: 45 54 55 52 4E 0D 33 30 30 80 A3 44 47 28 36 34 |ETURN.300..DG(64| 00000380: 2C 31 29 3D 30 3A 44 47 28 36 34 2C 32 29 3D 36 |,1)=0:DG(64,2)=6| 00000390: 30 3A 44 47 28 36 34 2C 33 29 3D 35 38 3A 44 47 |0:DG(64,3)=58:DG| 000003A0: 28 36 34 2C 34 29 3D 35 39 3A 44 47 28 36 34 2C |(64,4)=59:DG(64,| 000003B0: 35 29 3D 30 3A 44 47 28 36 34 2C 36 29 3D 30 3A |5)=0:DG(64,6)=0:| 000003C0: 52 45 54 55 52 4E 0D 33 31 30 80 A3 50 4F 4B 45 |RETURN.310..POKE| 000003D0: 43 53 2C 30 3A 50 4F 4B 45 43 5A 2C 31 35 3A 53 |CS,0:POKECZ,15:S| 000003E0: 59 53 58 0D 33 32 30 80 A3 46 4F 52 49 3D 31 54 |YSX.320..FORI=1T| 000003F0: 4F 39 3A 50 52 49 4E 54 4C 45 24 3A 4E 45 58 54 |O9:PRINTLE$:NEXT| 00000400: 3A 52 45 54 55 52 4E 0D 33 33 30 80 A3 46 4F 52 |:RETURN.330..FOR| 00000410: 54 3D 31 54 4F 33 30 30 30 3A 4E 45 58 54 3A 52 |T=1TO3000:NEXT:R| 00000420: 45 54 55 52 4E 0D 33 34 30 80 A3 50 52 49 4E 54 |ETURN.340..PRINT| 00000430: 48 45 24 3A 50 52 49 4E 54 54 41 42 28 31 29 43 |HE$:PRINTTAB(1)C| 00000440: 48 52 24 28 31 31 37 29 3B 3A 46 4F 52 49 3D 31 |HR$(117);:FORI=1| 00000450: 54 4F 33 36 3A 50 52 49 4E 54 43 48 52 24 28 39 |TO36:PRINTCHR$(9| 00000460: 36 29 3B 3A 4E 45 58 54 3A 50 52 49 4E 54 43 48 |6);:NEXT:PRINTCH| 00000470: 52 24 28 31 30 35 29 0D 33 35 30 80 A3 46 4F 52 |R$(105).350..FOR| 00000480: 49 3D 31 54 4F 31 32 3A 50 52 49 4E 54 54 41 42 |I=1TO12:PRINTTAB| 00000490: 28 31 29 43 48 52 24 28 31 32 35 29 54 41 42 28 |(1)CHR$(125)TAB(| 000004A0: 33 38 29 43 48 52 24 28 31 32 35 29 3A 4E 45 58 |38)CHR$(125):NEX| 000004B0: 54 0D 33 36 30 80 A3 50 52 49 4E 54 54 41 42 28 |T.360..PRINTTAB(| 000004C0: 31 29 43 48 52 24 28 31 30 36 29 3B 3A 46 4F 52 |1)CHR$(106);:FOR| 000004D0: 49 3D 31 54 4F 33 36 3A 50 52 49 4E 54 43 48 52 |I=1TO36:PRINTCHR| 000004E0: 24 28 39 36 29 3B 3A 4E 45 58 54 3A 50 52 49 4E |$(96);:NEXT:PRIN| 000004F0: 54 43 48 52 24 28 31 30 37 29 3A 52 45 54 55 52 |TCHR$(107):RETUR| 00000500: 4E 0D 33 37 30 80 A3 46 4C 28 31 29 3D 2D 31 3A |N.370..FL(1)=-1:| 00000510: 44 47 28 31 36 2C 31 29 3D 31 39 3A 44 47 28 31 |DG(16,1)=19:DG(1| 00000520: 36 2C 32 29 3D 31 35 3A 52 45 54 55 52 4E 0D 33 |6,2)=15:RETURN.3| 00000530: 38 30 80 A3 46 4C 28 32 29 3D 2D 31 3A 44 47 28 |80..FL(2)=-1:DG(| 00000540: 32 35 2C 31 29 3D 33 31 3A 44 47 28 32 35 2C 32 |25,1)=31:DG(25,2| 00000550: 29 3D 32 32 3A 47 4F 54 4F 31 34 34 30 0D 33 39 |)=22:GOTO1440.39| 00000560: 30 80 A3 44 47 28 36 34 2C 33 29 3D 35 38 3A 44 |0..DG(64,3)=58:D| 00000570: 47 28 36 34 2C 34 29 3D 35 39 3A 47 47 28 33 36 |G(64,4)=59:GG(36| 00000580: 29 3D 30 3A 52 45 54 55 52 4E 0D 34 30 30 80 A3 |)=0:RETURN.400..| 00000590: 47 47 28 34 32 29 3D 4D 41 3A 44 47 28 32 35 2C |GG(42)=MA:DG(25,| 000005A0: 31 29 3D 33 31 3A 52 45 54 55 52 4E 0D 34 31 30 |1)=31:RETURN.410| 000005B0: 80 A3 52 45 4D 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |..REM **********| 000005C0: 2A 2A 2A 2A 2A 20 41 4E 54 57 4F 52 54 45 4E 20 |***** ANTWORTEN | 000005D0: 2A 0D 34 32 30 80 A3 41 53 24 28 31 29 3D 22 4F |*.420..AS$(1)="O| 000005E0: 4B 41 59 2E 22 0D 34 33 30 80 A3 41 53 24 28 32 |KAY.".430..AS$(2| 000005F0: 29 3D 22 48 49 45 52 80 A3 49 53 54 80 A3 4E 49 |)="HIER..IST..NI| 00000600: 43 48 54 53 80 A3 42 45 53 4F 4E 44 45 52 45 53 |CHTS..BESONDERES| 00000610: 2E 22 0D 34 34 30 80 A3 41 53 24 28 33 29 3D 22 |.".440..AS$(3)="| 00000620: 47 45 48 54 80 A3 4E 49 43 48 54 2C 80 A3 56 49 |GEHT..NICHT,..VI| 00000630: 45 4C 80 A3 5A 55 80 A3 53 43 48 57 45 52 2E 22 |EL..ZU..SCHWER."| 00000640: 0D 34 35 30 80 A3 41 53 24 28 34 29 3D 22 44 41 |.450..AS$(4)="DA| 00000650: 53 80 A3 49 53 54 80 A3 56 4F 45 4C 4C 49 47 80 |S..IST..VOELLIG.| 00000660: A3 55 4E 4D 4F 45 47 4C 49 43 48 21 22 0D 34 36 |.UNMOEGLICH!".46| 00000670: 30 80 A3 41 53 24 28 35 29 3D 22 55 4E 44 80 A3 |0..AS$(5)="UND..| 00000680: 57 49 45 80 A3 53 4F 4C 4C 80 A3 4D 41 4E 80 A3 |WIE..SOLL..MAN..| 00000690: 44 41 53 80 A3 41 4E 53 54 45 4C 4C 45 4E 80 A3 |DAS..ANSTELLEN..| 000006A0: 3F 22 0D 34 37 30 80 A3 41 53 24 28 36 29 3D 22 |?".470..AS$(6)="| 000006B0: C4 41 53 80 A3 57 41 52 80 A3 D0 45 43 48 21 21 |.AS..WAR...ECH!!| 000006C0: 21 22 0D 34 38 30 80 A3 41 53 24 28 37 29 3D 22 |!".480..AS$(7)="| 000006D0: 41 55 46 80 A3 44 49 45 53 45 80 A3 57 45 49 53 |AUF..DIESE..WEIS| 000006E0: 45 80 A3 47 45 48 54 80 A3 44 41 53 80 A3 4E 49 |E..GEHT..DAS..NI| 000006F0: 43 48 54 21 22 0D 34 39 30 80 A3 41 53 24 28 38 |CHT!".490..AS$(8| 00000700: 29 3D 22 4B 45 49 4E 80 A3 57 45 47 80 A3 49 4E |)="KEIN..WEG..IN| 00000710: 80 A3 44 49 45 53 45 80 A3 52 49 43 48 54 55 4E |..DIESE..RICHTUN| 00000720: 47 2E 22 0D 35 30 30 80 A3 41 53 24 28 39 29 3D |G.".500..AS$(9)=| 00000730: 22 44 41 53 80 A3 49 53 54 80 A3 54 4F 54 41 4C |"DAS..IST..TOTAL| 00000740: 45 52 80 A3 55 4E 53 49 4E 4E 21 22 0D 35 31 30 |ER..UNSINN!".510| 00000750: 80 A3 41 53 24 28 31 30 29 3D 22 48 49 45 52 80 |..AS$(10)="HIER.| 00000760: A3 49 53 54 80 A3 4E 49 45 4D 41 4E 44 2E 2E 2E |.IST..NIEMAND...| 00000770: 22 0D 35 32 30 80 A3 41 53 24 28 31 31 29 3D 22 |".520..AS$(11)="| 00000780: 44 41 53 80 A3 46 55 4E 4B 54 49 4F 4E 49 45 52 |DAS..FUNKTIONIER| 00000790: 54 80 A3 53 4F 80 A3 4E 49 43 48 54 2E 22 0D 35 |T..SO..NICHT.".5| 000007A0: 33 30 80 A3 41 53 24 28 31 32 29 3D 22 49 4E 80 |30..AS$(12)="IN.| 000007B0: A3 4F 52 44 4E 55 4E 47 21 80 A3 55 4E 44 80 A3 |.ORDNUNG!..UND..| 000007C0: 57 45 49 54 45 52 3F 22 0D 35 34 30 80 A3 41 53 |WEITER?".540..AS| 000007D0: 24 28 31 33 29 3D 22 44 49 45 53 45 4E 80 A3 42 |$(13)="DIESEN..B| 000007E0: 45 46 45 48 4C 80 A3 4B 45 4E 4E 45 80 A3 49 43 |EFEHL..KENNE..IC| 000007F0: 48 80 A3 4E 49 43 48 54 2E 22 0D 35 35 30 80 A3 |H..NICHT.".550..| 00000800: 41 53 24 28 31 34 29 3D 22 44 49 45 53 45 53 80 |AS$(14)="DIESES.| 00000810: A3 48 41 55 50 54 57 4F 52 54 80 A3 4B 45 4E 4E |.HAUPTWORT..KENN| 00000820: 45 80 A3 49 43 48 80 A3 4E 49 43 48 54 2E 22 0D |E..ICH..NICHT.".| 00000830: 35 36 30 80 A3 41 53 24 28 31 35 29 3D 22 42 49 |560..AS$(15)="BI| 00000840: 53 54 80 A3 44 55 80 A3 42 45 49 80 A3 44 45 52 |ST..DU..BEI..DER| 00000850: 80 A3 4D 55 45 4C 4C 41 42 46 55 48 52 3F 22 0D |..MUELLABFUHR?".| 00000860: 35 37 30 80 A3 41 53 24 28 31 36 29 3D 22 45 52 |570..AS$(16)="ER| 00000870: 80 A3 49 53 54 80 A3 4A 41 80 A3 4E 4F 43 48 80 |..IST..JA..NOCH.| 00000880: A3 47 41 52 80 A3 4E 49 43 48 54 80 A3 44 4F 52 |.GAR..NICHT..DOR| 00000890: 54 21 22 0D 35 38 30 80 A3 41 53 24 28 31 37 29 |T!".580..AS$(17)| 000008A0: 3D 22 44 41 53 80 A3 54 4F 52 80 A3 49 53 54 80 |="DAS..TOR..IST.| 000008B0: A3 47 45 53 43 48 4C 4F 53 53 45 4E 2E 22 0D 35 |.GESCHLOSSEN.".5| 000008C0: 39 30 80 A3 41 53 24 28 31 38 29 3D 22 53 54 45 |90..AS$(18)="STE| 000008D0: 48 54 80 A3 45 53 80 A3 53 49 43 48 80 A3 47 55 |HT..ES..SICH..GU| 000008E0: 54 80 A3 44 41 52 41 55 46 80 A3 3F 22 0D 36 30 |T..DARAUF..?".60| 000008F0: 30 80 A3 41 53 24 28 31 39 29 3D 22 49 4E 80 A3 |0..AS$(19)="IN..| 00000900: 57 45 4C 43 48 45 80 A3 52 49 43 48 54 55 4E 47 |WELCHE..RICHTUNG| 00000910: 80 A3 3F 22 0D 36 31 30 80 A3 41 53 24 28 32 30 |..?".610..AS$(20| 00000920: 29 3D 22 57 45 52 80 A3 52 41 53 54 45 54 2C 80 |)="WER..RASTET,.| 00000930: A3 44 45 52 80 A3 52 4F 53 54 45 54 2E 22 0D 36 |.DER..ROSTET.".6| 00000940: 32 30 80 A3 41 53 24 28 32 31 29 3D 22 49 43 48 |20..AS$(21)="ICH| 00000950: 80 A3 57 55 45 52 44 45 80 A3 41 4C 4C 45 53 80 |..WUERDE..ALLES.| 00000960: A3 55 4E 54 45 52 53 55 43 48 45 4E 2E 2E 2E 22 |.UNTERSUCHEN..."| 00000970: 0D 36 33 30 80 A3 41 53 24 28 32 32 29 3D 22 44 |.630..AS$(22)="D| 00000980: 49 45 80 A3 53 4F 4E 4E 45 80 A3 47 45 48 54 80 |IE..SONNE..GEHT.| 00000990: A3 49 4D 80 A3 57 45 53 54 45 4E 80 A3 55 4E 54 |.IM..WESTEN..UNT| 000009A0: 45 52 2E 2E 2E 22 0D 36 34 30 80 A3 41 53 24 28 |ER...".640..AS$(| 000009B0: 32 33 29 3D 22 48 4F 45 48 4C 45 4E 80 A3 42 45 |23)="HOEHLEN..BE| 000009C0: 52 47 45 4E 80 A3 47 45 48 45 49 4D 4E 49 53 53 |RGEN..GEHEIMNISS| 000009D0: 45 2E 2E 2E 22 0D 36 35 30 80 A3 41 53 24 28 32 |E...".650..AS$(2| 000009E0: 34 29 3D 22 46 45 4C 53 57 41 45 4E 44 45 80 A3 |4)="FELSWAENDE..| 000009F0: 4B 41 4E 4E 80 A3 4D 41 4E 80 A3 55 4D 47 45 48 |KANN..MAN..UMGEH| 00000A00: 45 4E 2E 22 0D 36 36 30 80 A3 41 53 24 28 32 35 |EN.".660..AS$(25| 00000A10: 29 3D 22 45 49 4E 80 A3 55 4D 57 45 47 80 A3 46 |)="EIN..UMWEG..F| 00000A20: 55 45 48 52 54 80 A3 53 45 4C 54 45 4E 80 A3 5A |UEHRT..SELTEN..Z| 00000A30: 55 4D 80 A3 5A 49 45 4C 2E 22 0D 36 37 30 80 A3 |UM..ZIEL.".670..| 00000A40: 41 53 24 28 32 36 29 3D 22 55 4D 4B 45 48 52 80 |AS$(26)="UMKEHR.| 00000A50: A3 42 45 49 5A 45 49 54 45 4E 80 A3 56 45 52 48 |.BEIZEITEN..VERH| 00000A60: 49 4E 44 45 52 54 80 A3 50 4C 45 49 54 45 4E 2E |INDERT..PLEITEN.| 00000A70: 2E 22 0D 36 38 30 80 A3 41 53 24 28 32 37 29 3D |.".680..AS$(27)=| 00000A80: 22 44 49 45 80 A3 47 45 52 41 44 45 4E 80 A3 57 |"DIE..GERADEN..W| 00000A90: 45 47 45 80 A3 53 49 4E 44 80 A3 44 49 45 80 A3 |EGE..SIND..DIE..| 00000AA0: 53 43 48 4E 45 4C 4C 53 54 45 4E 2E 22 0D 36 39 |SCHNELLSTEN.".69| 00000AB0: 30 80 A3 41 53 24 28 32 38 29 3D 22 53 45 45 46 |0..AS$(28)="SEEF| 00000AC0: 41 48 52 45 52 80 A3 4B 45 4E 4E 45 4E 80 A3 44 |AHRER..KENNEN..D| 00000AD0: 45 4E 80 A3 50 4F 4C 41 52 53 54 45 52 4E 2E 22 |EN..POLARSTERN."| 00000AE0: 0D 37 30 30 80 A3 41 53 24 28 32 39 29 3D 22 41 |.700..AS$(29)="A| 00000AF0: 4C 4C 45 53 80 A3 44 41 53 80 A3 5A 55 80 A3 49 |LLES..DAS..ZU..I| 00000B00: 53 54 2C 80 A3 57 41 52 80 A3 4D 41 4C 80 A3 4F |ST,..WAR..MAL..O| 00000B10: 46 46 45 4E 2E 22 0D 37 31 30 80 A3 41 53 24 28 |FFEN.".710..AS$(| 00000B20: 33 30 29 3D 22 48 49 4E 4C 41 4E 47 45 4E 2C 80 |30)="HINLANGEN,.| 00000B30: A3 5A 55 50 41 43 4B 45 4E 21 22 0D 37 32 30 80 |.ZUPACKEN!".720.| 00000B40: A3 41 53 24 28 33 31 29 3D 22 49 4D 4D 45 52 80 |.AS$(31)="IMMER.| 00000B50: A3 44 45 52 80 A3 4E 41 53 45 80 A3 4E 41 43 48 |.DER..NASE..NACH| 00000B60: 2E 2E 2E 22 0D 37 33 30 80 A3 41 53 24 28 33 32 |...".730..AS$(32| 00000B70: 29 3D 22 4E 49 4D 4D 2C 80 A3 57 41 53 80 A3 44 |)="NIMM,..WAS..D| 00000B80: 55 80 A3 53 49 45 48 53 54 2E 22 0D 37 34 30 80 |U..SIEHST.".740.| 00000B90: A3 41 53 24 28 33 33 29 3D 22 4F 46 54 80 A3 49 |.AS$(33)="OFT..I| 00000BA0: 53 54 80 A3 45 53 80 A3 4F 42 45 4E 80 A3 48 45 |ST..ES..OBEN..HE| 00000BB0: 4C 4C 45 52 80 A3 41 4C 53 80 A3 55 4E 54 45 4E |LLER..ALS..UNTEN| 00000BC0: 2E 22 0D 37 35 30 80 A3 41 53 24 28 33 34 29 3D |.".750..AS$(34)=| 00000BD0: 22 4A 45 44 45 80 A3 4D 41 55 45 52 80 A3 48 41 |"JEDE..MAUER..HA| 00000BE0: 54 80 A3 45 49 4E 45 4E 80 A3 44 55 52 43 48 53 |T..EINEN..DURCHS| 00000BF0: 43 48 4C 55 50 46 21 22 0D 37 36 30 80 A3 41 53 |CHLUPF!".760..AS| 00000C00: 24 28 33 35 29 3D 22 56 4F 52 57 41 45 52 54 53 |$(35)="VORWAERTS| 00000C10: 80 A3 49 53 54 80 A3 4D 55 54 49 47 2C 80 A3 52 |..IST..MUTIG,..R| 00000C20: 55 45 43 4B 57 41 45 52 54 53 80 A3 4B 4C 55 47 |UECKWAERTS..KLUG| 00000C30: 2E 22 0D 37 37 30 80 A3 41 53 24 28 33 36 29 3D |.".770..AS$(36)=| 00000C40: 22 44 45 52 80 A3 4B 4C 55 47 45 80 A3 42 4C 49 |"DER..KLUGE..BLI| 00000C50: 43 4B 54 80 A3 49 4E 80 A3 4A 45 44 45 80 A3 52 |CKT..IN..JEDE..R| 00000C60: 49 43 48 54 55 4E 47 2E 2E 22 0D 37 38 30 80 A3 |ICHTUNG..".780..| 00000C70: 41 53 24 28 33 37 29 3D 22 42 49 53 48 45 52 80 |AS$(37)="BISHER.| 00000C80: A3 57 41 52 80 A3 45 53 80 A3 47 4C 55 45 43 4B |.WAR..ES..GLUECK| 00000C90: 2E 80 A3 41 42 45 52 80 A3 4A 45 54 5A 54 2E 2E |...ABER..JETZT..| 00000CA0: 2E 22 0D 37 39 30 80 A3 41 53 24 28 33 38 29 3D |.".790..AS$(38)=| 00000CB0: 22 44 41 53 80 A3 47 52 41 53 80 A3 49 53 54 80 |"DAS..GRAS..IST.| 00000CC0: A3 47 52 55 45 4E 45 52 80 A3 44 4F 52 54 2E 22 |.GRUENER..DORT."| 00000CD0: 0D 38 30 30 80 A3 41 53 24 28 33 39 29 3D 22 49 |.800..AS$(39)="I| 00000CE0: 53 54 80 A3 44 41 53 80 A3 4E 49 43 48 54 80 A3 |ST..DAS..NICHT..| 00000CF0: 45 49 4E 80 A3 41 4C 54 45 52 80 A3 42 45 41 54 |EIN..ALTER..BEAT| 00000D00: 4C 45 53 2D 53 4F 4E 47 3F 22 0D 38 31 30 80 A3 |LES-SONG?".810..| 00000D10: 41 53 24 28 34 30 29 3D 22 41 55 53 80 A3 42 52 |AS$(40)="AUS..BR| 00000D20: 45 49 54 80 A3 57 49 52 44 80 A3 4D 41 4E 43 48 |EIT..WIRD..MANCH| 00000D30: 4D 41 4C 80 A3 53 43 48 4D 41 4C 2E 22 0D 38 32 |MAL..SCHMAL.".82| 00000D40: 30 80 A3 41 53 24 28 34 31 29 3D 22 49 4D 80 A3 |0..AS$(41)="IM..| 00000D50: 4F 53 54 45 4E 80 A3 47 45 48 54 80 A3 44 49 45 |OSTEN..GEHT..DIE| 00000D60: 80 A3 53 4F 4E 4E 45 80 A3 41 55 46 2E 2E 2E 22 |..SONNE..AUF..."| 00000D70: 0D 38 33 30 80 A3 41 53 24 28 34 32 29 3D 22 44 |.830..AS$(42)="D| 00000D80: 49 45 80 A3 5A 45 49 54 80 A3 44 52 41 45 4E 47 |IE..ZEIT..DRAENG| 00000D90: 54 2E 80 A3 45 53 80 A3 57 49 52 44 80 A3 53 43 |T...ES..WIRD..SC| 00000DA0: 48 4F 4E 80 A3 4E 41 43 48 54 2E 22 0D 38 34 30 |HON..NACHT.".840| 00000DB0: 80 A3 41 53 24 28 34 33 29 3D 22 42 45 4E 55 54 |..AS$(43)="BENUT| 00000DC0: 5A 45 80 A3 44 45 49 4E 45 4E 80 A3 56 45 52 53 |ZE..DEINEN..VERS| 00000DD0: 54 41 4E 44 80 A3 55 4E 44 80 A3 44 49 45 80 A3 |TAND..UND..DIE..| 00000DE0: 57 41 46 46 45 4E 2E 22 0D 38 35 30 80 A3 41 53 |WAFFEN.".850..AS| 00000DF0: 24 28 34 34 29 3D 22 49 4D 80 A3 53 55 45 44 45 |$(44)="IM..SUEDE| 00000E00: 4E 80 A3 49 53 54 80 A3 45 53 80 A3 48 45 49 53 |N..IST..ES..HEIS| 00000E10: 53 2C 80 A3 41 42 45 52 80 A3 53 49 43 48 45 52 |S,..ABER..SICHER| 00000E20: 45 52 2E 22 0D 38 36 30 80 A3 41 53 24 28 34 35 |ER.".860..AS$(45| 00000E30: 29 3D 22 4E 49 45 4D 41 4E 44 80 A3 42 52 45 4D |)="NIEMAND..BREM| 00000E40: 53 54 80 A3 53 45 49 4E 45 4E 80 A3 56 4F 52 57 |ST..SEINEN..VORW| 00000E50: 41 45 52 54 53 44 52 41 4E 47 2E 22 0D 38 37 30 |AERTSDRANG.".870| 00000E60: 80 A3 41 53 24 28 34 36 29 3D 22 45 49 4E 80 A3 |..AS$(46)="EIN..| 00000E70: 53 45 49 4C 80 A3 44 49 45 4E 54 80 A3 5A 55 4D |SEIL..DIENT..ZUM| 00000E80: 80 A3 4B 4C 45 54 54 45 52 4E 2E 22 0D 38 38 30 |..KLETTERN.".880| 00000E90: 80 A3 41 53 24 28 34 37 29 3D 22 49 53 54 80 A3 |..AS$(47)="IST..| 00000EA0: 44 45 49 4E 80 A3 56 45 52 53 54 41 4E 44 80 A3 |DEIN..VERSTAND..| 00000EB0: 45 49 4E 47 45 52 4F 53 54 45 54 80 A3 3F 22 0D |EINGEROSTET..?".| 00000EC0: 38 39 30 80 A3 41 53 24 28 34 38 29 3D 22 4E 55 |890..AS$(48)="NU| 00000ED0: 52 80 A3 45 49 4E 80 A3 54 4F 54 45 52 80 A3 53 |R..EIN..TOTER..S| 00000EE0: 41 55 52 49 45 52 80 A3 49 53 54 80 A3 48 41 52 |AURIER..IST..HAR| 00000EF0: 4D 4C 4F 53 2E 2E 2E 22 0D 39 30 30 80 A3 50 52 |MLOS...".900..PR| 00000F00: 49 4E 54 43 48 52 24 28 31 34 37 29 43 48 52 24 |INTCHR$(147)CHR$| 00000F10: 28 31 34 29 3A 46 4F 52 54 3D 31 54 4F 32 30 30 |(14):FORT=1TO200| 00000F20: 3A 4E 45 58 54 0D 39 31 30 80 A3 50 52 49 4E 54 |:NEXT.910..PRINT| 00000F30: 44 32 24 52 4E 24 22 80 A3 C2 49 54 54 45 80 A3 |D2$RN$"...ITTE..| 00000F40: C6 4C 4F 50 50 59 80 A3 80 A3 4E 49 43 48 54 80 |.LOPPY....NICHT.| 00000F50: A3 80 A3 41 55 53 53 43 48 41 4C 54 45 4E 2C 80 |...AUSSCHALTEN,.| 00000F60: A3 80 A3 80 A3 22 52 46 24 0D 39 32 30 80 A3 50 |....."RF$.920..P| 00000F70: 52 49 4E 54 43 34 24 52 4E 24 22 80 A3 C4 49 53 |RINTC4$RN$"...IS| 00000F80: 4B 45 54 54 45 80 A3 49 4D 80 A3 CC 41 55 46 57 |KETTE..IM...AUFW| 00000F90: 45 52 4B 80 A3 4C 41 53 53 45 4E 80 A3 55 4E 44 |ERK..LASSEN..UND| 00000FA0: 80 A3 80 A3 80 A3 80 A3 80 A3 22 52 46 24 0D 39 |.........."RF$.9| 00000FB0: 33 30 80 A3 50 52 49 4E 54 43 34 24 52 4E 24 22 |30..PRINTC4$RN$"| 00000FC0: 80 A3 57 41 45 48 52 45 4E 44 80 A3 44 45 53 80 |..WAEHREND..DES.| 00000FD0: A3 D3 50 49 45 4C 53 80 A3 4E 49 43 48 54 80 A3 |..PIELS..NICHT..| 00000FE0: 45 4E 54 46 45 52 4E 45 4E 2E 22 52 46 24 0D 39 |ENTFERNEN."RF$.9| 00000FF0: 34 30 80 A3 46 4F 52 46 3D 31 54 4F 42 41 3A 52 |40..FORF=1TOBA:R| 00001000: 45 41 44 42 41 24 28 46 29 3A 42 41 24 28 46 29 |EADBA$(F):BA$(F)| 00001010: 3D 4C 45 46 54 24 28 42 41 24 28 46 29 2C 57 4F |=LEFT$(BA$(F),WO| 00001020: 29 3A 4E 45 58 54 0D 39 35 30 80 A3 46 4F 52 47 |):NEXT.950..FORG| 00001030: 47 3D 31 54 4F 47 41 3A 52 45 41 44 47 47 24 28 |G=1TOGA:READGG$(| 00001040: 47 47 29 2C 4E 4D 24 28 47 47 29 2C 47 47 28 47 |GG),NM$(GG),GG(G| 00001050: 47 29 3A 4E 4D 24 28 47 47 29 3D 4C 45 46 54 24 |G):NM$(GG)=LEFT$| 00001060: 28 4E 4D 24 28 47 47 29 2C 57 4F 29 3A 4E 45 58 |(NM$(GG),WO):NEX| 00001070: 54 0D 39 36 30 80 A3 46 4F 52 4A 3D 31 54 4F 52 |T.960..FORJ=1TOR| 00001080: 41 3A 52 45 41 44 52 4D 24 28 4A 29 3A 46 4F 52 |A:READRM$(J):FOR| 00001090: 4B 3D 31 54 4F 36 3A 52 45 41 44 44 47 28 4A 2C |K=1TO6:READDG(J,| 000010A0: 4B 29 3A 4E 45 58 54 3A 4E 45 58 54 0D 39 37 30 |K):NEXT:NEXT.970| 000010B0: 80 A3 46 4F 52 49 3D 31 54 4F 36 3A 52 45 41 44 |..FORI=1TO6:READ| 000010C0: 52 43 24 28 49 29 3A 4E 45 58 54 0D 39 38 30 80 |RC$(I):NEXT.980.| 000010D0: A3 46 4F 52 49 3D 31 54 4F 52 41 3A 52 45 41 44 |.FORI=1TORA:READ| 000010E0: 46 4C 24 28 49 29 3A 4E 45 58 54 0D 39 39 30 80 |FL$(I):NEXT.990.| 000010F0: A3 50 52 49 4E 54 43 48 52 24 28 31 34 29 44 33 |.PRINTCHR$(14)D3| 00001100: 24 44 33 24 3B 3A 49 4E 50 55 54 22 D3 50 49 45 |$D3$;:INPUT".PIE| 00001110: 4C 41 4E 4C 45 49 54 55 4E 47 80 A3 28 4A 2F 4E |LANLEITUNG..(J/N| 00001120: 29 22 3B 41 24 0D 31 30 30 30 80 A3 49 46 41 24 |)";A$.1000..IFA$| 00001130: 3D 22 4A 22 54 48 45 4E 47 4F 53 55 42 31 30 37 |="J"THENGOSUB107| 00001140: 30 0D 31 30 31 30 80 A3 50 52 49 4E 54 44 32 24 |0.1010..PRINTD2$| 00001150: 52 4E 24 22 C1 22 52 46 24 22 4C 54 45 53 80 A3 |RN$"."RF$"LTES..| 00001160: D3 50 49 45 4C 80 A3 4C 41 44 45 4E 80 A3 4F 44 |.PIEL..LADEN..OD| 00001170: 45 52 22 0D 31 30 32 30 80 A3 50 52 49 4E 54 43 |ER".1020..PRINTC| 00001180: 34 24 52 4E 24 22 CE 22 52 46 24 22 45 55 42 45 |4$RN$"."RF$"EUBE| 00001190: 47 49 4E 4E 80 A3 3F 22 0D 31 30 33 30 80 A3 47 |GINN..?".1030..G| 000011A0: 45 54 41 24 0D 31 30 34 30 80 A3 49 46 41 24 3D |ETA$.1040..IFA$=| 000011B0: 22 41 22 54 48 45 4E 41 4E 24 3D 42 41 24 28 31 |"A"THENAN$=BA$(1| 000011C0: 38 29 3A 50 52 49 4E 54 43 48 52 24 28 31 34 37 |8):PRINTCHR$(147| 000011D0: 29 43 48 52 24 28 31 34 32 29 3A 47 4F 54 4F 31 |)CHR$(142):GOTO1| 000011E0: 39 36 30 0D 31 30 35 30 80 A3 49 46 41 24 3D 22 |960.1050..IFA$="| 000011F0: 4E 22 54 48 45 4E 31 34 31 30 0D 31 30 36 30 80 |N"THEN1410.1060.| 00001200: A3 47 4F 54 4F 31 30 33 30 0D 31 30 37 30 80 A3 |.GOTO1030.1070..| 00001210: 50 52 49 4E 54 43 48 52 24 28 31 34 37 29 3A 47 |PRINTCHR$(147):G| 00001220: 4F 53 55 42 32 34 30 0D 31 30 38 30 80 A3 50 52 |OSUB240.1080..PR| 00001230: 49 4E 54 22 C5 49 4E 54 52 41 47 80 A3 C3 4F 4D |INT".INTRAG...OM| 00001240: 4D 41 4E 44 45 52 80 A3 D0 48 49 4C 80 A3 D2 45 |MANDER...HIL...E| 00001250: 45 44 80 A3 56 4F 4D 80 A3 D2 41 55 4D 2D 22 0D |ED..VOM...AUM-".| 00001260: 31 30 39 30 80 A3 50 52 49 4E 54 22 53 43 48 49 |1090..PRINT"SCHI| 00001270: 46 46 80 A3 27 D3 D4 C1 D2 C4 D5 D3 D4 80 A3 C9 |FF..'...........| 00001280: 27 80 A3 49 4E 80 A3 44 41 53 80 A3 C2 4F 52 44 |'..IN..DAS...ORD| 00001290: 4C 4F 47 42 55 43 48 3A 22 3A 47 4F 53 55 42 32 |LOGBUCH:":GOSUB2| 000012A0: 34 30 0D 31 31 30 30 80 A3 50 52 49 4E 54 22 D4 |40.1100..PRINT".| 000012B0: 52 4F 54 5A 80 A3 49 4E 54 45 4E 53 49 56 53 54 |ROTZ..INTENSIVST| 000012C0: 45 52 80 A3 C2 45 4D 55 45 48 55 4E 47 45 4E 80 |ER...EMUEHUNGEN.| 000012D0: A3 49 53 54 80 A3 44 49 45 22 0D 31 31 31 30 80 |.IST..DIE".1110.| 000012E0: A3 50 52 49 4E 54 22 D2 45 50 41 52 41 54 55 52 |.PRINT".EPARATUR| 000012F0: 80 A3 44 45 53 80 A3 44 45 46 45 4B 54 45 4E 80 |..DES..DEFEKTEN.| 00001300: A3 C2 4F 52 44 2D D3 54 45 55 45 52 55 4E 47 53 |..ORD-.TEUERUNGS| 00001310: 2D 22 0D 31 31 32 30 80 A3 50 52 49 4E 54 22 C3 |-".1120..PRINT".| 00001320: 4F 4D 50 55 54 45 52 53 80 A3 4E 49 43 48 54 80 |OMPUTERS..NICHT.| 00001330: A3 47 45 4C 55 4E 47 45 4E 2E 22 3A 47 4F 53 55 |.GELUNGEN.":GOSU| 00001340: 42 32 34 30 0D 31 31 33 30 80 A3 50 52 49 4E 54 |B240.1130..PRINT| 00001350: 22 D7 45 52 44 45 80 A3 CE 4F 54 4C 41 4E 44 45 |".ERDE...OTLANDE| 00001360: 2D C1 47 47 52 45 47 41 54 80 A3 5A 55 45 4E 44 |-.GGREGAT..ZUEND| 00001370: 45 4E 2E 2E 2E 2E 2E 2E 2E 22 0D 31 31 34 30 80 |EN.......".1140.| 00001380: A3 50 52 49 4E 54 22 D6 4F 52 47 45 53 45 48 45 |.PRINT".ORGESEHE| 00001390: 4E 45 80 A3 80 A3 CC 41 4E 44 55 4E 47 80 A3 41 |NE.....ANDUNG..A| 000013A0: 55 46 80 A3 80 A3 55 4E 42 45 4B 41 4E 4E 54 45 |UF....UNBEKANNTE| 000013B0: 4D 80 A3 22 0D 31 31 35 30 80 A3 50 52 49 4E 54 |M..".1150..PRINT| 000013C0: 22 D0 4C 41 4E 45 54 45 4E 2C 80 A3 CB 4F 4F 52 |".LANETEN,...OOR| 000013D0: 44 49 4E 41 54 45 4E 50 55 4E 4B 54 80 A3 D8 2F |DINATENPUNKT.../| 000013E0: 33 36 2D C3 2F 34 35 2E 22 3A 47 4F 53 55 42 32 |36-./45.":GOSUB2| 000013F0: 34 30 0D 31 31 36 30 80 A3 50 52 49 4E 54 22 C5 |40.1160..PRINT".| 00001400: 4E 54 46 45 52 4E 55 4E 47 80 A3 5A 55 80 A3 D2 |NTFERNUNG..ZU...| 00001410: 41 55 4D 53 43 48 49 46 46 80 A3 45 58 41 4B 54 |AUMSCHIFF..EXAKT| 00001420: 80 A3 39 38 35 36 37 2E 36 22 0D 31 31 37 30 80 |..98567.6".1170.| 00001430: A3 50 52 49 4E 54 22 D2 41 55 4D 4D 45 49 4C 45 |.PRINT".AUMMEILE| 00001440: 4E 2E 80 A3 C1 55 46 53 43 48 4C 41 47 80 A3 45 |N....UFSCHLAG..E| 00001450: 52 46 4F 4C 47 54 80 A3 49 4E 80 A3 47 45 4E 41 |RFOLGT..IN..GENA| 00001460: 55 22 0D 31 31 38 30 80 A3 50 52 49 4E 54 22 32 |U".1180..PRINT"2| 00001470: 3A 34 38 2C 30 33 2E 34 35 80 A3 4D 49 4E 2E 2E |:48,03.45..MIN..| 00001480: 2E 2E 2E 22 3A 47 4F 53 55 42 32 34 30 0D 31 31 |...":GOSUB240.11| 00001490: 39 30 80 A3 50 52 49 4E 54 22 C6 55 4E 4B 4B 4F |90..PRINT".UNKKO| 000014A0: 4E 54 41 4B 54 45 80 A3 42 4C 49 45 42 45 4E 80 |NTAKTE..BLIEBEN.| 000014B0: A3 55 4E 42 45 41 4E 54 57 4F 52 54 45 54 2C 80 |.UNBEANTWORTET,.| 000014C0: A3 45 53 22 0D 31 32 30 30 80 A3 50 52 49 4E 54 |.ES".1200..PRINT| 000014D0: 22 4D 55 53 53 80 A3 44 41 56 4F 4E 80 A3 41 55 |"MUSS..DAVON..AU| 000014E0: 53 47 45 47 41 4E 47 45 4E 80 A3 57 45 52 44 45 |SGEGANGEN..WERDE| 000014F0: 4E 2C 80 A3 44 41 53 53 80 A3 22 0D 31 32 31 30 |N,..DASS..".1210| 00001500: 80 A3 50 52 49 4E 54 22 44 45 52 80 A3 45 52 44 |..PRINT"DER..ERD| 00001510: 41 45 48 4E 4C 49 43 48 45 80 A3 D0 4C 41 4E 45 |AEHNLICHE...LANE| 00001520: 54 80 A3 55 4E 42 45 57 4F 48 4E 54 80 A3 49 53 |T..UNBEWOHNT..IS| 00001530: 54 2E 22 0D 31 32 32 30 80 A3 50 52 49 4E 54 22 |T.".1220..PRINT"| 00001540: C1 55 53 53 49 43 48 54 45 4E 80 A3 45 49 4E 45 |.USSICHTEN..EINE| 00001550: 52 80 A3 4D 4F 45 47 4C 49 43 48 45 4E 80 A3 C2 |R..MOEGLICHEN...| 00001560: 45 48 45 42 55 4E 47 80 A3 22 0D 31 32 33 30 80 |EHEBUNG..".1230.| 00001570: A3 50 52 49 4E 54 22 44 45 53 80 A3 D3 43 48 41 |.PRINT"DES...CHA| 00001580: 44 45 4E 53 80 A3 53 49 4E 44 80 A3 53 45 48 52 |DENS..SIND..SEHR| 00001590: 80 A3 47 45 52 49 4E 47 2E 2E 2E 2E 2E 2E 2E 2E |..GERING........| 000015A0: 22 3A 47 4F 53 55 42 32 34 30 0D 31 32 34 30 80 |":GOSUB240.1240.| 000015B0: A3 50 52 49 4E 54 4F 45 24 44 32 24 22 C6 4F 4C |.PRINTOE$D2$".OL| 000015C0: 47 45 4E 44 45 80 A3 C2 45 46 45 48 4C 45 80 A3 |GENDE...EFEHLE..| 000015D0: 57 45 52 44 45 80 A3 49 43 48 80 A3 56 45 52 57 |WERDE..ICH..VERW| 000015E0: 45 4E 44 45 4E 3A 22 3A 47 4F 53 55 42 32 34 30 |ENDEN:":GOSUB240| 000015F0: 0D 31 32 35 30 80 A3 50 52 49 4E 54 22 4E 49 4D |.1250..PRINT"NIM| 00001600: 4D 2C 55 4E 54 45 52 53 55 43 48 45 2C 42 45 54 |M,UNTERSUCHE,BET| 00001610: 52 45 54 45 2C 4B 4C 45 54 54 45 52 45 2C 47 45 |RETE,KLETTERE,GE| 00001620: 48 45 2C 22 0D 31 32 36 30 80 A3 50 52 49 4E 54 |HE,".1260..PRINT| 00001630: 22 42 45 46 52 45 49 45 2C 52 45 54 54 45 2C 52 |"BEFREIE,RETTE,R| 00001640: 45 50 41 52 49 45 52 45 2C 48 49 4C 46 2C 42 45 |EPARIERE,HILF,BE| 00001650: 4E 55 54 5A 45 2C 22 0D 31 32 37 30 80 A3 50 52 |NUTZE,".1270..PR| 00001660: 49 4E 54 22 57 49 52 46 2C 42 45 4B 41 45 4D 50 |INT"WIRF,BEKAEMP| 00001670: 46 45 2C 53 50 52 49 43 48 2C 56 45 52 4C 49 45 |FE,SPRICH,VERLIE| 00001680: 52 45 2C 52 41 45 55 4D 45 2C 22 3A 47 4F 53 55 |RE,RAEUME,":GOSU| 00001690: 42 32 34 30 0D 31 32 38 30 80 A3 50 52 49 4E 54 |B240.1280..PRINT| 000016A0: 22 CD 49 54 80 A3 D3 C1 D6 C5 80 A3 57 49 52 44 |".IT........WIRD| 000016B0: 80 A3 44 45 52 80 A3 4D 4F 4D 45 4E 54 41 4E 45 |..DER..MOMENTANE| 000016C0: 80 A3 D3 50 49 45 4C 53 54 41 4E 44 2D 22 0D 31 |...PIELSTAND-".1| 000016D0: 32 39 30 80 A3 50 52 49 4E 54 22 41 55 46 80 A3 |290..PRINT"AUF..| 000016E0: C4 49 53 4B 45 54 54 45 80 A3 41 42 47 45 53 50 |.ISKETTE..ABGESP| 000016F0: 45 49 43 48 45 52 54 80 A3 22 20 3A 47 4F 53 55 |EICHERT.." :GOSU| 00001700: 42 32 34 30 0D 31 33 30 30 80 A3 50 52 49 4E 54 |B240.1300..PRINT| 00001710: 22 CD 49 54 80 A3 CC CF C1 C4 80 A3 55 4E 54 45 |".IT........UNTE| 00001720: 52 80 A3 C1 4E 47 41 42 45 80 A3 44 45 53 80 A3 |R...NGABE..DES..| 00001730: 52 49 43 48 54 49 47 45 4E 22 0D 31 33 31 30 80 |RICHTIGEN".1310.| 00001740: A3 50 52 49 4E 54 22 C6 49 4C 45 2D CE 41 4D 45 |.PRINT".ILE-.AME| 00001750: 4E 53 80 A3 57 49 45 44 45 52 80 A3 49 4E 80 A3 |NS..WIEDER..IN..| 00001760: 44 45 4E 80 A3 C3 4F 4D 50 55 54 45 52 22 0D 31 |DEN...OMPUTER".1| 00001770: 33 32 30 80 A3 50 52 49 4E 54 22 47 45 4C 41 44 |320..PRINT"GELAD| 00001780: 45 4E 80 A3 55 4E 44 80 A3 44 41 53 80 A3 D3 50 |EN..UND..DAS...P| 00001790: 49 45 4C 80 A3 41 4E 80 A3 44 49 45 53 45 52 80 |IEL..AN..DIESER.| 000017A0: A3 D3 54 45 4C 4C 45 22 0D 31 33 33 30 80 A3 50 |..TELLE".1330..P| 000017B0: 52 49 4E 54 22 46 4F 52 54 47 45 53 45 54 5A 54 |RINT"FORTGESETZT| 000017C0: 2E 22 3A 47 4F 53 55 42 32 34 30 0D 31 33 34 30 |.":GOSUB240.1340| 000017D0: 80 A3 50 52 49 4E 54 22 C6 41 4C 4C 53 80 A3 D3 |..PRINT".ALLS...| 000017E0: 49 45 80 A3 45 49 4E 4D 41 4C 80 A3 4E 49 43 48 |IE..EINMAL..NICH| 000017F0: 54 80 A3 52 45 43 48 54 80 A3 57 45 49 54 45 52 |T..RECHT..WEITER| 00001800: 22 0D 31 33 35 30 80 A3 50 52 49 4E 54 22 57 49 |".1350..PRINT"WI| 00001810: 53 53 45 4E 2C 80 A3 42 45 4B 4F 4D 4D 45 4E 80 |SSEN,..BEKOMMEN.| 00001820: A3 D3 49 45 80 A3 D4 49 50 53 80 A3 4D 49 54 80 |..IE...IPS..MIT.| 00001830: A3 C8 C5 CC D0 2E 22 0D 31 33 36 30 80 A3 50 52 |......".1360..PR| 00001840: 49 4E 54 22 C4 49 45 80 A3 C2 45 53 43 48 52 45 |INT".IE...ESCHRE| 00001850: 49 42 55 4E 47 80 A3 44 45 52 80 A3 C2 49 4C 44 |IBUNG..DER...ILD| 00001860: 45 52 80 A3 4B 41 4E 4E 80 A3 4A 45 44 45 52 2D |ER..KANN..JEDER-| 00001870: 22 0D 31 33 37 30 80 A3 50 52 49 4E 54 22 5A 45 |".1370..PRINT"ZE| 00001880: 49 54 80 A3 4D 49 54 80 A3 D4 C5 D8 D4 80 A3 41 |IT..MIT........A| 00001890: 55 46 53 80 A3 4E 45 55 45 80 A3 47 45 4C 45 53 |UFS..NEUE..GELES| 000018A0: 45 4E 80 A3 57 45 52 44 45 4E 2E 22 3A 47 4F 53 |EN..WERDEN.":GOS| 000018B0: 55 42 32 34 30 0D 31 33 38 30 80 A3 50 52 49 4E |UB240.1380..PRIN| 000018C0: 54 22 C4 45 52 80 A3 C2 45 46 45 48 4C 80 A3 CC |T".ER...EFEHL...| 000018D0: C9 D3 D4 80 A3 47 49 42 54 80 A3 C9 48 4E 45 4E |.....GIBT...HNEN| 000018E0: 80 A3 D5 45 42 45 52 42 4C 49 43 4B 22 0D 31 33 |...EBERBLICK".13| 000018F0: 39 30 80 A3 50 52 49 4E 54 22 55 45 42 45 52 80 |90..PRINT"UEBER.| 00001900: A3 44 49 45 80 A3 4D 49 54 47 45 46 55 45 48 52 |.DIE..MITGEFUEHR| 00001910: 54 45 4E 80 A3 C7 45 47 45 4E 53 54 41 45 4E 44 |TEN...EGENSTAEND| 00001920: 45 2E 22 3A 47 4F 53 55 42 32 34 30 0D 31 34 30 |E.":GOSUB240.140| 00001930: 30 80 A3 52 45 54 55 52 4E 0D 31 34 31 30 80 A3 |0..RETURN.1410..| 00001940: 52 45 4D 80 A3 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |REM..***********| 00001950: 2A 2A 2A 2A 2A 2A 20 44 52 49 56 45 52 20 2A 0D |****** DRIVER *.| 00001960: 31 34 32 30 80 A3 50 52 49 4E 54 43 48 52 24 28 |1420..PRINTCHR$(| 00001970: 31 34 37 29 43 48 52 24 28 39 29 43 48 52 24 28 |147)CHR$(9)CHR$(| 00001980: 31 34 32 29 43 48 52 24 28 38 29 3B 0D 31 34 33 |142)CHR$(8);.143| 00001990: 30 80 A3 4C 45 24 3D 22 80 A3 80 A3 80 A3 80 A3 |0..LE$="........| 000019A0: 80 A3 80 A3 80 A3 80 A3 80 A3 80 A3 80 A3 80 A3 |................| 000019B0: 80 A3 80 A3 80 A3 80 A3 80 A3 80 A3 80 A3 80 A3 |................| 000019C0: 80 A3 80 A3 80 A3 80 A3 80 A3 80 A3 80 A3 80 A3 |................| 000019D0: 80 A3 80 A3 80 A3 80 A3 80 A3 80 A3 80 A3 80 A3 |................| 000019E0: 80 A3 80 A3 80 A3 22 3A 52 45 4D 80 A3 33 39 80 |......":REM..39.| 000019F0: A3 58 80 A3 4C 45 45 52 54 41 53 54 45 0D 31 34 |.X..LEERTASTE.14| 00001A00: 34 30 20 52 45 4D 20 2A 2A 2A 2A 2A 2A 2A 2A 2A |40 REM *********| 00001A10: 20 41 42 20 48 49 45 52 20 53 43 52 45 45 4E 20 | AB HIER SCREEN | 00001A20: 2A 0D 31 34 35 30 80 A3 49 46 47 52 3C 3E 4D 41 |*.1450..IFGR<>MA| 00001A30: 54 48 45 4E 36 32 32 30 0D 31 34 36 30 80 A3 47 |THEN6220.1460..G| 00001A40: 52 3D 4D 41 3A 47 4F 53 55 42 33 33 30 3A 47 4F |R=MA:GOSUB330:GO| 00001A50: 53 55 42 33 31 30 0D 31 34 37 30 80 A3 50 4F 4B |SUB310.1470..POK| 00001A60: 45 43 53 2C 30 3A 50 4F 4B 45 43 5A 2C 31 35 3A |ECS,0:POKECZ,15:| 00001A70: 53 59 53 58 0D 31 34 38 30 80 A3 50 52 49 4E 54 |SYSX.1480..PRINT| 00001A80: 52 4D 24 28 4D 41 29 0D 31 34 39 30 80 A3 47 44 |RM$(MA).1490..GD| 00001A90: 3D 30 0D 31 35 30 30 80 A3 46 4F 52 49 3D 31 54 |=0.1500..FORI=1T| 00001AA0: 4F 47 41 3A 49 46 47 47 28 49 29 3C 3E 4D 41 54 |OGA:IFGG(I)<>MAT| 00001AB0: 48 45 4E 31 35 33 30 0D 31 35 31 30 80 A3 49 46 |HEN1530.1510..IF| 00001AC0: 50 4F 53 28 30 29 2B 4C 45 4E 28 47 47 24 28 49 |POS(0)+LEN(GG$(I| 00001AD0: 29 29 2B 32 3C 33 39 54 48 45 4E 50 52 49 4E 54 |))+2<39THENPRINT| 00001AE0: 47 47 24 28 49 29 3B 22 2C 22 3B 3A 47 44 3D 2D |GG$(I);",";:GD=-| 00001AF0: 31 3A 47 4F 54 4F 31 35 33 30 0D 31 35 32 30 80 |1:GOTO1530.1520.| 00001B00: A3 49 46 50 4F 53 28 30 29 2B 4C 45 4E 28 47 47 |.IFPOS(0)+LEN(GG| 00001B10: 24 28 49 29 29 2B 32 3E 3D 33 39 54 48 45 4E 50 |$(I))+2>=39THENP| 00001B20: 52 49 4E 54 3A 47 4F 54 4F 31 35 31 30 0D 31 35 |RINT:GOTO1510.15| 00001B30: 33 30 80 A3 4E 45 58 54 3A 49 46 47 44 3D 30 54 |30..NEXT:IFGD=0T| 00001B40: 48 45 4E 50 52 49 4E 54 22 4E 49 43 48 54 53 80 |HENPRINT"NICHTS.| 00001B50: A3 42 45 53 4F 4E 44 45 52 45 53 2E 22 3B 0D 31 |.BESONDERES.";.1| 00001B60: 35 34 30 80 A3 50 52 49 4E 54 43 48 52 24 28 31 |540..PRINTCHR$(1| 00001B70: 34 35 29 43 48 52 24 28 31 34 35 29 0D 31 35 35 |45)CHR$(145).155| 00001B80: 30 80 A3 50 4F 4B 45 43 5A 2C 31 39 3A 53 59 53 |0..POKECZ,19:SYS| 00001B90: 58 3A 52 45 24 3D 22 22 0D 31 35 36 30 80 A3 50 |X:RE$="".1560..P| 00001BA0: 52 49 4E 54 22 52 49 43 48 54 55 4E 47 3A 22 3B |RINT"RICHTUNG:";| 00001BB0: 0D 31 35 37 30 80 A3 49 46 44 47 28 4D 41 2C 31 |.1570..IFDG(MA,1| 00001BC0: 29 3D 30 41 4E 44 44 47 28 4D 41 2C 32 29 3D 30 |)=0ANDDG(MA,2)=0| 00001BD0: 41 4E 44 44 47 28 4D 41 2C 33 29 3D 30 41 4E 44 |ANDDG(MA,3)=0AND| 00001BE0: 44 47 28 4D 41 2C 34 29 3D 30 41 4E 44 44 47 28 |DG(MA,4)=0ANDDG(| 00001BF0: 4D 41 2C 35 29 3D 30 54 48 45 4E 47 4F 53 55 42 |MA,5)=0THENGOSUB| 00001C00: 31 35 39 30 0D 31 35 38 30 80 A3 47 4F 54 4F 31 |1590.1580..GOTO1| 00001C10: 36 30 30 0D 31 35 39 30 80 A3 52 45 24 3D 22 4D |600.1590..RE$="M| 00001C20: 4F 4D 45 4E 54 41 4E 80 A3 4B 45 49 4E 45 2E 2E |OMENTAN..KEINE..| 00001C30: 2E 22 3A 52 45 54 55 52 4E 0D 31 36 30 30 80 A3 |.":RETURN.1600..| 00001C40: 46 4F 52 49 3D 31 54 4F 36 0D 31 36 31 30 80 A3 |FORI=1TO6.1610..| 00001C50: 49 46 44 47 28 4D 41 2C 49 29 3D 30 54 48 45 4E |IFDG(MA,I)=0THEN| 00001C60: 31 36 36 30 0D 31 36 32 30 80 A3 49 46 50 4F 53 |1660.1620..IFPOS| 00001C70: 28 30 29 3D 31 34 54 48 45 4E 50 52 49 4E 54 52 |(0)=14THENPRINTR| 00001C80: 43 24 28 49 29 3B 3A 47 4F 54 4F 31 36 36 30 0D |C$(I);:GOTO1660.| 00001C90: 31 36 33 30 80 A3 49 46 50 4F 53 28 30 29 2B 4C |1630..IFPOS(0)+L| 00001CA0: 45 4E 28 52 43 24 28 49 29 29 3C 33 37 54 48 45 |EN(RC$(I))<37THE| 00001CB0: 4E 50 52 49 4E 54 22 80 A3 22 3B 52 43 24 28 49 |NPRINT"..";RC$(I| 00001CC0: 29 3B 3A 47 4F 54 4F 31 36 36 30 0D 31 36 34 30 |);:GOTO1660.1640| 00001CD0: 80 A3 49 46 50 4F 53 28 30 29 2B 4C 45 4E 28 52 |..IFPOS(0)+LEN(R| 00001CE0: 43 24 28 49 29 29 3E 3D 33 37 54 48 45 4E 50 52 |C$(I))>=37THENPR| 00001CF0: 49 4E 54 22 2C 22 3B 52 43 24 28 49 29 3B 3A 47 |INT",";RC$(I);:G| 00001D00: 4F 54 4F 31 36 36 30 0D 31 36 35 30 80 A3 49 46 |OTO1660.1650..IF| 00001D10: 50 4F 53 28 30 29 3C 31 36 41 4E 44 50 4F 53 28 |POS(0)<16ANDPOS(| 00001D20: 30 29 3E 32 54 48 45 4E 50 52 49 4E 54 22 2C 22 |0)>2THENPRINT","| 00001D30: 3B 52 43 24 28 49 29 3B 3A 47 4F 54 4F 31 36 36 |;RC$(I);:GOTO166| 00001D40: 30 0D 31 36 36 30 80 A3 4E 45 58 54 0D 31 36 37 |0.1660..NEXT.167| 00001D50: 30 80 A3 50 52 49 4E 54 52 45 24 3B 22 2E 80 A3 |0..PRINTRE$;"...| 00001D60: 22 0D 31 36 38 30 20 52 45 4D 20 2A 2A 20 4E 45 |".1680 REM ** NE| 00001D70: 47 41 54 49 56 45 20 4D 49 54 54 45 49 4C 55 4E |GATIVE MITTEILUN| 00001D80: 47 45 4E 20 2A 0D 31 36 39 30 80 A3 58 31 24 3D |GEN *.1690..X1$=| 00001D90: 22 C5 52 80 A3 49 53 54 80 A3 49 4E 80 A3 44 45 |".R..IST..IN..DE| 00001DA0: 52 80 A3 D7 55 45 53 54 45 80 A3 56 45 52 44 55 |R...UESTE..VERDU| 00001DB0: 52 53 54 45 54 2E 22 0D 31 37 30 30 80 A3 58 32 |RSTET.".1700..X2| 00001DC0: 24 3D 22 C4 49 45 80 A3 C7 49 46 54 53 50 49 4E |$=".IE...IFTSPIN| 00001DD0: 4E 45 80 A3 48 41 54 80 A3 49 48 4E 80 A3 47 45 |NE..HAT..IHN..GE| 00001DE0: 42 49 53 53 45 4E 2E 22 0D 31 37 31 30 80 A3 58 |BISSEN.".1710..X| 00001DF0: 33 24 3D 22 C4 49 45 80 A3 D7 49 4C 44 45 4E 80 |3$=".IE...ILDEN.| 00001E00: A3 48 41 42 45 4E 80 A3 49 48 4E 80 A3 47 45 54 |.HABEN..IHN..GET| 00001E10: 4F 45 54 45 54 2E 22 0D 31 37 32 30 80 A3 58 34 |OETET.".1720..X4| 00001E20: 24 3D 22 C4 45 52 80 A3 D4 49 47 45 52 80 A3 48 |$=".ER...IGER..H| 00001E30: 41 54 80 A3 49 48 4E 80 A3 5A 45 52 46 4C 45 49 |AT..IHN..ZERFLEI| 00001E40: 53 43 48 54 2E 22 0D 31 37 33 30 80 A3 58 35 24 |SCHT.".1730..X5$| 00001E50: 3D 22 C4 45 52 80 A3 D3 41 55 52 49 45 52 80 A3 |=".ER...AURIER..| 00001E60: 48 41 54 80 A3 49 48 4E 80 A3 5A 45 52 54 52 41 |HAT..IHN..ZERTRA| 00001E70: 4D 50 45 4C 54 2E 22 0D 31 37 34 30 80 A3 58 36 |MPELT.".1740..X6| 00001E80: 24 3D 22 C4 49 45 80 A3 D2 49 45 53 45 4E 53 50 |$=".IE...IESENSP| 00001E90: 49 4E 4E 45 80 A3 48 41 54 80 A3 49 48 4E 80 A3 |INNE..HAT..IHN..| 00001EA0: 47 45 46 52 45 53 53 45 4E 2E 22 0D 31 37 35 30 |GEFRESSEN.".1750| 00001EB0: 80 A3 49 46 4D 41 3D 32 54 48 45 4E 4E 47 24 3D |..IFMA=2THENNG$=| 00001EC0: 22 C5 52 80 A3 49 53 54 80 A3 49 4E 80 A3 44 45 |".R..IST..IN..DE| 00001ED0: 52 80 A3 D7 55 45 53 54 45 80 A3 56 45 52 44 55 |R...UESTE..VERDU| 00001EE0: 52 53 54 45 54 2E 2E 2E 22 3A 47 4F 54 4F 33 31 |RSTET...":GOTO31| 00001EF0: 39 30 0D 31 37 36 30 80 A3 49 46 4D 41 3D 33 34 |90.1760..IFMA=34| 00001F00: 41 4E 44 47 47 28 31 36 29 3C 3E 2D 31 54 48 45 |ANDGG(16)<>-1THE| 00001F10: 4E 4E 47 24 3D 58 32 24 0D 31 37 37 30 80 A3 49 |NNG$=X2$.1770..I| 00001F20: 46 4D 41 3D 33 34 41 4E 44 47 47 28 32 39 29 3C |FMA=34ANDGG(29)<| 00001F30: 3E 2D 31 54 48 45 4E 4E 47 24 3D 58 32 24 0D 31 |>-1THENNG$=X2$.1| 00001F40: 37 38 30 80 A3 49 46 4D 41 3D 33 34 41 4E 44 47 |780..IFMA=34ANDG| 00001F50: 47 28 33 30 29 3C 3E 2D 31 54 48 45 4E 4E 47 24 |G(30)<>-1THENNG$| 00001F60: 3D 58 32 24 0D 31 37 39 30 80 A3 49 46 4D 41 3D |=X2$.1790..IFMA=| 00001F70: 35 34 41 4E 44 47 47 28 31 36 29 3C 3E 2D 31 54 |54ANDGG(16)<>-1T| 00001F80: 48 45 4E 4E 47 24 3D 58 33 24 0D 31 38 30 30 80 |HENNG$=X3$.1800.| 00001F90: A3 49 46 4D 41 3D 35 34 41 4E 44 47 47 28 32 39 |.IFMA=54ANDGG(29| 00001FA0: 29 3C 3E 2D 31 54 48 45 4E 4E 47 24 3D 58 33 24 |)<>-1THENNG$=X3$| 00001FB0: 0D 31 38 31 30 80 A3 49 46 4D 41 3D 35 34 41 4E |.1810..IFMA=54AN| 00001FC0: 44 47 47 28 33 30 29 3C 3E 2D 31 54 48 45 4E 4E |DGG(30)<>-1THENN| 00001FD0: 47 24 3D 58 33 24 0D 31 38 32 30 80 A3 49 46 4D |G$=X3$.1820..IFM| 00001FE0: 41 3D 35 38 41 4E 44 47 47 28 31 36 29 3C 3E 2D |A=58ANDGG(16)<>-| 00001FF0: 31 54 48 45 4E 4E 47 24 3D 58 33 24 0D 31 38 33 |1THENNG$=X3$.183| 00002000: 30 80 A3 49 46 4D 41 3D 35 38 41 4E 44 47 47 28 |0..IFMA=58ANDGG(| 00002010: 32 39 29 3C 3E 2D 31 54 48 45 4E 4E 47 24 3D 58 |29)<>-1THENNG$=X| 00002020: 33 24 0D 31 38 34 30 80 A3 49 46 4D 41 3D 35 38 |3$.1840..IFMA=58| 00002030: 41 4E 44 47 47 28 33 30 29 3C 3E 2D 31 54 48 45 |ANDGG(30)<>-1THE| 00002040: 4E 4E 47 24 3D 58 33 24 0D 31 38 35 30 80 A3 49 |NNG$=X3$.1850..I| 00002050: 46 4D 41 3D 36 33 41 4E 44 47 47 28 31 36 29 3C |FMA=63ANDGG(16)<| 00002060: 3E 2D 31 54 48 45 4E 4E 47 24 3D 58 34 24 0D 31 |>-1THENNG$=X4$.1| 00002070: 38 36 30 80 A3 49 46 4D 41 3D 36 33 41 4E 44 47 |860..IFMA=63ANDG| 00002080: 47 28 32 39 29 3C 3E 2D 31 54 48 45 4E 4E 47 24 |G(29)<>-1THENNG$| 00002090: 3D 58 34 24 0D 31 38 37 30 80 A3 49 46 4D 41 3D |=X4$.1870..IFMA=| 000020A0: 36 33 41 4E 44 47 47 28 33 30 29 3C 3E 2D 31 54 |63ANDGG(30)<>-1T| 000020B0: 48 45 4E 4E 47 24 3D 58 34 24 0D 31 38 38 30 80 |HENNG$=X4$.1880.| 000020C0: A3 49 46 4D 41 3D 36 35 41 4E 44 47 47 28 31 36 |.IFMA=65ANDGG(16| 000020D0: 29 3C 3E 2D 31 54 48 45 4E 4E 47 24 3D 58 35 24 |)<>-1THENNG$=X5$| 000020E0: 0D 31 38 39 30 80 A3 49 46 4D 41 3D 36 35 41 4E |.1890..IFMA=65AN| 000020F0: 44 47 47 28 32 39 29 3C 3E 2D 31 54 48 45 4E 4E |DGG(29)<>-1THENN| 00002100: 47 24 3D 58 35 24 0D 31 39 30 30 80 A3 49 46 4D |G$=X5$.1900..IFM| 00002110: 41 3D 36 35 41 4E 44 47 47 28 33 30 29 3C 3E 2D |A=65ANDGG(30)<>-| 00002120: 31 54 48 45 4E 4E 47 24 3D 58 35 24 0D 31 39 31 |1THENNG$=X5$.191| 00002130: 30 80 A3 49 46 4D 41 3D 36 38 41 4E 44 47 47 28 |0..IFMA=68ANDGG(| 00002140: 31 36 29 3C 3E 2D 31 54 48 45 4E 4E 47 24 3D 58 |16)<>-1THENNG$=X| 00002150: 36 24 0D 31 39 32 30 80 A3 49 46 4D 41 3D 36 38 |6$.1920..IFMA=68| 00002160: 41 4E 44 47 47 28 32 39 29 3C 3E 2D 31 54 48 45 |ANDGG(29)<>-1THE| 00002170: 4E 4E 47 24 3D 58 36 24 0D 31 39 33 30 80 A3 49 |NNG$=X6$.1930..I| 00002180: 46 4D 41 3D 36 38 41 4E 44 47 47 28 33 30 29 3C |FMA=68ANDGG(30)<| 00002190: 3E 2D 31 54 48 45 4E 4E 47 24 3D 58 36 24 0D 31 |>-1THENNG$=X6$.1| 000021A0: 39 34 30 80 A3 49 46 4D 41 3D 33 39 54 48 45 4E |940..IFMA=39THEN| 000021B0: 4E 47 24 3D 22 C5 52 80 A3 49 53 54 80 A3 49 4E |NG$=".R..IST..IN| 000021C0: 80 A3 44 49 45 80 A3 D3 43 48 4C 55 43 48 54 80 |..DIE...CHLUCHT.| 000021D0: A3 47 45 53 54 55 45 52 5A 54 2E 2E 2E 22 3A 47 |.GESTUERZT...":G| 000021E0: 4F 54 4F 33 31 39 30 0D 31 39 35 30 80 A3 50 4F |OTO3190.1950..PO| 000021F0: 4B 45 43 5A 2C 32 31 3A 53 59 53 58 3A 50 4F 4B |KECZ,21:SYSX:POK| 00002200: 45 31 39 38 2C 30 3A 50 4F 4B 45 31 39 2C 36 34 |E198,0:POKE19,64| 00002210: 3A 50 52 49 4E 54 22 3E 22 43 31 24 3B 3A 49 4E |:PRINT">"C1$;:IN| 00002220: 50 55 54 41 4E 24 3A 50 4F 4B 45 31 39 2C 30 3A |PUTAN$:POKE19,0:| 00002230: 50 52 49 4E 54 0D 31 39 36 30 80 A3 49 46 4C 45 |PRINT.1960..IFLE| 00002240: 4E 28 41 4E 24 29 3E 32 54 48 45 4E 32 30 36 30 |N(AN$)>2THEN2060| 00002250: 0D 31 39 37 30 80 A3 49 46 41 4E 24 3D 22 4E 22 |.1970..IFAN$="N"| 00002260: 41 4E 44 44 47 28 4D 41 2C 31 29 3C 3E 30 54 48 |ANDDG(MA,1)<>0TH| 00002270: 45 4E 4D 41 3D 44 47 28 4D 41 2C 31 29 3A 50 52 |ENMA=DG(MA,1):PR| 00002280: 49 4E 54 41 53 24 28 31 29 3A 47 4F 54 4F 31 34 |INTAS$(1):GOTO14| 00002290: 34 30 0D 31 39 38 30 80 A3 49 46 41 4E 24 3D 22 |40.1980..IFAN$="| 000022A0: 53 22 41 4E 44 44 47 28 4D 41 2C 32 29 3C 3E 30 |S"ANDDG(MA,2)<>0| 000022B0: 54 48 45 4E 4D 41 3D 44 47 28 4D 41 2C 32 29 3A |THENMA=DG(MA,2):| 000022C0: 50 52 49 4E 54 41 53 24 28 31 29 3A 47 4F 54 4F |PRINTAS$(1):GOTO| 000022D0: 31 34 34 30 0D 31 39 39 30 80 A3 49 46 41 4E 24 |1440.1990..IFAN$| 000022E0: 3D 22 57 22 41 4E 44 44 47 28 4D 41 2C 33 29 3C |="W"ANDDG(MA,3)<| 000022F0: 3E 30 54 48 45 4E 4D 41 3D 44 47 28 4D 41 2C 33 |>0THENMA=DG(MA,3| 00002300: 29 3A 50 52 49 4E 54 41 53 24 28 31 29 3A 47 4F |):PRINTAS$(1):GO| 00002310: 54 4F 31 34 34 30 0D 32 30 30 30 80 A3 49 46 41 |TO1440.2000..IFA| 00002320: 4E 24 3D 22 4F 22 41 4E 44 44 47 28 4D 41 2C 34 |N$="O"ANDDG(MA,4| 00002330: 29 3C 3E 30 54 48 45 4E 4D 41 3D 44 47 28 4D 41 |)<>0THENMA=DG(MA| 00002340: 2C 34 29 3A 50 52 49 4E 54 41 53 24 28 31 29 3A |,4):PRINTAS$(1):| 00002350: 47 4F 54 4F 31 34 34 30 0D 32 30 31 30 80 A3 49 |GOTO1440.2010..I| 00002360: 46 41 4E 24 3D 22 4F 42 22 41 4E 44 44 47 28 4D |FAN$="OB"ANDDG(M| 00002370: 41 2C 35 29 3C 3E 30 54 48 45 4E 4D 41 3D 44 47 |A,5)<>0THENMA=DG| 00002380: 28 4D 41 2C 35 29 3A 50 52 49 4E 54 41 53 24 28 |(MA,5):PRINTAS$(| 00002390: 31 29 3A 47 4F 54 4F 31 34 34 30 0D 32 30 32 30 |1):GOTO1440.2020| 000023A0: 80 A3 49 46 41 4E 24 3D 22 55 22 41 4E 44 44 47 |..IFAN$="U"ANDDG| 000023B0: 28 4D 41 2C 36 29 3C 3E 30 54 48 45 4E 4D 41 3D |(MA,6)<>0THENMA=| 000023C0: 44 47 28 4D 41 2C 36 29 3A 50 52 49 4E 54 41 53 |DG(MA,6):PRINTAS| 000023D0: 24 28 31 29 3A 47 4F 54 4F 31 34 34 30 0D 32 30 |$(1):GOTO1440.20| 000023E0: 33 30 80 A3 49 46 4C 45 4E 28 41 4E 24 29 3C 33 |30..IFLEN(AN$)<3| 000023F0: 54 48 45 4E 50 52 49 4E 54 41 53 24 28 38 29 3A |THENPRINTAS$(8):| 00002400: 47 4F 54 4F 31 34 34 30 0D 32 30 34 30 80 A3 49 |GOTO1440.2040..I| 00002410: 46 4C 45 4E 28 41 4E 24 29 3E 36 54 48 45 4E 32 |FLEN(AN$)>6THEN2| 00002420: 39 37 30 0D 32 30 35 30 20 52 45 4D 20 2A 2A 2A |970.2050 REM ***| 00002430: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 20 |*************** | 00002440: 4C 49 53 54 45 20 2A 0D 32 30 36 30 80 A3 49 46 |LISTE *.2060..IF| 00002450: 4C 45 46 54 24 28 41 4E 24 2C 34 29 3C 3E 22 4C |LEFT$(AN$,4)<>"L| 00002460: 49 53 54 22 54 48 45 4E 32 31 33 30 0D 32 30 37 |IST"THEN2130.207| 00002470: 30 80 A3 47 4F 53 55 42 33 31 30 3A 50 4F 4B 45 |0..GOSUB310:POKE| 00002480: 43 53 2C 30 3A 50 4F 4B 45 43 5A 2C 31 35 3A 53 |CS,0:POKECZ,15:S| 00002490: 59 53 58 0D 32 30 38 30 80 A3 50 52 49 4E 54 22 |YSX.2080..PRINT"| 000024A0: 45 52 80 A3 48 41 54 80 A3 46 4F 4C 47 45 4E 44 |ER..HAT..FOLGEND| 000024B0: 45 53 80 A3 42 45 49 80 A3 53 49 43 48 3A 22 0D |ES..BEI..SICH:".| 000024C0: 32 30 39 30 80 A3 46 4F 52 49 3D 31 54 4F 47 41 |2090..FORI=1TOGA| 000024D0: 0D 32 31 30 30 80 A3 49 46 47 47 28 49 29 3D 2D |.2100..IFGG(I)=-| 000024E0: 31 54 48 45 4E 50 52 49 4E 54 47 47 24 28 49 29 |1THENPRINTGG$(I)| 000024F0: 3B 22 80 A3 22 0D 32 31 31 30 80 A3 4E 45 58 54 |;"..".2110..NEXT| 00002500: 3A 47 4F 54 4F 31 34 34 30 0D 32 31 32 30 20 52 |:GOTO1440.2120 R| 00002510: 45 4D 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |EM *************| 00002520: 2A 2A 2A 2A 2A 2A 20 53 41 56 45 20 2A 0D 32 31 |****** SAVE *.21| 00002530: 33 30 80 A3 49 46 4C 45 46 54 24 28 41 4E 24 2C |30..IFLEFT$(AN$,| 00002540: 34 29 3C 3E 22 53 41 56 45 22 54 48 45 4E 32 33 |4)<>"SAVE"THEN23| 00002550: 30 30 0D 32 31 34 30 80 A3 47 4F 53 55 42 33 31 |00.2140..GOSUB31| 00002560: 30 0D 32 31 35 30 80 A3 50 4F 4B 45 43 53 2C 30 |0.2150..POKECS,0| 00002570: 3A 50 4F 4B 45 43 5A 2C 31 35 3A 53 59 53 58 3A |:POKECZ,15:SYSX:| 00002580: 50 52 49 4E 54 22 53 50 49 45 4C 53 54 41 4E 44 |PRINT"SPIELSTAND| 00002590: 80 A3 53 50 45 49 43 48 45 52 4E 22 3A 50 52 49 |..SPEICHERN":PRI| 000025A0: 4E 54 43 34 24 3B 3A 49 4E 50 55 54 22 46 49 4C |NTC4$;:INPUT"FIL| 000025B0: 45 2D 4E 41 4D 45 22 3B 41 4E 24 0D 32 31 36 30 |E-NAME";AN$.2160| 000025C0: 80 A3 49 46 4C 45 4E 28 41 4E 24 29 3E 31 36 54 |..IFLEN(AN$)>16T| 000025D0: 48 45 4E 32 31 34 30 0D 32 31 37 30 80 A3 50 52 |HEN2140.2170..PR| 000025E0: 49 4E 54 43 34 24 41 4E 24 22 80 A3 57 49 52 44 |INTC4$AN$"..WIRD| 000025F0: 80 A3 41 42 47 45 53 50 45 49 43 48 45 52 54 2E |..ABGESPEICHERT.| 00002600: 22 3B 0D 32 31 38 30 80 A3 4F 50 45 4E 32 2C 38 |";.2180..OPEN2,8| 00002610: 2C 32 2C 22 40 30 3A 22 2B 41 4E 24 2B 22 2C 53 |,2,"@0:"+AN$+",S| 00002620: 2C 57 22 0D 32 31 39 30 80 A3 50 52 49 4E 54 23 |,W".2190..PRINT#| 00002630: 32 2C 4D 41 0D 32 32 30 30 80 A3 46 4F 52 49 3D |2,MA.2200..FORI=| 00002640: 31 54 4F 47 41 3A 50 52 49 4E 54 23 32 2C 47 47 |1TOGA:PRINT#2,GG| 00002650: 28 49 29 3A 4E 45 58 54 3A 50 52 49 4E 54 22 2E |(I):NEXT:PRINT".| 00002660: 22 3B 0D 32 32 31 30 80 A3 46 4F 52 49 3D 31 54 |";.2210..FORI=1T| 00002670: 4F 52 41 3A 46 4F 52 4A 3D 31 54 4F 36 3A 50 52 |ORA:FORJ=1TO6:PR| 00002680: 49 4E 54 23 32 2C 44 47 28 49 2C 4A 29 3A 4E 45 |INT#2,DG(I,J):NE| 00002690: 58 54 3A 4E 45 58 54 3A 50 52 49 4E 54 22 2E 22 |XT:NEXT:PRINT"."| 000026A0: 3B 0D 32 32 32 30 80 A3 46 4F 52 49 3D 31 54 4F |;.2220..FORI=1TO| 000026B0: 41 46 3A 50 52 49 4E 54 23 32 2C 46 4C 28 49 29 |AF:PRINT#2,FL(I)| 000026C0: 3A 4E 45 58 54 3A 50 52 49 4E 54 22 2E 22 3B 3A |:NEXT:PRINT".";:| 000026D0: 43 4C 4F 53 45 32 0D 32 32 33 30 80 A3 47 4F 53 |CLOSE2.2230..GOS| 000026E0: 55 42 32 32 35 30 3A 47 4F 54 4F 31 34 34 30 0D |UB2250:GOTO1440.| 000026F0: 32 32 34 30 20 52 45 4D 20 2A 2A 2A 2A 2A 2A 2A |2240 REM *******| 00002700: 2A 2A 2A 2A 2A 20 44 49 53 4B 2D 46 45 48 4C 45 |***** DISK-FEHLE| 00002710: 52 20 2A 0D 32 32 35 30 80 A3 4F 50 45 4E 31 2C |R *.2250..OPEN1,| 00002720: 38 2C 31 35 3A 49 4E 50 55 54 23 31 2C 41 2C 42 |8,15:INPUT#1,A,B| 00002730: 24 2C 43 2C 44 0D 32 32 36 30 80 A3 49 46 41 3C |$,C,D.2260..IFA<| 00002740: 3E 30 54 48 45 4E 50 52 49 4E 54 52 4E 24 22 44 |>0THENPRINTRN$"D| 00002750: 49 53 4B 2D 45 52 52 4F 52 3A 22 52 46 24 42 24 |ISK-ERROR:"RF$B$| 00002760: 3A 46 4F 52 54 3D 31 54 4F 33 30 30 30 3A 4E 45 |:FORT=1TO3000:NE| 00002770: 58 54 3A 43 4C 4F 53 45 32 3A 43 4C 4F 53 45 31 |XT:CLOSE2:CLOSE1| 00002780: 3A 47 4F 54 4F 31 34 34 30 0D 32 32 37 30 80 A3 |:GOTO1440.2270..| 00002790: 43 4C 4F 53 45 31 0D 32 32 38 30 80 A3 52 45 54 |CLOSE1.2280..RET| 000027A0: 55 52 4E 0D 32 32 39 30 20 52 45 4D 20 2A 2A 2A |URN.2290 REM ***| 000027B0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 000027C0: 20 4C 4F 41 44 20 2A 0D 32 33 30 30 80 A3 49 46 | LOAD *.2300..IF| 000027D0: 4C 45 46 54 24 28 41 4E 24 2C 34 29 3C 3E 22 4C |LEFT$(AN$,4)<>"L| 000027E0: 4F 41 44 22 54 48 45 4E 32 34 31 30 0D 32 33 31 |OAD"THEN2410.231| 000027F0: 30 80 A3 47 4F 53 55 42 33 31 30 0D 32 33 32 30 |0..GOSUB310.2320| 00002800: 80 A3 50 4F 4B 45 43 53 2C 30 3A 50 4F 4B 45 43 |..POKECS,0:POKEC| 00002810: 5A 2C 31 35 3A 53 59 53 58 3A 50 52 49 4E 54 22 |Z,15:SYSX:PRINT"| 00002820: 41 4C 54 45 53 80 A3 53 50 49 45 4C 80 A3 4C 41 |ALTES..SPIEL..LA| 00002830: 44 45 4E 2E 22 3A 50 52 49 4E 54 43 34 24 3B 3A |DEN.":PRINTC4$;:| 00002840: 49 4E 50 55 54 22 46 49 4C 45 2D 4E 41 4D 45 22 |INPUT"FILE-NAME"| 00002850: 3B 4D 46 24 0D 32 33 33 30 80 A3 49 46 4C 45 4E |;MF$.2330..IFLEN| 00002860: 28 4D 46 24 29 3E 31 36 54 48 45 4E 32 33 31 30 |(MF$)>16THEN2310| 00002870: 0D 32 33 34 30 80 A3 50 52 49 4E 54 4D 46 24 22 |.2340..PRINTMF$"| 00002880: 20 57 49 52 44 20 47 45 4C 41 44 45 4E 2E 22 3B | WIRD GELADEN.";| 00002890: 0D 32 33 35 30 80 A3 4F 50 45 4E 32 2C 38 2C 32 |.2350..OPEN2,8,2| 000028A0: 2C 4D 46 24 2B 22 2C 53 2C 52 22 3A 49 4E 50 55 |,MF$+",S,R":INPU| 000028B0: 54 23 32 2C 4D 41 3A 50 52 49 4E 54 22 2E 22 3B |T#2,MA:PRINT".";| 000028C0: 0D 32 33 36 30 80 A3 46 4F 52 49 3D 31 54 4F 47 |.2360..FORI=1TOG| 000028D0: 41 3A 49 4E 50 55 54 23 32 2C 47 47 28 49 29 3A |A:INPUT#2,GG(I):| 000028E0: 4E 45 58 54 3A 50 52 49 4E 54 22 2E 22 3B 0D 32 |NEXT:PRINT".";.2| 000028F0: 33 37 30 80 A3 46 4F 52 49 3D 31 54 4F 52 41 3A |370..FORI=1TORA:| 00002900: 46 4F 52 4A 3D 31 54 4F 36 3A 49 4E 50 55 54 23 |FORJ=1TO6:INPUT#| 00002910: 32 2C 44 47 28 49 2C 4A 29 3A 4E 45 58 54 3A 4E |2,DG(I,J):NEXT:N| 00002920: 45 58 54 3A 50 52 49 4E 54 22 2E 22 3B 0D 32 33 |EXT:PRINT".";.23| 00002930: 38 30 80 A3 46 4F 52 49 3D 31 54 4F 41 46 3A 49 |80..FORI=1TOAF:I| 00002940: 4E 50 55 54 23 32 2C 46 4C 28 49 29 3A 4E 45 58 |NPUT#2,FL(I):NEX| 00002950: 54 3A 50 52 49 4E 54 22 2E 22 3B 3A 43 4C 4F 53 |T:PRINT".";:CLOS| 00002960: 45 32 0D 32 33 39 30 80 A3 47 4F 53 55 42 32 32 |E2.2390..GOSUB22| 00002970: 35 30 0D 32 34 30 30 80 A3 49 46 41 4E 24 3D 42 |50.2400..IFAN$=B| 00002980: 41 24 28 31 38 29 54 48 45 4E 31 34 31 30 0D 32 |A$(18)THEN1410.2| 00002990: 34 31 30 80 A3 49 46 4C 45 46 54 24 28 41 4E 24 |410..IFLEFT$(AN$| 000029A0: 2C 34 29 3C 3E 22 48 45 4C 50 22 54 48 45 4E 32 |,4)<>"HELP"THEN2| 000029B0: 37 34 30 0D 32 34 32 30 80 A3 49 46 4D 41 3D 31 |740.2420..IFMA=1| 000029C0: 54 48 45 4E 50 52 49 4E 54 41 53 24 28 32 30 29 |THENPRINTAS$(20)| 000029D0: 3A 47 4F 54 4F 31 34 34 30 0D 32 34 33 30 80 A3 |:GOTO1440.2430..| 000029E0: 49 46 4D 41 3D 33 4F 52 4D 41 3D 34 54 48 45 4E |IFMA=3ORMA=4THEN| 000029F0: 50 52 49 4E 54 41 53 24 28 32 31 29 3A 47 4F 54 |PRINTAS$(21):GOT| 00002A00: 4F 31 34 34 30 0D 32 34 34 30 80 A3 49 46 4D 41 |O1440.2440..IFMA| 00002A10: 3D 35 54 48 45 4E 50 52 49 4E 54 22 48 4F 43 48 |=5THENPRINT"HOCH| 00002A20: 80 A3 48 49 4E 41 55 53 80 A3 49 53 54 80 A3 4E |..HINAUS..IST..N| 00002A30: 49 43 48 54 80 A3 49 4D 4D 45 52 80 A3 47 55 54 |ICHT..IMMER..GUT| 00002A40: 2E 2E 22 3A 47 4F 54 4F 31 34 34 30 0D 32 34 35 |..":GOTO1440.245| 00002A50: 30 80 A3 49 46 4D 41 3D 36 4F 52 4D 41 3D 39 4F |0..IFMA=6ORMA=9O| 00002A60: 52 4D 41 3D 31 33 54 48 45 4E 50 52 49 4E 54 41 |RMA=13THENPRINTA| 00002A70: 53 24 28 32 32 29 3A 47 4F 54 4F 31 34 34 30 0D |S$(22):GOTO1440.| 00002A80: 32 34 36 30 80 A3 49 46 4D 41 3D 37 54 48 45 4E |2460..IFMA=7THEN| 00002A90: 50 52 49 4E 54 41 53 24 28 32 33 29 3A 47 4F 54 |PRINTAS$(23):GOT| 00002AA0: 4F 31 34 34 30 0D 32 34 37 30 80 A3 49 46 4D 41 |O1440.2470..IFMA| 00002AB0: 3D 38 4F 52 4D 41 3D 34 35 4F 52 4D 41 3D 35 31 |=8ORMA=45ORMA=51| 00002AC0: 54 48 45 4E 50 52 49 4E 54 41 53 24 28 32 34 29 |THENPRINTAS$(24)| 00002AD0: 3A 47 4F 54 4F 31 34 34 30 0D 32 34 38 30 80 A3 |:GOTO1440.2480..| 00002AE0: 49 46 4D 41 3D 31 30 54 48 45 4E 50 52 49 4E 54 |IFMA=10THENPRINT| 00002AF0: 41 53 24 28 32 35 29 3A 47 4F 54 4F 31 34 34 30 |AS$(25):GOTO1440| 00002B00: 0D 32 34 39 30 80 A3 49 46 4D 41 3D 31 31 4F 52 |.2490..IFMA=11OR| 00002B10: 4D 41 3D 32 30 4F 52 4D 41 3D 33 38 4F 52 4D 41 |MA=20ORMA=38ORMA| 00002B20: 3D 35 36 4F 52 4D 41 3D 35 37 4F 52 4D 41 3D 36 |=56ORMA=57ORMA=6| 00002B30: 31 54 48 45 4E 50 52 49 4E 54 41 53 24 28 32 36 |1THENPRINTAS$(26| 00002B40: 29 3A 47 4F 54 4F 31 34 34 30 0D 32 35 30 30 80 |):GOTO1440.2500.| 00002B50: A3 49 46 4D 41 3D 31 32 4F 52 4D 41 3D 32 32 4F |.IFMA=12ORMA=22O| 00002B60: 52 4D 41 3D 32 33 4F 52 4D 41 3D 32 38 4F 52 4D |RMA=23ORMA=28ORM| 00002B70: 41 3D 32 39 54 48 45 4E 50 52 49 4E 54 41 53 24 |A=29THENPRINTAS$| 00002B80: 28 32 37 29 3A 47 4F 54 4F 31 34 34 30 0D 80 2A |(27):GOTO1440..*| 00002B90: 4C 4B 3A 32 35 31 30 2D 35 30 30 30 20 53 45 51 |LK:2510-5000 SEQ| 00002BA0: 0D |. |
4$=C4$+D3$.120..HE$=CHR$(019):C3$=CHR$(0 29).130..OE$=CHR$(129):.140..RF$=CHR$(14 6):CL$=CHR$(147).150..C1$=CHR$(157):YE$= CHR$(158).160..RA=68:GA=43:BA=23:WO=4:MA =1:MG=4:AF=2:G=16.170..DIMRM$(RA),DG(RA, 6),GG$(GA),NM$(GA),GG(GA),BA$(BA),AS$(48 ),G$(G),FL$(RA).180..CS=211:CZ=214:X=586 40:SC=53265.190..POKE646,15:POKE53280,0: POKE53281,0:PRINTCHR$(147)CHR$(14).200.. POKECS,5:POKECZ,5:SYS58640.210..PRINT"VE RSCHOLLEN..AUF..PLANET..X".220..PRINTD3$ D4$;TAB(5)"ADVENTURE....VON....H.BEILER" :GOSUB330.230..GOTO410.240..FORI=1TO38:P RINTCHR$(150)CHR$(45)CHR$(154);:FORT=1TO 50:NEXT:NEXT:PRINT:RETURN.250..GG(41)=0: GG(40)=MA:RETURN.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:G G$(37)="TOTER..SAURIER.":RETURN.280..GG( 30)=MA:DG(68,2)=59:GG$(39)="TOTE..URWALD SPINNE.":RETURN.290..GG(30)=MA:DG(63,2)= 58:DG(63,3)=57:GG$(35)="TOTER..TIGER.":R ETURN.300..DG(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:PRINTLE$:NEXT:RETURN.330..FOR T=1TO3000:NEXT:RETURN.340..PRINTHE$:PRIN TTAB(1)CHR$(117);:FORI=1TO36:PRINTCHR$(9 6);:NEXT:PRINTCHR$(105).350..FORI=1TO12: PRINTTAB(1)CHR$(125)TAB(38)CHR$(125):NEX T.360..PRINTTAB(1)CHR$(106);:FORI=1TO36: PRINTCHR$(96);:NEXT:PRINTCHR$(107):RETUR N.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:GOTO1440.390..DG(64,3)=58:DG(64,4)= 59:GG(36)=0:RETURN.400..GG(42)=MA:DG(25, 1)=31:RETURN.410..REM *************** AN TWORTEN *.420..AS$(1)="OKAY.".430..AS$(2 )="HIER..IST..NICHTS..BESONDERES.".440.. AS$(3)="GEHT..NICHT,..VIEL..ZU..SCHWER." .450..AS$(4)="DAS..IST..VOELLIG..UNMOEGL ICH!".460..AS$(5)="UND..WIE..SOLL..MAN.. DAS..ANSTELLEN..?".470..AS$(6)="DAS..WAR ..PECH!!!".480..AS$(7)="AUF..DIESE..WEIS E..GEHT..DAS..NICHT!".490..AS$(8)="KEIN. .WEG..IN..DIESE..RICHTUNG.".500..AS$(9)= "DAS..IST..TOTALER..UNSINN!".510..AS$(10 )="HIER..IST..NIEMAND...".520..AS$(11)=" DAS..FUNKTIONIERT..SO..NICHT.".530..AS$( 12)="IN..ORDNUNG!..UND..WEITER?".540..AS $(13)="DIESEN..BEFEHL..KENNE..ICH..NICHT .".550..AS$(14)="DIESES..HAUPTWORT..KENN E..ICH..NICHT.".560..AS$(15)="BIST..DU.. BEI..DER..MUELLABFUHR?".570..AS$(16)="ER ..IST..JA..NOCH..GAR..NICHT..DORT!".580. .AS$(17)="DAS..TOR..IST..GESCHLOSSEN.".5 90..AS$(18)="STEHT..ES..SICH..GUT..DARAU F..?".600..AS$(19)="IN..WELCHE..RICHTUNG ..?".610..AS$(20)="WER..RASTET,..DER..RO STET.".620..AS$(21)="ICH..WUERDE..ALLES. .UNTERSUCHEN...".630..AS$(22)="DIE..SONN E..GEHT..IM..WESTEN..UNTER...".640..AS$( 23)="HOEHLEN..BERGEN..GEHEIMNISSE...".65 0..AS$(24)="FELSWAENDE..KANN..MAN..UMGEH EN.".660..AS$(25)="EIN..UMWEG..FUEHRT..S ELTEN..ZUM..ZIEL.".670..AS$(26)="UMKEHR. .BEIZEITEN..VERHINDERT..PLEITEN..".680.. AS$(27)="DIE..GERADEN..WEGE..SIND..DIE.. SCHNELLSTEN.".690..AS$(28)="SEEFAHRER..K ENNEN..DEN..POLARSTERN.".700..AS$(29)="A LLES..DAS..ZU..IST,..WAR..MAL..OFFEN.".7 10..AS$(30)="HINLANGEN,..ZUPACKEN!".720. .AS$(31)="IMMER..DER..NASE..NACH...".730 ..AS$(32)="NIMM,..WAS..DU..SIEHST.".740. .AS$(33)="OFT..IST..ES..OBEN..HELLER..AL S..UNTEN.".750..AS$(34)="JEDE..MAUER..HA T..EINEN..DURCHSCHLUPF!".760..AS$(35)="V ORWAERTS..IST..MUTIG,..RUECKWAERTS..KLUG .".770..AS$(36)="DER..KLUGE..BLICKT..IN. .JEDE..RICHTUNG..".780..AS$(37)="BISHER. .WAR..ES..GLUECK...ABER..JETZT...".790.. AS$(38)="DAS..GRAS..IST..GRUENER..DORT." .800..AS$(39)="IST..DAS..NICHT..EIN..ALT ER..BEATLES-SONG?".810..AS$(40)="AUS..BR EIT..WIRD..MANCHMAL..SCHMAL.".820..AS$(4 1)="IM..OSTEN..GEHT..DIE..SONNE..AUF..." .830..AS$(42)="DIE..ZEIT..DRAENGT...ES.. WIRD..SCHON..NACHT.".840..AS$(43)="BENUT ZE..DEINEN..VERSTAND..UND..DIE..WAFFEN." .850..AS$(44)="IM..SUEDEN..IST..ES..HEIS S,..ABER..SICHERER.".860..AS$(45)="NIEMA ND..BREMST..SEINEN..VORWAERTSDRANG.".870 ..AS$(46)="EIN..SEIL..DIENT..ZUM..KLETTE RN.".880..AS$(47)="IST..DEIN..VERSTAND.. EINGEROSTET..?".890..AS$(48)="NUR..EIN.. TOTER..SAURIER..IST..HARMLOS...".900..PR INTCHR$(147)CHR$(14):FORT=1TO200:NEXT.91 0..PRINTD2$RN$"..BITTE..FLOPPY....NICHT. ...AUSSCHALTEN,......"RF$.920..PRINTC4$R N$"..DISKETTE..IM..LAUFWERK..LASSEN..UND .........."RF$.930..PRINTC4$RN$"..WAEHRE ND..DES..SPIELS..NICHT..ENTFERNEN."RF$.9 40..FORF=1TOBA:READBA$(F):BA$(F)=LEFT$(B A$(F),WO):NEXT.950..FORGG=1TOGA:READGG$( GG),NM$(GG),GG(GG):NM$(GG)=LEFT$(NM$(GG) ,WO):NEXT.960..FORJ=1TORA:READRM$(J):FOR K=1TO6:READDG(J,K):NEXT:NEXT.970..FORI=1 TO6:READRC$(I):NEXT.980..FORI=1TORA:READ FL$(I):NEXT.990..PRINTCHR$(14)D3$D3$;:IN PUT"SPIELANLEITUNG..(J/N)";A$.1000..IFA$ ="J"THENGOSUB1070.1010..PRINTD2$RN$"A"RF $"LTES..SPIEL..LADEN..ODER".1020..PRINTC 4$RN$"N"RF$"EUBEGINN..?".1030..GETA$.104 0..IFA$="A"THENAN$=BA$(18):PRINTCHR$(147 )CHR$(142):GOTO1960.1050..IFA$="N"THEN14 10.1060..GOTO1030.1070..PRINTCHR$(147):G OSUB240.1080..PRINT"EINTRAG..COMMANDER.. PHIL..REED..VOM..RAUM-".1090..PRINT"SCHI FF..'STARDUST..I'..IN..DAS..BORDLOGBUCH: ":GOSUB240.1100..PRINT"TROTZ..INTENSIVST ER..BEMUEHUNGEN..IST..DIE".1110..PRINT"R EPARATUR..DES..DEFEKTEN..BORD-STEUERUNGS -".1120..PRINT"COMPUTERS..NICHT..GELUNGE N.":GOSUB240.1130..PRINT"WERDE..NOTLANDE -AGGREGAT..ZUENDEN.......".1140..PRINT"V ORGESEHENE....LANDUNG..AUF....UNBEKANNTE M..".1150..PRINT"PLANETEN,..KOORDINATENP UNKT..X/36-C/45.":GOSUB240.1160..PRINT"E NTFERNUNG..ZU..RAUMSCHIFF..EXAKT..98567. 6".1170..PRINT"RAUMMEILEN...AUFSCHLAG..E RFOLGT..IN..GENAU".1180..PRINT"2:48,03.4 5..MIN.....":GOSUB240.1190..PRINT"FUNKKO NTAKTE..BLIEBEN..UNBEANTWORTET,..ES".120 0..PRINT"MUSS..DAVON..AUSGEGANGEN..WERDE N,..DASS..".1210..PRINT"DER..ERDAEHNLICH E..PLANET..UNBEWOHNT..IST.".1220..PRINT" AUSSICHTEN..EINER..MOEGLICHEN..BEHEBUNG. .".1230..PRINT"DES..SCHADENS..SIND..SEHR ..GERING........":GOSUB240.1240..PRINTOE $D2$"FOLGENDE..BEFEHLE..WERDE..ICH..VERW ENDEN:":GOSUB240.1250..PRINT"NIMM,UNTERS UCHE,BETRETE,KLETTERE,GEHE,".1260..PRINT "BEFREIE,RETTE,REPARIERE,HILF,BENUTZE,". 1270..PRINT"WIRF,BEKAEMPFE,SPRICH,VERLIE RE,RAEUME,":GOSUB240.1280..PRINT"MIT..SA VE..WIRD..DER..MOMENTANE..SPIELSTAND-".1 290..PRINT"AUF..DISKETTE..ABGESPEICHERT. ." :GOSUB240.1300..PRINT"MIT..LOAD..UNTE R..ANGABE..DES..RICHTIGEN".1310..PRINT"F ILE-NAMENS..WIEDER..IN..DEN..COMPUTER".1 320..PRINT"GELADEN..UND..DAS..SPIEL..AN. .DIESER..STELLE".1330..PRINT"FORTGESETZT .":GOSUB240.1340..PRINT"FALLS..SIE..EINM AL..NICHT..RECHT..WEITER".1350..PRINT"WI SSEN,..BEKOMMEN..SIE..TIPS..MIT..HELP.". 1360..PRINT"DIE..BESCHREIBUNG..DER..BILD ER..KANN..JEDER-".1370..PRINT"ZEIT..MIT. .TEXT..AUFS..NEUE..GELESEN..WERDEN.":GOS UB240.1380..PRINT"DER..BEFEHL..LIST..GIB T..IHNEN..UEBERBLICK".1390..PRINT"UEBER. .DIE..MITGEFUEHRTEN..GEGENSTAENDE.":GOSU B240.1400..RETURN.1410..REM..*********** ****** DRIVER *.1420..PRINTCHR$(147)CHR$ (9)CHR$(142)CHR$(8);.1430..LE$="........ ........................................ ..............................":REM..39. .X..LEERTASTE.1440 REM ********* AB HIER SCREEN *.1450..IFGR<>MATHEN6220.1460..G R=MA:GOSUB330:GOSUB310.1470..POKECS,0:PO KECZ,15:SYSX.1480..PRINTRM$(MA).1490..GD =0.1500..FORI=1TOGA:IFGG(I)<>MATHEN1530. 1510..IFPOS(0)+LEN(GG$(I))+2<39THENPRINT GG$(I);",";:GD=-1:GOTO1530.1520..IFPOS(0 )+LEN(GG$(I))+2>=39THENPRINT:GOTO1510.15 30..NEXT:IFGD=0THENPRINT"NICHTS..BESONDE RES.";.1540..PRINTCHR$(145)CHR$(145).155 0..POKECZ,19:SYSX:RE$="".1560..PRINT"RIC HTUNG:";.1570..IFDG(MA,1)=0ANDDG(MA,2)=0 ANDDG(MA,3)=0ANDDG(MA,4)=0ANDDG(MA,5)=0T HENGOSUB1590.1580..GOTO1600.1590..RE$="M OMENTAN..KEINE...":RETURN.1600..FORI=1TO 6.1610..IFDG(MA,I)=0THEN1660.1620..IFPOS (0)=14THENPRINTRC$(I);:GOTO1660.1630..IF POS(0)+LEN(RC$(I))<37THENPRINT"..";RC$(I );:GOTO1660.1640..IFPOS(0)+LEN(RC$(I))>= 37THENPRINT",";RC$(I);:GOTO1660.1650..IF POS(0)<16ANDPOS(0)>2THENPRINT",";RC$(I); :GOTO1660.1660..NEXT.1670..PRINTRE$;"... ".1680 REM ** NEGATIVE MITTEILUNGEN *.16 90..X1$="ER..IST..IN..DER..WUESTE..VERDU RSTET.".1700..X2$="DIE..GIFTSPINNE..HAT. .IHN..GEBISSEN.".1710..X3$="DIE..WILDEN. .HABEN..IHN..GETOETET.".1720..X4$="DER.. TIGER..HAT..IHN..ZERFLEISCHT.".1730..X5$ ="DER..SAURIER..HAT..IHN..ZERTRAMPELT.". 1740..X6$="DIE..RIESENSPINNE..HAT..IHN.. GEFRESSEN.".1750..IFMA=2THENNG$="ER..IST ..IN..DER..WUESTE..VERDURSTET...":GOTO31 90.1760..IFMA=34ANDGG(16)<>-1THENNG$=X2$ .1770..IFMA=34ANDGG(29)<>-1THENNG$=X2$.1 780..IFMA=34ANDGG(30)<>-1THENNG$=X2$.179 0..IFMA=54ANDGG(16)<>-1THENNG$=X3$.1800. .IFMA=54ANDGG(29)<>-1THENNG$=X3$.1810..I FMA=54ANDGG(30)<>-1THENNG$=X3$.1820..IFM A=58ANDGG(16)<>-1THENNG$=X3$.1830..IFMA= 58ANDGG(29)<>-1THENNG$=X3$.1840..IFMA=58 ANDGG(30)<>-1THENNG$=X3$.1850..IFMA=63AN DGG(16)<>-1THENNG$=X4$.1860..IFMA=63ANDG G(29)<>-1THENNG$=X4$.1870..IFMA=63ANDGG( 30)<>-1THENNG$=X4$.1880..IFMA=65ANDGG(16 )<>-1THENNG$=X5$.1890..IFMA=65ANDGG(29)< >-1THENNG$=X5$.1900..IFMA=65ANDGG(30)<>- 1THENNG$=X5$.1910..IFMA=68ANDGG(16)<>-1T HENNG$=X6$.1920..IFMA=68ANDGG(29)<>-1THE NNG$=X6$.1930..IFMA=68ANDGG(30)<>-1THENN G$=X6$.1940..IFMA=39THENNG$="ER..IST..IN ..DIE..SCHLUCHT..GESTUERZT...":GOTO3190. 1950..POKECZ,21:SYSX:POKE198,0:POKE19,64 :PRINT">"C1$;:INPUTAN$:POKE19,0:PRINT.19 60..IFLEN(AN$)>2THEN2060.1970..IFAN$="N" ANDDG(MA,1)<>0THENMA=DG(MA,1):PRINTAS$(1 ):GOTO1440.1980..IFAN$="S"ANDDG(MA,2)<>0 THENMA=DG(MA,2):PRINTAS$(1):GOTO1440.199 0..IFAN$="W"ANDDG(MA,3)<>0THENMA=DG(MA,3 ):PRINTAS$(1):GOTO1440.2000..IFAN$="O"AN DDG(MA,4)<>0THENMA=DG(MA,4):PRINTAS$(1): GOTO1440.2010..IFAN$="OB"ANDDG(MA,5)<>0T HENMA=DG(MA,5):PRINTAS$(1):GOTO1440.2020 ..IFAN$="U"ANDDG(MA,6)<>0THENMA=DG(MA,6) :PRINTAS$(1):GOTO1440.2030..IFLEN(AN$)<3 THENPRINTAS$(8):GOTO1440.2040..IFLEN(AN$ )>6THEN2970.2050 REM ****************** LISTE *.2060..IFLEFT$(AN$,4)<>"LIST"THEN 2130.2070..GOSUB310:POKECS,0:POKECZ,15:S YSX.2080..PRINT"ER..HAT..FOLGENDES..BEI. .SICH:".2090..FORI=1TOGA.2100..IFGG(I)=- 1THENPRINTGG$(I);"..".2110..NEXT:GOTO144 0.2120 REM ******************* SAVE *.21 30..IFLEFT$(AN$,4)<>"SAVE"THEN2300.2140. .GOSUB310.2150..POKECS,0:POKECZ,15:SYSX: PRINT"SPIELSTAND..SPEICHERN":PRINTC4$;:I NPUT"FILE-NAME";AN$.2160..IFLEN(AN$)>16T HEN2140.2170..PRINTC4$AN$"..WIRD..ABGESP EICHERT.";.2180..OPEN2,8,2,"@0:"+AN$+",S ,W".2190..PRINT#2,MA.2200..FORI=1TOGA:PR INT#2,GG(I):NEXT:PRINT".";.2210..FORI=1T ORA:FORJ=1TO6:PRINT#2,DG(I,J):NEXT:NEXT: PRINT".";.2220..FORI=1TOAF:PRINT#2,FL(I) :NEXT:PRINT".";:CLOSE2.2230..GOSUB2250:G OTO1440.2240 REM ************ DISK-FEHLE R *.2250..OPEN1,8,15:INPUT#1,A,B$,C,D.22 60..IFA<>0THENPRINTRN$"DISK-ERROR:"RF$B$ :FORT=1TO3000:NEXT:CLOSE2:CLOSE1:GOTO144 0.2270..CLOSE1.2280..RETURN.2290 REM *** **************** LOAD *.2300..IFLEFT$(AN $,4)<>"LOAD"THEN2410.2310..GOSUB310.2320 ..POKECS,0:POKECZ,15:SYSX:PRINT"ALTES..S PIEL..LADEN.":PRINTC4$;:INPUT"FILE-NAME" ;MF$.2330..IFLEN(MF$)>16THEN2310.2340..P RINTMF$" WIRD GELADEN.";.2350..OPEN2,8,2 ,MF$+",S,R":INPUT#2,MA:PRINT".";.2360..F ORI=1TOGA:INPUT#2,GG(I):NEXT:PRINT".";.2 370..FORI=1TORA:FORJ=1TO6:INPUT#2,DG(I,J ):NEXT:NEXT:PRINT".";.2380..FORI=1TOAF:I NPUT#2,FL(I):NEXT:PRINT".";:CLOSE2.2390. .GOSUB2250.2400..IFAN$=BA$(18)THEN1410.2 410..IFLEFT$(AN$,4)<>"HELP"THEN2740.2420 ..IFMA=1THENPRINTAS$(20):GOTO1440.2430.. IFMA=3ORMA=4THENPRINTAS$(21):GOTO1440.24 40..IFMA=5THENPRINT"HOCH..HINAUS..IST..N ICHT..IMMER..GUT..":GOTO1440.2450..IFMA= 6ORMA=9ORMA=13THENPRINTAS$(22):GOTO1440. 2460..IFMA=7THENPRINTAS$(23):GOTO1440.24 70..IFMA=8ORMA=45ORMA=51THENPRINTAS$(24) :GOTO1440.2480..IFMA=10THENPRINTAS$(25): GOTO1440.2490..IFMA=11ORMA=20ORMA=38ORMA =56ORMA=57ORMA=61THENPRINTAS$(26):GOTO14 40.2500..IFMA=12ORMA=22ORMA=23ORMA=28ORM A=29THENPRINTAS$(27):GOTO1440..*LK:2510- 5000 SEQ.
> CLICK IMAGE PREVIEW FOR FULL MODAL