JOYTAST2
FILE INFORMATION
FILENAME(S): JOYTAST2
FILE TYPE(S): PRG
FILE SIZE: 11.5K
FIRST SEEN: 2025-12-02 23:22:54
APPEARS ON: 1 disk(s)
FILE HASH
b32dd5b75daa75af63ce084d54b59a0c5e837acc94892ff1615526b730106585
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| DRAGAN PROG | JOYTAST2 | PRG | swasti, dinkel | 21 | 6 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 1B 08 C2 07 9E 32 30 37 37 20 8F 32 30 39 |.......2077 .209|
00000010: 33 2F 39 36 2F 39 39 2F 28 43 29 00 00 00 A9 0C |3/96/99/(C).....|
00000020: 85 2C A9 00 8D 00 0C 20 59 A6 4C AE A7 00 4C 36 |.,..... Y.L...L6|
00000030: 08 4C 56 08 4C DC 0A 20 FD AE 20 EB B7 E0 28 B0 |.LV.L.. .. ...(.|
00000040: 13 A5 14 C9 19 B0 0D 86 D3 85 D6 20 10 E5 20 FD |........... .. .|
00000050: AE 4C A0 AA 4C 48 B2 4C 0B 0A A5 D1 48 A5 D2 48 |.L..LH.L....H..H|
00000060: A5 D3 48 A5 D6 48 86 D3 84 D6 4C 84 08 A4 D3 48 |..H..H....L....H|
00000070: A5 D2 48 29 03 09 D8 85 D2 AD 86 02 91 D1 68 85 |..H)..........h.|
00000080: D2 68 91 D1 60 20 6C E5 A5 D3 18 65 D1 85 D1 85 |.h..` l....e....|
00000090: F3 C6 02 A9 00 85 D3 65 D2 85 D2 09 D8 29 DB 85 |.......e.....)..|
000000A0: F4 A5 C6 85 CC F0 FA 78 A5 CF F0 09 A5 CE A0 00 |.......x........|
000000B0: 84 CF 20 6C 08 20 B4 E5 58 C9 1D D0 0B A5 D3 C5 |.. l. ..X.......|
000000C0: 02 F0 DE E6 D3 4C A0 08 C9 9D D0 09 A5 D3 F0 D1 |.....L..........|
000000D0: C6 D3 4C A0 08 C9 13 D0 07 A9 00 85 D3 4C A0 08 |..L..........L..|
000000E0: C9 93 D0 0C A4 02 A9 20 91 D1 88 10 FB 4C D8 08 |....... .....L..|
000000F0: C9 14 D0 35 A4 D3 F0 A9 C4 02 D0 0D B1 D1 C9 20 |...5........... |
00000100: F0 1C A9 20 91 D1 4C A0 08 A4 D3 88 C8 B1 D1 88 |... ..L.........|
00000110: 91 D1 C8 C4 02 D0 F5 A9 20 91 D1 4C CB 08 C6 D3 |........ ..L....|
00000120: A4 D3 A9 20 91 D1 4C 05 09 C9 11 D0 04 A9 01 D0 |... ..L.........|
00000130: 06 C9 91 D0 0D A9 FF 2C DA 0A D0 03 4C A0 08 4C |.......,....L..L|
00000140: A3 09 C9 0D F0 5C C9 85 90 0A C9 8C B0 06 8D D6 |.....\..........|
00000150: 0A 4C A3 09 C9 94 F0 25 20 EA 09 C9 00 10 0E 29 |.L.....% ......)|
00000160: 7F C9 7F D0 02 A9 5E C9 20 90 9B B0 0A C9 20 90 |......^. ..... .|
00000170: 95 C9 60 B0 91 29 3F 20 6C 08 4C BC 08 A4 02 B1 |..`..)? l.L.....|
00000180: D1 C9 20 F0 03 4C 05 09 A5 D3 C5 02 D0 03 4C 05 |.. ..L........L.|
00000190: 09 88 B1 D1 C8 91 D1 88 88 C4 D3 10 F5 A4 D3 4C |...............L|
000001A0: 01 09 A9 00 8D D6 0A A4 02 B1 D1 C9 20 D0 03 88 |............ ...|
000001B0: 10 F7 C8 8C 00 02 A9 00 99 01 02 C0 00 F0 0C 88 |................|
000001C0: B1 D1 20 D7 09 99 01 02 88 10 F5 68 85 D6 68 85 |.. ........h..h.|
000001D0: D3 68 85 D2 68 85 D1 60 85 D7 29 3F 06 D7 24 D7 |.h..h..`..)?..$.|
000001E0: 10 02 09 80 90 00 70 02 09 40 60 48 AD D4 0A 85 |......p..@`H....|
000001F0: 64 AD D5 0A 85 65 AC D3 0A 68 4C 00 0A D1 64 F0 |d....e...hL...d.|
00000200: 0A 88 C0 FF D0 F7 68 68 4C A0 08 60 20 A6 B3 20 |......hhL..` .. |
00000210: FD AE 20 8A AD 20 F7 B7 A5 15 F0 03 4C 48 B2 A5 |.. .. ......LH..|
00000220: 14 C9 19 B0 F7 8D D9 0A 20 FD AE 20 8A AD 20 F7 |........ .. .. .|
00000230: B7 A5 15 D0 E7 A5 14 C9 28 B0 E1 8D D8 0A 20 FD |........(..... .|
00000240: AE 20 8A AD 20 F7 B7 A5 15 D0 D1 A5 14 F0 CD 18 |. .. ...........|
00000250: 6D D8 0A B0 C7 C9 29 B0 C3 A5 14 8D D7 0A 20 FD |m.....)....... .|
00000260: AE 20 9E AD 20 A3 B6 8D D3 0A 8E D4 0A 8C D5 0A |. .. ...........|
00000270: 20 FD AE 20 8B B0 85 49 84 4A 20 8F AD AD D7 0A | .. ...I.J .....|
00000280: 85 02 A0 00 8C DA 0A B1 7A C9 2C D0 03 EE DA 0A |........z.,.....|
00000290: AE D8 0A AC D9 0A 20 59 08 A9 01 A0 02 20 87 B4 |...... Y..... ..|
000002A0: 20 DA A9 AD DA 0A D0 01 60 20 73 00 20 8B B0 85 | .......` s. ...|
000002B0: 49 84 4A A5 0E 48 A5 0D 48 AC D6 0A 30 03 A9 00 |I.J..H..H...0...|
000002C0: 2C A9 FF 20 91 B3 4C BA A9 00 00 00 00 00 00 00 |,.. ..L.........|
000002D0: 08 0D 0E 14 00 00 00 00 00 00 00 00 00 20 FD AE |............. ..|
000002E0: 20 8B B0 85 49 84 4A A5 0D 05 0E F0 05 A2 16 4C | ...I.J........L|
000002F0: 3A A4 20 79 00 C9 2C D0 11 20 9B B7 E0 00 F0 0A |:. y..,.. ......|
00000300: 20 13 0B 20 A2 B3 20 D0 BB 60 20 13 0B C0 01 F0 | .. .. ..` .....|
00000310: F9 4C 02 0B 08 78 AD 02 DC 48 AD 03 DC 48 A9 FF |.L...x...H...H..|
00000320: 8D 02 DC A9 00 8D 03 DC A2 7F A0 05 88 30 1F EE |.............0..|
00000330: 02 DC AD 00 DC CE 02 DC D9 59 0B F0 11 B9 5E 0B |.........Y....^.|
00000340: 8D 00 DC AD 01 DC 8E 00 DC D9 63 0B D0 DE 68 8D |..........c...h.|
00000350: 03 DC 68 8D 02 DC C8 C8 28 60 FE FD F7 FB EF FD |..h.....(`......|
00000360: FD BF DF 7F FB EF 7F EF EF 00 00 00 00 00 00 00 |................|
00000370: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 |................|
00000380: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 |................|
00000390: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 |................|
000003A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 |................|
000003B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 |................|
000003C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 |................|
000003D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 |................|
000003E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 |................|
000003F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 |................|
00000400: 00 00 28 0C 00 00 8F 20 56 4F 52 20 45 49 4E 47 |..(.... VOR EING|
00000410: 45 42 45 4E 20 45 49 47 45 4E 45 52 20 5A 45 49 |EBEN EIGENER ZEI|
00000420: 4C 45 4E 3A 20 4E 45 57 00 4A 0C 01 00 8F 20 49 |LEN: NEW.J.... I|
00000430: 4E 4C 49 4E 45 2C 50 52 49 4E 54 20 41 54 20 55 |NLINE,PRINT AT U|
00000440: 4E 44 20 4A 4F 59 54 41 53 54 00 5D 0C 02 00 8F |ND JOYTAST.]....|
00000450: 20 28 43 29 20 49 4E 50 55 54 20 36 34 00 6A 0C | (C) INPUT 64.j.|
00000460: 03 00 97 34 34 2C 33 31 3A 8A 00 00 00 00 00 00 |...44,31:.......|
00000470: 00 00 3B 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |..;*************|
00000480: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000490: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 0D 3B 2A 20 20 20 |**********.;* |
000004A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000004B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000004C0: 20 20 2A 0D 3B 2A 20 20 20 D4 C1 D3 D4 C1 D4 D5 | *.;* .......|
000004D0: D2 20 2F 20 CA CF D9 D3 D4 C9 C3 CB C1 C2 C6 D2 |. / ............|
000004E0: C1 C7 C5 20 20 20 20 20 20 20 20 2A 0D 3B 2A 20 |... *.;* |
000004F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000500: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000510: 20 20 20 20 2A 0D 3B 2A 20 20 20 20 20 28 57 29 | *.;* (W)|
00000520: 20 31 39 38 36 20 42 59 20 CD 41 52 54 49 4E 20 | 1986 BY .ARTIN |
00000530: C7 45 42 48 41 52 44 54 20 20 20 20 20 2A 0D 3B |.EBHARDT *.;|
00000540: 2A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |* |
00000550: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000560: 20 20 20 20 20 20 2A 0D 3B 2A 2A 2A 2A 2A 2A 2A | *.;*******|
00000570: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000580: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000590: 0D 0D 3B 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |..;-------------|
000005A0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
000005B0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D 3A 53 54 52 46 4C |---------.:STRFL|
000005C0: 47 20 20 20 3D 20 24 30 44 20 20 3B 24 46 46 3A |G = $0D ;$FF:|
000005D0: 20 D3 54 52 49 4E 47 0D 3A 49 4E 54 46 4C 47 20 | .TRING.:INTFLG |
000005E0: 20 20 3D 20 24 30 45 20 20 3B 24 38 30 3A 20 C9 | = $0E ;$80: .|
000005F0: 4E 54 45 47 45 52 0D 3A 56 41 52 20 20 20 20 20 |NTEGER.:VAR |
00000600: 20 3D 20 24 34 39 20 20 3B DA 45 49 47 45 52 20 | = $49 ;.EIGER |
00000610: 41 55 46 20 D6 41 52 49 41 42 4C 45 0D 3A 46 41 |AUF .ARIABLE.:FA|
00000620: 43 20 20 20 20 20 20 3D 20 24 36 31 20 20 3B C6 |C = $61 ;.|
00000630: 4C 49 45 53 53 4B 4F 4D 4D 41 41 4B 4B 55 20 23 |LIESSKOMMAAKKU #|
00000640: 31 0D 3A 52 50 4E 54 20 20 20 20 20 3D 20 24 46 |1.:RPNT = $F|
00000650: 42 20 20 3B 52 45 41 44 50 4F 49 4E 54 45 52 20 |B ;READPOINTER |
00000660: 55 4E 44 0D 3A 57 50 4E 54 20 20 20 20 20 3D 20 |UND.:WPNT = |
00000670: 24 46 44 20 20 3B 57 52 49 54 45 50 4F 49 4E 54 |$FD ;WRITEPOINT|
00000680: 45 52 20 46 55 45 52 20 54 52 41 4E 53 46 45 52 |ER FUER TRANSFER|
00000690: 0D 0D 0D 3A 43 49 41 31 20 20 20 20 20 3D 20 24 |...:CIA1 = $|
000006A0: 44 43 30 30 20 20 20 3B C3 C9 C1 20 31 3A 0D 3A |DC00 ;... 1:.:|
000006B0: 50 52 41 20 20 20 20 20 20 3D 20 43 49 41 31 2B |PRA = CIA1+|
000006C0: 30 20 20 3B 20 D0 4F 52 54 20 C1 0D 3A 50 52 42 |0 ; .ORT ..:PRB|
000006D0: 20 20 20 20 20 20 3D 20 43 49 41 31 2B 31 20 20 | = CIA1+1 |
000006E0: 3B 20 D0 4F 52 54 20 C2 0D 3A 44 44 52 41 20 20 |; .ORT ..:DDRA |
000006F0: 20 20 20 3D 20 43 49 41 31 2B 32 20 20 3B 20 C4 | = CIA1+2 ; .|
00000700: 41 54 45 4E 52 49 43 48 54 55 4E 47 20 D0 2E C1 |ATENRICHTUNG ...|
00000710: 0D 3A 44 44 52 42 20 20 20 20 20 3D 20 43 49 41 |.:DDRB = CIA|
00000720: 31 2B 33 20 20 3B 20 C4 41 54 45 4E 52 49 43 48 |1+3 ; .ATENRICH|
00000730: 54 55 4E 47 20 D0 2E C2 0D 0D 3A 43 48 52 47 45 |TUNG .....:CHRGE|
00000740: 54 20 20 20 3D 20 24 30 30 37 33 0D 3A 43 48 52 |T = $0073.:CHR|
00000750: 47 4F 54 20 20 20 3D 20 24 30 30 37 39 0D 3A 45 |GOT = $0079.:E|
00000760: 52 52 4F 52 20 20 20 20 3D 20 24 41 34 33 41 20 |RROR = $A43A |
00000770: 3B C6 45 48 4C 45 52 4D 45 4C 44 55 4E 47 20 41 |;.EHLERMELDUNG A|
00000780: 55 53 47 45 42 45 4E 0D 3A 4B 4F 4D 4D 41 20 20 |USGEBEN.:KOMMA |
00000790: 20 20 3D 20 24 41 45 46 44 20 3B 50 52 55 45 46 | = $AEFD ;PRUEF|
000007A0: 54 20 41 55 46 20 CB 4F 4D 4D 41 0D 3A 47 45 54 |T AUF .OMMA.:GET|
000007B0: 56 41 52 20 20 20 3D 20 24 42 30 38 42 20 3B 48 |VAR = $B08B ;H|
000007C0: 4F 4C 54 20 D6 41 52 49 41 42 4C 45 4E 41 44 52 |OLT .ARIABLENADR|
000007D0: 45 53 53 45 20 4E 41 43 48 20 56 41 52 0D 3A 53 |ESSE NACH VAR.:S|
000007E0: 45 54 46 41 43 20 20 20 3D 20 24 42 33 41 32 20 |ETFAC = $B3A2 |
000007F0: 3B 59 2D D2 45 47 49 53 54 45 52 20 4E 41 43 48 |;Y-.EGISTER NACH|
00000800: 20 46 41 43 0D 3A 47 45 54 42 59 54 20 20 20 3D | FAC.:GETBYT =|
00000810: 20 24 42 37 39 42 20 3B C2 59 54 45 57 45 52 54 | $B79B ;.YTEWERT|
00000820: 20 4E 41 43 48 20 58 20 48 4F 4C 45 4E 0D 3A 53 | NACH X HOLEN.:S|
00000830: 54 4F 52 45 46 41 43 20 3D 20 24 42 42 44 30 20 |TOREFAC = $BBD0 |
00000840: 3B 46 41 43 20 4E 41 43 48 20 D6 41 52 49 41 42 |;FAC NACH .ARIAB|
00000850: 4C 45 20 53 43 48 52 45 49 42 45 4E 0D 0D 3B 2D |LE SCHREIBEN..;-|
00000860: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000870: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000880: 2D 2D 2D 2D 2D 0D 20 20 20 20 20 20 20 20 20 3B |-----. ;|
00000890: C2 C1 D3 C9 C3 2D C8 45 41 44 45 52 0D 20 20 20 |.....-.EADER. |
000008A0: 20 20 20 20 20 20 3B 2D 2D 2D 2D 2D 2D 2D 2D 2D | ;---------|
000008B0: 2D 2D 2D 0D 4F 52 47 20 24 30 38 30 31 20 3B 4F |---.ORG $0801 ;O|
000008C0: 52 47 2D 42 41 53 49 43 0D 0D 57 20 5A 45 52 4F |RG-BASIC..W ZERO|
000008D0: 33 20 20 3B 4C 49 4E 4B 2D 50 4F 49 4E 54 45 52 |3 ;LINK-POINTER|
000008E0: 0D 57 20 31 39 38 36 20 20 20 3B 5A 45 49 4C 45 |.W 1986 ;ZEILE|
000008F0: 4E 2D 4E 4F 0D 42 20 24 39 45 20 20 20 20 3B 53 |N-NO.B $9E ;S|
00000900: 59 53 2D 54 4F 4B 45 4E 0D 42 20 22 32 31 32 37 |YS-TOKEN.B "2127|
00000910: 3A 22 0D 42 20 24 38 46 20 20 20 20 3B 52 45 4D |:".B $8F ;REM|
00000920: 2D 54 4F 4B 45 4E 0D 42 20 24 32 32 20 20 20 20 |-TOKEN.B $22 |
00000930: 3B 22 0D 42 20 22 4A 4F 59 54 41 53 54 20 28 43 |;".B "JOYTAST (C|
00000940: 29 20 49 4E 50 55 54 20 36 34 20 20 20 22 0D 42 |) INPUT 64 ".B|
00000950: 20 22 44 55 52 43 48 20 D2 D5 CE 20 50 52 4F 47 | "DURCH ... PROG|
00000960: 52 41 4D 4D 20 4E 41 43 48 20 35 33 30 30 30 20 |RAMM NACH 53000 |
00000970: 4B 4F 50 49 45 52 45 4E 21 22 0D 42 20 24 32 32 |KOPIEREN!".B $22|
00000980: 20 20 20 20 3B 22 0D 3A 5A 45 52 4F 33 20 42 20 | ;".:ZERO3 B |
00000990: 30 2C 30 2C 30 0D 0D 20 20 20 20 20 20 20 20 20 |0,0,0.. |
000009A0: 3B D6 45 52 53 43 48 49 45 42 45 2D D2 4F 55 54 |;.ERSCHIEBE-.OUT|
000009B0: 49 4E 45 0D 20 20 20 20 20 20 20 20 20 3B 2D 2D |INE. ;--|
000009C0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
000009D0: 0D 3A 42 45 47 49 4E 20 20 20 20 4C 44 41 20 23 |.:BEGIN LDA #|
000009E0: 3C 43 4F 44 45 20 20 20 3B 4C 4F 57 2D 20 55 4E |<CODE ;LOW- UN|
000009F0: 44 0D 20 20 20 20 20 20 20 20 20 20 4C 44 59 20 |D. LDY |
00000A00: 23 3E 43 4F 44 45 20 20 20 3B 48 49 47 48 2D 41 |#>CODE ;HIGH-A|
00000A10: 44 52 45 53 53 0D 20 20 20 20 20 20 20 20 20 20 |DRESS. |
00000A20: 53 54 41 20 52 50 4E 54 20 20 20 20 20 3B 56 4F |STA RPNT ;VO|
00000A30: 4E 20 51 55 45 4C 4C 45 0D 20 20 20 20 20 20 20 |N QUELLE. |
00000A40: 20 20 20 53 54 59 20 52 50 4E 54 2B 31 20 20 20 | STY RPNT+1 |
00000A50: 3B 55 45 42 45 52 47 45 42 45 4E 0D 20 20 20 20 |;UEBERGEBEN. |
00000A60: 20 20 20 20 20 20 4C 44 41 20 23 3C 53 54 41 52 | LDA #<STAR|
00000A70: 54 0D 20 20 20 20 20 20 20 20 20 20 4C 44 59 20 |T. LDY |
00000A80: 23 3E 53 54 41 52 54 20 20 3B 44 49 54 4F 0D 20 |#>START ;DITO. |
00000A90: 20 20 20 20 20 20 20 20 20 53 54 41 20 57 50 4E | STA WPN|
00000AA0: 54 20 20 20 20 20 3B 46 55 45 52 0D 20 20 20 20 |T ;FUER. |
00000AB0: 20 20 20 20 20 20 53 54 59 20 57 50 4E 54 2B 31 | STY WPNT+1|
00000AC0: 20 20 20 3B 5A 49 45 4C 0D 20 20 20 20 20 20 20 | ;ZIEL. |
00000AD0: 20 20 20 4C 44 58 20 23 42 4C 4F 43 4B 53 20 20 | LDX #BLOCKS |
00000AE0: 3B 42 4C 4F 43 4B 41 4E 5A 41 48 4C 20 4C 41 44 |;BLOCKANZAHL LAD|
00000AF0: 45 4E 0D 20 20 20 20 20 20 20 20 20 20 4C 44 59 |EN. LDY|
00000B00: 20 23 30 30 20 20 20 20 20 20 3B 43 4C 52 20 42 | #00 ;CLR B|
00000B10: 59 54 45 2D 43 4F 55 4E 54 45 52 0D 3A 54 52 4C |YTE-COUNTER.:TRL|
00000B20: 4F 50 20 20 20 20 4C 44 41 20 28 52 50 4E 54 29 |OP LDA (RPNT)|
00000B30: 2C 59 20 3B 4C 4F 41 44 20 41 4E 44 0D 20 20 20 |,Y ;LOAD AND. |
00000B40: 20 20 20 20 20 20 20 53 54 41 20 28 57 50 4E 54 | STA (WPNT|
00000B50: 29 2C 59 20 3B 53 54 4F 52 45 20 42 59 54 45 53 |),Y ;STORE BYTES|
00000B60: 0D 20 20 20 20 20 20 20 20 20 20 49 4E 59 20 20 |. INY |
00000B70: 20 20 20 20 20 20 20 20 3B 42 49 53 20 5A 55 4D | ;BIS ZUM|
00000B80: 0D 20 20 20 20 20 20 20 20 20 20 42 4E 45 20 54 |. BNE T|
00000B90: 52 4C 4F 50 20 20 20 20 3B 50 41 47 45 2D 45 4E |RLOP ;PAGE-EN|
00000BA0: 44 45 0D 20 20 20 20 20 20 20 20 20 20 49 4E 43 |DE. INC|
00000BB0: 20 52 50 4E 54 2B 31 20 20 20 3B 5A 45 49 47 45 | RPNT+1 ;ZEIGE|
00000BC0: 52 2D 48 49 47 48 0D 20 20 20 20 20 20 20 20 20 |R-HIGH. |
00000BD0: 20 49 4E 43 20 57 50 4E 54 2B 31 20 20 20 3B 45 | INC WPNT+1 ;E|
00000BE0: 52 48 4F 45 48 45 4E 0D 20 20 20 20 20 20 20 20 |RHOEHEN. |
00000BF0: 20 20 44 45 58 20 20 20 20 20 20 20 20 20 20 3B | DEX ;|
00000C00: 45 56 54 4C 2E 0D 20 20 20 20 20 20 20 20 20 20 |EVTL.. |
00000C10: 42 4E 45 20 54 52 4C 4F 50 20 20 20 20 3B 4E 41 |BNE TRLOP ;NA|
00000C20: 45 43 48 53 54 45 20 50 41 47 45 0D 20 20 20 20 |ECHSTE PAGE. |
00000C30: 20 20 20 20 20 20 52 54 53 20 20 20 20 20 20 20 | RTS |
00000C40: 20 20 20 3B 5A 55 4D 20 C2 C1 D3 C9 C3 0D 0D 0D | ;ZUM ........|
00000C50: 3A 43 4F 44 45 20 3D 20 2A 0D 20 20 20 20 20 20 |:CODE = *. |
00000C60: 20 20 20 3B D0 52 4F 47 52 41 4D 4D 53 54 41 52 | ;.ROGRAMMSTAR|
00000C70: 54 0D 20 20 20 20 20 20 20 20 20 3B 2D 2D 2D 2D |T. ;----|
00000C80: 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D 4F 52 47 20 35 33 |---------.ORG 53|
00000C90: 30 30 30 0D 3A 53 54 41 52 54 20 20 20 20 4A 53 |000.:START JS|
00000CA0: 52 20 4B 4F 4D 4D 41 0D 20 20 20 20 20 20 20 20 |R KOMMA. |
00000CB0: 20 20 4A 53 52 20 47 45 54 56 41 52 0D 20 20 20 | JSR GETVAR. |
00000CC0: 20 20 20 20 20 20 20 53 54 41 20 56 41 52 0D 20 | STA VAR. |
00000CD0: 20 20 20 20 20 20 20 20 20 53 54 59 20 56 41 52 | STY VAR|
00000CE0: 2B 31 0D 20 20 20 20 20 20 20 20 20 20 4C 44 41 |+1. LDA|
00000CF0: 20 53 54 52 46 4C 47 0D 20 20 20 20 20 20 20 20 | STRFLG. |
00000D00: 20 20 4F 52 41 20 49 4E 54 46 4C 47 0D 20 20 20 | ORA INTFLG. |
00000D10: 20 20 20 20 20 20 20 42 45 51 20 57 45 49 54 45 | BEQ WEITE|
00000D20: 52 0D 20 20 20 20 20 20 20 20 20 20 4C 44 58 20 |R. LDX |
00000D30: 23 32 32 20 20 20 20 3B D4 D9 D0 C5 20 CD C9 D3 |#22 ;.... ...|
00000D40: CD C1 D4 C3 C8 0D 20 20 20 20 20 20 20 20 20 20 |...... |
00000D50: 4A 4D 50 20 45 52 52 4F 52 20 20 3B C5 D2 D2 CF |JMP ERROR ;....|
00000D60: D2 0D 3A 57 45 49 54 45 52 20 20 20 4A 53 52 20 |..:WEITER JSR |
00000D70: 43 48 52 47 4F 54 20 3B 4C 45 54 5A 54 45 53 20 |CHRGOT ;LETZTES |
00000D80: DA 45 49 43 48 45 4E 0D 20 20 20 20 20 20 20 20 |.EICHEN. |
00000D90: 20 20 43 4D 50 20 23 24 32 43 20 20 20 3B CB 4F | CMP #$2C ;.O|
00000DA0: 4D 4D 41 3F 0D 20 20 20 20 20 20 20 20 20 20 42 |MMA?. B|
00000DB0: 4E 45 20 57 41 52 54 45 4E 20 3B 3D 3D 3E 4B 45 |NE WARTEN ;==>KE|
00000DC0: 49 4E 20 C6 4C 41 47 0D 20 20 20 20 20 20 20 20 |IN .LAG. |
00000DD0: 20 20 4A 53 52 20 47 45 54 42 59 54 0D 20 20 20 | JSR GETBYT. |
00000DE0: 20 20 20 20 20 20 20 43 50 58 20 23 30 20 20 20 | CPX #0 |
00000DF0: 20 20 3B 4F 44 45 52 20 C6 4C 41 47 20 3D 30 3A | ;ODER .LAG =0:|
00000E00: 0D 20 20 20 20 20 20 20 20 20 20 42 45 51 20 57 |. BEQ W|
00000E10: 41 52 54 45 4E 20 3B 3D 3D 3E 20 57 41 52 54 45 |ARTEN ;==> WARTE|
00000E20: 4E 0D 0D 20 20 20 20 20 20 20 20 20 3B 4E 49 43 |N.. ;NIC|
00000E30: 48 54 20 57 41 52 54 45 4E 0D 20 20 20 20 20 20 |HT WARTEN. |
00000E40: 20 20 20 3B 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D | ;------------|
00000E50: 0D 20 20 20 20 20 20 20 20 20 20 4A 53 52 20 54 |. JSR T|
00000E60: 41 53 54 20 20 20 3B C3 4F 44 45 20 49 4E 20 59 |AST ;.ODE IN Y|
00000E70: 0D 3A 46 45 52 54 49 47 20 20 20 4A 53 52 20 53 |.:FERTIG JSR S|
00000E80: 45 54 46 41 43 0D 20 20 20 20 20 20 20 20 20 20 |ETFAC. |
00000E90: 4A 53 52 20 53 54 4F 52 45 46 41 43 20 3B 49 4E |JSR STOREFAC ;IN|
00000EA0: 20 D6 41 52 49 41 42 4C 45 20 53 43 48 52 45 49 | .ARIABLE SCHREI|
00000EB0: 42 45 4E 0D 20 20 20 20 20 20 20 20 20 20 52 54 |BEN. RT|
00000EC0: 53 20 20 20 20 20 20 20 20 3B C5 CE C4 C5 0D 0D |S ;......|
00000ED0: 20 20 20 20 20 20 20 20 20 3B 57 41 52 54 45 4E | ;WARTEN|
00000EE0: 2C 20 42 49 53 20 D4 41 53 54 45 20 47 45 44 52 |, BIS .ASTE GEDR|
00000EF0: 55 45 43 4B 54 0D 20 20 20 20 20 20 20 20 20 3B |UECKT. ;|
00000F00: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000F10: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D 3A 57 41 52 |-----------.:WAR|
00000F20: 54 45 4E 20 20 20 4A 53 52 20 54 41 53 54 0D 20 |TEN JSR TAST. |
00000F30: 20 20 20 20 20 20 20 20 20 43 50 59 20 23 31 0D | CPY #1.|
00000F40: 20 20 20 20 20 20 20 20 20 20 42 45 51 20 57 41 | BEQ WA|
00000F50: 52 54 45 4E 0D 20 20 20 20 20 20 20 20 20 20 4A |RTEN. J|
00000F60: 4D 50 20 46 45 52 54 49 47 0D 0D 20 20 20 20 20 |MP FERTIG.. |
00000F70: 20 20 20 20 3B D4 41 53 54 41 54 55 52 41 42 46 | ;.ASTATURABF|
00000F80: 52 41 47 45 0D 20 20 20 20 20 20 20 20 20 3B 2D |RAGE. ;-|
00000F90: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D 3A |--------------.:|
00000FA0: 54 41 53 54 20 20 20 20 20 50 48 50 20 20 20 20 |TAST PHP |
00000FB0: 20 20 20 20 3B 53 54 41 54 55 53 20 52 45 54 54 | ;STATUS RETT|
00000FC0: 45 4E 0D 20 20 20 20 20 20 20 20 20 20 53 45 49 |EN. SEI|
00000FD0: 20 20 20 20 20 20 20 20 3B 49 4E 54 45 52 52 55 | ;INTERRU|
00000FE0: 50 54 20 53 50 45 52 52 45 4E 0D 20 20 20 20 20 |PT SPERREN. |
00000FF0: 20 20 20 20 20 4C 44 41 20 44 44 52 41 20 20 20 | LDA DDRA |
00001000: 3B C4 41 54 45 4E 52 49 43 48 54 55 4E 47 20 52 |;.ATENRICHTUNG R|
00001010: 45 54 54 45 4E 0D 20 20 20 20 20 20 20 20 20 20 |ETTEN. |
00001020: 50 48 41 0D 20 20 20 20 20 20 20 20 20 20 4C 44 |PHA. LD|
00001030: 41 20 44 44 52 42 0D 20 20 20 20 20 20 20 20 20 |A DDRB. |
00001040: 20 50 48 41 0D 20 20 20 20 20 20 20 20 20 20 4C | PHA. L|
00001050: 44 41 20 23 24 46 46 20 20 20 3B 55 4E 44 20 4E |DA #$FF ;UND N|
00001060: 45 55 20 53 45 54 5A 45 4E 0D 20 20 20 20 20 20 |EU SETZEN. |
00001070: 20 20 20 20 53 54 41 20 44 44 52 41 0D 20 20 20 | STA DDRA. |
00001080: 20 20 20 20 20 20 20 4C 44 41 20 23 24 30 30 0D | LDA #$00.|
00001090: 20 20 20 20 20 20 20 20 20 20 53 54 41 20 44 44 | STA DD|
000010A0: 52 42 0D 20 20 20 20 20 20 20 20 20 20 3B 0D 20 |RB. ;. |
000010B0: 20 20 20 20 20 20 20 20 20 4C 44 58 20 23 24 37 | LDX #$7|
000010C0: 46 20 20 20 3B 46 55 45 52 20 D3 54 4F 50 2D C1 |F ;FUER .TOP-.|
000010D0: 42 46 52 41 47 45 20 45 52 4D 4F 45 47 4C 49 43 |BFRAGE ERMOEGLIC|
000010E0: 48 45 4E 0D 20 20 20 20 20 20 20 20 20 20 4C 44 |HEN. LD|
000010F0: 59 20 23 35 0D 3A 4C 4F 4F 50 20 20 20 20 20 44 |Y #5.:LOOP D|
00001100: 45 59 0D 20 20 20 20 20 20 20 20 20 20 42 4D 49 |EY. BMI|
00001110: 20 52 41 55 53 20 20 20 3B 4B 45 49 4E 45 20 D4 | RAUS ;KEINE .|
00001120: 41 53 54 45 20 3D 3D 3E 52 41 55 53 0D 0D 20 20 |ASTE ==>RAUS.. |
00001130: 20 20 20 20 20 20 20 20 49 4E 43 20 44 44 52 41 | INC DDRA|
00001140: 0D 20 20 20 20 20 20 20 20 20 20 4C 44 41 20 50 |. LDA P|
00001150: 52 41 20 20 20 20 3B CA 4F 59 53 54 49 43 4B 20 |RA ;.OYSTICK |
00001160: 3F 0D 20 20 20 20 20 20 20 20 20 20 44 45 43 20 |?. DEC |
00001170: 44 44 52 41 0D 20 20 20 20 20 20 20 20 20 20 43 |DDRA. C|
00001180: 4D 50 20 54 41 42 4A 2C 59 0D 20 20 20 20 20 20 |MP TABJ,Y. |
00001190: 20 20 20 20 42 45 51 20 52 41 55 53 20 20 20 3B | BEQ RAUS ;|
000011A0: 4A 41 2C 20 44 41 4E 4E 20 52 41 55 53 0D 0D 20 |JA, DANN RAUS.. |
000011B0: 20 20 20 20 20 20 20 20 20 4C 44 41 20 54 41 42 | LDA TAB|
000011C0: 41 2C 59 20 3B DA 45 49 4C 45 20 46 55 45 52 20 |A,Y ;.EILE FUER |
000011D0: C1 42 46 52 41 47 45 0D 20 20 20 20 20 20 20 20 |.BFRAGE. |
000011E0: 20 20 53 54 41 20 50 52 41 0D 20 20 20 20 20 20 | STA PRA. |
000011F0: 20 20 20 20 4C 44 41 20 50 52 42 20 20 20 20 3B | LDA PRB ;|
00001200: D4 41 53 54 45 3F 0D 20 20 20 20 20 20 20 20 20 |.ASTE?. |
00001210: 20 53 54 58 20 50 52 41 0D 20 20 20 20 20 20 20 | STX PRA. |
00001220: 20 20 20 43 4D 50 20 54 41 42 42 2C 59 20 3B 56 | CMP TABB,Y ;V|
00001230: 45 52 47 4C 45 49 43 48 45 4E 0D 20 20 20 20 20 |ERGLEICHEN. |
00001240: 20 20 20 20 20 42 4E 45 20 4C 4F 4F 50 20 20 20 | BNE LOOP |
00001250: 3B 4E 49 43 48 54 20 47 4C 45 49 43 48 2C 20 44 |;NICHT GLEICH, D|
00001260: 41 4E 4E 20 4C 4F 4F 50 0D 0D 20 20 20 20 20 20 |ANN LOOP.. |
00001270: 20 20 20 20 3B 0D 3A 52 41 55 53 20 20 20 20 20 | ;.:RAUS |
00001280: 50 4C 41 20 20 20 20 20 20 20 20 3B C4 41 54 45 |PLA ;.ATE|
00001290: 4E 52 49 43 48 54 55 4E 47 20 52 45 4B 4F 4E 53 |NRICHTUNG REKONS|
000012A0: 54 52 55 49 45 52 45 4E 0D 20 20 20 20 20 20 20 |TRUIEREN. |
000012B0: 20 20 20 53 54 41 20 44 44 52 42 0D 20 20 20 20 | STA DDRB. |
000012C0: 20 20 20 20 20 20 50 4C 41 0D 20 20 20 20 20 20 | PLA. |
000012D0: 20 20 20 20 53 54 41 20 44 44 52 41 0D 20 20 20 | STA DDRA. |
000012E0: 20 20 20 20 20 20 20 49 4E 59 0D 20 20 20 20 20 | INY. |
000012F0: 20 20 20 20 20 49 4E 59 0D 20 20 20 20 20 20 20 | INY. |
00001300: 20 20 20 50 4C 50 0D 20 20 20 20 20 20 20 20 20 | PLP. |
00001310: 20 52 54 53 20 20 20 20 20 20 20 20 3B D4 41 53 | RTS ;.AS|
00001320: 54 41 54 55 52 43 4F 44 45 20 57 49 52 44 0D 20 |TATURCODE WIRD. |
00001330: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001340: 20 20 20 20 3B 49 4E 20 59 20 55 45 42 45 52 47 | ;IN Y UEBERG|
00001350: 45 42 45 4E 0D 20 20 20 20 20 20 20 20 20 20 20 |EBEN. |
00001360: 20 20 20 20 20 20 20 20 20 20 3B 4B 45 49 4E 45 | ;KEINE|
00001370: 20 D4 41 53 54 45 3A 20 31 0D 0D 3B 54 41 42 45 | .ASTE: 1..;TABE|
00001380: 4C 4C 45 4E 20 46 55 45 52 20 41 42 46 52 41 47 |LLEN FUER ABFRAG|
00001390: 45 0D 0D 3A 54 41 42 4A 20 20 20 20 20 20 20 20 |E..:TABJ |
000013A0: 20 20 20 20 20 20 20 20 3B CA 4F 59 53 54 49 43 | ;.OYSTIC|
000013B0: 4B 0D 20 20 20 20 20 20 20 20 42 20 25 31 31 31 |K. B %111|
000013C0: 31 31 31 31 30 20 20 3B 4F 42 45 4E 0D 20 20 20 |11110 ;OBEN. |
000013D0: 20 20 20 20 20 42 20 25 31 31 31 31 31 31 30 31 | B %11111101|
000013E0: 20 20 3B 55 4E 54 45 4E 0D 20 20 20 20 20 20 20 | ;UNTEN. |
000013F0: 20 42 20 25 31 31 31 31 30 31 31 31 20 20 3B 52 | B %11110111 ;R|
00001400: 45 43 48 54 53 0D 20 20 20 20 20 20 20 20 42 20 |ECHTS. B |
00001410: 25 31 31 31 31 31 30 31 31 20 20 3B 4C 49 4E 4B |%11111011 ;LINK|
00001420: 53 0D 20 20 20 20 20 20 20 20 42 20 25 31 31 31 |S. B %111|
00001430: 30 31 31 31 31 20 20 3B 46 45 55 45 52 0D 0D 3A |01111 ;FEUER..:|
00001440: 54 41 42 41 20 20 20 20 20 20 20 20 20 20 20 20 |TABA |
00001450: 20 20 20 20 3B D4 41 53 54 41 54 55 52 2C 20 DA | ;.ASTATUR, .|
00001460: 45 49 4C 45 4E 0D 20 20 20 20 20 20 20 20 42 20 |EILEN. B |
00001470: 25 31 31 31 31 31 31 30 31 20 20 3B 41 0D 20 20 |%11111101 ;A. |
00001480: 20 20 20 20 20 20 42 20 25 31 31 31 31 31 31 30 | B %1111110|
00001490: 31 20 20 3B 5A 0D 20 20 20 20 20 20 20 20 42 20 |1 ;Z. B |
000014A0: 25 31 30 31 31 31 31 31 31 20 20 3B 2F 0D 20 20 |%10111111 ;/. |
000014B0: 20 20 20 20 20 20 42 20 25 31 31 30 31 31 31 31 | B %1101111|
000014C0: 31 20 20 3B 2E 0D 20 20 20 20 20 20 20 20 42 20 |1 ;.. B |
000014D0: 25 30 31 31 31 31 31 31 31 20 20 3B 53 50 41 43 |%01111111 ;SPAC|
000014E0: 45 0D 0D 3A 54 41 42 42 20 20 20 20 20 20 20 20 |E..:TABB |
000014F0: 20 20 20 20 20 20 20 20 3B D4 41 53 54 41 54 55 | ;.ASTATU|
00001500: 52 2C 20 D3 50 41 4C 54 45 4E 0D 20 20 20 20 20 |R, .PALTEN. |
00001510: 20 20 20 42 20 25 31 31 31 31 31 30 31 31 20 20 | B %11111011 |
00001520: 3B 53 49 45 48 45 20 4F 42 45 4E 0D 20 20 20 20 |;SIEHE OBEN. |
00001530: 20 20 20 20 42 20 25 31 31 31 30 31 31 31 31 0D | B %11101111.|
00001540: 20 20 20 20 20 20 20 20 42 20 25 30 31 31 31 31 | B %01111|
00001550: 31 31 31 0D 20 20 20 20 20 20 20 20 42 20 25 31 |111. B %1|
00001560: 31 31 30 31 31 31 31 0D 20 20 20 20 20 20 20 20 |1101111. |
00001570: 42 20 25 31 31 31 30 31 31 31 31 0D 3B 2D 2D 2D |B %11101111.;---|
00001580: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00001590: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
000015A0: 2D 2D 2D 0D 3A 43 44 45 4E 44 20 3D 20 2A 2D 53 |---.:CDEND = *-S|
000015B0: 54 41 52 54 0D 3A 42 4C 4F 43 4B 53 20 3A 3D 20 |TART.:BLOCKS := |
000015C0: 3E 43 44 45 4E 44 0D 3A 4C 4F 57 20 3D 20 3C 43 |>CDEND.:LOW = <C|
000015D0: 44 45 4E 44 2D 43 4F 44 45 0D 49 46 20 4C 4F 57 |DEND-CODE.IF LOW|
000015E0: 20 3E 20 30 0D 3A 42 4C 4F 43 4B 53 20 3A 3D 20 | > 0.:BLOCKS := |
000015F0: 42 4C 4F 43 4B 53 2B 31 0D 0D 0D 0D 0D 0D 0D 20 |BLOCKS+1....... |
00001600: 00 E9 4C 08 C2 07 9E 32 31 32 37 3A 8F 22 4A 4F |..L....2127:."JO|
00001610: 59 54 41 53 54 20 28 43 29 20 49 4E 50 55 54 20 |YTAST (C) INPUT |
00001620: 36 34 20 20 20 44 55 52 43 48 20 D2 D5 CE 20 50 |64 DURCH ... P|
00001630: 52 4F 47 52 41 4D 4D 20 4E 41 43 48 20 35 33 30 |ROGRAMM NACH 530|
00001640: 30 30 20 4B 4F 50 49 45 52 45 4E 21 22 00 00 00 |00 KOPIEREN!"...|
00001650: A9 72 A0 08 85 FB 84 FC A9 08 A0 CF 85 FD 84 FE |.r..............|
00001660: A2 01 A0 00 B1 FB 91 FD C8 D0 F9 E6 FC E6 FE CA |................|
00001670: D0 F2 60 20 FD AE 20 8B B0 85 49 84 4A A5 0D 05 |..` .. ...I.J...|
00001680: 0E F0 05 A2 16 4C 3A A4 20 79 00 C9 2C D0 11 20 |.....L:. y..,.. |
00001690: 9B B7 E0 00 F0 0A 20 3F CF 20 A2 B3 20 D0 BB 60 |...... ?. .. ..`|
000016A0: 20 3F CF C0 01 F0 F9 4C 2E CF 08 78 AD 02 DC 48 | ?.....L...x...H|
000016B0: AD 03 DC 48 A9 FF 8D 02 DC A9 00 8D 03 DC A2 7F |...H............|
000016C0: A0 05 88 30 1F EE 02 DC AD 00 DC CE 02 DC D9 85 |...0............|
000016D0: CF F0 11 B9 8A CF 8D 00 DC AD 01 DC 8E 00 DC D9 |................|
000016E0: 8F CF D0 DE 68 8D 03 DC 68 8D 02 DC C8 C8 28 60 |....h...h.....(`|
000016F0: FE FD F7 FB EF FD FD BF DF 7F FB EF 7F EF EF 7F |................|
00001700: D7 00 21 1F 00 00 99 C7 28 31 34 37 29 3B 3A 97 |..!.....(147);:.|
00001710: 35 33 32 38 30 2C 31 31 3A 97 35 33 32 38 31 2C |53280,11:.53281,|
00001720: 30 00 5E 1F 01 00 42 24 B2 22 D1 22 3A 4C 24 B2 |0.^...B$.".":L$.|
00001730: 22 20 22 3A 41 44 B2 31 3A 4C 55 B2 31 3A 52 55 |" ":AD.1:LU.1:RU|
00001740: B2 32 3A 4C 4F B2 33 3A 52 4F B2 34 3A 52 B2 52 |.2:LO.3:RO.4:R.R|
00001750: 4F 3A 53 4C 24 B2 22 C0 22 3A 53 44 B2 33 00 6D |O:SL$.".":SD.3.m|
00001760: 1F 02 00 99 C7 28 31 34 29 C7 28 38 29 00 87 1F |.....(14).(8)...|
00001770: 03 00 58 4C B2 31 3A 59 4C B2 36 3A 58 48 B2 31 |..XL.1:YL.6:XH.1|
00001780: 35 3A 59 48 B2 32 32 00 C5 1F 04 00 52 56 24 20 |5:YH.22.....RV$ |
00001790: B2 22 12 20 92 22 3A 4C 4C 24 B2 22 20 20 20 20 |.". .":LL$." |
000017A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000017B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000017C0: 20 20 20 20 22 00 D1 1F 05 00 56 B2 35 33 32 34 | ".....V.5324|
000017D0: 38 00 1B 20 06 00 54 44 24 B2 C7 28 31 34 37 29 |8.. ..TD$..(147)|
000017E0: AA C7 28 31 38 29 AA C7 28 32 38 29 AA 4C 4C 24 |..(18)..(28).LL$|
000017F0: AA 22 20 48 49 4C 46 53 50 52 4F 47 52 41 4D 4D |." HILFSPROGRAMM|
00001800: 45 3A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |E: |
00001810: 20 20 20 20 20 20 20 20 20 20 22 00 56 20 07 00 | ".V ..|
00001820: 54 44 24 B2 54 44 24 AA 22 20 50 52 49 4E 54 2D |TD$.TD$." PRINT-|
00001830: 41 54 2C 20 49 4E 4C 49 4E 45 20 55 4E 44 20 4A |AT, INLINE UND J|
00001840: 4F 59 54 41 53 54 20 20 20 20 20 20 20 20 20 20 |OYTAST |
00001850: 20 22 AA 4C 4C 24 00 A0 20 08 00 54 54 24 B2 C7 | ".LL$.. ..TT$..|
00001860: 28 31 34 37 29 AA C7 28 31 38 29 AA C7 28 32 38 |(147)..(18)..(28|
00001870: 29 AA 4C 4C 24 AA 22 20 C8 49 4C 46 53 50 52 4F |).LL$." .ILFSPRO|
00001880: 47 52 41 4D 4D 45 3A 20 20 20 20 20 20 20 20 20 |GRAMME: |
00001890: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 | "|
000018A0: 00 DB 20 09 00 54 54 24 B2 54 54 24 AA 22 20 D0 |.. ..TT$.TT$." .|
000018B0: 52 49 4E 54 2D C1 54 2C 20 C9 4E 4C 49 4E 45 20 |RINT-.T, .NLINE |
000018C0: 55 4E 44 20 CA 4F 59 D4 41 53 54 20 20 20 20 20 |UND .OY.AST |
000018D0: 20 20 20 20 20 20 22 AA 4C 4C 24 00 F1 20 0A 00 | ".LL$.. ..|
000018E0: 8F 20 4D 4F 44 55 4C 20 44 52 45 49 2D 54 4F 4F |. MODUL DREI-TOO|
000018F0: 4C 00 FD 20 14 00 50 52 B2 32 30 39 33 00 09 21 |L.. ..PR.2093..!|
00001900: 1E 00 49 4E B2 32 30 39 36 00 15 21 28 00 54 4A |..IN.2096..!(.TJ|
00001910: B2 32 30 39 39 00 21 21 32 00 8F 2D 2D 2D 2D 2D |.2099.!!2..-----|
00001920: 2D 00 2D 21 64 00 8F 20 49 4E 54 52 4F 00 38 21 |-.-!d.. INTRO.8!|
00001930: 69 00 8D 31 33 30 30 30 00 43 21 6B 00 8D 31 33 |i..13000.C!k..13|
00001940: 35 30 30 00 4C 21 6E 00 99 54 54 24 00 81 21 78 |500.L!n..TT$..!x|
00001950: 00 9E 50 52 2C 31 38 2C 30 2C 22 05 DA 45 49 47 |..PR,18,0,"..EIG|
00001960: 45 52 20 42 45 57 45 47 45 4E 20 3A 20 CA 4F 59 |ER BEWEGEN : .OY|
00001970: 53 54 49 43 4B 20 49 4E 20 D0 4F 52 54 20 32 22 |STICK IN .ORT 2"|
00001980: 3B 00 97 21 82 00 9E 50 52 2C 31 39 2C 31 37 2C |;..!...PR,19,17,|
00001990: 22 4F 44 45 52 22 3B 00 B7 21 8C 00 9E 50 52 2C |"ODER";..!...PR,|
000019A0: 32 30 2C 31 37 2C 22 D4 41 53 54 45 4E 20 41 2C |20,17,".ASTEN A,|
000019B0: 5A 2C 2E 2C 2F 22 3B 00 DE 21 96 00 9E 50 52 2C |Z,.,/";..!...PR,|
000019C0: 32 31 2C 30 2C 22 C1 55 53 57 41 48 4C 20 3A 20 |21,0,".USWAHL : |
000019D0: 20 20 20 20 20 20 20 C6 45 55 45 52 22 3B 00 F4 | .EUER";..|
000019E0: 21 A0 00 9E 50 52 2C 32 32 2C 31 37 2C 22 4F 44 |!...PR,22,17,"OD|
000019F0: 45 52 22 3B 00 0F 22 AA 00 9E 50 52 2C 32 33 2C |ER";.."...PR,23,|
00001A00: 31 37 2C 22 CC 45 45 52 54 41 53 54 45 22 3B 00 |17,".EERTASTE";.|
00001A10: 25 22 B4 00 9E 50 52 2C 36 2C 30 2C 22 9E 12 22 |%"...PR,6,0,".."|
00001A20: AA 4C 4C 24 3B 00 5D 22 BE 00 9E 50 52 2C 37 2C |.LL$;.]"...PR,7,|
00001A30: 30 2C 22 12 20 C9 43 48 20 4D 4F 45 43 48 54 45 |0,". .CH MOECHTE|
00001A40: 20 4D 49 54 20 44 45 52 20 C4 45 4D 4F 20 53 50 | MIT DER .EMO SP|
00001A50: 49 45 4C 45 4E 21 20 20 20 20 20 20 22 00 72 22 |IELEN! ".r"|
00001A60: C8 00 9E 50 52 2C 38 2C 30 2C 22 12 22 3B 4C 4C |...PR,8,0,".";LL|
00001A70: 24 3B 00 88 22 D2 00 9E 50 52 2C 31 32 2C 30 2C |$;.."...PR,12,0,|
00001A80: 22 12 22 3B 4C 4C 24 3B 00 C1 22 DC 00 9E 50 52 |".";LL$;.."...PR|
00001A90: 2C 31 33 2C 30 2C 22 20 C9 43 48 20 4D 4F 45 43 |,13,0," .CH MOEC|
00001AA0: 48 54 45 20 44 49 45 20 D0 52 4F 47 52 41 4D 4D |HTE DIE .ROGRAMM|
00001AB0: 45 20 41 42 53 50 45 49 43 48 45 52 4E 21 20 22 |E ABSPEICHERN! "|
00001AC0: 3B 00 D7 22 E6 00 9E 50 52 2C 31 34 2C 30 2C 22 |;.."...PR,14,0,"|
00001AD0: 12 22 3B 4C 4C 24 3B 00 E9 22 2C 01 8F 20 53 50 |.";LL$;..",.. SP|
00001AE0: 52 49 54 45 20 4D 4F 56 45 00 F4 22 36 01 9E 54 |RITE MOVE.."6..T|
00001AF0: 4A 2C 53 50 00 15 23 40 01 91 20 53 50 AB 31 20 |J,SP..#@.. SP.1 |
00001B00: 8D 20 35 30 30 2C 36 30 30 2C 37 30 30 2C 38 30 |. 500,600,700,80|
00001B10: 30 2C 39 30 30 00 27 23 45 01 8B 4D 4D A7 4D 4D |0,900.'#E..MM.MM|
00001B20: B2 30 3A 89 31 31 30 00 31 23 4A 01 8D 31 30 30 |.0:.110.1#J..100|
00001B30: 30 00 3A 23 54 01 89 33 31 30 00 4C 23 F4 01 8F |0.:#T..310.L#...|
00001B40: 20 5A 45 49 47 45 52 20 48 4F 43 48 00 64 23 FE | ZEIGER HOCH.d#.|
00001B50: 01 59 53 B2 59 53 AB 53 44 3A 8B 59 53 B3 30 A7 |.YS.YS.SD:.YS.0.|
00001B60: 59 53 B2 30 00 6A 23 08 02 8E 00 7E 23 58 02 8F |YS.0.j#....~#X..|
00001B70: 20 5A 45 49 47 45 52 20 52 55 4E 54 45 52 00 9A | ZEIGER RUNTER..|
00001B80: 23 62 02 59 53 B2 59 53 AA 53 44 3A 8B 59 53 B1 |#b.YS.YS.SD:.YS.|
00001B90: 32 30 30 A7 59 53 B2 32 30 30 00 A0 23 6C 02 8E |200.YS.200..#l..|
00001BA0: 00 B4 23 BC 02 8F 20 53 50 52 49 54 45 20 52 45 |..#... SPRITE RE|
00001BB0: 43 48 54 53 00 D0 23 C6 02 58 53 B2 58 53 AA 53 |CHTS..#..XS.XS.S|
00001BC0: 44 3A 8B 58 53 B1 33 32 30 A7 58 53 B2 33 32 30 |D:.XS.320.XS.320|
00001BD0: 00 D6 23 D0 02 8E 00 E9 23 20 03 8F 20 53 50 52 |..#.....# .. SPR|
00001BE0: 49 54 45 20 4C 49 4E 4B 53 00 01 24 2A 03 58 53 |ITE LINKS..$*.XS|
00001BF0: B2 58 53 AB 53 44 3A 8B 58 53 B3 30 A7 58 53 B2 |.XS.SD:.XS.0.XS.|
00001C00: 30 00 07 24 34 03 8E 00 13 24 84 03 8F 20 46 45 |0..$4....$... FE|
00001C10: 55 45 52 00 1C 24 89 03 4D 4D B2 30 00 33 24 8E |UER..$..MM.0.3$.|
00001C20: 03 8B 59 53 B3 31 32 32 AF 59 53 B1 39 39 A7 4D |..YS.122.YS.99.M|
00001C30: 4D B2 31 00 4B 24 98 03 8B 59 53 B3 31 37 30 AF |M.1.K$...YS.170.|
00001C40: 59 53 B1 31 34 35 A7 4D 4D B2 32 00 5B 24 A2 03 |YS.145.MM.2.[$..|
00001C50: 8B 4D 4D A7 97 56 AA 32 31 2C 30 00 6E 24 AC 03 |.MM..V.21,0.n$..|
00001C60: 91 4D 4D 8D 32 30 30 30 2C 32 30 30 30 30 00 7E |.MM.2000,20000.~|
00001C70: 24 B6 03 8B 4D 4D A7 97 56 AA 32 31 2C 31 00 84 |$...MM..V.21,1..|
00001C80: 24 DE 03 8E 00 9C 24 E8 03 8F 20 53 50 52 49 54 |$.....$... SPRIT|
00001C90: 45 20 4E 45 55 20 53 45 54 5A 45 4E 00 BA 24 F2 |E NEU SETZEN..$.|
00001CA0: 03 4A 48 B2 B5 28 58 53 AD 32 35 36 29 3A 4A 4C |.JH..(XS.256):JL|
00001CB0: B2 58 53 AB 32 35 36 AC 4A 48 00 D5 24 FC 03 97 |.XS.256.JH..$...|
00001CC0: 56 AA 31 36 2C 4A 48 3A 97 56 2C 4A 4C 3A 97 56 |V.16,JH:.V,JL:.V|
00001CD0: AA 31 2C 59 53 00 DB 24 06 04 8E 00 F1 24 D0 07 |.1,YS..$.....$..|
00001CE0: 8F 20 44 41 53 20 4D 49 4E 49 2D 54 45 4E 4E 49 |. DAS MINI-TENNI|
00001CF0: 53 00 01 25 DA 07 99 C7 28 31 34 32 29 3B 54 44 |S..%....(142);TD|
00001D00: 24 00 0C 25 DC 07 8D 31 32 30 30 30 00 47 25 DF |$..%...12000.G%.|
00001D10: 07 81 49 B2 58 4C AB 31 A4 58 48 AA 31 3A 9E 50 |..I.XL.1.XH.1:.P|
00001D20: 52 2C 59 4C AB 31 2C 49 2C 52 56 24 3B 3A 9E 50 |R,YL.1,I,RV$;:.P|
00001D30: 52 2C 59 48 AA 31 2C 49 2C 22 05 22 3B 52 56 24 |R,YH.1,I,".";RV$|
00001D40: 3B 22 1C 22 3B 3A 82 00 7A 25 E0 07 81 49 B2 59 |;".";:..z%...I.Y|
00001D50: 4C AB 31 A4 59 48 AA 31 3A 9E 50 52 2C 49 2C 58 |L.1.YH.1:.PR,I,X|
00001D60: 4C AB 31 2C 52 56 24 3B 3A 9E 50 52 2C 49 2C 58 |L.1,RV$;:.PR,I,X|
00001D70: 48 AA 31 2C 52 56 24 3B 3A 82 00 A8 25 E1 07 59 |H.1,RV$;:...%..Y|
00001D80: 4A B2 59 48 AB 32 3A 58 4A B2 B5 28 28 58 48 AB |J.YH.2:XJ..((XH.|
00001D90: 58 4C 29 AD 32 29 AA 58 4C 3A 9E 50 52 2C 59 4A |XL).2).XL:.PR,YJ|
00001DA0: 2C 58 4A 2C 53 4C 24 3B 00 B8 25 E4 07 8D 31 31 |,XJ,SL$;..%...11|
00001DB0: 30 30 30 3A 53 57 B2 33 00 D8 25 EE 07 46 4C B2 |000:SW.3..%..FL.|
00001DC0: 46 4C AA 31 3A 8B 46 4C B1 B2 53 57 A7 46 4C B2 |FL.1:.FL..SW.FL.|
00001DD0: 30 3A 8D 31 30 30 30 30 00 E8 25 F8 07 8B 59 4A |0:.10000..%...YJ|
00001DE0: B3 B1 59 A7 32 30 35 30 00 F8 25 FA 07 8B 58 4A |..Y.2050..%...XJ|
00001DF0: B3 B1 58 A7 32 30 35 30 00 2F 26 FD 07 91 52 8D |..X.2050./&...R.|
00001E00: 37 31 30 30 2C 37 32 30 30 2C 37 33 30 30 2C 37 |7100,7200,7300,7|
00001E10: 34 30 30 3A 8D 31 30 30 30 30 3A 9E 50 52 2C 59 |400:.10000:.PR,Y|
00001E20: 4A 2C 58 4A 2C 53 4C 24 3B 3A 8D 38 30 30 30 00 |J,XJ,SL$;:.8000.|
00001E30: 47 26 02 08 9E 54 4A 2C 53 50 2C 32 3A 8B 53 50 |G&...TJ,SP,2:.SP|
00001E40: B2 36 A7 32 39 30 30 00 5E 26 0C 08 53 50 B2 53 |.6.2900.^&..SP.S|
00001E50: 50 AB 33 3A 8B 53 50 B3 30 A7 53 50 B2 30 00 70 |P.3:.SP.0.SP.0.p|
00001E60: 26 16 08 91 53 50 8D 34 30 30 30 2C 35 30 30 30 |&...SP.4000,5000|
00001E70: 00 7A 26 34 08 89 32 30 33 30 00 8F 26 54 0B 99 |.z&4..2030..&T..|
00001E80: C7 28 31 34 37 29 3B C7 28 31 34 29 3B 3A 8E 00 |.(147);.(14);:..|
00001E90: A6 26 A0 0F 8F 20 53 43 48 4C 41 45 47 45 52 20 |.&... SCHLAEGER |
00001EA0: 52 45 43 48 54 53 00 B0 26 A5 0F 8D 36 31 30 30 |RECHTS..&...6100|
00001EB0: 00 CD 26 AA 0F 58 4A B2 58 4A AA 41 44 3A 8B 58 |..&..XJ.XJ.AD:.X|
00001EC0: 4A B1 58 48 A7 58 4A B2 58 4A AB 41 44 00 E3 26 |J.XH.XJ.XJ.AD..&|
00001ED0: AF 0F 8D 36 30 30 30 3A 8B 59 4A B3 B1 59 A7 34 |...6000:.YJ..Y.4|
00001EE0: 30 39 30 00 20 27 B4 0F 8B 58 4A B2 58 A7 91 52 |090. '...XJ.X..R|
00001EF0: 8D 37 31 30 30 2C 37 32 30 30 2C 37 33 30 30 2C |.7100,7200,7300,|
00001F00: 37 34 30 30 3A 8D 31 30 30 30 30 3A 9E 50 52 2C |7400:.10000:.PR,|
00001F10: 59 4A 2C 58 4A 2C 53 4C 24 3B 3A 8D 38 30 30 30 |YJ,XJ,SL$;:.8000|
00001F20: 00 26 27 FA 0F 8E 00 3C 27 88 13 8F 20 53 43 48 |.&'....<'... SCH|
00001F30: 4C 41 45 47 45 52 20 4C 49 4E 4B 53 00 46 27 8D |LAEGER LINKS.F'.|
00001F40: 13 8D 36 31 30 30 00 63 27 92 13 58 4A B2 58 4A |..6100.c'..XJ.XJ|
00001F50: AB 41 44 3A 8B 58 4A B3 58 4C A7 58 4A B2 58 4A |.AD:.XJ.XL.XJ.XJ|
00001F60: AA 41 44 00 79 27 97 13 8D 36 30 30 30 3A 8B 59 |.AD.y'...6000:.Y|
00001F70: 4A B3 B1 59 A7 35 30 39 30 00 B6 27 9C 13 8B 58 |J..Y.5090..'...X|
00001F80: 4A B2 58 A7 91 52 8D 37 31 30 30 2C 37 32 30 30 |J.X..R.7100,7200|
00001F90: 2C 37 33 30 30 2C 37 34 30 30 3A 8D 31 30 30 30 |,7300,7400:.1000|
00001FA0: 30 3A 9E 50 52 2C 59 4A 2C 58 4A 2C 53 4C 24 3B |0:.PR,YJ,XJ,SL$;|
00001FB0: 3A 8D 38 30 30 30 00 BC 27 E2 13 8E 00 D3 27 70 |:.8000..'.....'p|
00001FC0: 17 8F 20 53 43 48 4C 41 45 47 45 52 20 53 45 54 |.. SCHLAEGER SET|
00001FD0: 5A 45 4E 00 E6 27 7A 17 9E 50 52 2C 59 4A 2C 58 |ZEN..'z..PR,YJ,X|
00001FE0: 4A 2C 53 4C 24 3B 00 EC 27 84 17 8E 00 05 28 D4 |J,SL$;..'.....(.|
00001FF0: 17 8F 20 53 43 48 4C 41 45 47 45 52 20 4C 4F 45 |.. SCHLAEGER LOE|
00002000: 53 43 48 45 4E 00 17 28 DE 17 9E 50 52 2C 59 4A |SCHEN..(...PR,YJ|
00002010: 2C 58 4A 2C 4C 24 3B 00 1D 28 E8 17 8E 00 28 28 |,XJ,L$;..(....((|
00002020: BC 1B 52 B2 4C 4F 3A 8E 00 33 28 20 1C 52 B2 52 |..R.LO:..3( .R.R|
00002030: 4F 3A 8E 00 3E 28 84 1C 52 B2 4C 55 3A 8E 00 49 |O:..>(..R.LU:..I|
00002040: 28 E8 1C 52 B2 52 55 3A 8E 00 5D 28 40 1F 8F 20 |(..R.RU:..](@.. |
00002050: 53 50 49 45 4C 45 52 50 55 4E 4B 54 45 00 6A 28 |SPIELERPUNKTE.j(|
00002060: 4A 1F 50 50 B2 50 50 AA 41 44 00 90 28 54 1F 9E |J.PP.PP.AD..(T..|
00002070: 50 52 2C 32 30 2C 58 48 AA 33 2C 22 53 50 49 45 |PR,20,XH.3,"SPIE|
00002080: 4C 45 52 50 55 4E 4B 54 45 3A 20 22 3B 50 50 3B |LERPUNKTE: ";PP;|
00002090: 00 B5 28 5E 1F 8B 50 50 AD 35 B2 B5 28 50 50 AD |..(^..PP.5..(PP.|
000020A0: 35 29 A7 53 57 B2 53 57 AB 31 3A 8B 53 57 B3 31 |5).SW.SW.1:.SW.1|
000020B0: A7 53 57 B2 31 00 BB 28 9A 1F 8E 00 D0 28 28 23 |.SW.1..(.....((#|
000020C0: 8F 20 43 4F 4D 50 55 54 45 52 50 55 4E 4B 54 45 |. COMPUTERPUNKTE|
000020D0: 00 DD 28 32 23 43 50 B2 43 50 AA 41 44 00 03 29 |..(2#CP.CP.AD..)|
000020E0: 3C 23 9E 50 52 2C 32 32 2C 58 48 AA 33 2C 22 43 |<#.PR,22,XH.3,"C|
000020F0: 4F 4D 50 55 54 45 52 50 55 4E 4B 54 45 3A 22 3B |OMPUTERPUNKTE:";|
00002100: 43 50 3B 00 2A 29 46 23 8B 43 50 AD 31 30 B2 B5 |CP;.*)F#.CP.10..|
00002110: 28 43 50 AD 31 30 29 A7 53 57 B2 53 57 AA 31 3A |(CP.10).SW.SW.1:|
00002120: 8B 53 57 B1 35 A7 53 57 B2 35 00 30 29 50 23 8E |.SW.5.SW.5.0)P#.|
00002130: 00 3E 29 10 27 58 31 B2 58 3A 59 31 B2 59 00 60 |.>).'X1.X:Y1.Y.`|
00002140: 29 1A 27 91 20 52 20 89 20 31 30 31 30 30 2C 31 |).'. R . 10100,1|
00002150: 30 32 30 30 2C 31 30 33 30 30 2C 31 30 34 30 30 |0200,10300,10400|
00002160: 00 76 29 74 27 8B 58 B2 58 4C A7 52 B2 52 55 3A |.v)t'.X.XL.R.RU:|
00002170: 89 31 30 30 31 30 00 92 29 7E 27 8B 59 B2 59 48 |.10010..)~'.Y.YH|
00002180: A7 52 B2 4C 4F 3A 8D 39 30 30 30 3A 89 31 30 30 |.R.LO:.9000:.100|
00002190: 31 30 00 B2 29 88 27 58 B2 58 AB 41 44 3A 59 B2 |10..).'X.X.AD:Y.|
000021A0: 59 AA 41 44 3A 8F 20 4C 49 4E 4B 53 20 55 4E 54 |Y.AD:. LINKS UNT|
000021B0: 45 4E 00 BD 29 92 27 89 31 30 39 30 30 00 D3 29 |EN..).'.10900..)|
000021C0: D8 27 8B 58 B2 58 48 A7 52 B2 4C 55 3A 89 31 30 |.'.X.XH.R.LU:.10|
000021D0: 30 31 30 00 EF 29 E2 27 8B 59 B2 59 48 A7 52 B2 |010..).'.Y.YH.R.|
000021E0: 52 4F 3A 8D 39 30 30 30 3A 89 31 30 30 31 30 00 |RO:.9000:.10010.|
000021F0: 10 2A EC 27 58 B2 58 AA 41 44 3A 59 B2 59 AA 41 |.*.'X.X.AD:Y.Y.A|
00002200: 44 3A 8F 20 52 45 43 48 54 53 20 55 4E 54 45 4E |D:. RECHTS UNTEN|
00002210: 00 1B 2A F6 27 89 31 30 39 30 30 00 31 2A 3C 28 |..*.'.10900.1*<(|
00002220: 8B 58 B2 58 4C A7 52 B2 52 4F 3A 89 31 30 30 31 |.X.XL.R.RO:.1001|
00002230: 30 00 47 2A 46 28 8B 59 B2 59 4C A7 52 B2 4C 55 |0.G*F(.Y.YL.R.LU|
00002240: 3A 89 31 30 30 31 30 00 66 2A 50 28 58 B2 58 AB |:.10010.f*P(X.X.|
00002250: 41 44 3A 59 B2 59 AB 41 44 3A 8F 20 4C 49 4E 4B |AD:Y.Y.AD:. LINK|
00002260: 53 20 4F 42 45 4E 00 71 2A 5A 28 89 31 30 39 30 |S OBEN.q*Z(.1090|
00002270: 30 00 87 2A A0 28 8B 58 B2 58 48 A7 52 B2 4C 4F |0..*.(.X.XH.R.LO|
00002280: 3A 89 31 30 30 31 30 00 9D 2A AA 28 8B 59 B2 59 |:.10010..*.(.Y.Y|
00002290: 4C A7 52 B2 52 55 3A 89 31 30 30 31 30 00 BD 2A |L.R.RU:.10010..*|
000022A0: B4 28 58 B2 58 AA 41 44 3A 59 B2 59 AB 41 44 3A |.(X.X.AD:Y.Y.AD:|
000022B0: 8F 20 52 45 43 48 54 53 20 4F 42 45 4E 00 C8 2A |. RECHTS OBEN..*|
000022C0: BE 28 89 31 30 39 30 30 00 E8 2A 94 2A 9E 50 52 |.(.10900..*.*.PR|
000022D0: 2C 59 2C 58 2C 42 24 3B 3A 9E 50 52 2C 59 31 2C |,Y,X,B$;:.PR,Y1,|
000022E0: 58 31 2C 4C 24 3B 3A 8E 00 F5 2A F8 2A 8F 20 52 |X1,L$;:...*.*. R|
000022F0: 41 4E 44 4F 4D 00 14 2B 02 2B 58 B2 B5 28 BB 28 |ANDOM..+.+X..(.(|
00002300: 31 29 AC 58 48 29 AA 31 3A 8B 58 B3 58 4C A7 31 |1).XH).1:.X.XL.1|
00002310: 31 30 31 30 00 1D 2B 0C 2B 59 B2 59 4C 00 23 2B |1010..+.+Y.YL.#+|
00002320: 7C 2E 8E 00 3E 2B E0 2E 8F 20 54 45 58 54 20 4E ||...>+... TEXT N|
00002330: 45 42 45 4E 20 53 50 49 45 4C 46 45 4C 44 00 60 |EBEN SPIELFELD.`|
00002340: 2B EA 2E 9E 50 52 2C 59 4C AB 31 2C 58 48 AA 33 |+...PR,YL.1,XH.3|
00002350: 2C 22 9E 45 49 4E 45 20 4B 4C 45 49 4E 45 22 3B |,".EINE KLEINE";|
00002360: 00 85 2B F4 2E 9E 50 52 2C 59 4C 2C 58 48 AA 33 |..+...PR,YL,XH.3|
00002370: 2C 22 44 45 4D 4F 4E 53 54 52 41 54 49 4F 4E 20 |,"DEMONSTRATION |
00002380: 44 45 52 22 3B 00 AD 2B FE 2E 9E 50 52 2C 59 4C |DER";..+...PR,YL|
00002390: AA 31 2C 58 48 AA 33 2C 22 4D 4F 45 47 4C 49 43 |.1,XH.3,"MOEGLIC|
000023A0: 48 4B 45 49 54 45 4E 20 44 45 53 22 3B 00 D4 2B |HKEITEN DES";..+|
000023B0: 08 2F 9E 50 52 2C 59 4C AA 32 2C 58 48 AA 33 2C |./.PR,YL.2,XH.3,|
000023C0: 22 50 52 49 4E 54 2D 41 54 2D 20 55 4E 44 20 44 |"PRINT-AT- UND D|
000023D0: 45 53 22 3B 00 FA 2B 12 2F 9E 50 52 2C 59 4C AA |ES";..+./.PR,YL.|
000023E0: 33 2C 58 48 AA 33 2C 22 4A 4F 59 2B 54 41 53 54 |3,XH.3,"JOY+TAST|
000023F0: 2D 42 45 46 45 48 4C 21 22 3B 00 1F 2C 1C 2F 9E |-BEFEHL!";..,./.|
00002400: 50 52 2C 59 4C AA 35 2C 58 48 AA 33 2C 22 45 4E |PR,YL.5,XH.3,"EN|
00002410: 44 45 3A 20 4C 45 45 52 54 41 53 54 45 22 3B 00 |DE: LEERTASTE";.|
00002420: 29 2C 26 2F 99 22 1C 22 3B 00 2F 2C 64 32 8E 00 |),&/.".";./,d2..|
00002430: 45 2C C8 32 8F 20 53 50 52 49 54 45 20 45 49 4E |E,.2. SPRITE EIN|
00002440: 4C 45 53 45 4E 00 60 2C D2 32 81 49 B2 30 A4 36 |LESEN.`,.2.I.0.6|
00002450: 33 3A 87 20 44 3A 97 38 33 32 AA 49 2C 44 3A 82 |3:. D:.832.I,D:.|
00002460: 00 72 2C D7 32 58 53 B2 31 30 30 3A 59 53 B2 31 |.r,.2XS.100:YS.1|
00002470: 30 30 00 9D 2C DC 32 97 32 30 34 30 2C 31 33 3A |00..,.2.2040,13:|
00002480: 97 56 2C 58 53 3A 97 56 AA 31 2C 59 53 3A 97 56 |.V,XS:.V.1,YS:.V|
00002490: AA 33 39 2C 31 3A 97 56 AA 32 31 2C 31 00 A3 2C |.39,1:.V.21,1..,|
000024A0: E6 32 8E 00 BF 2C BC 34 8F 20 50 4F 4B 45 2D 54 |.2...,.4. POKE-T|
000024B0: 41 42 45 4C 4C 45 20 45 49 4E 4C 45 53 45 4E 00 |ABELLE EINLESEN.|
000024C0: CC 2C C6 34 86 50 54 28 33 2C 33 29 00 D7 2C D0 |.,.4.PT(3,3)..,.|
000024D0: 34 81 49 B2 31 A4 33 00 E2 2C DA 34 81 4A B2 30 |4.I.1.3..,.4.J.0|
000024E0: A4 33 00 F4 2C E4 34 87 20 41 3A 50 54 28 49 2C |.3..,.4. A:PT(I,|
000024F0: 4A 29 B2 41 00 FD 2C EE 34 82 4A 2C 49 00 1D 2D |J).A..,.4.J,I..-|
00002500: F8 34 50 54 28 33 2C 32 29 B2 C2 28 34 35 29 3A |.4PT(3,2)..(45):|
00002510: 50 54 28 33 2C 33 29 B2 C2 28 34 36 29 00 3C 2D |PT(3,3)..(46).<-|
00002520: 02 35 41 31 B2 33 31 38 35 3A 4C 31 B2 34 34 39 |.5A1.3185:L1.449|
00002530: 35 3A 8F 20 53 45 51 2E 46 49 4C 45 00 42 2D 16 |5:. SEQ.FILE.B-.|
00002540: 35 8E 00 5B 2D B0 36 8F 20 53 50 52 49 54 45 2D |5..[-.6. SPRITE-|
00002550: 50 46 45 49 4C 20 44 41 54 45 4E 00 6B 2D BA 36 |PFEIL DATEN.k-.6|
00002560: 83 20 32 35 35 2C 32 35 35 2C 30 00 7B 2D C4 36 |. 255,255,0.{-.6|
00002570: 83 20 32 35 35 2C 32 35 35 2C 30 00 89 2D CE 36 |. 255,255,0..-.6|
00002580: 83 20 32 34 30 2C 30 2C 30 00 97 2D D8 36 83 20 |. 240,0,0..-.6. |
00002590: 32 32 36 2C 30 2C 30 00 A5 2D E2 36 83 20 32 30 |226,0,0..-.6. 20|
000025A0: 34 2C 30 2C 30 00 B3 2D EC 36 83 20 31 39 38 2C |4,0,0..-.6. 198,|
000025B0: 30 2C 30 00 C1 2D F6 36 83 20 31 39 35 2C 30 2C |0,0..-.6. 195,0,|
000025C0: 30 00 D1 2D 00 37 83 20 31 39 33 2C 31 32 38 2C |0..-.7. 193,128,|
000025D0: 30 00 E1 2D 0A 37 83 20 31 39 32 2C 31 39 32 2C |0..-.7. 192,192,|
000025E0: 30 00 F0 2D 14 37 83 20 31 39 32 2C 39 36 2C 30 |0..-.7. 192,96,0|
000025F0: 00 FF 2D 1E 37 83 20 31 39 32 2C 34 38 2C 30 00 |..-.7. 192,48,0.|
00002600: 0E 2E 28 37 83 20 31 39 32 2C 32 34 2C 30 00 1D |..(7. 192,24,0..|
00002610: 2E 32 37 83 20 31 39 32 2C 31 32 2C 30 00 29 2E |.27. 192,12,0.).|
00002620: 3C 37 83 20 30 2C 36 2C 30 00 35 2E 46 37 83 20 |<7. 0,6,0.5.F7. |
00002630: 30 2C 33 2C 30 00 43 2E 50 37 83 20 30 2C 31 2C |0,3,0.C.P7. 0,1,|
00002640: 31 32 38 00 51 2E 5A 37 83 20 30 2C 30 2C 31 39 |128.Q.Z7. 0,0,19|
00002650: 32 00 5E 2E 64 37 83 20 30 2C 30 2C 39 36 00 6B |2.^.d7. 0,0,96.k|
00002660: 2E 6E 37 83 20 30 2C 30 2C 34 38 00 78 2E 78 37 |.n7. 0,0,48.x.x7|
00002670: 83 20 30 2C 30 2C 32 34 00 85 2E 82 37 83 20 30 |. 0,0,24....7. 0|
00002680: 2C 30 2C 31 32 00 8D 2E 8C 37 83 20 30 00 A2 2E |,0,12....7. 0...|
00002690: DC 37 8F 20 53 41 56 45 2D 50 41 52 41 4D 45 54 |.7. SAVE-PARAMET|
000026A0: 45 52 00 C0 2E E6 37 83 20 30 30 31 2C 30 30 38 |ER....7. 001,008|
000026B0: 2C 30 39 33 2C 30 31 32 3A 8F 20 50 41 4B 45 54 |,093,012:. PAKET|
000026C0: 00 DD 2E F0 37 83 20 30 30 31 2C 30 33 30 2C 32 |....7. 001,030,2|
000026D0: 35 35 2C 30 33 30 3A 8F 20 53 4F 4C 4F 00 FB 2E |55,030:. SOLO...|
000026E0: FA 37 83 20 30 30 31 2C 30 30 38 2C 30 30 30 2C |.7. 001,008,000,|
000026F0: 30 30 30 3A 8F 20 41 4C 4C 45 53 00 29 2F 38 4A |000:. ALLES.)/8J|
00002700: 8F 20 44 49 45 20 52 45 53 54 4C 49 43 48 45 4E |. DIE RESTLICHEN|
00002710: 20 50 52 4F 47 52 41 4D 4D 54 45 49 4C 45 20 55 | PROGRAMMTEILE U|
00002720: 45 42 45 52 47 45 42 45 4E 00 56 2F 9C 4A 8F 20 |EBERGEBEN.V/.J. |
00002730: 55 45 42 45 52 47 45 42 45 4E 20 41 4E 20 44 41 |UEBERGEBEN AN DA|
00002740: 53 20 49 4E 50 55 54 2D 42 45 54 52 49 45 42 53 |S INPUT-BETRIEBS|
00002750: 53 59 53 54 45 4D 00 86 2F A6 4A 8F 20 44 49 45 |SYSTEM../.J. DIE|
00002760: 20 4E 4F 54 57 45 4E 44 49 47 45 4E 20 50 41 52 | NOTWENDIGEN PAR|
00002770: 41 4D 45 54 45 52 20 5A 55 4D 20 41 42 53 4F 45 |AMETER ZUM ABSOE|
00002780: 49 43 48 45 52 4E 00 A1 2F B0 4A 8F 20 44 45 52 |ICHERN../.J. DER|
00002790: 20 45 49 4E 5A 45 4C 4E 45 4E 20 4D 4F 44 55 4C | EINZELNEN MODUL|
000027A0: 45 00 AA 2F 20 4E 99 54 54 24 00 C8 2F 2A 4E 99 |E../ N.TT$../*N.|
000027B0: 22 9E D3 49 45 20 4B 4F 45 4E 4E 45 4E 20 4A 45 |"..IE KOENNEN JE|
000027C0: 54 5A 54 20 44 49 45 22 00 E6 2F 34 4E 99 22 D0 |TZT DIE"../4N.".|
000027D0: 52 4F 47 52 41 4D 4D 45 20 41 42 53 50 45 49 43 |ROGRAMME ABSPEIC|
000027E0: 48 45 52 4E 2E 22 00 0E 30 3E 4E 99 22 C1 55 53 |HERN."..0>N.".US|
000027F0: 57 41 48 4C 3A 20 31 2D 34 22 3A 99 22 CD 45 4E |WAHL: 1-4":.".EN|
00002800: 55 45 3A 20 CC 45 45 52 54 41 53 54 45 22 00 3F |UE: .EERTASTE".?|
00002810: 30 48 4E 9E 50 52 2C 31 31 2C 33 2C 22 C4 49 45 |0HN.PR,11,3,".IE|
00002820: 20 D0 41 4B 45 54 2D D6 45 52 53 49 4F 4E 20 41 | .AKET-.ERSION A|
00002830: 4D 20 C2 C1 D3 C9 C3 2D C1 4E 46 41 4E 47 22 00 |M .....-.NFANG".|
00002840: 63 30 52 4E 9E 50 52 2C 31 33 2C 33 2C 22 CE 55 |c0RN.PR,13,3,".U|
00002850: 52 20 44 41 53 20 D4 4F 4F 4C 20 CA 4F 59 D4 41 |R DAS .OOL .OY.A|
00002860: 53 54 22 00 8E 30 5C 4E 9E 50 52 2C 31 35 2C 33 |ST"..0\N.PR,15,3|
00002870: 2C 22 C4 49 45 20 4B 4F 4D 50 4C 45 54 54 45 20 |,".IE KOMPLETTE |
00002880: C4 45 4D 4F 4E 53 54 52 41 54 49 4F 4E 22 00 B9 |.EMONSTRATION"..|
00002890: 30 66 4E 9E 50 52 2C 31 37 2C 33 2C 22 C4 45 4E |0fN.PR,17,3,".EN|
000028A0: 20 D3 4F 55 52 43 45 2D C3 4F 44 45 20 56 4F 4E | .OURCE-.ODE VON|
000028B0: 20 CA 4F 59 D4 41 53 54 22 00 CB 30 84 4E 57 24 | .OY.AST"..0.NW$|
000028C0: B2 22 31 22 3A 89 32 30 32 33 30 00 E2 30 B6 4E |."1":.20230..0.N|
000028D0: 9E 50 52 2C 5A 47 AC 32 AA 39 2C 31 2C 22 05 3E |.PR,ZG.2.9,1,".>|
000028E0: 22 3B 00 ED 30 E8 4E 8D 34 30 30 30 30 00 FF 30 |";..0.N.40000..0|
000028F0: FC 4E 8B 57 24 B2 22 20 22 A7 32 39 39 30 30 00 |.N.W$." ".29900.|
00002900: 15 31 06 4F 9E 50 52 2C 5A 47 AC 32 AA 39 2C 31 |.1.O.PR,ZG.2.9,1|
00002910: 2C 22 20 22 3B 00 31 31 10 4F 81 49 B2 31 38 A4 |," ";.11.O.I.18.|
00002920: 32 33 3A 9E 50 52 2C 49 2C 30 2C 4C 4C 24 3B 3A |23:.PR,I,0,LL$;:|
00002930: 82 00 54 31 1A 4F 91 C5 28 57 24 29 8D 33 31 30 |..T1.O..(W$).310|
00002940: 30 30 2C 33 31 30 30 30 2C 33 31 30 30 30 2C 33 |00,31000,31000,3|
00002950: 34 30 30 30 00 6C 31 24 4F 8B 5A 47 B2 34 A7 57 |4000.l1$O.ZG.4.W|
00002960: 24 B2 22 31 22 3A 89 32 30 32 33 30 00 77 31 42 |$."1":.20230.w1B|
00002970: 4F 89 32 30 31 35 30 00 92 31 CC 74 8B C2 28 35 |O.20150..1.t..(5|
00002980: 30 33 30 37 29 B2 31 32 30 A7 97 35 30 32 35 37 |0307).120..50257|
00002990: 2C 34 00 98 31 2F 75 8E 00 A6 31 18 79 5A 47 B2 |,4..1/u...1.yZG.|
000029A0: C5 28 57 24 29 3A 00 BF 31 22 79 8B C2 28 35 30 |.(W$):..1"y..(50|
000029B0: 33 30 37 29 B3 B1 31 32 30 A7 33 31 39 30 30 00 |307)..120.31900.|
000029C0: CD 31 2C 79 97 35 30 32 35 37 2C 32 30 00 D8 31 |.1,y.50257,20..1|
000029D0: 36 79 81 49 B2 30 A4 33 00 EE 31 40 79 97 35 30 |6y.I.0.3..1@y.50|
000029E0: 32 35 39 AA 49 2C 50 54 28 5A 47 2C 49 29 00 F4 |259.I,PT(ZG,I)..|
000029F0: 31 4A 79 82 00 01 32 54 79 97 35 30 32 35 37 2C |1Jy...2Ty.50257,|
00002A00: 38 00 07 32 9C 7C 8E 00 24 32 D0 84 8F 20 53 4F |8..2.|..$2... SO|
00002A10: 55 52 43 45 20 46 49 4C 45 20 3E 20 44 49 53 4B |URCE FILE > DISK|
00002A20: 45 54 54 45 00 3F 32 DA 84 8B C2 28 35 30 33 30 |ETTE.?2....(5030|
00002A30: 37 29 B2 31 32 30 A7 97 35 30 32 35 37 2C 34 00 |7).120..50257,4.|
00002A40: 5F 32 DF 84 5A 47 B2 C5 28 57 24 29 3A 9E 50 52 |_2..ZG..(W$):.PR|
00002A50: 2C 5A 47 AC 32 AA 39 2C 31 2C 22 05 3E 22 3B 00 |,ZG.2.9,1,".>";.|
00002A60: 91 32 E4 84 9E 50 52 2C 31 39 2C 34 2C 22 05 C4 |.2...PR,19,4,"..|
00002A70: 49 45 20 C4 41 54 45 4E 20 57 45 52 44 45 4E 20 |IE .ATEN WERDEN |
00002A80: 55 4E 54 45 52 20 20 44 45 4D 20 CE 41 4D 45 4E |UNTER DEM .AMEN|
00002A90: 22 00 CD 32 EE 84 9E 50 52 2C 32 30 2C 34 2C C7 |"..2...PR,20,4,.|
00002AA0: 28 33 34 29 3B 22 4A 4F 59 54 41 53 54 2E 53 22 |(34);"JOYTAST.S"|
00002AB0: C7 28 33 34 29 22 20 41 4C 53 20 D3 C5 D1 2D C6 |.(34)" ALS ...-.|
00002AC0: 49 4C 45 20 41 55 46 20 C4 49 53 2D 22 00 FF 32 |ILE AUF .IS-"..2|
00002AD0: F8 84 9E 50 52 2C 32 31 2C 34 2C 22 4B 45 54 54 |...PR,21,4,"KETT|
00002AE0: 45 20 47 45 53 43 48 52 49 45 42 45 4E 2C 20 44 |E GESCHRIEBEN, D|
00002AF0: 41 52 55 4D 20 4E 49 43 48 54 20 55 45 2D 22 00 |ARUM NICHT UE-".|
00002B00: 31 33 02 85 9E 50 52 2C 32 32 2C 34 2C 22 42 45 |13...PR,22,4,"BE|
00002B10: 52 20 44 49 45 20 C9 CE D0 D5 D4 36 34 2D C6 55 |R DIE .....64-.U|
00002B20: 4E 4B 54 49 4F 4E 20 C3 D4 D2 CC 20 26 20 53 21 |NKTION .... & S!|
00002B30: 22 00 63 33 0C 85 9E 50 52 2C 32 33 2C 34 2C 22 |".c3...PR,23,4,"|
00002B40: C1 42 53 50 45 49 43 48 45 52 4E 3A 20 D2 C5 D4 |.BSPEICHERN: ...|
00002B50: D5 D2 CE 20 20 20 20 20 D7 45 49 54 45 52 3A 20 |... .EITER: |
00002B60: 5F 22 3B 00 6E 33 16 85 8D 34 30 30 30 30 00 80 |_";.n3...40000..|
00002B70: 33 20 85 8B 57 24 B2 22 5F 22 A7 33 34 39 30 30 |3 ..W$."_".34900|
00002B80: 00 95 33 2A 85 8B 57 24 B3 B1 C7 28 31 33 29 A7 |..3*..W$...(13).|
00002B90: 33 34 30 37 30 00 A0 33 34 85 8D 35 30 32 37 30 |34070..34..50270|
00002BA0: 00 A6 33 54 88 8E 00 B4 33 40 9C 8F 20 47 45 54 |..3T....3@.. GET|
00002BB0: 20 4B 45 59 00 BF 33 4A 9C 97 31 39 38 2C 30 00 | KEY..3J..198,0.|
00002BC0: D4 33 54 9C A1 57 24 3A 8B 57 24 B2 22 22 A7 34 |.3T..W$:.W$."".4|
00002BD0: 30 30 32 30 00 DA 33 5E 9C 8E 00 00 34 50 C3 8F |0020..3^....4P..|
00002BE0: 20 53 43 48 52 45 49 42 45 4E 2C 20 46 45 48 4C | SCHREIBEN, FEHL|
00002BF0: 45 52 20 41 42 46 52 41 47 45 4E 20 45 54 43 2E |ER ABFRAGEN ETC.|
00002C00: 00 0E 34 82 C3 9F 38 2C 38 2C 38 3A A0 38 00 14 |..4...8,8,8:.8..|
00002C10: 34 8C C3 8E 00 1F 34 96 C3 A0 31 3A A0 31 35 00 |4.....4...1:.15.|
00002C20: 61 34 A0 C3 8D 35 30 30 35 30 3A 8B 53 54 20 AF |a4...50050:.ST .|
00002C30: 31 32 38 A7 42 46 24 B2 22 C2 49 54 54 45 20 C6 |128.BF$.".ITTE .|
00002C40: 4C 4F 50 50 59 20 45 49 4E 53 43 48 41 4C 54 45 |LOPPY EINSCHALTE|
00002C50: 4E 21 22 3A 8D 35 30 32 31 30 3A 89 35 30 31 39 |N!":.50210:.5019|
00002C60: 30 00 88 34 AA C3 9F 31 35 2C 38 2C 31 35 3A 98 |0..4...15,8,15:.|
00002C70: 31 35 2C 22 55 49 22 3A 9F 31 2C 38 2C 31 2C 4E |15,"UI":.1,8,1,N|
00002C80: 24 AA 22 2C 53 2C 57 22 00 9A 34 B4 C3 84 31 35 |$.",S,W"..4...15|
00002C90: 2C 41 2C 42 24 2C 43 2C 44 3A 00 CC 34 C8 C3 8B |,A,B$,C,D:..4...|
00002CA0: 41 B3 B1 30 A7 42 46 24 B2 C4 28 41 29 AA 22 20 |A..0.BF$..(A)." |
00002CB0: 22 AA 42 24 AA C4 28 43 29 AA C4 28 44 29 3A 8D |".B$..(C)..(D):.|
00002CC0: 35 30 32 31 30 3A 89 35 30 32 30 30 00 EE 34 E6 |50210:.50200..4.|
00002CD0: C3 81 49 B2 30 A4 4C 4E AB 31 3A 98 31 2C C7 28 |..I.0.LN.1:.1,.(|
00002CE0: C2 28 4F 41 AA 49 29 29 3B 3A 82 3A A0 31 00 FF |.(OA.I));:.:.1..|
00002CF0: 34 F0 C3 84 31 35 2C 41 2C 42 24 2C 43 2C 44 00 |4...15,A,B$,C,D.|
00002D00: 1D 35 FA C3 42 46 24 B2 C4 28 41 29 AA 22 20 22 |.5..BF$..(A)." "|
00002D10: AA 42 24 AA C4 28 43 29 AA C4 28 44 29 00 28 35 |.B$..(C)..(D).(5|
00002D20: 04 C4 8D 35 30 32 31 30 00 33 35 0E C4 8D 34 30 |...50210.35...40|
00002D30: 30 30 30 00 40 35 18 C4 A0 31 3A A0 31 35 3A 8E |000.@5...1:.15:.|
00002D40: 00 5E 35 22 C4 57 B2 30 3A 9E 50 52 2C 32 34 2C |.^5".W.0:.PR,24,|
00002D50: 33 2C 22 12 1E 22 42 46 24 22 92 9E 22 3B 00 69 |3,".."BF$"..";.i|
00002D60: 35 2C C4 8D 34 30 30 30 30 00 7A 35 40 C4 9E 50 |5,..40000.z5@..P|
00002D70: 52 2C 32 34 2C 33 2C 22 22 3B 00 92 35 4A C4 81 |R,24,3,"";..5J..|
00002D80: 49 B2 30 A4 C3 28 42 46 24 29 3A 99 22 20 22 3B |I.0..(BF$):." ";|
00002D90: 3A 82 00 98 35 54 C4 8E 00 B1 35 5E C4 8F 20 4B |:...5T....5^.. K|
00002DA0: 45 52 4E 54 45 49 4C 20 53 43 48 52 45 49 42 45 |ERNTEIL SCHREIBE|
00002DB0: 4E 00 C4 35 68 C4 4E 24 B2 22 4A 4F 59 54 41 53 |N..5h.N$."JOYTAS|
00002DC0: 54 2E 53 22 00 D4 35 72 C4 4F 41 B2 41 31 3A 4C |T.S"..5r.OA.A1:L|
00002DD0: 4E B2 4C 31 00 DF 35 7C C4 8D 35 30 30 37 30 00 |N.L1..5|..50070.|
00002DE0: E5 35 86 C4 8E 00 00 00 |.5...... |
....B..2077 .2093/96/99/(C)......,.....
Y.L...L6.LV.L.. .. ...(....I....S.V .. .
.L .LH.L...QH.RH.SH.VH.S.VL...SH.RH)..X.
R....QH.RH.Q` L..S.EQ.Q..F....SER.R.X)..
..F.L..X.O...N ..O L. ..XI.P..SE....SL .
I.P..S.QFSL .I.P....SL .I.P.... .Q...LX.
I.P5.S..D.P..QI ... .QL ..S.H.Q..QHD.P..
.QLK.FS.S. .QL..I.P...P.I.P...,Z.P.L .L
..I..\I...I....V.L..I..% ..I...)IP..^I
....I ..I`..)? L.L.....QI ..L...SE.P.L.
...QH.Q..DS...SL.....V....QI P....H.....
.........Q W.......H.VH.SH.RH.Q`.W)?.W$W
......P..@`H.T..D.U..E.S.HL..QD.....P.HH
L .` .. .. .. ......LH...I....Y. .. .. .
...P...I(...X. .. .. ....PQ...M.MX..GI).
C...W. .. .. ...S..T..U. .. ...I.J ...W.
.. ..Z..ZI,P..Z..X..Y. Y... . .. Z..Z.P.
` S. ...I.J..H..H.V.0...,.. ..L.........
............. .. ...I.J........L:. Y.I,P
. ...... .. .. P.` ......L...X...H...H..
......... ..0.......N..YY....^.........
.YC.P.H...H...HH(`....................
........................................
........................................
........................................
..........................(.... VOR EING
EBEN EIGENER ZEILEN: NEW.J.... INLINE,PR
INT AT UND JOYTAST.].... (C) INPUT 64.J.
...44,31:.........;*********************
******************.;*
*.;* TASTATUR / JOYS
TICKABFRAGE *.;*
*.;* (W) 1986 BY
MARTIN GEBHARDT *.;*
*.;***************
************************..;-------------
-------------------------.:STRFLG = $0
D ;$FF: STRING.:INTFLG = $0E ;$80: I
NTEGER.:VAR = $49 ;ZEIGER AUF VARI
ABLE.:FAC = $61 ;FLIESSKOMMAAKKU #
1.:RPNT = $FB ;READPOINTER UND.:WPN
T = $FD ;WRITEPOINTER FUER TRANSFER
...:CIA1 = $DC00 ;CIA 1:.:PRA
= CIA1+0 ; PORT A.:PRB = CIA1+1
; PORT B.:DDRA = CIA1+2 ; DATENRICH
TUNG P.A.:DDRB = CIA1+3 ; DATENRICH
TUNG P.B..:CHRGET = $0073.:CHRGOT =
$0079.:ERROR = $A43A ;FEHLERMELDUNG A
USGEBEN.:KOMMA = $AEFD ;PRUEFT AUF KO
MMA.:GETVAR = $B08B ;HOLT VARIABLENADR
ESSE NACH VAR.:SETFAC = $B3A2 ;Y-REGIS
TER NACH FAC.:GETBYT = $B79B ;BYTEWERT
NACH X HOLEN.:STOREFAC = $BBD0 ;FAC NAC
H VARIABLE SCHREIBEN..;-----------------
---------------------. ;BASIC-HE
ADER. ;------------.ORG $0801 ;O
RG-BASIC..W ZERO3 ;LINK-POINTER.W 1986
;ZEILEN-NO.B $9E ;SYS-TOKEN.B "2127
:".B $8F ;REM-TOKEN.B $22 ;".B "JO
YTAST (C) INPUT 64 ".B "DURCH RUN PROG
RAMM NACH 53000 KOPIEREN!".B $22 ;".:
ZERO3 B 0,0,0.. ;VERSCHIEBE-ROUT
INE. ;------------------.:BEGIN
LDA #<CODE ;LOW- UND. LDY
#>CODE ;HIGH-ADRESS. STA RPNT
;VON QUELLE. STY RPNT+1
;UEBERGEBEN. LDA #<START.
LDY #>START ;DITO. STA WPN
T ;FUER. STY WPNT+1 ;ZIEL
. LDX #BLOCKS ;BLOCKANZAHL LAD
EN. LDY #00 ;CLR BYTE-COUN
TER.:TRLOP LDA (RPNT),Y ;LOAD AND.
STA (WPNT),Y ;STORE BYTES.
INY ;BIS ZUM. BNE T
RLOP ;PAGE-ENDE. INC RPNT+1
;ZEIGER-HIGH. INC WPNT+1 ;E
RHOEHEN. DEX ;EVTL..
BNE TRLOP ;NAECHSTE PAGE.
RTS ;ZUM BASIC...:CODE =
*. ;PROGRAMMSTART. ;----
---------.ORG 53000.:START JSR KOMMA.
JSR GETVAR. STA VAR.
STY VAR+1. LDA STRFLG.
ORA INTFLG. BEQ WEITE
R. LDX #22 ;TYPE MISMATCH.
JMP ERROR ;ERROR.:WEITER JSR
CHRGOT ;LETZTES ZEICHEN. CMP #$
2C ;KOMMA?. BNE WARTEN ;==>KE
IN FLAG. JSR GETBYT. C
PX #0 ;ODER FLAG =0:. BEQ W
ARTEN ;==> WARTEN.. ;NICHT WARTE
N. ;------------. JSR T
AST ;CODE IN Y.:FERTIG JSR SETFAC.
JSR STOREFAC ;IN VARIABLE SCHREI
BEN. RTS ;ENDE..
;WARTEN, BIS TASTE GEDRUECKT. ;
---------------------------.:WARTEN JS
R TAST. CPY #1. BEQ WA
RTEN. JMP FERTIG.. ;TAS
TATURABFRAGE. ;---------------.:
TAST PHP ;STATUS RETTEN.
SEI ;INTERRUPT SPERREN.
LDA DDRA ;DATENRICHTUNG RETTEN.
PHA. LDA DDRB.
PHA. LDA #$FF ;UND NEU SETZE
N. STA DDRA. LDA #$00.
STA DDRB. ;.
LDX #$7F ;FUER STOP-ABFRAGE ERMOEGLIC
HEN. LDY #5.:LOOP DEY.
BMI RAUS ;KEINE TASTE ==>RAUS..
INC DDRA. LDA PRA ;J
OYSTICK ?. DEC DDRA. C
MP TABJ,Y. BEQ RAUS ;JA, DANN
RAUS.. LDA TABA,Y ;ZEILE FUER
ABFRAGE. STA PRA. LDA
PRB ;TASTE?. STX PRA.
CMP TABB,Y ;VERGLEICHEN. BNE
LOOP ;NICHT GLEICH, DANN LOOP..
;.:RAUS PLA ;DATENRICHTUN
G REKONSTRUIEREN. STA DDRB.
PLA. STA DDRA. I
NY. INY. PLP.
RTS ;TASTATURCODE WIRD.
;IN Y UEBERGEBEN.
;KEINE TASTE: 1..;TABELLEN FUE
R ABFRAGE..:TABJ ;JOYSTIC
K. B %11111110 ;OBEN. B %
11111101 ;UNTEN. B %11110111 ;R
ECHTS. B %11111011 ;LINKS.
B %11101111 ;FEUER..:TABA
;TASTATUR, ZEILEN. B %1111110
1 ;A. B %11111101 ;Z. B
%10111111 ;/. B %11011111 ;..
B %01111111 ;SPACE..:TABB
;TASTATUR, SPALTEN. B %11
111011 ;SIEHE OBEN. B %11101111.
B %01111111. B %11101111.
B %11101111.;-------------------
-------------------.:CDEND = *-START.:BL
OCKS := >CDEND.:LOW = <CDEND-CODE.IF LOW
> 0.:BLOCKS := BLOCKS+1....... ..L.B..2
127:."JOYTAST (C) INPUT 64 DURCH RUN P
ROGRAMM NACH 53000 KOPIEREN!"....R .....
.. O...... .....HP.....JP.` .. ...I.J...
.....L:. Y.I,P. ...... ?O .. P.` ?O....L
.O.X...H...H........... ..0.......N..Y.
O....O.........Y.OP.H...H...HH(`........
.....W.!....G(147);:.53280,11:.53281,
0.^...B$."Q":L$." ":AD.1:LU.1:RU.2:LO.3:
RO.4:R.RO:SL$.".":SD.3.M....G(14)G(8)...
..XL.1:YL.6:XH.15:YH.22.E...RV$ .". .":L
L$."
".Q...V.53248.. ..TD$.G(147).G(18).G
(28).LL$." HILFSPROGRAMME:
".V ..TD$.TD$." PRINT-AT, INLI
NE UND JOYTAST ".LL$. ..TT$.G
(147).G(18).G(28).LL$." HILFSPROGRAMME:
".. ..TT$.TT$." P
RINT-AT, INLINE UND JOYTAST ".
LL$.. ... MODUL DREI-TOOL.. ..PR.2093..!
..IN.2096..!(.TJ.2099.!!2..------.-!D..
INTRO.8!I..13000.C!K..13500.L!N..TT$..!X
..PR,18,0,".ZEIGER BEWEGEN : JOYSTICK IN
PORT 2";..!...PR,19,17,"ODER";..!...PR,
20,17,"TASTEN A,Z,.,/";..!...PR,21,0,"AU
SWAHL : FEUER";..! ..PR,22,17,"OD
ER";.."...PR,23,17,"LEERTASTE";.%"...PR,
6,0,"..".LL$;.]"...PR,7,0,". ICH MOECHTE
MIT DER DEMO SPIELEN! ".R"H..PR,8,
0,".";LL$;.."R..PR,12,0,".";LL$;.A"...PR
,13,0," ICH MOECHTE DIE PROGRAMME ABSPEI
CHERN! ";.W"...PR,14,0,".";LL$;..",.. SP
RITE MOVE.."6..TJ,SP..#@.. SP.1 . 500,60
0,700,800,900.'#E..MM.MM.0:.110.1#J..100
0.:#T..310.L#... ZEIGER HOCH.D#..YS.YS.S
D:.YS.0.YS.0.J#....~#X.. ZEIGER RUNTER..
#B.YS.YS.SD:.YS.200.YS.200. #L....#... S
PRITE RECHTS.P#F.XS.XS.SD:.XS.320.XS.320
.V#P....# .. SPRITE LINKS..$*.XS.XS.SD:.
XS.0.XS.0..$4....$... FEUER..$..MM.0.3$.
..YS.122.YS.99.MM.1.K$...YS.170.YS.145.M
M.2.[$...MM..V.21,0.N$...MM.2000,20000.~
$...MM..V.21,1..$.....$... SPRITE NEU SE
TZEN..$..JH..(XS.256):JL.XS.256.JH.U$...
V.16,JH:.V,JL:.V.1,YS..$.....$P.. DAS MI
NI-TENNIS..%Z..G(142);TD$..%...12000.G%.
..I.XL.1.XH.1:.PR,YL.1,I,RV$;:.PR,YH.1,I
,".";RV$;".";:..Z%...I.YL.1.YH.1:.PR,I,X
L.1,RV$;:.PR,I,XH.1,RV$;:...%..YJ.YH.2:X
J..((XH.XL).2).XL:.PR,YJ,XJ,SL$;..%...11
000:SW.3.X%..FL.FL.1:.FL..SW.FL.0:.10000
..%...YJ..Y.2050..%...XJ..X.2050./&...R.
7100,7200,7300,7400:.10000:.PR,YJ,XJ,SL$
;:.8000.G&...TJ,SP,2:.SP.6.2900.^&..SP.S
P.3:.SP.0.SP.0.P&...SP.4000,5000.Z&4..20
30..&T..G(147);G(14);:...& .. SCHLAEGER
RECHTS..&...6100.M&..XJ.XJ.AD:.XJ.XH.XJ.
XJ.AD..&...6000:.YJ..Y.4090. '...XJ.X..R
.7100,7200,7300,7400:.10000:.PR,YJ,XJ,SL
$;:.8000.&'....<'... SCHLAEGER LINKS.F'.
..6100.C'..XJ.XJ.AD:.XJ.XL.XJ.XJ.AD.Y'..
.6000:.YJ..Y.5090..'...XJ.X..R.7100,7200
,7300,7400:.10000:.PR,YJ,XJ,SL$;:.8000..
'....S'P.. SCHLAEGER SETZEN..'Z..PR,YJ,X
J,SL$;..'.....(T.. SCHLAEGER LOESCHEN..(
...PR,YJ,XJ,L$;..(....((..R.LO:..3( .R.R
O:..>(..R.LU:..I(..R.RU:..](@.. SPIELERP
UNKTE.J(J.PP.PP.AD..(T..PR,20,XH.3,"SPIE
LERPUNKTE: ";PP;..(^..PP.5..(PP.5).SW.SW
.1:.SW.1.SW.1..(....P((#. COMPUTERPUNKTE
..(2#CP.CP.AD..)<#.PR,22,XH.3,"COMPUTERP
UNKTE:";CP;.*)F#.CP.10..(CP.10).SW.SW.1:
.SW.5.SW.5.0)P#..>).'X1.X:Y1.Y.`).'. R .
10100,10200,10300,10400.V)T'.X.XL.R.RU:
.10010..)~'.Y.YH.R.LO:.9000:.10010..).'X
.X.AD:Y.Y.AD:. LINKS UNTEN..).'.10900.S)
X'.X.XH.R.LU:.10010..).'.Y.YH.R.RO:.9000
:.10010..*.'X.X.AD:Y.Y.AD:. RECHTS UNTEN
..*.'.10900.1*<(.X.XL.R.RO:.10010.G*F(.Y
.YL.R.LU:.10010.F*P(X.X.AD:Y.Y.AD:. LINK
S OBEN.Q*Z(.10900..* (.X.XH.R.LO:.10010.
.*.(.Y.YL.R.RU:.10010..*.(X.X.AD:Y.Y.AD:
. RECHTS OBEN.H*.(.10900..*.*.PR,Y,X,B$;
:.PR,Y1,X1,L$;:...*.*. RANDOM..+.+X..(.(
1).XH).1:.X.XL.11010..+.+Y.YL.#+|...>+..
. TEXT NEBEN SPIELFELD.`+...PR,YL.1,XH.3
,".EINE KLEINE";..+...PR,YL,XH.3,"DEMONS
TRATION DER";..+...PR,YL.1,XH.3,"MOEGLIC
HKEITEN DES";.T+./.PR,YL.2,XH.3,"PRINT-A
T- UND DES";..+./.PR,YL.3,XH.3,"JOY+TAST
-BEFEHL!";..,./.PR,YL.5,XH.3,"ENDE: LEER
TASTE";.),&/.".";./,D2..E,H2. SPRITE EIN
LESEN.`,R2.I.0.63:. D:.832.I,D:..R,W2XS.
100:YS.100..,.2.2040,13:.V,XS:.V.1,YS:.V
.39,1:.V.21,1..,.2...,.4. POKE-TABELLE E
INLESEN.L,F4.PT(3,3).W,P4.I.1.3..,Z4.J.0
.3..,.4. A:PT(I,J).A..,.4.J,I..-.4PT(3,2
).B(45):PT(3,3).B(46).<-.5A1.3185:L1.449
5:. SEQ.FILE.B-.5..[-.6. SPRITE-PFEIL DA
TEN.K-.6. 255,255,0.{-D6. 255,255,0..-N6
. 240,0,0..-X6. 226,0,0..-.6. 204,0,0..-
.6. 198,0,0.A-.6. 195,0,0.Q-.7. 193,128,
0..-.7. 192,192,0..-.7. 192,96,0..-.7. 1
92,48,0...(7. 192,24,0...27. 192,12,0.).
<7. 0,6,0.5.F7. 0,3,0.C.P7. 0,1,128.Q.Z7
. 0,0,192.^.D7. 0,0,96.K.N7. 0,0,48.X.X7
. 0,0,24....7. 0,0,12....7. 0....7. SAVE
-PARAMETER....7. 001,008,093,012:. PAKET
....7. 001,030,255,030:. SOLO....7. 001,
008,000,000:. ALLES.)/8J. DIE RESTLICHEN
PROGRAMMTEILE UEBERGEBEN.V/.J. UEBERGEB
EN AN DAS INPUT-BETRIEBSSYSTEM../.J. DIE
NOTWENDIGEN PARAMETER ZUM ABSOEICHERN..
/.J. DER EINZELNEN MODULE../ N.TT$.H/*N.
".SIE KOENNEN JETZT DIE"../4N."PROGRAMME
ABSPEICHERN."..0>N."AUSWAHL: 1-4":."MEN
UE: LEERTASTE".?0HN.PR,11,3,"DIE PAKET-V
ERSION AM BASIC-ANFANG".C0RN.PR,13,3,"NU
R DAS TOOL JOYTAST"..0\N.PR,15,3,"DIE KO
MPLETTE DEMONSTRATION"..0FN.PR,17,3,"DEN
SOURCE-CODE VON JOYTAST".K0.NW$."1":.20
230..0.N.PR,ZG.2.9,1,".>";..0.N.40000..0
.N.W$." ".29900..1.O.PR,ZG.2.9,1," ";.11
.O.I.18.23:.PR,I,0,LL$;:..T1.O.E(W$).310
00,31000,31000,34000.L1$O.ZG.4.W$."1":.2
0230.W1BO.20150..1LT.B(50307).120..50257
,4..1/U...1.YZG.E(W$):..1"Y.B(50307)..12
0.31900.M1,Y.50257,20.X16Y.I.0.3..1@Y.50
259.I,PT(ZG,I)..1JY...2TY.50257,8..2.|..
$2P.. SOURCE FILE > DISKETTE.?2Z..B(5030
7).120..50257,4._2..ZG.E(W$):.PR,ZG.2.9,
1,".>";..2...PR,19,4,".DIE DATEN WERDEN
UNTER DEM NAMEN".M2...PR,20,4,G(34);"JO
YTAST.S"G(34)" ALS SEQ-FILE AUF DIS-"..2
...PR,21,4,"KETTE GESCHRIEBEN, DARUM NIC
HT UE-".13...PR,22,4,"BER DIE INPUT64-FU
NKTION CTRL & S!".C3...PR,23,4,"ABSPEICH
ERN: RETURN WEITER: _";.N3...40000..
3 ..W$."_".34900..3*..W$..G(13).34070. 3
4..50270..3T....3@.. GET KEY..3J..198,0.
T3T..W$:.W$."".40020.Z3^....4PC. SCHREIB
EN, FEHLER ABFRAGEN ETC...4.C.8,8,8: 8..
4.C...4.C 1: 15.A4 C.50050:.ST .128.BF$.
"BITTE FLOPPY EINSCHALTEN!":.50210:.5019
0..4.C.15,8,15:.15,"UI":.1,8,1,N$.",S,W"
..4.C.15,A,B$,C,D:.L4HC.A..0.BF$.D(A)."
".B$.D(C).D(D):.50210:.50200..4.C.I.0.LN
.1:.1,G(B(OA.I));:.: 1..4.C.15,A,B$,C,D.
.5.CBF$.D(A)." ".B$.D(C).D(D).(5.D.50210
.35.D.40000.@5.D 1: 15:..^5"DW.0:.PR,24,
3,".."BF$"..";.I5,D.40000.Z5@D.PR,24,3,"
";..5JD.I.0.C(BF$):." ";:...5TD...5^D. K
ERNTEIL SCHREIBEN.D5HDN$."JOYTAST.S".T5R
DOA.A1:LN.L1..5|D.50070..5.D....
> CLICK IMAGE PREVIEW FOR FULL MODAL