MEPOS
FILE INFORMATION
FILENAME(S): MEPOS
FILE TYPE(S): SEQ
FILE SIZE: 17K
FIRST SEEN: 2025-12-02 23:08:16
APPEARS ON: 1 disk(s)
FILE HASH
588fb6de9f4af529369a9b052bc83cd344c5a544759c98d80734eb97ed99ad38
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| - | MEPOS | SEQ | swasti, flohmarkt, swasti, misc | 19 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 0D 0D 30 20 49 46 49 3D 30 54 48 45 4E 49 3D 31 |..0 IFI=0THENI=1| 00000010: 3A 50 4F 4B 45 35 36 2C 31 34 34 3A 4C 4F 41 44 |:POKE56,144:LOAD| 00000020: 22 53 4D 55 42 55 22 2C 38 2C 31 0D 31 20 53 59 |"SMUBU",8,1.1 SY| 00000030: 53 39 2A 34 30 39 36 3A 49 46 49 3D 31 54 48 45 |S9*4096:IFI=1THE| 00000040: 4E 49 3D 32 3A 4C 4F 41 44 22 49 4E 50 55 54 2B |NI=2:LOAD"INPUT+| 00000050: 22 2C 38 2C 31 0D 32 20 49 46 49 3D 32 54 48 45 |",8,1.2 IFI=2THE| 00000060: 4E 49 3D 33 3A 4C 4F 41 44 22 47 41 52 42 41 47 |NI=3:LOAD"GARBAG| 00000070: 45 36 34 22 2C 38 2C 31 0D 33 20 49 46 49 3D 33 |E64",8,1.3 IFI=3| 00000080: 54 48 45 4E 49 3D 34 3A 4C 4F 41 44 22 45 2F 41 |THENI=4:LOAD"E/A| 00000090: 2D 52 4F 55 54 49 4E 45 22 2C 38 2C 31 0D 35 20 |-ROUTINE",8,1.5 | 000000A0: 43 4C 52 3A 4F 31 24 3D 22 12 1E 20 20 20 20 20 |CLR:O1$=".. | 000000B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000000C0: 20 20 22 3A 4F 32 24 3D 22 12 20 20 D0 CC C1 D4 | ":O2$=". ....| 000000D0: D4 C5 CE CF D2 C7 C1 CE C9 D3 C1 D4 C9 CF CE 20 |............... | 000000E0: 20 22 3A 59 24 3D 22 20 20 20 20 20 20 22 0D 37 | ":Y$=" ".7| 000000F0: 20 47 4F 53 55 42 34 30 30 30 3A 4F 50 45 4E 32 | GOSUB4000:OPEN2| 00000100: 2C 38 2C 32 2C 22 49 4E 44 45 58 2C 53 2C 52 22 |,8,2,"INDEX,S,R"| 00000110: 3A 49 4E 50 55 54 23 32 2C 41 31 3A 49 4E 50 55 |:INPUT#2,A1:INPU| 00000120: 54 23 32 2C 41 32 3A 49 4E 50 55 54 23 32 2C 41 |T#2,A2:INPUT#2,A| 00000130: 33 3A 43 4C 4F 53 45 32 0D 38 20 42 31 3D 41 31 |3:CLOSE2.8 B1=A1| 00000140: 3A 42 32 3D 41 32 3A 42 33 3D 41 33 3A 53 59 53 |:B2=A2:B3=A3:SYS| 00000150: 35 31 34 30 30 3A 53 59 53 38 32 38 0D 39 20 44 |51400:SYS828.9 D| 00000160: 49 4D 49 43 24 28 41 31 2B 31 31 29 2C 49 49 24 |IMIC$(A1+11),II$| 00000170: 28 41 33 2B 33 31 29 2C 49 44 24 28 41 32 2B 31 |(A3+31),ID$(A2+1| 00000180: 31 29 2C 58 28 39 39 29 3A 47 4F 54 4F 31 38 30 |1),X(99):GOTO180| 00000190: 0D 31 30 20 44 24 3D 53 54 52 24 28 44 29 3A 52 |.10 D$=STR$(D):R| 000001A0: 43 24 3D 41 24 2B 42 24 2B 43 24 2B 52 49 47 48 |C$=A$+B$+C$+RIGH| 000001B0: 54 24 28 44 24 2C 32 29 3A 46 4F 52 49 3D 30 54 |T$(D$,2):FORI=0T| 000001C0: 4F 39 3A 52 43 24 3D 52 43 24 2B 45 24 28 49 29 |O9:RC$=RC$+E$(I)| 000001D0: 3A 4E 45 58 54 3A 52 45 54 55 52 4E 0D 31 31 20 |:NEXT:RETURN.11 | 000001E0: 50 4F 24 3D 52 49 47 48 54 24 28 50 4F 24 2C 4C |PO$=RIGHT$(PO$,L| 000001F0: 45 4E 28 50 4F 24 29 2D 31 29 3A 50 4F 24 3D 50 |EN(PO$)-1):PO$=P| 00000200: 4F 24 2B 4C 45 46 54 24 28 59 24 2C 33 2D 4C 45 |O$+LEFT$(Y$,3-LE| 00000210: 4E 28 50 4F 24 29 29 3A 52 45 54 55 52 4E 0D 31 |N(PO$)):RETURN.1| 00000220: 32 20 43 4C 4F 53 45 31 3A 43 4C 4F 53 45 32 3A |2 CLOSE1:CLOSE2:| 00000230: 50 52 49 4E 54 22 13 11 11 11 11 11 11 11 11 11 |PRINT"..........| 00000240: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 20 |............... | 00000250: 20 20 20 12 D7 92 45 49 54 45 52 45 52 46 41 53 | ...EITERERFAS| 00000260: 53 45 4E 2F 12 C5 92 4E 44 45 22 0D 31 33 20 21 |SEN/...NDE".13 !| 00000270: 49 4E 4C 49 4E 45 20 32 34 2C 33 30 2C 31 2C 58 |INLINE 24,30,1,X| 00000280: 24 3A 49 46 58 24 3D 22 D7 22 54 48 45 4E 58 24 |$:IFX$="."THENX$| 00000290: 3D 22 57 22 0D 31 34 20 49 46 58 24 3D 22 C5 22 |="W".14 IFX$="."| 000002A0: 54 48 45 4E 58 24 3D 22 45 22 0D 31 35 20 49 46 |THENX$="E".15 IF| 000002B0: 58 24 3D 22 45 22 4F 52 58 24 3D 22 57 22 54 48 |X$="E"ORX$="W"TH| 000002C0: 45 4E 50 52 49 4E 54 22 91 20 20 20 20 20 20 20 |ENPRINT". | 000002D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000002E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 3A | ":| 000002F0: 52 45 54 55 52 4E 0D 31 36 20 47 4F 54 4F 31 33 |RETURN.16 GOTO13| 00000300: 0D 32 30 20 5A 3D 56 41 4C 28 4C 45 46 54 24 28 |.20 Z=VAL(LEFT$(| 00000310: 52 43 24 2C 33 29 29 3A 42 24 3D 4D 49 44 24 28 |RC$,3)):B$=MID$(| 00000320: 52 43 24 2C 34 2C 32 30 29 3A 43 24 3D 4D 49 44 |RC$,4,20):C$=MID| 00000330: 24 28 52 43 24 2C 32 34 2C 32 37 29 0D 32 32 20 |$(RC$,24,27).22 | 00000340: 44 3D 56 41 4C 28 4D 49 44 24 28 52 43 24 2C 35 |D=VAL(MID$(RC$,5| 00000350: 31 2C 32 29 29 3A 45 24 28 30 29 3D 4D 49 44 24 |1,2)):E$(0)=MID$| 00000360: 28 52 43 24 2C 35 33 2C 32 30 29 3A 45 24 28 31 |(RC$,53,20):E$(1| 00000370: 29 3D 4D 49 44 24 28 52 43 24 2C 37 33 2C 32 30 |)=MID$(RC$,73,20| 00000380: 29 0D 32 34 20 45 24 28 32 29 3D 4D 49 44 24 28 |).24 E$(2)=MID$(| 00000390: 52 43 24 2C 39 33 2C 32 30 29 3A 45 24 28 33 29 |RC$,93,20):E$(3)| 000003A0: 3D 4D 49 44 24 28 52 43 24 2C 31 31 33 2C 32 30 |=MID$(RC$,113,20| 000003B0: 29 3A 45 24 28 34 29 3D 4D 49 44 24 28 52 43 24 |):E$(4)=MID$(RC$| 000003C0: 2C 31 33 33 2C 32 30 29 0D 32 36 20 45 24 28 35 |,133,20).26 E$(5| 000003D0: 29 3D 4D 49 44 24 28 52 43 24 2C 31 35 33 2C 32 |)=MID$(RC$,153,2| 000003E0: 30 29 3A 45 24 28 36 29 3D 4D 49 44 24 28 52 43 |0):E$(6)=MID$(RC| 000003F0: 24 2C 31 37 33 2C 32 30 29 3A 45 24 28 37 29 3D |$,173,20):E$(7)=| 00000400: 4D 49 44 24 28 52 43 24 2C 31 39 33 2C 32 30 29 |MID$(RC$,193,20)| 00000410: 0D 32 38 20 45 24 28 38 29 3D 4D 49 44 24 28 52 |.28 E$(8)=MID$(R| 00000420: 43 24 2C 32 31 33 2C 32 30 29 3A 45 24 28 39 29 |C$,213,20):E$(9)| 00000430: 3D 4D 49 44 24 28 52 43 24 2C 32 33 33 2C 32 30 |=MID$(RC$,233,20| 00000440: 29 3A 52 45 54 55 52 4E 0D 33 30 20 42 24 3D 4C |):RETURN.30 B$=L| 00000450: 45 46 54 24 28 52 43 24 2C 32 30 29 3A 43 24 3D |EFT$(RC$,20):C$=| 00000460: 4D 49 44 24 28 52 43 24 2C 32 31 2C 32 37 29 3A |MID$(RC$,21,27):| 00000470: 44 3D 56 41 4C 28 4D 49 44 24 28 52 43 24 2C 34 |D=VAL(MID$(RC$,4| 00000480: 38 2C 32 29 29 3A 45 24 28 30 29 3D 4D 49 44 24 |8,2)):E$(0)=MID$| 00000490: 28 52 43 24 2C 35 30 2C 32 30 29 0D 33 32 20 45 |(RC$,50,20).32 E| 000004A0: 24 28 31 29 3D 4D 49 44 24 28 52 43 24 2C 37 30 |$(1)=MID$(RC$,70| 000004B0: 2C 32 30 29 3A 45 24 28 32 29 3D 4D 49 44 24 28 |,20):E$(2)=MID$(| 000004C0: 52 43 24 2C 39 30 2C 32 30 29 3A 45 24 28 33 29 |RC$,90,20):E$(3)| 000004D0: 3D 4D 49 44 24 28 52 43 24 2C 31 31 30 2C 32 30 |=MID$(RC$,110,20| 000004E0: 29 0D 33 34 20 45 24 28 34 29 3D 4D 49 44 24 28 |).34 E$(4)=MID$(| 000004F0: 52 43 24 2C 31 33 30 2C 32 30 29 3A 45 24 28 35 |RC$,130,20):E$(5| 00000500: 29 3D 4D 49 44 24 28 52 43 24 2C 31 35 30 2C 32 |)=MID$(RC$,150,2| 00000510: 30 29 3A 45 24 28 36 29 3D 4D 49 44 24 28 52 43 |0):E$(6)=MID$(RC| 00000520: 24 2C 31 37 30 2C 32 30 29 0D 33 36 20 45 24 28 |$,170,20).36 E$(| 00000530: 37 29 3D 4D 49 44 24 28 52 43 24 2C 31 39 30 2C |7)=MID$(RC$,190,| 00000540: 32 30 29 3A 45 24 28 38 29 3D 4D 49 44 24 28 52 |20):E$(8)=MID$(R| 00000550: 43 24 2C 32 31 30 2C 32 30 29 3A 45 24 28 39 29 |C$,210,20):E$(9)| 00000560: 3D 4D 49 44 24 28 52 43 24 2C 32 33 30 2C 32 30 |=MID$(RC$,230,20| 00000570: 29 3A 52 45 54 55 52 4E 0D 31 38 30 20 4F 50 45 |):RETURN.180 OPE| 00000580: 4E 32 2C 38 2C 32 2C 22 40 3A 43 41 2D 49 4E 44 |N2,8,2,"@:CA-IND| 00000590: 45 58 2C 53 2C 52 22 0D 31 38 31 20 46 4F 52 49 |EX,S,R".181 FORI| 000005A0: 3D 31 54 4F 41 31 3A 49 4E 50 55 54 23 32 2C 49 |=1TOA1:INPUT#2,I| 000005B0: 43 24 28 49 29 3A 49 43 24 28 49 29 3D 49 43 24 |C$(I):IC$(I)=IC$| 000005C0: 28 49 29 2B 22 22 3A 4E 45 58 54 3A 43 4C 4F 53 |(I)+"":NEXT:CLOS| 000005D0: 45 32 0D 31 38 33 20 4F 50 45 4E 33 2C 38 2C 33 |E2.183 OPEN3,8,3| 000005E0: 2C 22 40 3A 44 45 2D 49 4E 44 45 58 2C 53 2C 52 |,"@:DE-INDEX,S,R| 000005F0: 22 0D 31 38 34 20 46 4F 52 49 3D 31 54 4F 41 32 |".184 FORI=1TOA2| 00000600: 3A 49 4E 50 55 54 23 33 2C 49 44 24 28 49 29 3A |:INPUT#3,ID$(I):| 00000610: 49 44 24 28 49 29 3D 49 44 24 28 49 29 2B 22 22 |ID$(I)=ID$(I)+""| 00000620: 3A 4E 45 58 54 3A 43 4C 4F 53 45 33 0D 31 38 36 |:NEXT:CLOSE3.186| 00000630: 20 4F 50 45 4E 34 2C 38 2C 34 2C 22 40 3A 49 4E | OPEN4,8,4,"@:IN| 00000640: 2D 49 4E 44 45 58 2C 53 2C 52 22 0D 31 38 37 20 |-INDEX,S,R".187 | 00000650: 46 4F 52 49 3D 31 54 4F 41 33 3A 49 4E 50 55 54 |FORI=1TOA3:INPUT| 00000660: 23 34 2C 49 49 24 28 49 29 3A 49 49 24 28 49 29 |#4,II$(I):II$(I)| 00000670: 3D 49 49 24 28 49 29 2B 22 22 3A 4E 45 58 54 3A |=II$(I)+"":NEXT:| 00000680: 43 4C 4F 53 45 34 0D 31 38 38 20 46 4F 52 49 3D |CLOSE4.188 FORI=| 00000690: 41 31 2B 31 54 4F 41 31 2B 31 30 3A 49 43 24 28 |A1+1TOA1+10:IC$(| 000006A0: 49 29 3D 22 2A 22 3A 4E 45 58 54 3A 46 4F 52 49 |I)="*":NEXT:FORI| 000006B0: 3D 41 32 2B 31 54 4F 41 32 2B 31 30 3A 49 44 24 |=A2+1TOA2+10:ID$| 000006C0: 28 49 29 3D 22 2A 22 3A 4E 45 58 54 0D 31 38 39 |(I)="*":NEXT.189| 000006D0: 20 46 4F 52 49 3D 41 33 2B 31 54 4F 41 33 2B 31 | FORI=A3+1TOA3+1| 000006E0: 30 3A 49 49 24 28 49 29 3D 22 2A 22 3A 4E 45 58 |0:II$(I)="*":NEX| 000006F0: 54 3A 47 4F 53 55 42 34 31 30 30 0D 31 39 30 20 |T:GOSUB4100.190 | 00000700: 44 49 4D 4D 24 28 31 34 29 3A 53 59 53 39 2A 34 |DIMM$(14):SYS9*4| 00000710: 30 39 36 3A 21 4D 41 53 4B 20 22 4D 41 53 4B 39 |096:!MASK "MASK9| 00000720: 39 22 2C 38 2C 4D 24 28 30 29 3A 44 24 28 30 29 |9",8,M$(0):D$(0)| 00000730: 3D 4D 24 28 31 29 3A 44 24 28 31 29 3D 4D 24 28 |=M$(1):D$(1)=M$(| 00000740: 33 29 0D 31 39 32 20 41 4E 24 28 30 29 3D 4D 24 |3).192 AN$(0)=M$| 00000750: 28 35 29 3A 41 4E 24 28 31 29 3D 4D 24 28 37 29 |(5):AN$(1)=M$(7)| 00000760: 3A 41 4E 24 28 32 29 3D 4D 24 28 39 29 3A 4D 3D |:AN$(2)=M$(9):M=| 00000770: 30 3A 0D 31 39 33 20 21 4D 41 53 4B 20 22 4D 41 |0:.193 !MASK "MA| 00000780: 53 4B 39 38 22 2C 38 2C 4D 24 28 30 29 3A 41 45 |SK98",8,M$(0):AE| 00000790: 24 28 30 29 3D 4D 24 28 31 29 3A 41 45 24 28 31 |$(0)=M$(1):AE$(1| 000007A0: 29 3D 4D 24 28 33 29 3A 41 45 24 28 32 29 3D 4D |)=M$(3):AE$(2)=M| 000007B0: 24 28 35 29 3A 4C 4F 24 3D 4D 24 28 37 29 0D 31 |$(5):LO$=M$(7).1| 000007C0: 39 35 20 47 4F 53 55 42 34 30 30 30 3A 50 52 49 |95 GOSUB4000:PRI| 000007D0: 4E 54 22 11 11 11 22 54 41 42 28 31 30 29 22 81 |NT"..."TAB(10)".| 000007E0: 12 31 92 20 CE 45 55 41 55 46 4E 41 48 4D 45 20 |.1. .EUAUFNAHME | 000007F0: C3 41 53 53 45 54 54 45 4E 0D 31 39 38 20 50 52 |.ASSETTEN.198 PR| 00000800: 49 4E 54 54 41 42 28 31 30 29 22 12 32 92 20 CE |INTTAB(10)".2. .| 00000810: 45 55 41 55 46 4E 41 48 4D 45 20 CC D0 2D C4 45 |EUAUFNAHME ..-.E| 00000820: 55 54 53 43 48 22 3A 50 52 49 4E 54 54 41 42 28 |UTSCH":PRINTTAB(| 00000830: 31 30 29 22 12 33 92 20 CE 45 55 41 55 46 4E 41 |10)".3. .EUAUFNA| 00000840: 48 4D 45 20 CC D0 2D C9 4E 54 45 52 4E 2E 0D 31 |HME ..-.NTERN..1| 00000850: 39 39 20 50 52 49 4E 54 54 41 42 28 31 30 29 22 |99 PRINTTAB(10)"| 00000860: 11 12 34 92 20 C1 4E 44 45 52 4E 20 C3 41 53 53 |..4. .NDERN .ASS| 00000870: 45 54 54 45 4E 22 3A 50 52 49 4E 54 54 41 42 28 |ETTEN":PRINTTAB(| 00000880: 31 30 29 22 12 35 92 20 C1 4E 44 45 52 4E 20 CC |10)".5. .NDERN .| 00000890: D0 2D C4 45 55 54 53 43 48 0D 32 30 30 20 50 52 |.-.EUTSCH.200 PR| 000008A0: 49 4E 54 54 41 42 28 31 30 29 22 12 36 92 20 C1 |INTTAB(10)".6. .| 000008B0: 4E 44 45 52 4E 20 CC D0 2D C9 4E 54 45 52 4E 41 |NDERN ..-.NTERNA| 000008C0: 54 2E 22 3A 50 52 49 4E 54 54 41 42 28 31 30 29 |T.":PRINTTAB(10)| 000008D0: 22 11 12 37 92 20 CC 4F 53 43 48 45 4E 0D 32 30 |"..7. .OSCHEN.20| 000008E0: 31 20 50 52 49 4E 54 54 41 42 28 31 30 29 22 11 |1 PRINTTAB(10)".| 000008F0: 12 38 92 20 CD C5 CE D5 20 C1 CE DA C5 C9 C7 C5 |.8. .... .......| 00000900: 22 3A 50 52 49 4E 54 54 41 42 28 31 30 29 22 11 |":PRINTTAB(10)".| 00000910: 12 39 92 20 C5 CE C4 C5 0D 32 30 32 20 53 59 53 |.9. .....202 SYS| 00000920: 39 2A 34 30 39 36 3A 21 49 4E 4C 49 4E 45 20 32 |9*4096:!INLINE 2| 00000930: 33 2C 31 30 2C 31 2C 41 24 3A 41 3D 56 41 4C 28 |3,10,1,A$:A=VAL(| 00000940: 41 24 29 3A 49 46 41 3C 31 4F 52 41 3E 39 20 54 |A$):IFA<1ORA>9 T| 00000950: 48 45 4E 32 30 32 0D 32 32 30 20 4F 4E 41 47 4F |HEN202.220 ONAGO| 00000960: 54 4F 32 33 30 2C 32 33 30 2C 32 33 30 2C 35 30 |TO230,230,230,50| 00000970: 30 30 2C 35 30 30 30 2C 35 30 30 30 2C 37 30 30 |00,5000,5000,700| 00000980: 30 2C 31 30 30 30 2C 31 32 36 30 30 0D 32 33 30 |0,1000,12600.230| 00000990: 20 49 46 41 3D 31 41 4E 44 4D 3C 3E 31 54 48 45 | IFA=1ANDM<>1THE| 000009A0: 4E 47 4F 53 55 42 34 31 30 30 3A 53 59 53 20 39 |NGOSUB4100:SYS 9| 000009B0: 2A 34 30 39 36 3A 21 4D 41 53 4B 20 22 4D 41 53 |*4096:!MASK "MAS| 000009C0: 4B 30 31 22 2C 38 2C 4D 24 28 30 29 3A 4D 3D 31 |K01",8,M$(0):M=1| 000009D0: 0D 32 33 35 20 49 46 41 3E 31 41 4E 44 4D 3C 3E |.235 IFA>1ANDM<>| 000009E0: 32 54 48 45 4E 47 4F 53 55 42 34 32 30 30 3A 53 |2THENGOSUB4200:S| 000009F0: 59 53 20 39 2A 34 30 39 36 3A 21 4D 41 53 4B 20 |YS 9*4096:!MASK | 00000A00: 22 4D 41 53 4B 30 32 22 2C 38 2C 4D 24 28 30 29 |"MASK02",8,M$(0)| 00000A10: 3A 4D 24 28 31 29 3D 44 24 28 41 2D 32 29 3A 4D |:M$(1)=D$(A-2):M| 00000A20: 3D 32 0D 32 34 30 20 50 52 49 4E 54 22 93 1C 11 |=2.240 PRINT"...| 00000A30: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |................| 00000A40: 11 11 11 11 11 11 20 20 20 20 20 20 12 C6 32 92 |...... ..2.| 00000A50: 20 3D 20 C5 4E 44 45 22 3A 21 53 43 52 45 45 4E | = .NDE":!SCREEN| 00000A60: 20 4D 24 28 30 29 3A 49 46 41 3E 31 54 48 45 4E | M$(0):IFA>1THEN| 00000A70: 33 30 30 0D 32 34 35 20 50 4F 4B 45 35 33 32 38 |300.245 POKE5328| 00000A80: 31 2C 30 3A 50 4F 4B 45 35 33 32 38 30 2C 30 0D |1,0:POKE53280,0.| 00000A90: 32 35 30 20 21 49 4D 41 53 4B 20 22 89 22 2C 5A |250 !IMASK ".",Z| 00000AA0: 2C 42 24 2C 43 24 2C 44 2C 45 24 28 30 29 2C 45 |,B$,C$,D,E$(0),E| 00000AB0: 24 28 31 29 2C 45 24 28 32 29 2C 45 24 28 33 29 |$(1),E$(2),E$(3)| 00000AC0: 2C 45 24 28 34 29 2C 45 24 28 35 29 2C 45 24 28 |,E$(4),E$(5),E$(| 00000AD0: 36 29 2C 45 24 28 37 29 2C 5F 0D 32 36 30 20 21 |6),E$(7),_.260 !| 00000AE0: 20 5F 20 45 24 28 38 29 2C 45 24 28 39 29 2C 58 | _ E$(8),E$(9),X| 00000AF0: 24 0D 32 37 30 20 50 4F 24 3D 53 54 52 24 28 42 |$.270 PO$=STR$(B| 00000B00: 31 29 3A 41 24 3D 53 54 52 24 28 5A 29 3A 49 46 |1):A$=STR$(Z):IF| 00000B10: 4C 45 46 54 24 28 41 24 2C 31 29 3D 22 20 22 54 |LEFT$(A$,1)=" "T| 00000B20: 48 45 4E 41 24 3D 22 30 22 2B 52 49 47 48 54 24 |HENA$="0"+RIGHT$| 00000B30: 28 41 24 2C 32 29 0D 32 37 33 20 49 46 4D 49 44 |(A$,2).273 IFMID| 00000B40: 24 28 41 24 2C 32 2C 31 29 3D 22 20 22 54 48 45 |$(A$,2,1)=" "THE| 00000B50: 4E 41 24 3D 4C 45 46 54 24 28 41 24 2C 31 29 2B |NA$=LEFT$(A$,1)+| 00000B60: 22 30 22 2B 52 49 47 48 54 24 28 41 24 2C 31 29 |"0"+RIGHT$(A$,1)| 00000B70: 0D 32 37 35 20 47 4F 53 55 42 31 30 3A 47 4F 53 |.275 GOSUB10:GOS| 00000B80: 55 42 34 32 30 30 3A 4F 50 45 4E 32 2C 38 2C 32 |UB4200:OPEN2,8,2| 00000B90: 2C 22 43 41 53 53 45 54 54 45 2C 31 2C 22 2B 43 |,"CASSETTE,1,"+C| 00000BA0: 48 52 24 28 32 35 33 29 3A 4F 50 45 4E 31 2C 38 |HR$(253):OPEN1,8| 00000BB0: 2C 31 35 0D 32 38 30 20 42 31 3D 42 31 2B 31 3A |,15.280 B1=B1+1:| 00000BC0: 50 52 49 4E 54 23 31 2C 22 50 22 2B 43 48 52 24 |PRINT#1,"P"+CHR$| 00000BD0: 28 32 29 2B 43 48 52 24 28 42 31 29 2B 43 48 52 |(2)+CHR$(B1)+CHR| 00000BE0: 24 28 30 29 2B 43 48 52 24 28 31 29 3A 50 52 49 |$(0)+CHR$(1):PRI| 00000BF0: 4E 54 23 32 2C 52 43 24 0D 32 39 30 20 47 4F 53 |NT#2,RC$.290 GOS| 00000C00: 55 42 31 31 3A 49 43 24 28 42 31 29 3D 4D 49 44 |UB11:IC$(B1)=MID| 00000C10: 24 28 52 43 24 2C 34 2C 37 29 2B 4D 49 44 24 28 |$(RC$,4,7)+MID$(| 00000C20: 52 43 24 2C 32 34 2C 37 29 2B 4D 49 44 24 28 52 |RC$,24,7)+MID$(R| 00000C30: 43 24 2C 35 31 2C 32 29 2B 4D 49 44 24 28 52 43 |C$,51,2)+MID$(RC| 00000C40: 24 2C 31 2C 33 29 2B 50 4F 24 0D 32 39 35 20 49 |$,1,3)+PO$.295 I| 00000C50: 46 42 31 3E 41 31 2B 31 30 54 48 45 4E 43 4C 4F |FB1>A1+10THENCLO| 00000C60: 53 45 32 3A 43 4C 4F 53 45 31 3A 47 4F 54 4F 31 |SE2:CLOSE1:GOTO1| 00000C70: 32 36 30 30 0D 32 39 37 20 47 4F 53 55 42 31 32 |2600.297 GOSUB12| 00000C80: 3A 49 46 58 24 3D 22 57 22 54 48 45 4E 32 35 30 |:IFX$="W"THEN250| 00000C90: 0D 32 39 38 20 47 4F 54 4F 31 39 35 0D 33 30 30 |.298 GOTO195.300| 00000CA0: 20 21 49 4D 41 53 4B 20 22 89 22 2C 42 24 2C 43 | !IMASK ".",B$,C| 00000CB0: 24 2C 44 2C 45 24 28 30 29 2C 45 24 28 31 29 2C |$,D,E$(0),E$(1),| 00000CC0: 45 24 28 32 29 2C 45 24 28 33 29 2C 45 24 28 34 |E$(2),E$(3),E$(4| 00000CD0: 29 2C 45 24 28 35 29 2C 45 24 28 36 29 2C 45 24 |),E$(5),E$(6),E$| 00000CE0: 28 37 29 2C 5F 0D 33 31 30 20 21 20 5F 20 45 24 |(7),_.310 ! _ E$| 00000CF0: 28 38 29 2C 45 24 28 39 29 2C 58 24 0D 33 31 31 |(8),E$(9),X$.311| 00000D00: 20 49 46 41 3D 32 54 48 45 4E 50 4F 24 3D 53 54 | IFA=2THENPO$=ST| 00000D10: 52 24 28 42 32 2B 31 29 0D 33 31 32 20 49 46 41 |R$(B2+1).312 IFA| 00000D20: 3D 33 54 48 45 4E 50 4F 24 3D 53 54 52 24 28 42 |=3THENPO$=STR$(B| 00000D30: 33 2B 31 29 0D 33 31 35 20 41 24 3D 22 22 3A 47 |3+1).315 A$="":G| 00000D40: 4F 53 55 42 31 30 3A 47 4F 53 55 42 34 32 30 30 |OSUB10:GOSUB4200| 00000D50: 3A 49 46 41 3D 32 54 48 45 4E 4F 50 45 4E 32 2C |:IFA=2THENOPEN2,| 00000D60: 38 2C 32 2C 22 4C 50 2D 44 45 55 54 53 43 48 2C |8,2,"LP-DEUTSCH,| 00000D70: 31 2C 22 2B 43 48 52 24 28 32 35 30 29 0D 33 32 |1,"+CHR$(250).32| 00000D80: 30 20 49 46 41 3D 33 54 48 45 4E 4F 50 45 4E 32 |0 IFA=3THENOPEN2| 00000D90: 2C 38 2C 32 2C 22 4C 50 2D 49 4E 54 45 52 4E 41 |,8,2,"LP-INTERNA| 00000DA0: 54 49 4F 4E 41 4C 2C 31 2C 22 2B 43 48 52 24 28 |TIONAL,1,"+CHR$(| 00000DB0: 32 35 30 29 0D 33 32 35 20 4F 50 45 4E 31 2C 38 |250).325 OPEN1,8| 00000DC0: 2C 31 35 3A 49 46 41 3D 33 54 48 45 4E 33 37 30 |,15:IFA=3THEN370| 00000DD0: 0D 33 33 30 20 42 32 3D 42 32 2B 31 3A 50 52 49 |.330 B2=B2+1:PRI| 00000DE0: 4E 54 23 31 2C 22 50 22 2B 43 48 52 24 28 32 29 |NT#1,"P"+CHR$(2)| 00000DF0: 2B 43 48 52 24 28 42 32 29 2B 43 48 52 24 28 30 |+CHR$(B2)+CHR$(0| 00000E00: 29 2B 43 48 52 24 28 31 29 3A 50 52 49 4E 54 23 |)+CHR$(1):PRINT#| 00000E10: 32 2C 52 43 24 0D 33 34 30 20 47 4F 53 55 42 31 |2,RC$.340 GOSUB1| 00000E20: 31 3A 49 44 24 28 42 32 29 3D 4D 49 44 24 28 52 |1:ID$(B2)=MID$(R| 00000E30: 43 24 2C 31 2C 37 29 2B 4D 49 44 24 28 52 43 24 |C$,1,7)+MID$(RC$| 00000E40: 2C 32 31 2C 37 29 2B 4D 49 44 24 28 52 43 24 2C |,21,7)+MID$(RC$,| 00000E50: 34 38 2C 32 29 2B 50 4F 24 0D 33 35 30 20 49 46 |48,2)+PO$.350 IF| 00000E60: 42 32 3E 41 32 2B 31 30 54 48 45 4E 43 4C 4F 53 |B2>A2+10THENCLOS| 00000E70: 45 32 3A 43 4C 4F 53 45 31 3A 47 4F 54 4F 31 32 |E2:CLOSE1:GOTO12| 00000E80: 36 30 30 0D 33 36 30 20 47 4F 53 55 42 31 32 3A |600.360 GOSUB12:| 00000E90: 49 46 58 24 3D 22 57 22 54 48 45 4E 33 30 30 0D |IFX$="W"THEN300.| 00000EA0: 33 36 35 20 47 4F 54 4F 31 39 35 0D 33 37 30 20 |365 GOTO195.370 | 00000EB0: 42 33 3D 42 33 2B 31 3A 50 52 49 4E 54 23 31 2C |B3=B3+1:PRINT#1,| 00000EC0: 22 50 22 2B 43 48 52 24 28 32 29 2B 43 48 52 24 |"P"+CHR$(2)+CHR$| 00000ED0: 28 42 33 29 2B 43 48 52 24 28 30 29 2B 43 48 52 |(B3)+CHR$(0)+CHR| 00000EE0: 24 28 31 29 3A 50 52 49 4E 54 23 32 2C 52 43 24 |$(1):PRINT#2,RC$| 00000EF0: 0D 33 37 35 20 47 4F 53 55 42 31 31 3A 49 49 24 |.375 GOSUB11:II$| 00000F00: 28 42 33 29 3D 4D 49 44 24 28 52 43 24 2C 31 2C |(B3)=MID$(RC$,1,| 00000F10: 37 29 2B 4D 49 44 24 28 52 43 24 2C 32 31 2C 37 |7)+MID$(RC$,21,7| 00000F20: 29 2B 4D 49 44 24 28 52 43 24 2C 34 38 2C 32 29 |)+MID$(RC$,48,2)| 00000F30: 2B 50 4F 24 0D 33 38 30 20 49 46 42 33 3E 41 33 |+PO$.380 IFB3>A3| 00000F40: 2B 31 30 54 48 45 4E 43 4C 4F 53 45 32 3A 43 4C |+10THENCLOSE2:CL| 00000F50: 4F 53 45 31 3A 47 4F 54 4F 31 32 36 30 30 0D 33 |OSE1:GOTO12600.3| 00000F60: 38 35 20 47 4F 54 4F 33 36 30 0D 31 30 30 30 20 |85 GOTO360.1000 | 00000F70: 47 4F 53 55 42 34 30 30 30 3A 50 52 49 4E 54 22 |GOSUB4000:PRINT"| 00000F80: 11 11 1D 1D 9E 12 20 20 20 20 C3 C1 D3 D3 C5 D4 |...... ......| 00000F90: D4 C5 20 20 20 20 92 20 20 12 20 CC D0 2D C9 CE |.. . . ..-..| 00000FA0: D4 C5 D2 CE C1 D4 C9 CF CE C1 CC 0D 31 30 31 30 |............1010| 00000FB0: 20 50 52 49 4E 54 22 20 20 12 31 92 20 4E 41 43 | PRINT" .1. NAC| 00000FC0: 48 20 CE 55 4D 4D 45 52 4E 20 20 20 20 12 31 30 |H .UMMERN .10| 00000FD0: 92 20 4E 41 43 48 20 C9 4E 54 45 52 50 52 45 54 |. NACH .NTERPRET| 00000FE0: 0D 31 30 32 30 20 50 52 49 4E 54 22 20 20 12 32 |.1020 PRINT" .2| 00000FF0: 92 20 4E 41 43 48 20 C9 4E 54 45 52 50 52 45 54 |. NACH .NTERPRET| 00001000: 20 20 12 31 31 92 20 4E 41 43 48 20 CC D0 2D D4 | .11. NACH ..-.| 00001010: 49 54 45 4C 0D 31 30 32 32 20 50 52 49 4E 54 22 |ITEL.1022 PRINT"| 00001020: 20 20 12 33 92 20 4E 41 43 48 20 CC D0 2D D4 49 | .3. NACH ..-.I| 00001030: 54 45 4C 20 20 20 12 31 32 92 20 4E 41 43 48 20 |TEL .12. NACH | 00001040: CA 41 48 52 47 41 4E 47 0D 31 30 32 34 20 50 52 |.AHRGANG.1024 PR| 00001050: 49 4E 54 22 20 20 12 34 92 20 4E 41 43 48 20 CA |INT" .4. NACH .| 00001060: 41 48 52 47 41 4E 47 0D 31 30 32 36 20 50 52 49 |AHRGANG.1026 PRI| 00001070: 4E 54 22 20 20 20 20 20 20 20 20 20 20 20 20 20 |NT" | 00001080: 20 20 20 20 20 20 20 12 20 20 20 C7 C5 D3 C1 CD | . .....| 00001090: D4 2D CC C9 D3 D4 C5 20 20 92 0D 31 30 32 38 20 |.-..... ..1028 | 000010A0: 50 52 49 4E 54 22 20 20 12 20 20 20 CC D0 2D C4 |PRINT" . ..-.| 000010B0: C5 D5 D4 D3 C3 C8 20 20 20 92 20 20 12 31 33 92 |...... . .13.| 000010C0: 20 4E 41 43 48 20 CA 41 48 52 47 41 4E 47 0D 31 | NACH .AHRGANG.1| 000010D0: 30 33 30 20 50 52 49 4E 54 22 20 20 12 35 92 20 |030 PRINT" .5. | 000010E0: 4E 41 43 48 20 C9 4E 54 45 52 50 52 45 54 20 20 |NACH .NTERPRET | 000010F0: 12 31 34 92 20 4E 41 43 48 20 C9 4E 54 45 52 50 |.14. NACH .NTERP| 00001100: 52 45 54 0D 31 30 33 32 20 50 52 49 4E 54 22 20 |RET.1032 PRINT" | 00001110: 20 12 36 92 20 4E 41 43 48 20 CC D0 2D D4 49 54 | .6. NACH ..-.IT| 00001120: 45 4C 0D 31 30 33 34 20 50 52 49 4E 54 22 20 20 |EL.1034 PRINT" | 00001130: 12 37 92 20 4E 41 43 48 20 CA 41 48 52 47 41 4E |.7. NACH .AHRGAN| 00001140: 47 20 20 20 12 31 35 92 20 D5 42 45 52 53 2E 20 |G .15. .BERS. | 00001150: C9 4E 54 45 52 50 52 45 54 0D 31 30 33 36 20 50 |.NTERPRET.1036 P| 00001160: 52 49 4E 54 22 20 20 20 20 20 20 20 20 20 20 20 |RINT" | 00001170: 20 20 20 20 20 20 20 20 20 12 31 36 92 20 D5 42 | .16. .B| 00001180: 45 52 53 2E 20 CA 41 48 52 47 41 4E 47 0D 31 30 |ERS. .AHRGANG.10| 00001190: 33 37 20 50 52 49 4E 54 22 20 20 12 38 92 20 C8 |37 PRINT" .8. .| 000011A0: 41 55 50 54 4D 45 4E 55 20 20 20 20 20 20 20 12 |AUPTMENU .| 000011B0: 31 37 92 20 D5 42 45 52 53 2E 20 CD 41 54 43 48 |17. .BERS. .ATCH| 000011C0: 43 4F 44 45 0D 31 30 33 38 20 50 52 49 4E 54 22 |CODE.1038 PRINT"| 000011D0: 20 20 12 39 92 20 C5 CE C4 C5 20 20 20 20 20 20 | .9. .... | 000011E0: 20 20 20 20 20 20 20 20 20 4E 41 43 48 20 C9 4E | NACH .N| 000011F0: 54 45 52 50 52 45 54 0D 31 30 33 39 20 52 45 4D |TERPRET.1039 REM| 00001200: 20 53 59 53 39 2A 34 30 39 36 3A 21 49 4E 4C 49 | SYS9*4096:!INLI| 00001210: 4E 45 20 32 34 2C 31 39 2C 31 2C 41 24 3A 41 3D |NE 24,19,1,A$:A=| 00001220: 56 41 4C 28 41 24 29 3A 49 46 41 3C 31 4F 52 41 |VAL(A$):IFA<1ORA| 00001230: 3E 31 37 54 48 45 4E 31 30 33 39 0D 31 30 34 30 |>17THEN1039.1040| 00001240: 20 50 4F 4B 45 31 39 38 2C 30 3A 57 41 49 54 31 | POKE198,0:WAIT1| 00001250: 39 38 2C 31 3A 47 45 54 41 24 3A 41 3D 56 41 4C |98,1:GETA$:A=VAL| 00001260: 28 41 24 29 3A 49 46 41 3C 31 4F 52 41 3E 31 37 |(A$):IFA<1ORA>17| 00001270: 54 48 45 4E 31 30 34 30 0D 31 30 34 31 20 49 46 |THEN1040.1041 IF| 00001280: 41 3D 39 54 48 45 4E 31 32 36 30 30 0D 31 30 34 |A=9THEN12600.104| 00001290: 32 20 49 46 41 3D 38 54 48 45 4E 31 39 35 0D 31 |2 IFA=8THEN195.1| 000012A0: 30 34 35 20 4F 4E 41 47 4F 54 4F 31 31 30 30 2C |045 ONAGOTO1100,| 000012B0: 31 31 31 30 2C 31 31 32 30 2C 31 31 33 30 2C 31 |1110,1120,1130,1| 000012C0: 31 31 30 2C 31 31 32 30 2C 31 31 33 30 2C 2C 2C |110,1120,1130,,,| 000012D0: 31 31 31 30 2C 31 31 32 30 2C 31 31 33 30 2C 31 |1110,1120,1130,1| 000012E0: 31 33 30 2C 31 31 31 30 2C 31 31 31 30 0D 31 30 |130,1110,1110.10| 000012F0: 34 36 20 49 46 41 3D 31 36 54 48 45 4E 31 31 33 |46 IFA=16THEN113| 00001300: 30 0D 31 30 34 37 20 49 46 41 3D 31 37 54 48 45 |0.1047 IFA=17THE| 00001310: 4E 31 31 34 30 0D 31 30 35 30 20 47 4F 54 4F 31 |N1140.1050 GOTO1| 00001320: 30 30 30 0D 31 31 30 30 20 50 52 49 4E 54 41 3B |000.1100 PRINTA;| 00001330: 22 31 31 30 30 22 20 3A 47 4F 54 4F 31 30 30 30 |"1100" :GOTO1000| 00001340: 0D 31 31 31 30 20 50 52 49 4E 54 41 3B 22 31 31 |.1110 PRINTA;"11| 00001350: 31 30 22 20 3A 47 4F 54 4F 31 30 30 30 0D 31 31 |10" :GOTO1000.11| 00001360: 32 30 20 50 52 49 4E 54 41 3B 22 31 31 32 30 22 |20 PRINTA;"1120"| 00001370: 20 3A 47 4F 54 4F 31 30 30 30 0D 31 31 33 30 20 | :GOTO1000.1130 | 00001380: 50 52 49 4E 54 41 3B 22 31 31 33 30 22 20 3A 47 |PRINTA;"1130" :G| 00001390: 4F 54 4F 31 30 30 30 0D 31 31 34 30 20 50 52 49 |OTO1000.1140 PRI| 000013A0: 4E 54 41 3B 22 31 31 34 30 22 20 3A 47 4F 54 4F |NTA;"1140" :GOTO| 000013B0: 31 30 30 30 0D 31 31 35 30 20 49 3D 31 33 3A 5A |1000.1150 I=13:Z| 000013C0: 31 3D 31 38 3A 5A 32 3D 35 3A 5A 33 3D 39 3A 45 |1=18:Z2=5:Z3=9:E| 000013D0: 53 3D 31 31 3A 45 54 3D 31 31 3A 45 4E 3D 35 3A |S=11:ET=11:EN=5:| 000013E0: 47 4F 53 55 42 32 30 0D 31 31 36 30 20 50 4F 3D |GOSUB20.1160 PO=| 000013F0: 31 3A 50 33 3D 31 0D 31 31 36 31 20 49 46 59 31 |1:P3=1.1161 IFY1| 00001400: 24 3D 4D 49 44 24 28 49 43 24 28 50 4F 29 2C 50 |$=MID$(IC$(PO),P| 00001410: 31 2C 50 32 29 54 48 45 4E 58 28 50 33 29 3D 50 |1,P2)THENX(P3)=P| 00001420: 4F 3A 50 33 3D 50 33 2B 31 0D 31 31 36 32 20 50 |O:P3=P3+1.1162 P| 00001430: 4F 3D 50 4F 2B 31 3A 49 46 50 4F 3C 3D 42 31 41 |O=PO+1:IFPO<=B1A| 00001440: 4E 44 49 43 24 28 50 4F 29 3C 3E 22 2A 22 54 48 |NDIC$(PO)<>"*"TH| 00001450: 45 4E 31 31 36 31 0D 31 31 36 33 20 49 46 50 33 |EN1161.1163 IFP3| 00001460: 3D 31 54 48 45 4E 31 31 39 30 0D 31 31 36 34 20 |=1THEN1190.1164 | 00001470: 4F 50 45 4E 32 2C 38 2C 32 2C 22 40 3A 43 41 53 |OPEN2,8,2,"@:CAS| 00001480: 53 45 54 54 45 2C 4C 2C 22 2B 43 48 52 24 28 32 |SETTE,L,"+CHR$(2| 00001490: 35 33 29 0D 31 31 36 35 20 4F 50 45 4E 31 35 2C |53).1165 OPEN15,| 000014A0: 38 2C 31 35 3A 53 59 53 38 32 38 0D 31 31 36 36 |8,15:SYS828.1166| 000014B0: 20 46 4F 52 50 34 3D 31 54 4F 50 33 2D 31 0D 31 | FORP4=1TOP3-1.1| 000014C0: 31 36 37 20 50 24 3D 4D 49 44 24 28 49 43 24 28 |167 P$=MID$(IC$(| 000014D0: 58 28 50 34 29 29 2C 32 36 2C 33 29 3A 50 3D 56 |X(P4)),26,3):P=V| 000014E0: 41 4C 28 50 24 29 0D 31 31 36 38 20 50 52 49 4E |AL(P$).1168 PRIN| 000014F0: 54 23 31 35 2C 22 50 22 2B 43 48 52 24 28 32 29 |T#15,"P"+CHR$(2)| 00001500: 2B 43 48 52 24 28 50 29 2B 43 48 52 24 28 30 29 |+CHR$(P)+CHR$(0)| 00001510: 2B 43 48 52 24 28 31 29 0D 31 31 36 39 20 49 4E |+CHR$(1).1169 IN| 00001520: 50 55 54 2A 32 2C 32 35 33 2C 52 43 24 3A 47 4F |PUT*2,253,RC$:GO| 00001530: 53 55 42 39 30 0D 31 31 37 35 20 50 52 49 4E 54 |SUB90.1175 PRINT| 00001540: 22 13 11 11 11 11 11 11 22 3A 46 4F 52 49 3D 31 |".......":FORI=1| 00001550: 54 4F 31 37 3A 50 52 49 4E 54 22 20 20 20 20 20 |TO17:PRINT" | 00001560: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00001570: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00001580: 20 20 22 3B 0D 31 31 37 36 20 4E 45 58 54 3A 58 | ";.1176 NEXT:X| 00001590: 3D 31 3A 59 3D 38 3A 47 4F 53 55 42 31 38 3A 50 |=1:Y=8:GOSUB18:P| 000015A0: 52 49 4E 54 22 43 41 53 53 2E 20 4E 52 2E 20 3A |RINT"CASS. NR. :| 000015B0: 20 9E 22 3B 43 31 24 28 30 29 3A 59 3D 39 3A 47 | .";C1$(0):Y=9:G| 000015C0: 4F 53 55 42 31 38 3A 49 46 4B 5A 24 3D 22 41 22 |OSUB18:IFKZ$="A"| 000015D0: 47 4F 53 55 42 31 32 30 0D 31 31 37 37 20 49 46 |GOSUB120.1177 IF| 000015E0: 4B 5A 24 3D 22 44 22 54 48 45 4E 47 4F 53 55 42 |KZ$="D"THENGOSUB| 000015F0: 37 31 32 30 0D 31 31 37 38 20 47 4F 54 4F 32 30 |7120.1178 GOTO20| 00001600: 37 38 0D 31 31 39 30 20 49 46 50 31 3D 31 31 54 |78.1190 IFP1=11T| 00001610: 48 45 4E 50 52 49 4E 54 22 11 11 1D 1D 44 49 45 |HENPRINT"....DIE| 00001620: 53 45 20 43 41 53 53 45 54 54 45 20 42 45 53 49 |SE CASSETTE BESI| 00001630: 54 5A 45 20 49 43 48 20 4E 49 43 48 54 20 21 22 |TZE ICH NICHT !"| 00001640: 3A 47 4F 54 4F 31 31 39 38 0D 31 31 39 32 20 49 |:GOTO1198.1192 I| 00001650: 46 50 31 3D 31 54 48 45 4E 50 52 49 4E 54 22 11 |FP1=1THENPRINT".| 00001660: 11 1D 1D 56 4F 4E 20 44 49 45 53 45 4D 20 49 4E |...VON DIESEM IN| 00001670: 54 45 52 50 52 45 54 20 42 45 53 49 54 5A 45 20 |TERPRET BESITZE | 00001680: 22 0D 31 31 39 34 20 49 46 50 31 3D 31 54 48 45 |".1194 IFP1=1THE| 00001690: 4E 50 52 49 4E 54 22 1D 1D 1D 1D 49 43 48 20 4B |NPRINT"....ICH K| 000016A0: 45 49 4E 45 20 43 41 53 53 45 54 54 45 20 21 22 |EINE CASSETTE !"| 000016B0: 3A 47 4F 54 4F 31 31 39 38 0D 31 31 39 36 20 50 |:GOTO1198.1196 P| 000016C0: 52 49 4E 54 22 11 11 1D 1D 44 49 45 53 45 20 43 |RINT"....DIESE C| 000016D0: 41 53 53 45 54 54 45 4E 4E 55 4D 4D 45 52 20 45 |ASSETTENNUMMER E| 000016E0: 58 49 53 54 49 45 52 54 20 4E 49 43 48 54 22 0D |XISTIERT NICHT".| 000016F0: 31 31 39 38 20 46 4F 52 49 3D 31 54 4F 32 30 30 |1198 FORI=1TO200| 00001700: 30 3A 4E 45 58 54 3A 47 4F 54 4F 31 30 30 30 0D |0:NEXT:GOTO1000.| 00001710: 31 35 34 30 20 49 3D 31 31 3A 5A 31 3D 32 30 3A |1540 I=11:Z1=20:| 00001720: 5A 32 3D 35 3A 5A 33 3D 31 30 3A 45 53 3D 31 34 |Z2=5:Z3=10:ES=14| 00001730: 3A 45 54 3D 31 34 3A 45 4E 3D 36 3A 47 4F 53 55 |:ET=14:EN=6:GOSU| 00001740: 42 32 30 0D 31 35 36 30 20 50 4F 3D 31 3A 50 33 |B20.1560 PO=1:P3| 00001750: 3D 31 0D 31 35 36 31 20 49 46 59 31 24 3D 4D 49 |=1.1561 IFY1$=MI| 00001760: 44 24 28 49 44 24 28 50 4F 29 2C 50 31 2C 50 32 |D$(ID$(PO),P1,P2| 00001770: 29 54 48 45 4E 58 28 50 33 29 3D 50 4F 3A 50 33 |)THENX(P3)=PO:P3| 00001780: 3D 50 33 2B 31 0D 31 35 36 32 20 50 4F 3D 50 4F |=P3+1.1562 PO=PO| 00001790: 2B 31 3A 49 46 50 4F 3C 3D 42 32 41 4E 44 49 44 |+1:IFPO<=B2ANDID| 000017A0: 24 28 50 4F 29 3C 3E 22 2A 22 54 48 45 4E 31 35 |$(PO)<>"*"THEN15| 000017B0: 36 31 0D 31 35 36 33 20 49 46 50 33 3D 31 54 48 |61.1563 IFP3=1TH| 000017C0: 45 4E 31 35 39 30 0D 31 35 36 34 20 4F 50 45 4E |EN1590.1564 OPEN| 000017D0: 32 2C 38 2C 32 2C 22 40 3A 4C 50 2D 44 45 55 54 |2,8,2,"@:LP-DEUT| 000017E0: 53 43 48 2C 4C 2C 22 2B 43 48 52 24 28 32 35 30 |SCH,L,"+CHR$(250| 000017F0: 29 0D 31 35 36 35 20 4F 50 45 4E 31 35 2C 38 2C |).1565 OPEN15,8,| 00001800: 31 35 3A 53 59 53 38 32 38 0D 31 35 36 36 20 46 |15:SYS828.1566 F| 00001810: 4F 52 50 34 3D 31 54 4F 50 33 2D 31 0D 31 35 36 |ORP4=1TOP3-1.156| 00001820: 37 20 50 24 3D 4D 49 44 24 28 49 44 24 28 58 28 |7 P$=MID$(ID$(X(| 00001830: 50 34 29 29 2C 32 33 2C 33 29 3A 50 3D 56 41 4C |P4)),23,3):P=VAL| 00001840: 28 50 24 29 0D 31 35 36 38 20 50 52 49 4E 54 23 |(P$).1568 PRINT#| 00001850: 31 35 2C 22 50 22 2B 43 48 52 24 28 32 29 2B 43 |15,"P"+CHR$(2)+C| 00001860: 48 52 24 28 50 29 2B 43 48 52 24 28 30 29 2B 43 |HR$(P)+CHR$(0)+C| 00001870: 48 52 24 28 31 29 0D 31 35 36 39 20 49 4E 50 55 |HR$(1).1569 INPU| 00001880: 54 2A 32 2C 32 35 30 2C 52 43 24 3A 47 4F 53 55 |T*2,250,RC$:GOSU| 00001890: 42 38 30 0D 31 35 37 35 20 50 52 49 4E 54 22 13 |B80.1575 PRINT".| 000018A0: 11 11 11 11 11 11 22 3A 46 4F 52 49 3D 31 54 4F |......":FORI=1TO| 000018B0: 31 37 3A 50 52 49 4E 54 22 20 20 20 20 20 20 20 |17:PRINT" | 000018C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000018D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000018E0: 22 3B 0D 31 35 37 36 20 4E 45 58 54 3A 58 3D 31 |";.1576 NEXT:X=1| 000018F0: 3A 59 3D 39 3A 47 4F 53 55 42 31 38 3A 49 46 4B |:Y=9:GOSUB18:IFK| 00001900: 5A 24 3D 22 41 22 54 48 45 4E 47 4F 53 55 42 31 |Z$="A"THENGOSUB1| 00001910: 32 30 0D 31 35 37 37 20 49 46 4B 5A 24 3D 22 44 |20.1577 IFKZ$="D| 00001920: 22 54 48 45 4E 47 4F 53 55 42 37 31 32 30 0D 31 |"THENGOSUB7120.1| 00001930: 35 37 38 20 47 4F 54 4F 32 30 37 38 0D 31 35 39 |578 GOTO2078.159| 00001940: 30 20 49 46 50 31 3D 31 31 54 48 45 4E 50 52 49 |0 IFP1=11THENPRI| 00001950: 4E 54 22 11 11 1D 1D 44 49 45 53 45 20 50 4C 41 |NT"....DIESE PLA| 00001960: 54 54 45 20 42 45 53 49 54 5A 45 20 49 43 48 20 |TTE BESITZE ICH | 00001970: 4E 49 43 48 54 20 21 22 3A 47 4F 54 4F 31 35 39 |NICHT !":GOTO159| 00001980: 38 0D 31 35 39 32 20 49 46 50 31 3D 31 54 48 45 |8.1592 IFP1=1THE| 00001990: 4E 50 52 49 4E 54 22 11 11 1D 1D 56 4F 4E 20 44 |NPRINT"....VON D| 000019A0: 49 45 53 45 4D 20 49 4E 54 45 52 50 52 45 54 20 |IESEM INTERPRET | 000019B0: 42 45 53 49 54 5A 45 20 22 0D 31 35 39 34 20 49 |BESITZE ".1594 I| 000019C0: 46 50 31 3D 31 54 48 45 4E 50 52 49 4E 54 22 1D |FP1=1THENPRINT".| 000019D0: 1D 1D 1D 49 43 48 20 4B 45 49 4E 45 20 50 4C 41 |...ICH KEINE PLA| 000019E0: 54 54 45 20 21 22 0D 31 35 39 38 20 46 4F 52 49 |TTE !".1598 FORI| 000019F0: 3D 31 54 4F 32 30 30 30 3A 4E 45 58 54 3A 47 4F |=1TO2000:NEXT:GO| 00001A00: 54 4F 31 30 30 30 0D 32 30 34 30 20 49 46 4B 5A |TO1000.2040 IFKZ| 00001A10: 24 3D 22 44 22 54 48 45 4E 32 30 36 30 0D 32 30 |$="D"THEN2060.20| 00001A20: 35 30 20 49 3D 38 3A 5A 31 3D 32 36 3A 5A 32 3D |50 I=8:Z1=26:Z2=| 00001A30: 35 3A 5A 33 3D 31 31 3A 45 53 3D 32 3A 45 54 3D |5:Z3=11:ES=2:ET=| 00001A40: 32 3A 45 4E 3D 37 3A 47 4F 53 55 42 32 30 0D 32 |2:EN=7:GOSUB20.2| 00001A50: 30 36 30 20 50 4F 3D 31 3A 50 33 3D 31 0D 32 30 |060 PO=1:P3=1.20| 00001A60: 36 31 20 49 46 59 31 24 3D 4D 49 44 24 28 49 49 |61 IFY1$=MID$(II| 00001A70: 24 28 50 4F 29 2C 50 31 2C 50 32 29 54 48 45 4E |$(PO),P1,P2)THEN| 00001A80: 58 28 50 33 29 3D 50 4F 3A 50 33 3D 50 33 2B 31 |X(P3)=PO:P3=P3+1| 00001A90: 0D 32 30 36 32 20 50 4F 3D 50 4F 2B 31 3A 49 46 |.2062 PO=PO+1:IF| 00001AA0: 50 4F 3C 3D 42 33 41 4E 44 49 49 24 28 50 4F 29 |PO<=B3ANDII$(PO)| 00001AB0: 3C 3E 22 2A 22 54 48 45 4E 32 30 36 31 0D 32 30 |<>"*"THEN2061.20| 00001AC0: 36 33 20 49 46 50 33 3D 31 54 48 45 4E 31 35 39 |63 IFP3=1THEN159| 00001AD0: 30 0D 32 30 36 34 20 4F 50 45 4E 32 2C 38 2C 32 |0.2064 OPEN2,8,2| 00001AE0: 2C 22 40 3A 4C 50 2D 49 4E 54 45 52 4E 41 54 49 |,"@:LP-INTERNATI| 00001AF0: 4F 4E 41 4C 2C 4C 2C 22 2B 43 48 52 24 28 32 35 |ONAL,L,"+CHR$(25| 00001B00: 30 29 0D 32 30 36 35 20 4F 50 45 4E 31 35 2C 38 |0).2065 OPEN15,8| 00001B10: 2C 31 35 3A 53 59 53 38 32 38 0D 32 30 36 36 20 |,15:SYS828.2066 | 00001B20: 46 4F 52 50 34 3D 31 54 4F 50 33 2D 31 0D 32 30 |FORP4=1TOP3-1.20| 00001B30: 36 37 20 50 24 3D 4D 49 44 24 28 49 49 24 28 58 |67 P$=MID$(II$(X| 00001B40: 28 50 34 29 29 2C 32 33 2C 33 29 3A 50 3D 56 41 |(P4)),23,3):P=VA| 00001B50: 4C 28 50 24 29 0D 32 30 36 38 20 50 52 49 4E 54 |L(P$).2068 PRINT| 00001B60: 23 31 35 2C 22 50 22 2B 43 48 52 24 28 32 29 2B |#15,"P"+CHR$(2)+| 00001B70: 43 48 52 24 28 50 29 2B 43 48 52 24 28 30 29 2B |CHR$(P)+CHR$(0)+| 00001B80: 43 48 52 24 28 31 29 0D 32 30 36 39 20 49 4E 50 |CHR$(1).2069 INP| 00001B90: 55 54 2A 32 2C 32 35 30 2C 52 43 24 3A 47 4F 53 |UT*2,250,RC$:GOS| 00001BA0: 55 42 38 30 0D 32 30 37 35 20 50 52 49 4E 54 22 |UB80.2075 PRINT"| 00001BB0: 13 11 11 11 11 11 11 22 3A 46 4F 52 49 3D 31 54 |.......":FORI=1T| 00001BC0: 4F 31 37 3A 50 52 49 4E 54 22 20 20 20 20 20 20 |O17:PRINT" | 00001BD0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00001BE0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00001BF0: 20 22 3B 0D 32 30 37 36 20 4E 45 58 54 3A 58 3D | ";.2076 NEXT:X=| 00001C00: 31 3A 59 3D 39 3A 47 4F 53 55 42 31 38 3A 49 46 |1:Y=9:GOSUB18:IF| 00001C10: 4B 5A 24 3D 22 41 22 54 48 45 4E 47 4F 53 55 42 |KZ$="A"THENGOSUB| 00001C20: 31 32 30 0D 32 30 37 37 20 49 46 4B 5A 24 3D 22 |120.2077 IFKZ$="| 00001C30: 44 22 54 48 45 4E 47 4F 53 55 42 37 31 32 30 0D |D"THENGOSUB7120.| 00001C40: 32 30 37 38 20 4E 45 58 54 50 34 3A 43 4C 4F 53 |2078 NEXTP4:CLOS| 00001C50: 45 32 3A 43 4C 4F 53 45 31 35 3A 47 4F 54 4F 31 |E2:CLOSE15:GOTO1| 00001C60: 30 30 30 0D 33 30 30 30 20 49 46 4B 5A 24 3D 22 |000.3000 IFKZ$="| 00001C70: 44 22 54 48 45 4E 33 32 35 30 0D 33 31 30 30 20 |D"THEN3250.3100 | 00001C80: 49 3D 31 31 3A 5A 31 3D 31 39 3A 5A 32 3D 35 3A |I=11:Z1=19:Z2=5:| 00001C90: 5A 33 3D 31 38 3A 45 53 3D 31 32 3A 45 54 3D 31 |Z3=18:ES=12:ET=1| 00001CA0: 32 3A 45 4E 3D 36 3A 47 4F 53 55 42 32 30 0D 33 |2:EN=6:GOSUB20.3| 00001CB0: 32 35 30 20 50 4F 3D 31 3A 50 33 3D 31 3A 50 35 |250 PO=1:P3=1:P5| 00001CC0: 3D 30 3A 45 4D 24 3D 22 43 22 0D 33 32 35 32 20 |=0:EM$="C".3252 | 00001CD0: 49 46 59 31 24 3D 4D 49 44 24 28 49 43 24 28 50 |IFY1$=MID$(IC$(P| 00001CE0: 4F 29 2C 50 31 2C 50 32 29 54 48 45 4E 58 28 50 |O),P1,P2)THENX(P| 00001CF0: 33 29 3D 50 4F 3A 50 33 3D 50 33 2B 31 0D 33 32 |3)=PO:P3=P3+1.32| 00001D00: 35 33 20 49 46 49 43 24 28 50 4F 29 3D 22 2A 22 |53 IFIC$(PO)="*"| 00001D10: 54 48 45 4E 33 32 35 36 0D 33 32 35 34 20 50 4F |THEN3256.3254 PO| 00001D20: 3D 50 4F 2B 31 3A 49 46 50 4F 3C 32 35 31 54 48 |=PO+1:IFPO<251TH| 00001D30: 45 4E 33 32 35 32 0D 33 32 35 36 20 49 46 50 33 |EN3252.3256 IFP3| 00001D40: 3D 31 54 48 45 4E 33 32 37 30 0D 33 32 35 38 20 |=1THEN3270.3258 | 00001D50: 4F 50 45 4E 32 2C 38 2C 32 2C 22 40 3A 43 41 53 |OPEN2,8,2,"@:CAS| 00001D60: 53 45 54 54 45 2C 4C 2C 22 2B 43 48 52 24 28 32 |SETTE,L,"+CHR$(2| 00001D70: 35 33 29 0D 33 32 36 30 20 4F 50 45 4E 31 35 2C |53).3260 OPEN15,| 00001D80: 38 2C 31 35 3A 53 59 53 38 32 38 0D 33 32 36 31 |8,15:SYS828.3261| 00001D90: 20 46 4F 52 50 34 3D 31 54 4F 50 33 2D 31 0D 33 | FORP4=1TOP3-1.3| 00001DA0: 32 36 32 20 50 24 3D 4D 49 44 24 28 49 43 24 28 |262 P$=MID$(IC$(| 00001DB0: 58 28 50 34 29 29 2C 32 36 2C 33 29 3A 50 3D 56 |X(P4)),26,3):P=V| 00001DC0: 41 4C 28 50 24 29 0D 33 32 36 33 20 50 52 49 4E |AL(P$).3263 PRIN| 00001DD0: 54 23 31 35 2C 22 50 22 2B 43 48 52 24 28 32 29 |T#15,"P"+CHR$(2)| 00001DE0: 2B 43 48 52 24 28 50 29 2B 43 48 52 24 28 30 29 |+CHR$(P)+CHR$(0)| 00001DF0: 2B 43 48 52 24 28 31 29 0D 33 32 36 34 20 49 4E |+CHR$(1).3264 IN| 00001E00: 50 55 54 2A 32 2C 32 35 33 2C 52 43 24 3A 5A 31 |PUT*2,253,RC$:Z1| 00001E10: 3D 34 3A 5A 32 3D 32 34 3A 5A 33 3D 35 31 3A 47 |=4:Z2=24:Z3=51:G| 00001E20: 4F 53 55 42 31 30 30 0D 33 32 36 35 20 4E 45 58 |OSUB100.3265 NEX| 00001E30: 54 50 34 3A 43 4C 4F 53 45 32 3A 43 4C 4F 53 45 |TP4:CLOSE2:CLOSE| 00001E40: 31 35 3A 43 3D 31 0D 33 32 37 30 20 50 4F 3D 31 |15:C=1.3270 PO=1| 00001E50: 3A 50 33 3D 31 3A 45 4D 24 3D 22 44 22 0D 33 32 |:P3=1:EM$="D".32| 00001E60: 37 32 20 49 46 59 31 24 3D 4D 49 44 24 28 49 44 |72 IFY1$=MID$(ID| 00001E70: 24 28 50 4F 29 2C 50 31 2C 50 32 29 54 48 45 4E |$(PO),P1,P2)THEN| 00001E80: 58 28 50 33 29 3D 50 4F 3A 50 33 3D 50 33 2B 31 |X(P3)=PO:P3=P3+1| 00001E90: 0D 33 32 37 33 20 49 46 49 44 24 28 50 4F 29 3D |.3273 IFID$(PO)=| 00001EA0: 22 2A 22 54 48 45 4E 33 32 37 36 0D 33 32 37 34 |"*"THEN3276.3274| 00001EB0: 20 50 4F 3D 50 4F 2B 31 3A 49 46 50 4F 3C 31 35 | PO=PO+1:IFPO<15| 00001EC0: 31 54 48 45 4E 33 32 37 32 0D 33 32 37 36 20 49 |1THEN3272.3276 I| 00001ED0: 46 50 33 3D 31 54 48 45 4E 33 32 39 30 0D 33 32 |FP3=1THEN3290.32| 00001EE0: 37 38 20 4F 50 45 4E 32 2C 38 2C 32 2C 22 40 3A |78 OPEN2,8,2,"@:| 00001EF0: 4C 50 2D 44 45 55 54 53 43 48 2C 4C 2C 22 2B 43 |LP-DEUTSCH,L,"+C| 00001F00: 48 52 24 28 32 35 30 29 0D 33 32 38 30 20 4F 50 |HR$(250).3280 OP| 00001F10: 45 4E 31 35 2C 38 2C 31 35 3A 53 59 53 38 32 38 |EN15,8,15:SYS828| 00001F20: 0D 33 32 38 31 20 53 59 53 38 32 38 3A 46 4F 52 |.3281 SYS828:FOR| 00001F30: 50 34 3D 31 54 4F 50 33 2D 31 0D 33 32 38 32 20 |P4=1TOP3-1.3282 | 00001F40: 50 24 3D 4D 49 44 24 28 49 44 24 28 58 28 50 34 |P$=MID$(ID$(X(P4| 00001F50: 29 29 2C 32 33 2C 33 29 3A 50 3D 56 41 4C 28 50 |)),23,3):P=VAL(P| 00001F60: 24 29 0D 33 32 38 33 20 50 52 49 4E 54 23 31 35 |$).3283 PRINT#15| 00001F70: 2C 22 50 22 2B 43 48 52 24 28 32 29 2B 43 48 52 |,"P"+CHR$(2)+CHR| 00001F80: 24 28 50 29 2B 43 48 52 24 28 30 29 2B 43 48 52 |$(P)+CHR$(0)+CHR| 00001F90: 24 28 31 29 0D 33 32 38 34 20 49 4E 50 55 54 2A |$(1).3284 INPUT*| 00001FA0: 32 2C 32 35 30 2C 52 43 24 3A 5A 31 3D 31 3A 5A |2,250,RC$:Z1=1:Z| 00001FB0: 32 3D 32 31 3A 5A 33 3D 34 38 3A 47 4F 53 55 42 |2=21:Z3=48:GOSUB| 00001FC0: 31 30 30 0D 33 32 38 35 20 4E 45 58 54 50 34 3A |100.3285 NEXTP4:| 00001FD0: 43 4C 4F 53 45 32 3A 43 4C 4F 53 45 31 35 0D 33 |CLOSE2:CLOSE15.3| 00001FE0: 32 39 30 20 50 4F 3D 31 3A 50 33 3D 31 3A 45 4D |290 PO=1:P3=1:EM| 00001FF0: 24 3D 22 49 22 0D 33 32 39 32 20 49 46 59 31 24 |$="I".3292 IFY1$| 00002000: 3D 4D 49 44 24 28 49 49 24 28 50 4F 29 2C 50 31 |=MID$(II$(PO),P1| 00002010: 2C 50 32 29 54 48 45 4E 58 28 50 33 29 3D 50 4F |,P2)THENX(P3)=PO| 00002020: 3A 50 33 3D 50 33 2B 31 0D 33 32 39 33 20 49 46 |:P3=P3+1.3293 IF| 00002030: 49 49 24 28 50 4F 29 3D 22 2A 22 54 48 45 4E 33 |II$(PO)="*"THEN3| 00002040: 32 39 36 0D 33 32 39 34 20 50 4F 3D 50 4F 2B 31 |296.3294 PO=PO+1| 00002050: 3A 49 46 50 4F 3C 31 35 31 54 48 45 4E 33 32 39 |:IFPO<151THEN329| 00002060: 32 0D 33 32 39 36 20 49 46 50 33 3D 31 54 48 45 |2.3296 IFP3=1THE| 00002070: 4E 33 33 32 30 0D 33 32 39 38 20 4F 50 45 4E 32 |N3320.3298 OPEN2| 00002080: 2C 38 2C 32 2C 22 40 3A 4C 50 2D 49 4E 54 45 52 |,8,2,"@:LP-INTER| 00002090: 4E 41 54 49 4F 4E 41 4C 2C 4C 2C 22 2B 43 48 52 |NATIONAL,L,"+CHR| 000020A0: 24 28 32 35 30 29 0D 33 33 30 30 20 4F 50 45 4E |$(250).3300 OPEN| 000020B0: 31 35 2C 38 2C 31 35 3A 53 59 53 38 32 38 0D 33 |15,8,15:SYS828.3| 000020C0: 33 31 31 20 46 4F 52 50 34 3D 31 54 4F 50 33 2D |311 FORP4=1TOP3-| 000020D0: 31 0D 33 33 31 32 20 50 24 3D 4D 49 44 24 28 49 |1.3312 P$=MID$(I| 000020E0: 49 24 28 58 28 50 34 29 29 2C 32 33 2C 33 29 3A |I$(X(P4)),23,3):| 000020F0: 50 3D 56 41 4C 28 50 24 29 0D 33 33 31 33 20 50 |P=VAL(P$).3313 P| 00002100: 52 49 4E 54 23 31 35 2C 22 50 22 2B 43 48 52 24 |RINT#15,"P"+CHR$| 00002110: 28 32 29 2B 43 48 52 24 28 50 29 2B 43 48 52 24 |(2)+CHR$(P)+CHR$| 00002120: 28 30 29 2B 43 48 52 24 28 31 29 0D 33 33 31 34 |(0)+CHR$(1).3314| 00002130: 20 49 4E 50 55 54 2A 32 2C 32 35 30 2C 52 43 24 | INPUT*2,250,RC$| 00002140: 3A 5A 31 3D 31 3A 5A 32 3D 32 31 3A 5A 33 3D 34 |:Z1=1:Z2=21:Z3=4| 00002150: 38 3A 47 4F 53 55 42 31 30 30 0D 33 33 31 35 20 |8:GOSUB100.3315 | 00002160: 4E 45 58 54 50 34 3A 43 4C 4F 53 45 32 3A 43 4C |NEXTP4:CLOSE2:CL| 00002170: 4F 53 45 31 35 0D 33 33 32 30 20 49 46 50 35 3D |OSE15.3320 IFP5=| 00002180: 30 54 48 45 4E 33 33 39 30 0D 33 33 33 30 20 47 |0THEN3390.3330 G| 00002190: 4F 54 4F 39 30 30 30 0D 33 33 39 30 20 50 52 49 |OTO9000.3390 PRI| 000021A0: 4E 54 22 11 1D 1D 1D 1D 54 55 54 20 4D 49 52 20 |NT".....TUT MIR | 000021B0: 4C 45 49 44 2C 20 49 43 48 20 4B 41 4E 4E 20 57 |LEID, ICH KANN W| 000021C0: 45 44 45 52 20 50 4C 41 54 54 45 22 0D 33 33 39 |EDER PLATTE".339| 000021D0: 35 20 50 52 49 4E 54 22 1D 1D 1D 1D 4E 4F 43 48 |5 PRINT"....NOCH| 000021E0: 20 43 41 53 53 45 54 54 45 20 46 49 4E 44 45 4E | CASSETTE FINDEN| 000021F0: 20 21 22 0D 33 33 39 39 20 46 4F 52 49 3D 31 54 | !".3399 FORI=1T| 00002200: 4F 32 30 30 30 3A 4E 45 58 54 3A 47 4F 54 4F 31 |O2000:NEXT:GOTO1| 00002210: 30 30 30 0D 34 30 30 30 20 50 4F 4B 45 35 33 32 |000.4000 POKE532| 00002220: 38 31 2C 39 3A 50 4F 4B 45 35 33 32 38 30 2C 39 |81,9:POKE53280,9| 00002230: 3A 50 52 49 4E 54 22 93 90 CB CD 2D D3 CF C6 D4 |:PRINT"....-....| 00002240: 20 38 36 22 3B 54 41 42 28 33 33 29 22 CD C5 D0 | 86";TAB(33)"...| 00002250: CF D3 20 C9 22 3A 50 52 49 4E 54 54 41 42 28 31 |.. .":PRINTTAB(1| 00002260: 30 29 3B 4F 31 24 0D 34 30 31 30 20 50 52 49 4E |0);O1$.4010 PRIN| 00002270: 54 54 41 42 28 31 30 29 3B 4F 31 24 3A 50 52 49 |TTAB(10);O1$:PRI| 00002280: 4E 54 54 41 42 28 31 30 29 3B 4F 32 24 3A 50 52 |NTTAB(10);O2$:PR| 00002290: 49 4E 54 54 41 42 28 31 30 29 3B 4F 31 24 3A 52 |INTTAB(10);O1$:R| 000022A0: 45 54 55 52 4E 0D 34 31 30 30 20 49 46 44 4D 3D |ETURN.4100 IFDM=| 000022B0: 31 54 48 45 4E 52 45 54 55 52 4E 0D 34 31 30 35 |1THENRETURN.4105| 000022C0: 20 47 4F 53 55 42 34 30 30 30 3A 50 52 49 4E 54 | GOSUB4000:PRINT| 000022D0: 22 13 11 11 11 11 11 11 11 11 11 11 1D 1D 1D 1D |"...............| 000022E0: 1D 1D 1D CD 41 53 4B 45 4E 2D C4 49 53 4B 45 54 |....ASKEN-.ISKET| 000022F0: 54 45 20 45 49 4E 4C 45 47 45 4E 22 3A 41 31 24 |TE EINLEGEN":A1$| 00002300: 3D 22 4D 41 53 4B 45 22 0D 34 31 31 30 20 44 4D |="MASKE".4110 DM| 00002310: 3D 31 3A 47 4F 54 4F 34 33 30 30 0D 34 32 30 30 |=1:GOTO4300.4200| 00002320: 20 49 46 44 4D 3D 30 54 48 45 4E 52 45 54 55 52 | IFDM=0THENRETUR| 00002330: 4E 0D 34 32 31 30 20 47 4F 53 55 42 34 30 30 30 |N.4210 GOSUB4000| 00002340: 3A 50 52 49 4E 54 22 13 11 11 11 11 11 11 11 11 |:PRINT".........| 00002350: 11 11 1D 1D 1D 1D 1D 1D 1D C4 41 54 45 4E 2D C4 |..........ATEN-.| 00002360: 49 53 4B 45 54 54 45 20 45 49 4E 4C 45 47 45 4E |ISKETTE EINLEGEN| 00002370: 22 3A 41 31 24 3D 22 44 41 54 45 4E 22 3A 44 4D |":A1$="DATEN":DM| 00002380: 3D 30 0D 34 33 30 30 20 50 52 49 4E 54 22 13 11 |=0.4300 PRINT"..| 00002390: 11 11 11 11 11 11 11 11 11 11 11 1D 1D 1D 1D 1D |................| 000023A0: 1D 1D 1D 1D 1D 1D 1D 1D 1D 3C D2 C5 D4 D5 D2 CE |.........<......| 000023B0: 3E 20 44 52 55 43 4B 45 4E 22 3A 50 4F 4B 45 31 |> DRUCKEN":POKE1| 000023C0: 39 38 2C 30 3A 57 41 49 54 31 39 38 2C 31 0D 34 |98,0:WAIT198,1.4| 000023D0: 33 31 30 20 47 45 54 41 24 3A 49 46 41 53 43 28 |310 GETA$:IFASC(| 000023E0: 41 24 29 3C 3E 31 33 54 48 45 4E 34 33 30 30 0D |A$)<>13THEN4300.| 000023F0: 34 33 32 30 20 4F 50 45 4E 31 2C 38 2C 31 35 2C |4320 OPEN1,8,15,| 00002400: 22 49 22 3A 4F 50 45 4E 32 2C 38 2C 32 2C 22 23 |"I":OPEN2,8,2,"#| 00002410: 22 3A 50 52 49 4E 54 23 31 2C 22 4D 2D 52 22 43 |":PRINT#1,"M-R"C| 00002420: 48 52 24 28 31 34 34 29 43 48 52 24 28 37 29 43 |HR$(144)CHR$(7)C| 00002430: 48 52 24 28 31 36 29 0D 34 33 33 30 20 49 4E 50 |HR$(16).4330 INP| 00002440: 55 54 23 31 2C 41 32 24 3A 43 4C 4F 53 45 32 3A |UT#1,A2$:CLOSE2:| 00002450: 43 4C 4F 53 45 31 3A 49 46 4C 45 46 54 24 28 41 |CLOSE1:IFLEFT$(A| 00002460: 32 24 2C 35 29 3C 3E 41 31 24 54 48 45 4E 34 33 |2$,5)<>A1$THEN43| 00002470: 30 30 0D 34 34 30 30 20 52 45 54 55 52 4E 0D 35 |00.4400 RETURN.5| 00002480: 30 30 30 20 49 46 41 3D 34 41 4E 44 4D 3C 3E 31 |000 IFA=4ANDM<>1| 00002490: 54 48 45 4E 47 4F 53 55 42 34 31 30 30 3A 53 59 |THENGOSUB4100:SY| 000024A0: 53 20 39 2A 34 30 39 36 3A 21 4D 41 53 4B 20 22 |S 9*4096:!MASK "| 000024B0: 4D 41 53 4B 30 31 22 2C 38 2C 4D 24 28 30 29 3A |MASK01",8,M$(0):| 000024C0: 4D 3D 31 0D 35 30 31 30 20 49 46 41 3E 34 41 4E |M=1.5010 IFA>4AN| 000024D0: 44 4D 3C 3E 32 54 48 45 4E 47 4F 53 55 42 34 31 |DM<>2THENGOSUB41| 000024E0: 30 30 3A 53 59 53 20 39 2A 34 30 39 36 3A 21 4D |00:SYS 9*4096:!M| 000024F0: 41 53 4B 20 22 4D 41 53 4B 30 32 22 2C 38 2C 4D |ASK "MASK02",8,M| 00002500: 24 28 30 29 3A 4D 3D 32 0D 35 30 31 35 20 4D 24 |$(0):M=2.5015 M$| 00002510: 28 31 29 3D 41 45 24 28 41 2D 34 29 3A 47 4F 53 |(1)=AE$(A-4):GOS| 00002520: 55 42 34 32 30 30 0D 35 30 31 36 20 49 46 41 3D |UB4200.5016 IFA=| 00002530: 34 54 48 45 4E 4F 50 45 4E 32 2C 38 2C 32 2C 22 |4THENOPEN2,8,2,"| 00002540: 40 3A 43 41 53 53 45 54 54 45 2C 4C 2C 22 2B 43 |@:CASSETTE,L,"+C| 00002550: 48 52 24 28 32 35 33 29 0D 35 30 31 37 20 49 46 |HR$(253).5017 IF| 00002560: 41 3D 35 54 48 45 4E 4F 50 45 4E 32 2C 38 2C 32 |A=5THENOPEN2,8,2| 00002570: 2C 22 40 3A 4C 50 2D 44 45 55 54 53 43 48 2C 4C |,"@:LP-DEUTSCH,L| 00002580: 2C 22 2B 43 48 52 24 28 32 35 30 29 0D 35 30 31 |,"+CHR$(250).501| 00002590: 38 20 49 46 41 3D 36 54 48 45 4E 4F 50 45 4E 32 |8 IFA=6THENOPEN2| 000025A0: 2C 38 2C 32 2C 22 40 3A 4C 50 2D 49 4E 54 45 52 |,8,2,"@:LP-INTER| 000025B0: 4E 41 54 49 4F 4E 41 4C 2C 4C 2C 22 2B 43 48 52 |NATIONAL,L,"+CHR| 000025C0: 24 28 32 35 30 29 0D 35 30 31 39 20 4F 50 45 4E |$(250).5019 OPEN| 000025D0: 31 35 2C 38 2C 31 35 0D 35 30 32 30 20 50 52 49 |15,8,15.5020 PRI| 000025E0: 4E 54 22 93 1C 11 11 11 11 11 11 11 11 11 11 1D |NT".............| 000025F0: 1D 1D 1D 1D C2 49 54 54 45 20 C3 41 53 53 45 54 |.....ITTE .ASSET| 00002600: 54 45 4E 2D CE 52 2E 20 45 49 4E 47 45 42 45 4E |TEN-.R. EINGEBEN| 00002610: 0D 35 30 32 31 20 46 4F 52 49 3D 31 54 4F 35 3A |.5021 FORI=1TO5:| 00002620: 58 28 49 29 3D 30 3A 4E 45 58 54 0D 35 30 32 35 |X(I)=0:NEXT.5025| 00002630: 20 50 52 49 4E 54 22 11 11 11 11 1D 1D 1D 1D 1D | PRINT".........| 00002640: 20 20 20 20 20 20 27 39 39 39 27 20 3D 20 C5 4E | '999' = .N| 00002650: 44 45 22 0D 35 30 33 30 20 49 46 41 3E 34 54 48 |DE".5030 IFA>4TH| 00002660: 45 4E 35 30 38 30 0D 35 30 34 30 20 21 49 4E 4C |EN5080.5040 !INL| 00002670: 49 4E 45 20 31 32 2C 31 31 2C 33 2C 41 24 0D 35 |INE 12,11,3,A$.5| 00002680: 30 34 35 20 49 46 56 41 4C 28 41 24 29 3D 39 39 |045 IFVAL(A$)=99| 00002690: 39 54 48 45 4E 43 4C 4F 53 45 32 3A 43 4C 4F 53 |9THENCLOSE2:CLOS| 000026A0: 45 31 35 3A 47 4F 54 4F 31 39 35 0D 35 30 35 30 |E15:GOTO195.5050| 000026B0: 20 49 46 56 41 4C 28 41 24 29 3C 31 4F 52 56 41 | IFVAL(A$)<1ORVA| 000026C0: 4C 28 41 24 29 3E 32 35 30 54 48 45 4E 35 30 34 |L(A$)>250THEN504| 000026D0: 30 0D 35 30 37 30 20 47 4F 54 4F 35 31 30 30 0D |0.5070 GOTO5100.| 000026E0: 35 30 38 30 20 50 52 49 4E 54 22 93 1C 11 11 11 |5080 PRINT".....| 000026F0: 11 11 11 11 11 11 11 1D 1D 1D 1D 1D 20 C2 49 54 |............ .IT| 00002700: 54 45 20 44 45 4E 20 CC D0 2D D4 49 54 45 4C 20 |TE DEN ..-.ITEL | 00002710: 45 49 4E 47 45 42 45 4E 0D 35 30 38 31 20 21 49 |EINGEBEN.5081 !I| 00002720: 4E 4C 49 4E 45 20 31 32 2C 31 31 2C 32 30 2C 41 |NLINE 12,11,20,A| 00002730: 24 0D 35 30 38 32 20 49 46 4C 45 46 54 24 28 41 |$.5082 IFLEFT$(A| 00002740: 24 2C 33 29 3D 22 39 39 39 22 54 48 45 4E 43 4C |$,3)="999"THENCL| 00002750: 4F 53 45 32 3A 43 4C 4F 53 45 31 35 3A 47 4F 54 |OSE2:CLOSE15:GOT| 00002760: 4F 31 39 35 0D 35 30 38 35 20 49 46 4C 45 46 54 |O195.5085 IFLEFT| 00002770: 24 28 41 24 2C 35 29 3D 22 20 20 20 20 20 22 54 |$(A$,5)=" "T| 00002780: 48 45 4E 35 30 38 31 0D 35 31 30 30 20 53 59 53 |HEN5081.5100 SYS| 00002790: 38 32 38 3A 50 4F 3D 31 3A 50 33 3D 31 0D 35 31 |828:PO=1:P3=1.51| 000027A0: 31 30 20 49 46 41 3E 34 54 48 45 4E 35 32 30 30 |10 IFA>4THEN5200| 000027B0: 0D 35 31 32 30 20 49 46 4D 49 44 24 28 49 43 24 |.5120 IFMID$(IC$| 000027C0: 28 50 4F 29 2C 31 37 2C 33 29 3D 41 24 54 48 45 |(PO),17,3)=A$THE| 000027D0: 4E 58 28 50 33 29 3D 50 4F 3A 50 33 3D 50 33 2B |NX(P3)=PO:P3=P3+| 000027E0: 31 0D 35 31 33 30 20 50 4F 3D 50 4F 2B 31 3A 49 |1.5130 PO=PO+1:I| 000027F0: 46 50 4F 3C 3D 42 31 41 4E 44 49 43 24 28 50 4F |FPO<=B1ANDIC$(PO| 00002800: 29 3C 3E 22 2A 22 54 48 45 4E 35 31 32 30 0D 35 |)<>"*"THEN5120.5| 00002810: 31 35 30 20 47 4F 54 4F 35 34 30 30 0D 35 32 30 |150 GOTO5400.520| 00002820: 30 20 49 46 41 3D 36 54 48 45 4E 35 33 30 30 0D |0 IFA=6THEN5300.| 00002830: 35 32 31 30 20 49 46 4D 49 44 24 28 49 44 24 28 |5210 IFMID$(ID$(| 00002840: 50 4F 29 2C 38 2C 37 29 3D 41 24 54 48 45 4E 58 |PO),8,7)=A$THENX| 00002850: 28 50 33 29 3D 50 4F 3A 50 33 3D 50 33 2B 31 0D |(P3)=PO:P3=P3+1.| 00002860: 35 32 32 30 20 50 4F 3D 50 4F 2B 31 3A 49 46 50 |5220 PO=PO+1:IFP| 00002870: 4F 3C 3D 42 32 41 4E 44 49 44 24 28 50 4F 29 3C |O<=B2ANDID$(PO)<| 00002880: 3E 22 2A 22 54 48 45 4E 35 32 31 30 0D 35 32 34 |>"*"THEN5210.524| 00002890: 30 20 47 4F 54 4F 35 34 30 30 0D 35 33 30 30 20 |0 GOTO5400.5300 | 000028A0: 49 46 4D 49 44 24 28 49 49 24 28 50 4F 29 2C 38 |IFMID$(II$(PO),8| 000028B0: 2C 37 29 3D 41 24 54 48 45 4E 58 28 50 33 29 3D |,7)=A$THENX(P3)=| 000028C0: 50 4F 3A 50 33 3D 50 33 2B 31 0D 35 33 31 30 20 |PO:P3=P3+1.5310 | 000028D0: 50 4F 3D 50 4F 2B 31 3A 49 46 50 4F 3C 3D 42 33 |PO=PO+1:IFPO<=B3| 000028E0: 41 4E 44 49 49 24 28 50 4F 29 3C 3E 22 2A 22 54 |ANDII$(PO)<>"*"T| 000028F0: 48 45 4E 35 33 30 30 0D 35 33 33 30 20 47 4F 54 |HEN5300.5330 GOT| 00002900: 4F 35 34 30 30 0D 35 34 30 30 20 49 46 50 33 3D |O5400.5400 IFP3=| 00002910: 31 54 48 45 4E 36 30 30 30 0D 35 34 30 31 20 50 |1THEN6000.5401 P| 00002920: 33 3D 31 0D 35 34 30 33 20 49 46 41 3D 34 54 48 |3=1.5403 IFA=4TH| 00002930: 45 4E 41 24 3D 49 43 24 28 58 28 50 33 29 29 3A |ENA$=IC$(X(P3)):| 00002940: 42 24 3D 49 43 24 28 58 28 50 33 2B 31 29 29 3A |B$=IC$(X(P3+1)):| 00002950: 43 24 3D 49 43 24 28 58 28 50 33 2B 32 29 29 3A |C$=IC$(X(P3+2)):| 00002960: 44 24 3D 49 43 24 28 58 28 50 33 2B 33 29 29 3A |D$=IC$(X(P3+3)):| 00002970: 43 31 3D 31 0D 35 34 30 34 20 49 46 41 3D 35 54 |C1=1.5404 IFA=5T| 00002980: 48 45 4E 41 24 3D 49 44 24 28 58 28 50 33 29 29 |HENA$=ID$(X(P3))| 00002990: 3A 42 24 3D 49 44 24 28 58 28 50 33 2B 31 29 29 |:B$=ID$(X(P3+1))| 000029A0: 3A 43 24 3D 49 44 24 28 58 28 50 33 2B 32 29 29 |:C$=ID$(X(P3+2))| 000029B0: 3A 44 24 3D 49 44 24 28 58 28 50 33 2B 33 29 29 |:D$=ID$(X(P3+3))| 000029C0: 3A 43 32 3D 31 0D 35 34 30 35 20 49 46 41 3D 36 |:C2=1.5405 IFA=6| 000029D0: 54 48 45 4E 41 24 3D 49 49 24 28 58 28 50 33 29 |THENA$=II$(X(P3)| 000029E0: 29 3A 42 24 3D 49 49 24 28 58 28 50 33 2B 31 29 |):B$=II$(X(P3+1)| 000029F0: 29 3A 43 24 3D 49 49 24 28 58 28 50 33 2B 32 29 |):C$=II$(X(P3+2)| 00002A00: 29 3A 44 24 3D 49 49 24 28 58 28 50 33 2B 33 29 |):D$=II$(X(P3+3)| 00002A10: 29 3A 43 33 3D 31 0D 35 34 31 30 20 41 31 24 3D |):C3=1.5410 A1$=| 00002A20: 4C 45 46 54 24 28 41 24 2C 37 29 3A 41 32 24 3D |LEFT$(A$,7):A2$=| 00002A30: 4D 49 44 24 28 41 24 2C 38 2C 37 29 3A 42 31 24 |MID$(A$,8,7):B1$| 00002A40: 3D 4C 45 46 54 24 28 42 24 2C 37 29 3A 42 32 24 |=LEFT$(B$,7):B2$| 00002A50: 3D 4D 49 44 24 28 42 24 2C 38 2C 37 29 0D 35 34 |=MID$(B$,8,7).54| 00002A60: 32 30 20 43 31 24 3D 4C 45 46 54 24 28 43 24 2C |20 C1$=LEFT$(C$,| 00002A70: 37 29 3A 43 32 24 3D 4D 49 44 24 28 43 24 2C 38 |7):C2$=MID$(C$,8| 00002A80: 2C 37 29 3A 44 31 24 3D 4C 45 46 54 24 28 44 24 |,7):D1$=LEFT$(D$| 00002A90: 2C 37 29 3A 44 32 24 3D 4D 49 44 24 28 44 24 2C |,7):D2$=MID$(D$,| 00002AA0: 38 2C 37 29 0D 35 34 32 35 20 50 52 49 4E 54 22 |8,7).5425 PRINT"| 00002AB0: 93 11 11 22 41 31 24 2C 42 31 24 2C 43 31 24 2C |..."A1$,B1$,C1$,| 00002AC0: 44 31 24 3A 50 52 49 4E 54 22 11 22 41 32 24 2C |D1$:PRINT"."A2$,| 00002AD0: 42 32 24 2C 43 32 24 2C 44 32 24 0D 35 34 32 37 |B2$,C2$,D2$.5427| 00002AE0: 20 50 52 49 4E 54 22 11 11 20 20 20 12 31 92 20 | PRINT".. .1. | 00002AF0: 20 20 20 20 20 20 20 20 12 32 92 20 20 20 20 20 | .2. | 00002B00: 20 20 20 20 12 33 92 20 20 20 20 20 20 20 20 20 | .3. | 00002B10: 12 34 92 0D 35 34 33 30 20 50 52 49 4E 54 22 11 |.4..5430 PRINT".| 00002B20: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 12 35 92 |..............5.| 00002B30: 20 3D 20 CE 45 55 45 20 C5 49 4E 47 41 42 45 22 | = .EUE .INGABE"| 00002B40: 3A 50 52 49 4E 54 22 11 11 1D 1D 1D 1D D7 45 4C |:PRINT".......EL| 00002B50: 43 48 45 4E 20 C5 49 4E 54 52 41 47 20 41 4E 44 |CHEN .INTRAG AND| 00002B60: 45 52 4E 20 3F 20 28 31 2D 35 29 0D 35 34 33 35 |ERN ? (1-5).5435| 00002B70: 20 53 59 53 39 2A 34 30 39 36 3A 21 49 4E 4C 49 | SYS9*4096:!INLI| 00002B80: 4E 45 31 34 2C 31 33 2C 31 2C 49 24 3A 49 3D 56 |NE14,13,1,I$:I=V| 00002B90: 41 4C 28 49 24 29 3A 49 46 49 3C 31 4F 52 49 3E |AL(I$):IFI<1ORI>| 00002BA0: 35 54 48 45 4E 35 34 33 35 0D 35 34 34 30 20 49 |5THEN5435.5440 I| 00002BB0: 46 49 3D 35 54 48 45 4E 35 30 32 30 0D 35 34 35 |FI=5THEN5020.545| 00002BC0: 30 20 50 33 3D 49 3A 49 46 58 28 50 33 29 3D 30 |0 P3=I:IFX(P3)=0| 00002BD0: 54 48 45 4E 35 30 32 30 0D 35 35 30 30 20 52 45 |THEN5020.5500 RE| 00002BE0: 4D 20 5A 55 20 41 4E 44 45 52 4E 44 45 4E 20 53 |M ZU ANDERNDEN S| 00002BF0: 41 54 5A 20 53 55 43 48 45 4E 0D 35 35 30 32 20 |ATZ SUCHEN.5502 | 00002C00: 49 46 41 3E 34 54 48 45 4E 35 36 30 30 0D 35 35 |IFA>4THEN5600.55| 00002C10: 30 35 20 50 4F 24 3D 4D 49 44 24 28 49 43 24 28 |05 PO$=MID$(IC$(| 00002C20: 58 28 50 33 29 29 2C 32 30 2C 33 29 3A 50 3D 56 |X(P3)),20,3):P=V| 00002C30: 41 4C 28 50 4F 24 29 0D 35 35 30 38 20 50 52 49 |AL(PO$).5508 PRI| 00002C40: 4E 54 23 31 35 2C 22 50 22 2B 43 48 52 24 28 32 |NT#15,"P"+CHR$(2| 00002C50: 29 2B 43 48 52 24 28 50 29 2B 43 48 52 24 28 30 |)+CHR$(P)+CHR$(0| 00002C60: 29 2B 43 48 52 24 28 31 29 0D 35 35 31 30 20 53 |)+CHR$(1).5510 S| 00002C70: 59 53 38 32 38 3A 49 4E 50 55 54 2A 32 2C 32 35 |YS828:INPUT*2,25| 00002C80: 33 2C 52 43 24 3A 47 4F 53 55 42 32 30 0D 35 35 |3,RC$:GOSUB20.55| 00002C90: 31 35 20 53 59 53 39 2A 34 30 39 36 3A 50 52 49 |15 SYS9*4096:PRI| 00002CA0: 4E 54 22 93 1C 11 11 11 11 11 11 11 11 11 11 11 |NT".............| 00002CB0: 11 11 11 11 11 11 11 11 11 11 11 11 20 20 20 20 |............ | 00002CC0: 20 20 12 C6 32 92 20 3D 20 C5 4E 44 45 22 3A 21 | ..2. = .NDE":!| 00002CD0: 53 43 52 45 45 4E 20 4D 24 28 30 29 0D 35 35 31 |SCREEN M$(0).551| 00002CE0: 37 20 21 49 4F 4D 41 53 4B 20 22 89 22 2C 5A 2C |7 !IOMASK ".",Z,| 00002CF0: 42 24 2C 43 24 2C 44 2C 45 24 28 30 29 2C 45 24 |B$,C$,D,E$(0),E$| 00002D00: 28 31 29 2C 45 24 28 32 29 2C 45 24 28 33 29 2C |(1),E$(2),E$(3),| 00002D10: 45 24 28 34 29 2C 45 24 28 35 29 2C 45 24 28 36 |E$(4),E$(5),E$(6| 00002D20: 29 2C 45 24 28 37 29 2C 5F 0D 35 35 32 30 20 21 |),E$(7),_.5520 !| 00002D30: 20 5F 20 45 24 28 38 29 2C 45 24 28 39 29 2C 58 | _ E$(8),E$(9),X| 00002D40: 24 0D 35 35 32 35 20 41 24 3D 53 54 52 24 28 5A |$.5525 A$=STR$(Z| 00002D50: 29 3A 49 46 4C 45 46 54 24 28 41 24 2C 31 29 3D |):IFLEFT$(A$,1)=| 00002D60: 22 20 22 54 48 45 4E 41 24 3D 22 30 22 2B 52 49 |" "THENA$="0"+RI| 00002D70: 47 48 54 24 28 41 24 2C 32 29 0D 35 35 32 37 20 |GHT$(A$,2).5527 | 00002D80: 49 46 4D 49 44 24 28 41 24 2C 32 2C 31 29 3D 22 |IFMID$(A$,2,1)="| 00002D90: 20 22 54 48 45 4E 41 24 3D 4C 45 46 54 24 28 41 | "THENA$=LEFT$(A| 00002DA0: 24 2C 31 29 2B 22 30 22 2B 52 49 47 48 54 24 28 |$,1)+"0"+RIGHT$(| 00002DB0: 41 24 2C 31 29 0D 35 35 33 30 20 47 4F 53 55 42 |A$,1).5530 GOSUB| 00002DC0: 31 30 3A 50 52 49 4E 54 23 31 35 2C 22 50 22 2B |10:PRINT#15,"P"+| 00002DD0: 43 48 52 24 28 32 29 2B 43 48 52 24 28 50 29 2B |CHR$(2)+CHR$(P)+| 00002DE0: 43 48 52 24 28 30 29 2B 43 48 52 24 28 31 29 3A |CHR$(0)+CHR$(1):| 00002DF0: 50 52 49 4E 54 23 32 2C 52 43 24 0D 35 35 34 30 |PRINT#2,RC$.5540| 00002E00: 20 49 43 24 28 50 29 3D 4D 49 44 24 28 52 43 24 | IC$(P)=MID$(RC$| 00002E10: 2C 34 2C 37 29 2B 4D 49 44 24 28 52 43 24 2C 32 |,4,7)+MID$(RC$,2| 00002E20: 34 2C 37 29 2B 4D 49 44 24 28 52 43 24 2C 35 31 |4,7)+MID$(RC$,51| 00002E30: 2C 32 29 2B 4D 49 44 24 28 52 43 24 2C 31 2C 33 |,2)+MID$(RC$,1,3| 00002E40: 29 2B 50 4F 24 0D 35 35 35 30 20 47 4F 54 4F 35 |)+PO$.5550 GOTO5| 00002E50: 30 32 30 0D 35 36 30 30 20 49 46 41 3D 36 54 48 |020.5600 IFA=6TH| 00002E60: 45 4E 35 37 30 30 0D 35 36 30 35 20 50 4F 24 3D |EN5700.5605 PO$=| 00002E70: 4D 49 44 24 28 49 44 24 28 58 28 50 33 29 29 2C |MID$(ID$(X(P3)),| 00002E80: 31 37 2C 33 29 3A 50 3D 56 41 4C 28 50 4F 24 29 |17,3):P=VAL(PO$)| 00002E90: 0D 35 36 30 38 20 50 52 49 4E 54 23 31 35 2C 22 |.5608 PRINT#15,"| 00002EA0: 50 22 2B 43 48 52 24 28 32 29 2B 43 48 52 24 28 |P"+CHR$(2)+CHR$(| 00002EB0: 50 29 2B 43 48 52 24 28 30 29 2B 43 48 52 24 28 |P)+CHR$(0)+CHR$(| 00002EC0: 31 29 0D 35 36 31 30 20 53 59 53 38 32 38 3A 49 |1).5610 SYS828:I| 00002ED0: 4E 50 55 54 2A 32 2C 32 35 30 2C 52 43 24 3A 47 |NPUT*2,250,RC$:G| 00002EE0: 4F 53 55 42 33 30 0D 35 36 31 35 20 53 59 53 39 |OSUB30.5615 SYS9| 00002EF0: 2A 34 30 39 36 3A 50 52 49 4E 54 22 93 1C 11 11 |*4096:PRINT"....| 00002F00: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |................| 00002F10: 11 11 11 11 11 20 20 20 20 20 20 12 C6 32 92 20 |..... ..2. | 00002F20: 3D 20 C5 4E 44 45 22 3A 21 53 43 52 45 45 4E 20 |= .NDE":!SCREEN | 00002F30: 4D 24 28 30 29 0D 35 36 31 37 20 21 49 4F 4D 41 |M$(0).5617 !IOMA| 00002F40: 53 4B 20 22 89 22 2C 42 24 2C 43 24 2C 44 2C 45 |SK ".",B$,C$,D,E| 00002F50: 24 28 30 29 2C 45 24 28 31 29 2C 45 24 28 32 29 |$(0),E$(1),E$(2)| 00002F60: 2C 45 24 28 33 29 2C 45 24 28 34 29 2C 45 24 28 |,E$(3),E$(4),E$(| 00002F70: 35 29 2C 45 24 28 36 29 2C 45 24 28 37 29 2C 5F |5),E$(6),E$(7),_| 00002F80: 0D 35 36 32 30 20 21 20 5F 20 45 24 28 38 29 2C |.5620 ! _ E$(8),| 00002F90: 45 24 28 39 29 2C 58 24 0D 35 36 33 30 20 41 24 |E$(9),X$.5630 A$| 00002FA0: 3D 22 22 3A 47 4F 53 55 42 31 30 3A 50 52 49 4E |="":GOSUB10:PRIN| 00002FB0: 54 23 31 35 2C 22 50 22 2B 43 48 52 24 28 32 29 |T#15,"P"+CHR$(2)| 00002FC0: 2B 43 48 52 24 28 50 29 2B 43 48 52 24 28 30 29 |+CHR$(P)+CHR$(0)| 00002FD0: 2B 43 48 52 24 28 31 29 3A 50 52 49 4E 54 23 32 |+CHR$(1):PRINT#2| 00002FE0: 2C 52 43 24 0D 35 36 34 30 20 49 44 24 28 50 29 |,RC$.5640 ID$(P)| 00002FF0: 3D 4D 49 44 24 28 52 43 24 2C 31 2C 37 29 2B 4D |=MID$(RC$,1,7)+M| 00003000: 49 44 24 28 52 43 24 2C 32 31 2C 37 29 2B 4D 49 |ID$(RC$,21,7)+MI| 00003010: 44 24 28 52 43 24 2C 34 38 2C 32 29 2B 50 4F 24 |D$(RC$,48,2)+PO$| 00003020: 0D 35 36 35 30 20 47 4F 54 4F 35 30 32 30 0D 35 |.5650 GOTO5020.5| 00003030: 37 30 30 20 50 4F 24 3D 4D 49 44 24 28 49 49 24 |700 PO$=MID$(II$| 00003040: 28 58 28 50 33 29 29 2C 31 37 2C 33 29 3A 50 3D |(X(P3)),17,3):P=| 00003050: 56 41 4C 28 50 4F 24 29 0D 35 37 30 38 20 50 52 |VAL(PO$).5708 PR| 00003060: 49 4E 54 23 31 35 2C 22 50 22 2B 43 48 52 24 28 |INT#15,"P"+CHR$(| 00003070: 32 29 2B 43 48 52 24 28 50 29 2B 43 48 52 24 28 |2)+CHR$(P)+CHR$(| 00003080: 30 29 2B 43 48 52 24 28 31 29 0D 35 37 31 30 20 |0)+CHR$(1).5710 | 00003090: 53 59 53 38 32 38 3A 49 4E 50 55 54 2A 32 2C 32 |SYS828:INPUT*2,2| 000030A0: 35 30 2C 52 43 24 3A 47 4F 53 55 42 33 30 0D 35 |50,RC$:GOSUB30.5| 000030B0: 37 31 35 20 53 59 53 39 2A 34 30 39 36 3A 50 52 |715 SYS9*4096:PR| 000030C0: 49 4E 54 22 93 1C 11 11 11 11 11 11 11 11 11 11 |INT"............| 000030D0: 11 11 11 11 11 11 11 11 11 11 11 11 11 20 20 20 |............. | 000030E0: 20 20 20 12 C6 32 92 20 3D 20 C5 4E 44 45 22 3A | ..2. = .NDE":| 000030F0: 21 53 43 52 45 45 4E 20 4D 24 28 30 29 0D 35 37 |!SCREEN M$(0).57| 00003100: 31 37 20 21 49 4F 4D 41 53 4B 20 22 89 22 2C 42 |17 !IOMASK ".",B| 00003110: 24 2C 43 24 2C 44 2C 45 24 28 30 29 2C 45 24 28 |$,C$,D,E$(0),E$(| 00003120: 31 29 2C 45 24 28 32 29 2C 45 24 28 33 29 2C 45 |1),E$(2),E$(3),E| 00003130: 24 28 34 29 2C 45 24 28 35 29 2C 45 24 28 36 29 |$(4),E$(5),E$(6)| 00003140: 2C 45 24 28 37 29 2C 5F 0D 35 37 32 30 20 21 20 |,E$(7),_.5720 ! | 00003150: 5F 20 45 24 28 38 29 2C 45 24 28 39 29 2C 58 24 |_ E$(8),E$(9),X$| 00003160: 0D 35 37 33 30 20 41 24 3D 22 22 3A 47 4F 53 55 |.5730 A$="":GOSU| 00003170: 42 31 30 3A 50 52 49 4E 54 23 31 35 2C 22 50 22 |B10:PRINT#15,"P"| 00003180: 2B 43 48 52 24 28 32 29 2B 43 48 52 24 28 50 29 |+CHR$(2)+CHR$(P)| 00003190: 2B 43 48 52 24 28 30 29 2B 43 48 52 24 28 31 29 |+CHR$(0)+CHR$(1)| 000031A0: 3A 50 52 49 4E 54 23 32 2C 52 43 24 0D 35 37 34 |:PRINT#2,RC$.574| 000031B0: 30 20 49 49 24 28 50 29 3D 4D 49 44 24 28 52 43 |0 II$(P)=MID$(RC| 000031C0: 24 2C 31 2C 37 29 2B 4D 49 44 24 28 52 43 24 2C |$,1,7)+MID$(RC$,| 000031D0: 32 31 2C 37 29 2B 4D 49 44 24 28 52 43 24 2C 34 |21,7)+MID$(RC$,4| 000031E0: 38 2C 32 29 2B 50 4F 24 0D 35 37 35 30 20 47 4F |8,2)+PO$.5750 GO| 000031F0: 54 4F 35 30 32 30 0D 36 30 30 30 20 50 52 49 4E |TO5020.6000 PRIN| 00003200: 54 22 93 11 11 1D 1D C5 49 4E 54 52 41 47 20 4E |T"......INTRAG N| 00003210: 49 43 48 54 20 56 4F 52 48 41 4E 44 45 4E 20 21 |ICHT VORHANDEN !| 00003220: 22 3A 46 4F 52 49 3D 31 54 4F 35 30 30 3A 4E 45 |":FORI=1TO500:NE| 00003230: 58 54 3A 47 4F 54 4F 35 30 32 30 0D 37 31 37 35 |XT:GOTO5020.7175| 00003240: 20 50 52 49 4E 54 22 13 11 11 11 11 11 11 22 3A | PRINT".......":| 00003250: 46 4F 52 49 3D 31 54 4F 31 37 3A 50 52 49 4E 54 |FORI=1TO17:PRINT| 00003260: 22 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |" | 00003270: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00003280: 20 20 20 20 20 20 20 20 22 3B 0D 37 31 37 36 20 | ";.7176 | 00003290: 4E 45 58 54 3A 58 3D 31 3A 59 3D 38 3A 47 4F 53 |NEXT:X=1:Y=8:GOS| 000032A0: 55 42 31 38 3A 50 52 49 4E 54 22 43 41 53 53 2E |UB18:PRINT"CASS.| 000032B0: 20 4E 52 2E 20 3A 20 9E 22 3B 43 31 24 28 30 29 | NR. : .";C1$(0)| 000032C0: 3A 59 3D 39 3A 47 4F 53 55 42 31 38 3A 47 4F 53 |:Y=9:GOSUB18:GOS| 000032D0: 55 42 31 32 30 0D 37 31 37 38 20 47 4F 54 4F 32 |UB120.7178 GOTO2| 000032E0: 30 37 38 0D 37 35 30 33 20 50 52 49 4E 54 22 13 |078.7503 PRINT".| 000032F0: 11 11 11 11 11 11 11 97 22 3A 46 4F 52 49 3D 31 |........":FORI=1| 00003300: 54 4F 31 36 3A 50 52 49 4E 54 22 20 20 20 20 20 |TO16:PRINT" | 00003310: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00003320: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00003330: 20 20 22 3B 0D 37 35 30 34 20 4E 45 58 54 3A 59 | ";.7504 NEXT:Y| 00003340: 31 24 3D 4C 45 46 54 24 28 59 31 24 2C 31 32 29 |1$=LEFT$(Y1$,12)| 00003350: 0D 37 35 30 35 20 58 3D 31 3A 59 3D 39 3A 47 4F |.7505 X=1:Y=9:GO| 00003360: 53 55 42 31 38 3A 50 52 49 4E 54 22 53 41 4D 4D |SUB18:PRINT"SAMM| 00003370: 45 4C 4C 49 53 54 45 20 4D 49 54 20 22 3B 4B 24 |ELLISTE MIT ";K$| 00003380: 3B 59 31 24 0D 37 35 31 30 20 59 3D 31 31 3A 47 |;Y1$.7510 Y=11:G| 00003390: 4F 53 55 42 31 38 3A 49 46 43 3D 31 54 48 45 4E |OSUB18:IFC=1THEN| 000033A0: 50 52 49 4E 54 22 4E 52 2E 20 22 3B 0D 37 35 31 |PRINT"NR. ";.751| 000033B0: 35 20 50 52 49 4E 54 22 49 4E 54 45 52 50 52 45 |5 PRINT"INTERPRE| 000033C0: 54 20 20 20 20 20 20 54 49 54 45 4C 20 44 45 52 |T TITEL DER| 000033D0: 20 4C 50 20 20 20 4A 41 48 52 22 3B 3A 49 46 43 | LP JAHR";:IFC| 000033E0: 3D 30 54 48 45 4E 50 52 49 4E 54 22 47 41 4E 47 |=0THENPRINT"GANG| 000033F0: 22 0D 37 35 32 30 20 50 52 49 4E 54 3A 59 3D 32 |".7520 PRINT:Y=2| 00003400: 32 3A 58 3D 31 3A 47 4F 53 55 42 31 38 3A 50 52 |2:X=1:GOSUB18:PR| 00003410: 49 4E 54 22 90 20 12 46 31 92 3D 57 45 49 54 45 |INT". .F1.=WEITE| 00003420: 52 20 2F 20 12 46 33 92 3D 5A 55 52 55 45 43 4B |R / .F3.=ZURUECK| 00003430: 20 2F 20 12 46 35 92 3D 48 41 55 50 54 4D 45 4E | / .F5.=HAUPTMEN| 00003440: 55 45 0D 37 35 33 30 20 58 3D 31 34 3A 59 3D 32 |UE.7530 X=14:Y=2| 00003450: 33 3A 47 4F 53 55 42 31 38 3A 50 52 49 4E 54 22 |3:GOSUB18:PRINT"| 00003460: 12 46 37 92 3D 4D 45 4E 55 45 20 41 4E 5A 45 49 |.F7.=MENUE ANZEI| 00003470: 47 45 4E 97 22 0D 37 35 34 30 20 50 36 3D 30 3A |GEN.".7540 P6=0:| 00003480: 0D 37 35 35 30 20 59 3D 31 33 3A 58 3D 31 3A 47 |.7550 Y=13:X=1:G| 00003490: 4F 53 55 42 31 38 3A 46 4F 52 49 3D 31 54 4F 38 |OSUB18:FORI=1TO8| 000034A0: 3A 50 52 49 4E 54 22 20 20 20 20 20 20 20 20 20 |:PRINT" | 000034B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000034C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 22 3B 0D | ";.| 000034D0: 37 35 35 32 20 4E 45 58 54 49 3A 50 4F 4B 45 36 |7552 NEXTI:POKE6| 000034E0: 34 36 2C 31 0D 37 35 36 30 20 59 3D 31 33 3A 46 |46,1.7560 Y=13:F| 000034F0: 4F 52 50 37 3D 50 36 54 4F 50 36 2B 35 3A 58 3D |ORP7=P6TOP6+5:X=| 00003500: 31 3A 47 4F 53 55 42 31 38 3A 49 46 43 3D 31 54 |1:GOSUB18:IFC=1T| 00003510: 48 45 4E 39 30 37 31 0D 37 35 36 31 20 49 46 43 |HEN9071.7561 IFC| 00003520: 24 28 31 2C 50 37 29 3D 22 22 54 48 45 4E 50 52 |$(1,P7)=""THENPR| 00003530: 49 4E 54 22 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E |INT"............| 00003540: 2E 2E 20 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E |.. .............| 00003550: 2E 20 2E 2E 2E 2E 22 3A 47 4F 54 4F 39 30 36 33 |. ....":GOTO9063| 00003560: 0D 37 35 36 32 20 50 52 49 4E 54 43 24 28 31 2C |.7562 PRINTC$(1,| 00003570: 50 37 29 3A 58 3D 31 36 3A 47 4F 53 55 42 31 38 |P7):X=16:GOSUB18| 00003580: 3A 50 52 49 4E 54 43 24 28 32 2C 50 37 29 3A 58 |:PRINTC$(2,P7):X| 00003590: 3D 33 31 3A 47 4F 53 55 42 31 38 3A 50 52 49 4E |=31:GOSUB18:PRIN| 000035A0: 54 22 31 39 22 3B 43 24 28 33 2C 50 37 29 0D 37 |T"19";C$(3,P7).7| 000035B0: 35 36 33 20 59 3D 59 2B 31 3A 4E 45 58 54 50 37 |563 Y=Y+1:NEXTP7| 000035C0: 3A 47 4F 54 4F 39 30 38 30 0D 37 35 37 31 20 49 |:GOTO9080.7571 I| 000035D0: 46 43 24 28 31 2C 50 37 29 3D 22 22 54 48 45 4E |FC$(1,P7)=""THEN| 000035E0: 50 52 49 4E 54 22 2E 2E 2E 20 2E 2E 2E 2E 2E 2E |PRINT"... ......| 000035F0: 2E 2E 2E 2E 2E 2E 2E 2E 20 2E 2E 2E 2E 2E 2E 2E |........ .......| 00003600: 2E 2E 2E 2E 2E 2E 2E 20 2E 2E 2E 2E 22 3A 47 4F |....... ....":GO| 00003610: 54 4F 39 30 37 34 0D 37 35 37 32 20 50 52 49 4E |TO9074.7572 PRIN| 00003620: 54 43 24 28 30 2C 50 37 29 3A 58 3D 35 3A 47 4F |TC$(0,P7):X=5:GO| 00003630: 53 55 42 31 38 3A 50 52 49 4E 54 43 24 28 31 2C |SUB18:PRINTC$(1,| 00003640: 50 37 29 3A 58 3D 32 30 3A 47 4F 53 55 42 31 38 |P7):X=20:GOSUB18| 00003650: 3A 50 52 49 4E 54 43 24 28 32 2C 50 37 29 0D 37 |:PRINTC$(2,P7).7| 00003660: 35 37 33 20 58 3D 33 35 3A 47 4F 53 55 42 31 38 |573 X=35:GOSUB18| 00003670: 3A 50 52 49 4E 54 22 31 39 22 3B 43 24 28 33 2C |:PRINT"19";C$(3,| 00003680: 50 37 29 0D 37 35 37 34 20 59 3D 59 2B 31 3A 4E |P7).7574 Y=Y+1:N| 00003690: 45 58 54 50 37 0D 37 35 38 30 20 50 4F 4B 45 31 |EXTP7.7580 POKE1| 000036A0: 39 38 2C 30 3A 57 41 49 54 31 39 38 2C 31 3A 47 |98,0:WAIT198,1:G| 000036B0: 45 54 41 24 3A 49 46 41 24 3D 22 85 22 41 4E 44 |ETA$:IFA$="."AND| 000036C0: 50 36 3C 32 35 54 48 45 4E 50 36 3D 50 36 2B 36 |P6<25THENP6=P6+6| 000036D0: 3A 47 4F 54 4F 37 35 35 30 0D 37 35 38 31 20 49 |:GOTO7550.7581 I| 000036E0: 46 41 24 3D 22 86 22 41 4E 44 50 36 3E 35 54 48 |FA$="."ANDP6>5TH| 000036F0: 45 4E 50 36 3D 50 36 2D 36 3A 47 4F 54 4F 37 35 |ENP6=P6-6:GOTO75| 00003700: 35 30 0D 37 35 38 32 20 49 46 41 24 3D 22 87 22 |50.7582 IFA$="."| 00003710: 4F 52 41 24 3D 22 88 22 54 48 45 4E 46 4F 52 49 |ORA$="."THENFORI| 00003720: 3D 31 54 4F 33 30 3A 46 4F 52 4A 3D 31 54 4F 33 |=1TO30:FORJ=1TO3| 00003730: 3A 43 24 28 4A 2C 49 29 3D 22 22 3A 4E 45 58 54 |:C$(J,I)="":NEXT| 00003740: 3A 4E 45 58 54 0D 37 35 38 33 20 49 46 41 24 3D |:NEXT.7583 IFA$=| 00003750: 22 88 22 54 48 45 4E 31 30 30 30 0D 37 35 38 34 |"."THEN1000.7584| 00003760: 20 49 46 41 24 3D 22 87 22 54 48 45 4E 32 30 30 | IFA$="."THEN200| 00003770: 0D 37 35 38 35 20 47 4F 54 4F 37 35 38 30 0D 37 |.7585 GOTO7580.7| 00003780: 37 36 31 20 49 46 59 31 24 3D 4D 49 44 24 28 49 |761 IFY1$=MID$(I| 00003790: 44 24 28 50 4F 29 2C 50 31 2C 50 32 29 54 48 45 |D$(PO),P1,P2)THE| 000037A0: 4E 58 28 50 33 29 3D 50 4F 3A 50 33 3D 50 33 2B |NX(P3)=PO:P3=P3+| 000037B0: 31 0D 39 30 30 30 20 50 4F 4B 45 35 33 32 38 31 |1.9000 POKE53281| 000037C0: 2C 35 3A 50 4F 4B 45 35 33 32 38 30 2C 35 3A 50 |,5:POKE53280,5:P| 000037D0: 4F 4B 45 36 34 36 2C 31 31 0D 39 30 30 31 20 49 |OKE646,11.9001 I| 000037E0: 46 4B 5A 24 3D 22 44 22 54 48 45 4E 37 35 30 30 |FKZ$="D"THEN7500| 000037F0: 0D 39 30 30 33 20 50 52 49 4E 54 22 13 11 11 11 |.9003 PRINT"....| 00003800: 11 11 11 11 97 22 3A 46 4F 52 49 3D 31 54 4F 31 |.....":FORI=1TO1| 00003810: 36 3A 50 52 49 4E 54 22 20 20 20 20 20 20 20 20 |6:PRINT" | 00003820: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00003830: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 | "| 00003840: 3B 0D 39 30 30 34 20 4E 45 58 54 3A 59 31 24 3D |;.9004 NEXT:Y1$=| 00003850: 4C 45 46 54 24 28 59 31 24 2C 31 32 29 0D 39 30 |LEFT$(Y1$,12).90| 00003860: 30 35 20 58 3D 31 3A 59 3D 39 3A 47 4F 53 55 42 |05 X=1:Y=9:GOSUB| 00003870: 31 38 3A 50 52 49 4E 54 22 53 41 4D 4D 45 4C 4C |18:PRINT"SAMMELL| 00003880: 49 53 54 45 20 4D 49 54 20 22 3B 4B 24 3B 59 31 |ISTE MIT ";K$;Y1| 00003890: 24 0D 39 30 31 30 20 59 3D 31 31 3A 47 4F 53 55 |$.9010 Y=11:GOSU| 000038A0: 42 31 38 3A 49 46 43 3D 31 54 48 45 4E 50 52 49 |B18:IFC=1THENPRI| 000038B0: 4E 54 22 4E 52 2E 20 22 3B 0D 39 30 31 35 20 50 |NT"NR. ";.9015 P| 000038C0: 52 49 4E 54 22 49 4E 54 45 52 50 52 45 54 20 20 |RINT"INTERPRET | 000038D0: 20 20 20 20 54 49 54 45 4C 20 44 45 52 20 4C 50 | TITEL DER LP| 000038E0: 20 20 20 4A 41 48 52 22 3B 3A 49 46 43 3D 30 54 | JAHR";:IFC=0T| 000038F0: 48 45 4E 50 52 49 4E 54 22 47 41 4E 47 22 0D 39 |HENPRINT"GANG".9| 00003900: 30 32 30 20 50 52 49 4E 54 3A 59 3D 32 32 3A 58 |020 PRINT:Y=22:X| 00003910: 3D 31 3A 47 4F 53 55 42 31 38 3A 50 52 49 4E 54 |=1:GOSUB18:PRINT| 00003920: 22 90 20 12 46 31 92 3D 57 45 49 54 45 52 20 2F |". .F1.=WEITER /| 00003930: 20 12 46 33 92 3D 5A 55 52 55 45 43 4B 20 2F 20 | .F3.=ZURUECK / | 00003940: 12 46 35 92 3D 48 41 55 50 54 4D 45 4E 55 45 0D |.F5.=HAUPTMENUE.| 00003950: 39 30 33 30 20 58 3D 31 34 3A 59 3D 32 33 3A 47 |9030 X=14:Y=23:G| 00003960: 4F 53 55 42 31 38 3A 50 52 49 4E 54 22 12 46 37 |OSUB18:PRINT".F7| 00003970: 92 3D 4D 45 4E 55 45 20 41 4E 5A 45 49 47 45 4E |.=MENUE ANZEIGEN| 00003980: 97 22 0D 39 30 34 30 20 50 36 3D 30 3A 0D 39 30 |.".9040 P6=0:.90| 00003990: 35 30 20 59 3D 31 33 3A 58 3D 31 3A 47 4F 53 55 |50 Y=13:X=1:GOSU| 000039A0: 42 31 38 3A 46 4F 52 49 3D 31 54 4F 38 3A 50 52 |B18:FORI=1TO8:PR| 000039B0: 49 4E 54 22 20 20 20 20 20 20 20 20 20 20 20 20 |INT" | 000039C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000039D0: 20 20 20 20 20 20 20 20 20 20 22 3B 0D 39 30 35 | ";.905| 000039E0: 32 20 4E 45 58 54 49 3A 50 4F 4B 45 36 34 36 2C |2 NEXTI:POKE646,| 000039F0: 31 0D 39 30 36 30 20 59 3D 31 33 3A 46 4F 52 50 |1.9060 Y=13:FORP| 00003A00: 37 3D 50 36 54 4F 50 36 2B 35 3A 58 3D 31 3A 47 |7=P6TOP6+5:X=1:G| 00003A10: 4F 53 55 42 31 38 3A 49 46 43 3D 31 54 48 45 4E |OSUB18:IFC=1THEN| 00003A20: 39 30 37 31 0D 39 30 36 31 20 49 46 43 24 28 31 |9071.9061 IFC$(1| 00003A30: 2C 50 37 29 3D 22 22 54 48 45 4E 50 52 49 4E 54 |,P7)=""THENPRINT| 00003A40: 22 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 20 |".............. | 00003A50: 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 20 2E |.............. .| 00003A60: 2E 2E 2E 22 3A 47 4F 54 4F 39 30 36 33 0D 39 30 |...":GOTO9063.90| 00003A70: 36 32 20 50 52 49 4E 54 43 24 28 31 2C 50 37 29 |62 PRINTC$(1,P7)| 00003A80: 3A 58 3D 31 36 3A 47 4F 53 55 42 31 38 3A 50 52 |:X=16:GOSUB18:PR| 00003A90: 49 4E 54 43 24 28 32 2C 50 37 29 3A 58 3D 33 31 |INTC$(2,P7):X=31| 00003AA0: 3A 47 4F 53 55 42 31 38 3A 50 52 49 4E 54 22 31 |:GOSUB18:PRINT"1| 00003AB0: 39 22 3B 43 24 28 33 2C 50 37 29 0D 39 30 36 33 |9";C$(3,P7).9063| 00003AC0: 20 59 3D 59 2B 31 3A 4E 45 58 54 50 37 3A 47 4F | Y=Y+1:NEXTP7:GO| 00003AD0: 54 4F 39 30 38 30 0D 39 30 37 31 20 49 46 43 24 |TO9080.9071 IFC$| 00003AE0: 28 31 2C 50 37 29 3D 22 22 54 48 45 4E 50 52 49 |(1,P7)=""THENPRI| 00003AF0: 4E 54 22 2E 2E 2E 20 2E 2E 2E 2E 2E 2E 2E 2E 2E |NT"... .........| 00003B00: 2E 2E 2E 2E 2E 20 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E |..... ..........| 00003B10: 2E 2E 2E 2E 20 2E 2E 2E 2E 22 3A 47 4F 54 4F 39 |.... ....":GOTO9| 00003B20: 30 37 34 0D 39 30 37 32 20 50 52 49 4E 54 43 24 |074.9072 PRINTC$| 00003B30: 28 30 2C 50 37 29 3A 58 3D 35 3A 47 4F 53 55 42 |(0,P7):X=5:GOSUB| 00003B40: 31 38 3A 50 52 49 4E 54 43 24 28 31 2C 50 37 29 |18:PRINTC$(1,P7)| 00003B50: 3A 58 3D 32 30 3A 47 4F 53 55 42 31 38 3A 50 52 |:X=20:GOSUB18:PR| 00003B60: 49 4E 54 43 24 28 32 2C 50 37 29 0D 39 30 37 33 |INTC$(2,P7).9073| 00003B70: 20 58 3D 33 35 3A 47 4F 53 55 42 31 38 3A 50 52 | X=35:GOSUB18:PR| 00003B80: 49 4E 54 22 31 39 22 3B 43 24 28 33 2C 50 37 29 |INT"19";C$(3,P7)| 00003B90: 0D 39 30 37 34 20 59 3D 59 2B 31 3A 4E 45 58 54 |.9074 Y=Y+1:NEXT| 00003BA0: 50 37 0D 39 30 38 30 20 50 4F 4B 45 31 39 38 2C |P7.9080 POKE198,| 00003BB0: 30 3A 57 41 49 54 31 39 38 2C 31 3A 47 45 54 41 |0:WAIT198,1:GETA| 00003BC0: 24 3A 49 46 41 24 3D 22 85 22 41 4E 44 50 36 3C |$:IFA$="."ANDP6<| 00003BD0: 32 35 54 48 45 4E 50 36 3D 50 36 2B 36 3A 47 4F |25THENP6=P6+6:GO| 00003BE0: 54 4F 39 30 35 30 0D 39 30 38 31 20 49 46 41 24 |TO9050.9081 IFA$| 00003BF0: 3D 22 86 22 41 4E 44 50 36 3E 35 54 48 45 4E 50 |="."ANDP6>5THENP| 00003C00: 36 3D 50 36 2D 36 3A 47 4F 54 4F 39 30 35 30 0D |6=P6-6:GOTO9050.| 00003C10: 39 30 38 32 20 49 46 41 24 3D 22 87 22 4F 52 41 |9082 IFA$="."ORA| 00003C20: 24 3D 22 88 22 54 48 45 4E 46 4F 52 49 3D 31 54 |$="."THENFORI=1T| 00003C30: 4F 33 30 3A 46 4F 52 4A 3D 31 54 4F 33 3A 43 24 |O30:FORJ=1TO3:C$| 00003C40: 28 4A 2C 49 29 3D 22 22 3A 4E 45 58 54 3A 4E 45 |(J,I)="":NEXT:NE| 00003C50: 58 54 0D 39 30 38 33 20 49 46 41 24 3D 22 88 22 |XT.9083 IFA$="."| 00003C60: 54 48 45 4E 31 30 30 30 0D 39 30 38 34 20 49 46 |THEN1000.9084 IF| 00003C70: 41 24 3D 22 87 22 54 48 45 4E 32 30 30 0D 39 30 |A$="."THEN200.90| 00003C80: 38 35 20 47 4F 54 4F 39 30 38 30 0D 31 32 36 30 |85 GOTO9080.1260| 00003C90: 30 20 50 52 49 4E 54 22 93 11 11 1D 1D 43 41 53 |0 PRINT".....CAS| 00003CA0: 53 45 54 54 45 3A 20 20 20 20 20 20 20 20 20 22 |SETTE: "| 00003CB0: 3B 42 31 3B 22 20 53 41 45 54 5A 45 22 0D 31 32 |;B1;" SAETZE".12| 00003CC0: 36 31 30 20 50 52 49 4E 54 22 11 11 1D 1D 4C 50 |610 PRINT"....LP| 00003CD0: 2D 44 45 55 54 53 43 48 3A 20 20 20 20 20 20 20 |-DEUTSCH: | 00003CE0: 22 3B 42 32 3B 22 20 53 41 45 54 5A 45 22 0D 31 |";B2;" SAETZE".1| 00003CF0: 32 36 32 30 20 50 52 49 4E 54 22 11 11 1D 1D 4C |2620 PRINT"....L| 00003D00: 50 2D 49 4E 54 45 52 4E 41 54 49 4F 4E 41 4C 3A |P-INTERNATIONAL:| 00003D10: 20 22 3B 42 33 3B 22 20 53 41 45 54 5A 45 22 0D | ";B3;" SAETZE".| 00003D20: 31 32 36 32 32 20 50 52 49 4E 54 22 11 11 11 1D |12622 PRINT"....| 00003D30: 1D 1D 1D 1D 41 42 53 50 45 49 43 48 45 52 4E 20 |....ABSPEICHERN | 00003D40: 3F 20 28 4A 2F 4E 29 22 3A 50 4F 4B 45 31 39 38 |? (J/N)":POKE198| 00003D50: 2C 30 3A 57 41 49 54 31 39 38 2C 31 0D 31 32 36 |,0:WAIT198,1.126| 00003D60: 32 34 20 47 45 54 41 24 3A 49 46 41 24 3D 22 4A |24 GETA$:IFA$="J| 00003D70: 22 54 48 45 4E 31 32 36 34 30 0D 31 32 36 32 36 |"THEN12640.12626| 00003D80: 20 49 46 41 24 3C 3E 22 4E 22 54 48 45 4E 31 32 | IFA$<>"N"THEN12| 00003D90: 36 32 34 0D 31 32 36 33 30 20 50 52 49 4E 54 22 |624.12630 PRINT"| 00003DA0: 11 11 11 1D 50 52 4F 47 52 41 4D 4D 41 42 42 52 |....PROGRAMMABBR| 00003DB0: 55 43 48 20 41 55 46 47 52 55 4E 44 20 42 45 44 |UCH AUFGRUND BED| 00003DC0: 49 45 4E 45 52 2D 20 20 20 20 20 20 45 4E 54 53 |IENER- ENTS| 00003DD0: 43 48 45 49 44 20 49 4E 20 31 32 36 33 30 22 3A |CHEID IN 12630":| 00003DE0: 45 4E 44 0D 31 32 36 34 30 20 49 46 42 31 3D 41 |END.12640 IFB1=A| 00003DF0: 31 41 4E 44 43 31 3D 30 54 48 45 4E 31 32 37 35 |1ANDC1=0THEN1275| 00003E00: 30 0D 31 32 36 34 35 20 4F 50 45 4E 32 2C 38 2C |0.12645 OPEN2,8,| 00003E10: 32 2C 22 40 3A 43 41 2D 49 4E 44 45 58 2C 53 2C |2,"@:CA-INDEX,S,| 00003E20: 57 22 0D 31 32 36 35 30 20 46 4F 52 49 3D 31 54 |W".12650 FORI=1T| 00003E30: 4F 42 31 3A 50 52 49 4E 54 23 32 2C 49 43 24 28 |OB1:PRINT#2,IC$(| 00003E40: 49 29 3A 50 52 49 4E 54 22 93 11 11 1D 1D 43 41 |I):PRINT".....CA| 00003E50: 53 53 45 54 54 45 3A 20 22 3B 54 41 42 28 32 30 |SSETTE: ";TAB(20| 00003E60: 29 49 3A 4E 45 58 54 0D 31 32 37 30 30 20 43 4C |)I:NEXT.12700 CL| 00003E70: 4F 53 45 32 0D 31 32 37 35 30 20 49 46 42 32 3D |OSE2.12750 IFB2=| 00003E80: 41 32 41 4E 44 43 32 3D 30 54 48 45 4E 31 32 39 |A2ANDC2=0THEN129| 00003E90: 30 30 0D 31 32 37 36 30 20 4F 50 45 4E 33 2C 38 |00.12760 OPEN3,8| 00003EA0: 2C 33 2C 22 40 3A 44 45 2D 49 4E 44 45 58 2C 53 |,3,"@:DE-INDEX,S| 00003EB0: 2C 57 22 0D 31 32 38 30 30 20 46 4F 52 49 3D 31 |,W".12800 FORI=1| 00003EC0: 54 4F 42 32 3A 50 52 49 4E 54 23 33 2C 49 44 24 |TOB2:PRINT#3,ID$| 00003ED0: 28 49 29 3A 50 52 49 4E 54 22 13 11 11 11 11 11 |(I):PRINT"......| 00003EE0: 1D 1D 4C 50 2D 44 45 55 54 53 43 48 3A 22 3B 54 |..LP-DEUTSCH:";T| 00003EF0: 41 42 28 32 30 29 49 3A 4E 45 58 54 0D 31 32 38 |AB(20)I:NEXT.128| 00003F00: 35 30 20 43 4C 4F 53 45 33 0D 31 32 39 30 30 20 |50 CLOSE3.12900 | 00003F10: 49 46 42 33 3D 41 33 41 4E 44 43 33 3D 30 54 48 |IFB3=A3ANDC3=0TH| 00003F20: 45 4E 31 33 30 31 30 0D 31 32 39 31 30 20 4F 50 |EN13010.12910 OP| 00003F30: 45 4E 34 2C 38 2C 34 2C 22 40 3A 49 4E 2D 49 4E |EN4,8,4,"@:IN-IN| 00003F40: 44 45 58 2C 53 2C 57 22 0D 31 32 39 35 30 20 46 |DEX,S,W".12950 F| 00003F50: 4F 52 49 3D 31 54 4F 42 33 3A 50 52 49 4E 54 23 |ORI=1TOB3:PRINT#| 00003F60: 34 2C 49 49 24 28 49 29 3A 50 52 49 4E 54 22 13 |4,II$(I):PRINT".| 00003F70: 11 11 11 11 11 11 11 11 1D 1D 4C 50 2D 49 4E 54 |..........LP-INT| 00003F80: 45 52 4E 41 54 49 4F 4E 41 4C 3A 22 3B 54 41 42 |ERNATIONAL:";TAB| 00003F90: 28 32 30 29 49 3A 4E 45 58 54 0D 31 33 30 30 30 |(20)I:NEXT.13000| 00003FA0: 20 43 4C 4F 53 45 34 0D 31 33 30 31 30 20 4F 50 | CLOSE4.13010 OP| 00003FB0: 45 4E 35 2C 38 2C 35 2C 22 40 3A 49 4E 44 45 58 |EN5,8,5,"@:INDEX| 00003FC0: 2C 53 2C 57 22 3A 50 52 49 4E 54 23 35 2C 41 31 |,S,W":PRINT#5,A1| 00003FD0: 3A 50 52 49 4E 54 23 35 2C 41 32 3A 50 52 49 4E |:PRINT#5,A2:PRIN| 00003FE0: 54 23 35 2C 41 33 3A 43 4C 4F 53 45 35 0D 31 33 |T#5,A3:CLOSE5.13| 00003FF0: 30 32 30 20 49 46 20 42 31 3D 41 31 2B 31 30 4F |020 IF B1=A1+10O| 00004000: 52 42 32 3D 41 32 2B 31 30 4F 52 42 33 3D 41 33 |RB2=A2+10ORB3=A3| 00004010: 2B 31 30 54 48 45 4E 20 50 52 49 4E 54 22 11 1D |+10THEN PRINT"..| 00004020: 4E 45 55 53 54 41 52 54 20 4E 4F 45 54 49 47 20 |NEUSTART NOETIG | 00004030: 44 41 20 44 49 4D 20 5A 55 20 4B 4C 45 49 0D 31 |DA DIM ZU KLEI.1| 00004040: 33 30 35 30 20 50 52 49 4E 54 22 90 11 11 22 3A |3050 PRINT"...":| 00004050: 45 4E 44 0D 35 31 33 31 30 20 52 45 4D 20 2B 2B |END.51310 REM ++| 00004060: 20 45 49 4E 52 49 43 48 54 45 4E 20 44 45 52 20 | EINRICHTEN DER | 00004070: 52 45 4C 2E 20 44 41 54 45 49 20 27 43 41 53 53 |REL. DATEI 'CASS| 00004080: 45 54 54 45 27 20 2B 2B 0D 35 31 33 31 35 20 52 |ETTE' ++.51315 R| 00004090: 4E 3D 32 35 30 3A 48 42 3D 49 4E 54 28 52 4E 2F |N=250:HB=INT(RN/| 000040A0: 32 35 36 29 3A 4C 42 3D 52 4E 2D 48 42 2A 32 35 |256):LB=RN-HB*25| 000040B0: 36 0D 35 31 33 32 30 20 4F 50 45 4E 32 2C 38 2C |6.51320 OPEN2,8,| 000040C0: 32 2C 22 43 41 53 53 45 54 54 45 2C 4C 2C 22 2B |2,"CASSETTE,L,"+| 000040D0: 43 48 52 24 28 32 35 33 29 0D 35 31 33 32 35 20 |CHR$(253).51325 | 000040E0: 4F 50 45 4E 31 35 2C 38 2C 31 35 0D 35 31 33 33 |OPEN15,8,15.5133| 000040F0: 30 20 50 52 49 4E 54 23 31 35 2C 22 50 22 2B 43 |0 PRINT#15,"P"+C| 00004100: 48 52 24 28 32 29 2B 43 48 52 24 28 32 35 30 29 |HR$(2)+CHR$(250)| 00004110: 2B 43 48 52 24 28 30 29 2B 43 48 52 24 28 31 29 |+CHR$(0)+CHR$(1)| 00004120: 0D 35 31 33 33 35 20 50 52 49 4E 54 23 32 2C 43 |.51335 PRINT#2,C| 00004130: 48 52 24 28 32 35 35 29 0D 35 31 33 34 30 20 43 |HR$(255).51340 C| 00004140: 4C 4F 53 45 31 3A 43 4C 4F 53 45 32 3A 53 54 4F |LOSE1:CLOSE2:STO| 00004150: 50 0D 35 31 33 34 35 20 4F 50 45 4E 32 2C 38 2C |P.51345 OPEN2,8,| 00004160: 32 2C 22 40 3A 43 41 53 53 45 54 54 45 2C 4C 2C |2,"@:CASSETTE,L,| 00004170: 22 2B 43 48 52 24 28 38 35 29 0D 35 31 33 35 30 |"+CHR$(85).51350| 00004180: 20 4F 50 45 4E 31 35 2C 38 2C 31 35 0D 35 31 33 | OPEN15,8,15.513| 00004190: 35 35 20 49 4E 50 55 54 22 52 45 43 4F 52 44 4E |55 INPUT"RECORDN| 000041A0: 55 4D 4D 45 52 22 3B 52 4E 0D 35 31 33 36 30 20 |UMMER";RN.51360 | 000041B0: 50 52 49 4E 54 23 31 35 2C 22 50 22 2B 43 48 52 |PRINT#15,"P"+CHR| 000041C0: 24 28 32 29 2B 43 48 52 24 28 52 4E 29 2B 43 48 |$(2)+CHR$(RN)+CH| 000041D0: 52 24 28 30 29 2B 43 48 52 24 28 31 29 0D 35 31 |R$(0)+CHR$(1).51| 000041E0: 33 36 35 20 49 4E 50 55 54 23 32 2C 52 43 24 0D |365 INPUT#2,RC$.| 000041F0: 35 31 33 37 30 20 50 52 49 4E 54 52 43 24 0D 35 |51370 PRINTRC$.5| 00004200: 31 33 37 35 20 43 4C 4F 53 45 31 35 3A 43 4C 4F |1375 CLOSE15:CLO| 00004210: 53 45 32 3A 53 54 4F 50 0D 35 31 33 38 30 20 4F |SE2:STOP.51380 O| 00004220: 50 45 4E 32 2C 38 2C 32 2C 22 40 3A 43 41 2D 49 |PEN2,8,2,"@:CA-I| 00004230: 4E 44 45 58 2C 53 2C 52 22 0D 35 31 33 38 35 20 |NDEX,S,R".51385 | 00004240: 46 4F 52 49 3D 31 54 4F 32 35 30 3A 49 4E 50 55 |FORI=1TO250:INPU| 00004250: 54 23 32 2C 49 43 24 28 49 29 3A 4E 45 58 54 0D |T#2,IC$(I):NEXT.| 00004260: 35 31 33 39 30 20 43 4C 4F 53 45 32 0D 35 31 33 |51390 CLOSE2.513| 00004270: 39 35 20 4F 50 45 4E 33 2C 38 2C 33 2C 22 40 3A |95 OPEN3,8,3,"@:| 00004280: 44 45 2D 49 4E 44 45 58 2C 53 2C 52 22 0D 35 31 |DE-INDEX,S,R".51| 00004290: 34 30 30 20 46 4F 52 49 3D 31 54 4F 31 35 30 3A |400 FORI=1TO150:| 000042A0: 49 4E 50 55 54 23 33 2C 49 44 24 28 49 29 3A 4E |INPUT#3,ID$(I):N| 000042B0: 45 58 54 0D 35 31 34 30 35 20 43 4C 4F 53 45 33 |EXT.51405 CLOSE3| 000042C0: 0D 35 31 34 31 30 20 52 45 4D 20 2B 2B 20 45 49 |.51410 REM ++ EI| 000042D0: 4E 52 49 43 48 54 45 4E 20 44 45 52 20 52 45 4C |NRICHTEN DER REL| 000042E0: 2E 20 44 41 54 45 49 20 27 4C 50 2D 44 45 55 54 |. DATEI 'LP-DEUT| 000042F0: 53 43 48 27 20 2B 2B 0D 35 31 34 31 35 20 52 4E |SCH' ++.51415 RN| 00004300: 3D 31 35 30 3A 48 42 3D 49 4E 54 28 52 4E 2F 32 |=150:HB=INT(RN/2| 00004310: 35 36 29 3A 4C 42 3D 52 4E 2D 48 42 2A 32 35 36 |56):LB=RN-HB*256| 00004320: 0D 35 31 34 32 30 20 4F 50 45 4E 32 2C 38 2C 32 |.51420 OPEN2,8,2| 00004330: 2C 22 4C 50 2D 44 45 55 54 53 43 48 2C 4C 2C 22 |,"LP-DEUTSCH,L,"| 00004340: 2B 43 48 52 24 28 32 35 30 29 0D 35 31 34 32 35 |+CHR$(250).51425| 00004350: 20 4F 50 45 4E 31 35 2C 38 2C 31 35 0D 35 31 34 | OPEN15,8,15.514| 00004360: 33 30 20 50 52 49 4E 54 23 31 35 2C 22 50 22 2B |30 PRINT#15,"P"+| 00004370: 43 48 52 24 28 32 29 2B 43 48 52 24 28 31 35 30 |CHR$(2)+CHR$(150| 00004380: 29 2B 43 48 52 24 28 30 29 2B 43 48 52 24 28 31 |)+CHR$(0)+CHR$(1| 00004390: 29 0D 35 31 34 33 35 20 50 52 49 4E 54 23 32 2C |).51435 PRINT#2,| 000043A0: 43 48 52 24 28 32 35 35 29 0D 35 31 34 34 30 20 |CHR$(255).51440 | 000043B0: 43 4C 4F 53 45 31 3A 43 4C 4F 53 45 32 3A 53 54 |CLOSE1:CLOSE2:ST| 000043C0: 4F 50 0D 35 32 30 30 30 20 4F 50 45 4E 31 2C 38 |OP.52000 OPEN1,8| 000043D0: 2C 31 35 3A 49 4E 50 55 54 23 31 2C 45 2C 45 24 |,15:INPUT#1,E,E$| 000043E0: 2C 45 31 2C 45 32 3A 50 52 49 4E 54 45 2C 45 24 |,E1,E2:PRINTE,E$| 000043F0: 2C 45 31 2C 45 32 3A 43 4C 4F 53 45 31 0D 0A 52 |,E1,E2:CLOSE1..R| 00004400: 45 41 44 59 2E 0D 0A 0D |EADY.... |
..0 IFI=0THENI=1:POKE56,144:LOAD"SMUBU",
8,1.1 SYS9*4096:IFI=1THENI=2:LOAD"INPUT+
",8,1.2 IFI=2THENI=3:LOAD"GARBAGE64",8,1
.3 IFI=3THENI=4:LOAD"E/A-ROUTINE",8,1.5
CLR:O1$=".. ":O2$=
". PLATTENORGANISATION ":Y$=" ".7
GOSUB4000:OPEN2,8,2,"INDEX,S,R":INPUT#2
,A1:INPUT#2,A2:INPUT#2,A3:CLOSE2.8 B1=A1
:B2=A2:B3=A3:SYS51400:SYS828.9 DIMIC$(A1
+11),II$(A3+31),ID$(A2+11),X(99):GOTO180
.10 D$=STR$(D):RC$=A$+B$+C$+RIGHT$(D$,2)
:FORI=0TO9:RC$=RC$+E$(I):NEXT:RETURN.11
PO$=RIGHT$(PO$,LEN(PO$)-1):PO$=PO$+LEFT$
(Y$,3-LEN(PO$)):RETURN.12 CLOSE1:CLOSE2:
PRINT"......................... .W.EI
TERERFASSEN/.E.NDE".13 !INLINE 24,30,1,X
$:IFX$="W"THENX$="W".14 IFX$="E"THENX$="
E".15 IFX$="E"ORX$="W"THENPRINT".
":RETURN.1
6 GOTO13.20 Z=VAL(LEFT$(RC$,3)):B$=MID$(
RC$,4,20):C$=MID$(RC$,24,27).22 D=VAL(MI
D$(RC$,51,2)):E$(0)=MID$(RC$,53,20):E$(1
)=MID$(RC$,73,20).24 E$(2)=MID$(RC$,93,2
0):E$(3)=MID$(RC$,113,20):E$(4)=MID$(RC$
,133,20).26 E$(5)=MID$(RC$,153,20):E$(6)
=MID$(RC$,173,20):E$(7)=MID$(RC$,193,20)
.28 E$(8)=MID$(RC$,213,20):E$(9)=MID$(RC
$,233,20):RETURN.30 B$=LEFT$(RC$,20):C$=
MID$(RC$,21,27):D=VAL(MID$(RC$,48,2)):E$
(0)=MID$(RC$,50,20).32 E$(1)=MID$(RC$,70
,20):E$(2)=MID$(RC$,90,20):E$(3)=MID$(RC
$,110,20).34 E$(4)=MID$(RC$,130,20):E$(5
)=MID$(RC$,150,20):E$(6)=MID$(RC$,170,20
).36 E$(7)=MID$(RC$,190,20):E$(8)=MID$(R
C$,210,20):E$(9)=MID$(RC$,230,20):RETURN
.180 OPEN2,8,2,"@:CA-INDEX,S,R".181 FORI
=1TOA1:INPUT#2,IC$(I):IC$(I)=IC$(I)+"":N
EXT:CLOSE2.183 OPEN3,8,3,"@:DE-INDEX,S,R
".184 FORI=1TOA2:INPUT#3,ID$(I):ID$(I)=I
D$(I)+"":NEXT:CLOSE3.186 OPEN4,8,4,"@:IN
-INDEX,S,R".187 FORI=1TOA3:INPUT#4,II$(I
):II$(I)=II$(I)+"":NEXT:CLOSE4.188 FORI=
A1+1TOA1+10:IC$(I)="*":NEXT:FORI=A2+1TOA
2+10:ID$(I)="*":NEXT.189 FORI=A3+1TOA3+1
0:II$(I)="*":NEXT:GOSUB4100.190 DIMM$(14
):SYS9*4096:!MASK "MASK99",8,M$(0):D$(0)
=M$(1):D$(1)=M$(3).192 AN$(0)=M$(5):AN$(
1)=M$(7):AN$(2)=M$(9):M=0:.193 !MASK "MA
SK98",8,M$(0):AE$(0)=M$(1):AE$(1)=M$(3):
AE$(2)=M$(5):LO$=M$(7).195 GOSUB4000:PRI
NT"..."TAB(10)"..1. NEUAUFNAHME CASSETTE
N.198 PRINTTAB(10)".2. NEUAUFNAHME LP-DE
UTSCH":PRINTTAB(10)".3. NEUAUFNAHME LP-I
NTERN..199 PRINTTAB(10)"..4. ANDERN CASS
ETTEN":PRINTTAB(10)".5. ANDERN LP-DEUTSC
H.200 PRINTTAB(10)".6. ANDERN LP-INTERNA
T.":PRINTTAB(10)"..7. LOSCHEN.201 PRINTT
AB(10)"..8. MENU ANZEIGE":PRINTTAB(10)".
.9. ENDE.202 SYS9*4096:!INLINE 23,10,1,A
$:A=VAL(A$):IFA<1ORA>9 THEN202.220 ONAGO
TO230,230,230,5000,5000,5000,7000,1000,1
2600.230 IFA=1ANDM<>1THENGOSUB4100:SYS 9
*4096:!MASK "MASK01",8,M$(0):M=1.235 IFA
>1ANDM<>2THENGOSUB4200:SYS 9*4096:!MASK
"MASK02",8,M$(0):M$(1)=D$(A-2):M=2.240 P
RINT"......................... .F2.
= ENDE":!SCREEN M$(0):IFA>1THEN300.245
POKE53281,0:POKE53280,0.250 !IMASK ".",Z
,B$,C$,D,E$(0),E$(1),E$(2),E$(3),E$(4),E
$(5),E$(6),E$(7),_.260 ! _ E$(8),E$(9),X
$.270 PO$=STR$(B1):A$=STR$(Z):IFLEFT$(A$
,1)=" "THENA$="0"+RIGHT$(A$,2).273 IFMID
$(A$,2,1)=" "THENA$=LEFT$(A$,1)+"0"+RIGH
T$(A$,1).275 GOSUB10:GOSUB4200:OPEN2,8,2
,"CASSETTE,1,"+CHR$(253):OPEN1,8,15.280
B1=B1+1:PRINT#1,"P"+CHR$(2)+CHR$(B1)+CHR
$(0)+CHR$(1):PRINT#2,RC$.290 GOSUB11:IC$
(B1)=MID$(RC$,4,7)+MID$(RC$,24,7)+MID$(R
C$,51,2)+MID$(RC$,1,3)+PO$.295 IFB1>A1+1
0THENCLOSE2:CLOSE1:GOTO12600.297 GOSUB12
:IFX$="W"THEN250.298 GOTO195.300 !IMASK
".",B$,C$,D,E$(0),E$(1),E$(2),E$(3),E$(4
),E$(5),E$(6),E$(7),_.310 ! _ E$(8),E$(9
),X$.311 IFA=2THENPO$=STR$(B2+1).312 IFA
=3THENPO$=STR$(B3+1).315 A$="":GOSUB10:G
OSUB4200:IFA=2THENOPEN2,8,2,"LP-DEUTSCH,
1,"+CHR$(250).320 IFA=3THENOPEN2,8,2,"LP
-INTERNATIONAL,1,"+CHR$(250).325 OPEN1,8
,15:IFA=3THEN370.330 B2=B2+1:PRINT#1,"P"
+CHR$(2)+CHR$(B2)+CHR$(0)+CHR$(1):PRINT#
2,RC$.340 GOSUB11:ID$(B2)=MID$(RC$,1,7)+
MID$(RC$,21,7)+MID$(RC$,48,2)+PO$.350 IF
B2>A2+10THENCLOSE2:CLOSE1:GOTO12600.360
GOSUB12:IFX$="W"THEN300.365 GOTO195.370
B3=B3+1:PRINT#1,"P"+CHR$(2)+CHR$(B3)+CHR
$(0)+CHR$(1):PRINT#2,RC$.375 GOSUB11:II$
(B3)=MID$(RC$,1,7)+MID$(RC$,21,7)+MID$(R
C$,48,2)+PO$.380 IFB3>A3+10THENCLOSE2:CL
OSE1:GOTO12600.385 GOTO360.1000 GOSUB400
0:PRINT"...... CASSETTE . . LP-IN
TERNATIONAL.1010 PRINT" .1. NACH NUMMER
N .10. NACH INTERPRET.1020 PRINT" .2
. NACH INTERPRET .11. NACH LP-TITEL.102
2 PRINT" .3. NACH LP-TITEL .12. NACH
JAHRGANG.1024 PRINT" .4. NACH JAHRGANG.
1026 PRINT" . GESAM
T-LISTE ..1028 PRINT" . LP-DEUTSCH
. .13. NACH JAHRGANG.1030 PRINT" .5.
NACH INTERPRET .14. NACH INTERPRET.1032
PRINT" .6. NACH LP-TITEL.1034 PRINT"
.7. NACH JAHRGANG .15. UBERS. INTERPRE
T.1036 PRINT" .16. UB
ERS. JAHRGANG.1037 PRINT" .8. HAUPTMENU
.17. UBERS. MATCHCODE.1038 PRINT"
.9. ENDE NACH INTERPRET.
1039 REM SYS9*4096:!INLINE 24,19,1,A$:A=
VAL(A$):IFA<1ORA>17THEN1039.1040 POKE198
,0:WAIT198,1:GETA$:A=VAL(A$):IFA<1ORA>17
THEN1040.1041 IFA=9THEN12600.1042 IFA=8T
HEN195.1045 ONAGOTO1100,1110,1120,1130,1
110,1120,1130,,,1110,1120,1130,1130,1110
,1110.1046 IFA=16THEN1130.1047 IFA=17THE
N1140.1050 GOTO1000.1100 PRINTA;"1100" :
GOTO1000.1110 PRINTA;"1110" :GOTO1000.11
20 PRINTA;"1120" :GOTO1000.1130 PRINTA;"
1130" :GOTO1000.1140 PRINTA;"1140" :GOTO
1000.1150 I=13:Z1=18:Z2=5:Z3=9:ES=11:ET=
11:EN=5:GOSUB20.1160 PO=1:P3=1.1161 IFY1
$=MID$(IC$(PO),P1,P2)THENX(P3)=PO:P3=P3+
1.1162 PO=PO+1:IFPO<=B1ANDIC$(PO)<>"*"TH
EN1161.1163 IFP3=1THEN1190.1164 OPEN2,8,
2,"@:CASSETTE,L,"+CHR$(253).1165 OPEN15,
8,15:SYS828.1166 FORP4=1TOP3-1.1167 P$=M
ID$(IC$(X(P4)),26,3):P=VAL(P$).1168 PRIN
T#15,"P"+CHR$(2)+CHR$(P)+CHR$(0)+CHR$(1)
.1169 INPUT*2,253,RC$:GOSUB90.1175 PRINT
".......":FORI=1TO17:PRINT"
";.1176 NEXT:X
=1:Y=8:GOSUB18:PRINT"CASS. NR. : .";C1$(
0):Y=9:GOSUB18:IFKZ$="A"GOSUB120.1177 IF
KZ$="D"THENGOSUB7120.1178 GOTO2078.1190
IFP1=11THENPRINT"....DIESE CASSETTE BESI
TZE ICH NICHT !":GOTO1198.1192 IFP1=1THE
NPRINT"....VON DIESEM INTERPRET BESITZE
".1194 IFP1=1THENPRINT"....ICH KEINE CAS
SETTE !":GOTO1198.1196 PRINT"....DIESE C
ASSETTENNUMMER EXISTIERT NICHT".1198 FOR
I=1TO2000:NEXT:GOTO1000.1540 I=11:Z1=20:
Z2=5:Z3=10:ES=14:ET=14:EN=6:GOSUB20.1560
PO=1:P3=1.1561 IFY1$=MID$(ID$(PO),P1,P2
)THENX(P3)=PO:P3=P3+1.1562 PO=PO+1:IFPO<
=B2ANDID$(PO)<>"*"THEN1561.1563 IFP3=1TH
EN1590.1564 OPEN2,8,2,"@:LP-DEUTSCH,L,"+
CHR$(250).1565 OPEN15,8,15:SYS828.1566 F
ORP4=1TOP3-1.1567 P$=MID$(ID$(X(P4)),23,
3):P=VAL(P$).1568 PRINT#15,"P"+CHR$(2)+C
HR$(P)+CHR$(0)+CHR$(1).1569 INPUT*2,250,
RC$:GOSUB80.1575 PRINT".......":FORI=1TO
17:PRINT"
";.1576 NEXT:X=1:Y=9:GOSUB18:IFK
Z$="A"THENGOSUB120.1577 IFKZ$="D"THENGOS
UB7120.1578 GOTO2078.1590 IFP1=11THENPRI
NT"....DIESE PLATTE BESITZE ICH NICHT !"
:GOTO1598.1592 IFP1=1THENPRINT"....VON D
IESEM INTERPRET BESITZE ".1594 IFP1=1THE
NPRINT"....ICH KEINE PLATTE !".1598 FORI
=1TO2000:NEXT:GOTO1000.2040 IFKZ$="D"THE
N2060.2050 I=8:Z1=26:Z2=5:Z3=11:ES=2:ET=
2:EN=7:GOSUB20.2060 PO=1:P3=1.2061 IFY1$
=MID$(II$(PO),P1,P2)THENX(P3)=PO:P3=P3+1
.2062 PO=PO+1:IFPO<=B3ANDII$(PO)<>"*"THE
N2061.2063 IFP3=1THEN1590.2064 OPEN2,8,2
,"@:LP-INTERNATIONAL,L,"+CHR$(250).2065
OPEN15,8,15:SYS828.2066 FORP4=1TOP3-1.20
67 P$=MID$(II$(X(P4)),23,3):P=VAL(P$).20
68 PRINT#15,"P"+CHR$(2)+CHR$(P)+CHR$(0)+
CHR$(1).2069 INPUT*2,250,RC$:GOSUB80.207
5 PRINT".......":FORI=1TO17:PRINT"
";.2076
NEXT:X=1:Y=9:GOSUB18:IFKZ$="A"THENGOSUB
120.2077 IFKZ$="D"THENGOSUB7120.2078 NEX
TP4:CLOSE2:CLOSE15:GOTO1000.3000 IFKZ$="
D"THEN3250.3100 I=11:Z1=19:Z2=5:Z3=18:ES
=12:ET=12:EN=6:GOSUB20.3250 PO=1:P3=1:P5
=0:EM$="C".3252 IFY1$=MID$(IC$(PO),P1,P2
)THENX(P3)=PO:P3=P3+1.3253 IFIC$(PO)="*"
THEN3256.3254 PO=PO+1:IFPO<251THEN3252.3
256 IFP3=1THEN3270.3258 OPEN2,8,2,"@:CAS
SETTE,L,"+CHR$(253).3260 OPEN15,8,15:SYS
828.3261 FORP4=1TOP3-1.3262 P$=MID$(IC$(
X(P4)),26,3):P=VAL(P$).3263 PRINT#15,"P"
+CHR$(2)+CHR$(P)+CHR$(0)+CHR$(1).3264 IN
PUT*2,253,RC$:Z1=4:Z2=24:Z3=51:GOSUB100.
3265 NEXTP4:CLOSE2:CLOSE15:C=1.3270 PO=1
:P3=1:EM$="D".3272 IFY1$=MID$(ID$(PO),P1
,P2)THENX(P3)=PO:P3=P3+1.3273 IFID$(PO)=
"*"THEN3276.3274 PO=PO+1:IFPO<151THEN327
2.3276 IFP3=1THEN3290.3278 OPEN2,8,2,"@:
LP-DEUTSCH,L,"+CHR$(250).3280 OPEN15,8,1
5:SYS828.3281 SYS828:FORP4=1TOP3-1.3282
P$=MID$(ID$(X(P4)),23,3):P=VAL(P$).3283
PRINT#15,"P"+CHR$(2)+CHR$(P)+CHR$(0)+CHR
$(1).3284 INPUT*2,250,RC$:Z1=1:Z2=21:Z3=
48:GOSUB100.3285 NEXTP4:CLOSE2:CLOSE15.3
290 PO=1:P3=1:EM$="I".3292 IFY1$=MID$(II
$(PO),P1,P2)THENX(P3)=PO:P3=P3+1.3293 IF
II$(PO)="*"THEN3296.3294 PO=PO+1:IFPO<15
1THEN3292.3296 IFP3=1THEN3320.3298 OPEN2
,8,2,"@:LP-INTERNATIONAL,L,"+CHR$(250).3
300 OPEN15,8,15:SYS828.3311 FORP4=1TOP3-
1.3312 P$=MID$(II$(X(P4)),23,3):P=VAL(P$
).3313 PRINT#15,"P"+CHR$(2)+CHR$(P)+CHR$
(0)+CHR$(1).3314 INPUT*2,250,RC$:Z1=1:Z2
=21:Z3=48:GOSUB100.3315 NEXTP4:CLOSE2:CL
OSE15.3320 IFP5=0THEN3390.3330 GOTO9000.
3390 PRINT".....TUT MIR LEID, ICH KANN W
EDER PLATTE".3395 PRINT"....NOCH CASSETT
E FINDEN !".3399 FORI=1TO2000:NEXT:GOTO1
000.4000 POKE53281,9:POKE53280,9:PRINT".
.KM-SOFT 86";TAB(33)"MEPOS I":PRINTTAB(1
0);O1$.4010 PRINTTAB(10);O1$:PRINTTAB(10
);O2$:PRINTTAB(10);O1$:RETURN.4100 IFDM=
1THENRETURN.4105 GOSUB4000:PRINT".......
...........MASKEN-DISKETTE EINLEGEN":A1$
="MASKE".4110 DM=1:GOTO4300.4200 IFDM=0T
HENRETURN.4210 GOSUB4000:PRINT".........
.........DATEN-DISKETTE EINLEGEN":A1$="D
ATEN":DM=0.4300 PRINT"..................
.........<RETURN> DRUCKEN":POKE198,0:WAI
T198,1.4310 GETA$:IFASC(A$)<>13THEN4300.
4320 OPEN1,8,15,"I":OPEN2,8,2,"#":PRINT#
1,"M-R"CHR$(144)CHR$(7)CHR$(16).4330 INP
UT#1,A2$:CLOSE2:CLOSE1:IFLEFT$(A2$,5)<>A
1$THEN4300.4400 RETURN.5000 IFA=4ANDM<>1
THENGOSUB4100:SYS 9*4096:!MASK "MASK01",
8,M$(0):M=1.5010 IFA>4ANDM<>2THENGOSUB41
00:SYS 9*4096:!MASK "MASK02",8,M$(0):M=2
.5015 M$(1)=AE$(A-4):GOSUB4200.5016 IFA=
4THENOPEN2,8,2,"@:CASSETTE,L,"+CHR$(253)
.5017 IFA=5THENOPEN2,8,2,"@:LP-DEUTSCH,L
,"+CHR$(250).5018 IFA=6THENOPEN2,8,2,"@:
LP-INTERNATIONAL,L,"+CHR$(250).5019 OPEN
15,8,15.5020 PRINT".................BITT
E CASSETTEN-NR. EINGEBEN.5021 FORI=1TO5:
X(I)=0:NEXT.5025 PRINT"......... '9
99' = ENDE".5030 IFA>4THEN5080.5040 !INL
INE 12,11,3,A$.5045 IFVAL(A$)=999THENCLO
SE2:CLOSE15:GOTO195.5050 IFVAL(A$)<1ORVA
L(A$)>250THEN5040.5070 GOTO5100.5080 PRI
NT"................. BITTE DEN LP-TITEL
EINGEBEN.5081 !INLINE 12,11,20,A$.5082 I
FLEFT$(A$,3)="999"THENCLOSE2:CLOSE15:GOT
O195.5085 IFLEFT$(A$,5)=" "THEN5081.
5100 SYS828:PO=1:P3=1.5110 IFA>4THEN5200
.5120 IFMID$(IC$(PO),17,3)=A$THENX(P3)=P
O:P3=P3+1.5130 PO=PO+1:IFPO<=B1ANDIC$(PO
)<>"*"THEN5120.5150 GOTO5400.5200 IFA=6T
HEN5300.5210 IFMID$(ID$(PO),8,7)=A$THENX
(P3)=PO:P3=P3+1.5220 PO=PO+1:IFPO<=B2AND
ID$(PO)<>"*"THEN5210.5240 GOTO5400.5300
IFMID$(II$(PO),8,7)=A$THENX(P3)=PO:P3=P3
+1.5310 PO=PO+1:IFPO<=B3ANDII$(PO)<>"*"T
HEN5300.5330 GOTO5400.5400 IFP3=1THEN600
0.5401 P3=1.5403 IFA=4THENA$=IC$(X(P3)):
B$=IC$(X(P3+1)):C$=IC$(X(P3+2)):D$=IC$(X
(P3+3)):C1=1.5404 IFA=5THENA$=ID$(X(P3))
:B$=ID$(X(P3+1)):C$=ID$(X(P3+2)):D$=ID$(
X(P3+3)):C2=1.5405 IFA=6THENA$=II$(X(P3)
):B$=II$(X(P3+1)):C$=II$(X(P3+2)):D$=II$
(X(P3+3)):C3=1.5410 A1$=LEFT$(A$,7):A2$=
MID$(A$,8,7):B1$=LEFT$(B$,7):B2$=MID$(B$
,8,7).5420 C1$=LEFT$(C$,7):C2$=MID$(C$,8
,7):D1$=LEFT$(D$,7):D2$=MID$(D$,8,7).542
5 PRINT"..."A1$,B1$,C1$,D1$:PRINT"."A2$,
B2$,C2$,D2$.5427 PRINT".. .1.
.2. .3. .4..5430 PRINT".
..............5. = NEUE EINGABE":PRINT".
.....WELCHEN EINTRAG ANDERN ? (1-5).5435
SYS9*4096:!INLINE14,13,1,I$:I=VAL(I$):I
FI<1ORI>5THEN5435.5440 IFI=5THEN5020.545
0 P3=I:IFX(P3)=0THEN5020.5500 REM ZU AND
ERNDEN SATZ SUCHEN.5502 IFA>4THEN5600.55
05 PO$=MID$(IC$(X(P3)),20,3):P=VAL(PO$).
5508 PRINT#15,"P"+CHR$(2)+CHR$(P)+CHR$(0
)+CHR$(1).5510 SYS828:INPUT*2,253,RC$:GO
SUB20.5515 SYS9*4096:PRINT".............
............ .F2. = ENDE":!SCREEN M
$(0).5517 !IOMASK ".",Z,B$,C$,D,E$(0),E$
(1),E$(2),E$(3),E$(4),E$(5),E$(6),E$(7),
_.5520 ! _ E$(8),E$(9),X$.5525 A$=STR$(Z
):IFLEFT$(A$,1)=" "THENA$="0"+RIGHT$(A$,
2).5527 IFMID$(A$,2,1)=" "THENA$=LEFT$(A
$,1)+"0"+RIGHT$(A$,1).5530 GOSUB10:PRINT
#15,"P"+CHR$(2)+CHR$(P)+CHR$(0)+CHR$(1):
PRINT#2,RC$.5540 IC$(P)=MID$(RC$,4,7)+MI
D$(RC$,24,7)+MID$(RC$,51,2)+MID$(RC$,1,3
)+PO$.5550 GOTO5020.5600 IFA=6THEN5700.5
605 PO$=MID$(ID$(X(P3)),17,3):P=VAL(PO$)
.5608 PRINT#15,"P"+CHR$(2)+CHR$(P)+CHR$(
0)+CHR$(1).5610 SYS828:INPUT*2,250,RC$:G
OSUB30.5615 SYS9*4096:PRINT"............
............. .F2. = ENDE":!SCREEN
M$(0).5617 !IOMASK ".",B$,C$,D,E$(0),E$(
1),E$(2),E$(3),E$(4),E$(5),E$(6),E$(7),_
.5620 ! _ E$(8),E$(9),X$.5630 A$="":GOSU
B10:PRINT#15,"P"+CHR$(2)+CHR$(P)+CHR$(0)
+CHR$(1):PRINT#2,RC$.5640 ID$(P)=MID$(RC
$,1,7)+MID$(RC$,21,7)+MID$(RC$,48,2)+PO$
.5650 GOTO5020.5700 PO$=MID$(II$(X(P3)),
17,3):P=VAL(PO$).5708 PRINT#15,"P"+CHR$(
2)+CHR$(P)+CHR$(0)+CHR$(1).5710 SYS828:I
NPUT*2,250,RC$:GOSUB30.5715 SYS9*4096:PR
INT"......................... .F2.
= ENDE":!SCREEN M$(0).5717 !IOMASK ".",B
$,C$,D,E$(0),E$(1),E$(2),E$(3),E$(4),E$(
5),E$(6),E$(7),_.5720 ! _ E$(8),E$(9),X$
.5730 A$="":GOSUB10:PRINT#15,"P"+CHR$(2)
+CHR$(P)+CHR$(0)+CHR$(1):PRINT#2,RC$.574
0 II$(P)=MID$(RC$,1,7)+MID$(RC$,21,7)+MI
D$(RC$,48,2)+PO$.5750 GOTO5020.6000 PRIN
T".....EINTRAG NICHT VORHANDEN !":FORI=1
TO500:NEXT:GOTO5020.7175 PRINT".......":
FORI=1TO17:PRINT"
";.7176 NEXT:X=1:Y=8:GOS
UB18:PRINT"CASS. NR. : .";C1$(0):Y=9:GOS
UB18:GOSUB120.7178 GOTO2078.7503 PRINT".
........":FORI=1TO16:PRINT"
";.7504 NEXT:Y
1$=LEFT$(Y1$,12).7505 X=1:Y=9:GOSUB18:PR
INT"SAMMELLISTE MIT ";K$;Y1$.7510 Y=11:G
OSUB18:IFC=1THENPRINT"NR. ";.7515 PRINT"
INTERPRET TITEL DER LP JAHR";:IFC
=0THENPRINT"GANG".7520 PRINT:Y=22:X=1:GO
SUB18:PRINT". .F1.=WEITER / .F3.=ZURUECK
/ .F5.=HAUPTMENUE.7530 X=14:Y=23:GOSUB1
8:PRINT".F7.=MENUE ANZEIGEN.".7540 P6=0:
.7550 Y=13:X=1:GOSUB18:FORI=1TO8:PRINT"
";.
7552 NEXTI:POKE646,1.7560 Y=13:FORP7=P6T
OP6+5:X=1:GOSUB18:IFC=1THEN9071.7561 IFC
$(1,P7)=""THENPRINT".............. .....
......... ....":GOTO9063.7562 PRINTC$(1,
P7):X=16:GOSUB18:PRINTC$(2,P7):X=31:GOSU
B18:PRINT"19";C$(3,P7).7563 Y=Y+1:NEXTP7
:GOTO9080.7571 IFC$(1,P7)=""THENPRINT"..
. .............. .............. ....":GO
TO9074.7572 PRINTC$(0,P7):X=5:GOSUB18:PR
INTC$(1,P7):X=20:GOSUB18:PRINTC$(2,P7).7
573 X=35:GOSUB18:PRINT"19";C$(3,P7).7574
Y=Y+1:NEXTP7.7580 POKE198,0:WAIT198,1:G
ETA$:IFA$="."ANDP6<25THENP6=P6+6:GOTO755
0.7581 IFA$="."ANDP6>5THENP6=P6-6:GOTO75
50.7582 IFA$="."ORA$="."THENFORI=1TO30:F
ORJ=1TO3:C$(J,I)="":NEXT:NEXT.7583 IFA$=
"."THEN1000.7584 IFA$="."THEN200.7585 GO
TO7580.7761 IFY1$=MID$(ID$(PO),P1,P2)THE
NX(P3)=PO:P3=P3+1.9000 POKE53281,5:POKE5
3280,5:POKE646,11.9001 IFKZ$="D"THEN7500
.9003 PRINT".........":FORI=1TO16:PRINT"
"
;.9004 NEXT:Y1$=LEFT$(Y1$,12).9005 X=1:Y
=9:GOSUB18:PRINT"SAMMELLISTE MIT ";K$;Y1
$.9010 Y=11:GOSUB18:IFC=1THENPRINT"NR. "
;.9015 PRINT"INTERPRET TITEL DER LP
JAHR";:IFC=0THENPRINT"GANG".9020 PRIN
T:Y=22:X=1:GOSUB18:PRINT". .F1.=WEITER /
.F3.=ZURUECK / .F5.=HAUPTMENUE.9030 X=1
4:Y=23:GOSUB18:PRINT".F7.=MENUE ANZEIGEN
.".9040 P6=0:.9050 Y=13:X=1:GOSUB18:FORI
=1TO8:PRINT"
";.9052 NEXTI:POKE646,1.9060 Y
=13:FORP7=P6TOP6+5:X=1:GOSUB18:IFC=1THEN
9071.9061 IFC$(1,P7)=""THENPRINT".......
....... .............. ....":GOTO9063.90
62 PRINTC$(1,P7):X=16:GOSUB18:PRINTC$(2,
P7):X=31:GOSUB18:PRINT"19";C$(3,P7).9063
Y=Y+1:NEXTP7:GOTO9080.9071 IFC$(1,P7)="
"THENPRINT"... .............. ..........
.... ....":GOTO9074.9072 PRINTC$(0,P7):X
=5:GOSUB18:PRINTC$(1,P7):X=20:GOSUB18:PR
INTC$(2,P7).9073 X=35:GOSUB18:PRINT"19";
C$(3,P7).9074 Y=Y+1:NEXTP7.9080 POKE198,
0:WAIT198,1:GETA$:IFA$="."ANDP6<25THENP6
=P6+6:GOTO9050.9081 IFA$="."ANDP6>5THENP
6=P6-6:GOTO9050.9082 IFA$="."ORA$="."THE
NFORI=1TO30:FORJ=1TO3:C$(J,I)="":NEXT:NE
XT.9083 IFA$="."THEN1000.9084 IFA$="."TH
EN200.9085 GOTO9080.12600 PRINT".....CAS
SETTE: ";B1;" SAETZE".12610 PRIN
T"....LP-DEUTSCH: ";B2;" SAETZE".1
2620 PRINT"....LP-INTERNATIONAL: ";B3;"
SAETZE".12622 PRINT"........ABSPEICHERN
? (J/N)":POKE198,0:WAIT198,1.12624 GETA$
:IFA$="J"THEN12640.12626 IFA$<>"N"THEN12
624.12630 PRINT"....PROGRAMMABBRUCH AUFG
RUND BEDIENER- ENTSCHEID IN 12630":
END.12640 IFB1=A1ANDC1=0THEN12750.12645
OPEN2,8,2,"@:CA-INDEX,S,W".12650 FORI=1T
OB1:PRINT#2,IC$(I):PRINT".....CASSETTE:
";TAB(20)I:NEXT.12700 CLOSE2.12750 IFB2=
A2ANDC2=0THEN12900.12760 OPEN3,8,3,"@:DE
-INDEX,S,W".12800 FORI=1TOB2:PRINT#3,ID$
(I):PRINT"........LP-DEUTSCH:";TAB(20)I:
NEXT.12850 CLOSE3.12900 IFB3=A3ANDC3=0TH
EN13010.12910 OPEN4,8,4,"@:IN-INDEX,S,W"
.12950 FORI=1TOB3:PRINT#4,II$(I):PRINT".
..........LP-INTERNATIONAL:";TAB(20)I:NE
XT.13000 CLOSE4.13010 OPEN5,8,5,"@:INDEX
,S,W":PRINT#5,A1:PRINT#5,A2:PRINT#5,A3:C
LOSE5.13020 IF B1=A1+10ORB2=A2+10ORB3=A3
+10THEN PRINT"..NEUSTART NOETIG DA DIM Z
U KLEI.13050 PRINT"...":END.51310 REM ++
EINRICHTEN DER REL. DATEI 'CASSETTE' ++
.51315 RN=250:HB=INT(RN/256):LB=RN-HB*25
6.51320 OPEN2,8,2,"CASSETTE,L,"+CHR$(253
).51325 OPEN15,8,15.51330 PRINT#15,"P"+C
HR$(2)+CHR$(250)+CHR$(0)+CHR$(1).51335 P
RINT#2,CHR$(255).51340 CLOSE1:CLOSE2:STO
P.51345 OPEN2,8,2,"@:CASSETTE,L,"+CHR$(8
5).51350 OPEN15,8,15.51355 INPUT"RECORDN
UMMER";RN.51360 PRINT#15,"P"+CHR$(2)+CHR
$(RN)+CHR$(0)+CHR$(1).51365 INPUT#2,RC$.
51370 PRINTRC$.51375 CLOSE15:CLOSE2:STOP
.51380 OPEN2,8,2,"@:CA-INDEX,S,R".51385
FORI=1TO250:INPUT#2,IC$(I):NEXT.51390 CL
OSE2.51395 OPEN3,8,3,"@:DE-INDEX,S,R".51
400 FORI=1TO150:INPUT#3,ID$(I):NEXT.5140
5 CLOSE3.51410 REM ++ EINRICHTEN DER REL
. DATEI 'LP-DEUTSCH' ++.51415 RN=150:HB=
INT(RN/256):LB=RN-HB*256.51420 OPEN2,8,2
,"LP-DEUTSCH,L,"+CHR$(250).51425 OPEN15,
8,15.51430 PRINT#15,"P"+CHR$(2)+CHR$(150
)+CHR$(0)+CHR$(1).51435 PRINT#2,CHR$(255
).51440 CLOSE1:CLOSE2:STOP.52000 OPEN1,8
,15:INPUT#1,E,E$,E1,E2:PRINTE,E$,E1,E2:C
LOSE1..READY....
> CLICK IMAGE PREVIEW FOR FULL MODAL