21.TRICKKISTE 2
FILE INFORMATION
FILENAME(S): 21.TRICKKISTE 2
FILE TYPE(S): PRG
FILE SIZE: 15.8K
FIRST SEEN: 2025-11-30 01:08:43
APPEARS ON: 2 disk(s)
FILE HASH
ab2ba06bfd85c7948a0956a00d6f844fde2b429df9a003e3905bb25bd0af96c8
FOUND ON DISKS (2 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| FREEWARE DISK NR | 21.TRICKKISTE 2 | PRG | Treasure Chest - Wolfgang Rauprich | 25 | 0 | DOWNLOAD FILE |
| U TILITIE | 21.TRICKKISTE 2 | PRG | Treasure Chest - Wolfgang Rauprich | 25 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 0B 08 0A 00 8D 34 38 39 30 00 33 08 63 00 |.......4890.3.c.|
00000010: 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 4D |.**************M|
00000020: 45 4E 55 45 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |ENUE************|
00000030: 2A 2A 2A 00 59 08 64 00 99 C7 28 31 34 37 29 3B |***.Y.d...(147);|
00000040: C7 28 31 34 32 29 3B 3A 97 35 33 32 38 30 2C 36 |.(142);:.53280,6|
00000050: 3A 97 35 33 32 38 31 2C 36 00 8C 08 65 00 99 22 |:.53281,6...e.."|
00000060: 92 90 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |.. |
00000070: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000080: 20 20 20 20 20 20 20 20 20 20 22 3B 00 BD 08 69 | ";...i|
00000090: 00 99 22 20 20 20 20 20 20 20 20 20 20 20 20 20 |.." |
000000A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000000B0: 20 20 20 20 20 20 20 20 20 20 20 22 3B 00 F3 08 | ";...|
000000C0: 6A 00 99 22 20 20 12 05 D5 C3 C9 92 20 20 12 D5 |j.." ...... ..|
000000D0: C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 |................|
000000E0: C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C9 92 20 20 20 20 |............ |
000000F0: 20 22 3B 00 28 09 6B 00 99 22 20 20 12 C2 31 C2 | ";.(.k.." ..1.|
00000100: 92 20 20 12 C2 2A 20 20 50 20 45 20 45 20 4B 20 |. ..* P E E K |
00000110: 2F 20 50 20 4F 20 4F 20 4B 20 45 20 53 20 2A C2 |/ P O O K E S *.|
00000120: 92 20 20 20 20 20 22 3B 00 5D 09 6C 00 99 22 20 |. ";.].l.." |
00000130: 20 12 CA C3 CB 92 20 20 12 CA C3 C3 C3 C3 C3 C3 | ..... ........|
00000140: C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 |................|
00000150: C3 C3 C3 C3 CB 92 20 20 20 20 20 22 3B 00 92 09 |...... ";...|
00000160: 6D 00 99 22 20 20 12 D5 C3 C9 92 20 20 12 D5 C3 |m.." ..... ...|
00000170: C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 |................|
00000180: C3 C3 C3 C3 C3 C3 C3 C3 C3 C9 92 20 20 20 20 20 |........... |
00000190: 22 3B 00 C7 09 6E 00 99 22 20 20 12 C2 32 C2 92 |";...n.." ..2..|
000001A0: 20 20 12 C2 2A 20 20 20 20 20 20 20 4C 49 53 54 | ..* LIST|
000001B0: 53 43 48 55 54 5A 20 20 20 20 20 20 20 2A C2 92 |SCHUTZ *..|
000001C0: 20 20 20 20 20 22 3B 00 FC 09 6F 00 99 22 20 20 | ";...o.." |
000001D0: 12 CA C3 CB 92 20 20 12 CA C3 C3 C3 C3 C3 C3 C3 |..... .........|
000001E0: C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 |................|
000001F0: C3 C3 C3 CB 92 20 20 20 20 20 22 3B 00 31 0A 70 |..... ";.1.p|
00000200: 00 99 22 20 20 12 D5 C3 C9 92 20 20 12 D5 C3 C3 |.." ..... ....|
00000210: C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 |................|
00000220: C3 C3 C3 C3 C3 C3 C3 C3 C9 92 20 20 20 20 20 22 |.......... "|
00000230: 3B 00 66 0A 71 00 99 22 20 20 12 C2 33 C2 92 20 |;.f.q.." ..3.. |
00000240: 20 12 C2 2A 20 44 49 53 4B 45 54 54 45 4E 2F 43 | ..* DISKETTEN/C|
00000250: 41 53 53 45 54 54 45 4E 54 49 50 20 2A C2 92 20 |ASSETTENTIP *.. |
00000260: 20 20 20 20 22 3B 00 9B 0A 72 00 99 22 20 20 12 | ";...r.." .|
00000270: CA C3 CB 92 20 20 12 CA C3 C3 C3 C3 C3 C3 C3 C3 |.... ..........|
00000280: C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 |................|
00000290: C3 C3 CB 92 20 20 20 20 20 22 3B 00 D0 0A 73 00 |.... ";...s.|
000002A0: 99 22 20 20 12 D5 C3 C9 92 20 20 12 D5 C3 C3 C3 |." ..... .....|
000002B0: C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 |................|
000002C0: C3 C3 C3 C3 C3 C3 C3 C9 92 20 20 20 20 20 22 3B |......... ";|
000002D0: 00 05 0B 74 00 99 22 20 20 12 C2 34 C2 92 20 20 |...t.." ..4.. |
000002E0: 12 C2 2A 20 20 20 20 20 20 20 53 4F 4E 53 54 49 |..* SONSTI|
000002F0: 47 45 53 20 20 20 20 20 20 20 20 2A C2 92 20 20 |GES *.. |
00000300: 20 20 20 22 3B 00 3A 0B 75 00 99 22 20 20 12 CA | ";.:.u.." ..|
00000310: C3 CB 92 20 20 12 CA C3 C3 C3 C3 C3 C3 C3 C3 C3 |... ...........|
00000320: C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 |................|
00000330: C3 CB 92 20 20 20 20 20 22 3B 00 46 0B 76 00 99 |... ";.F.v..|
00000340: 3A 99 3A 99 3A 99 00 73 0B 77 00 99 22 20 20 12 |:.:.:..s.w.." .|
00000350: B0 C3 AE 92 20 20 20 20 12 B0 C3 C3 C3 C3 C3 C3 |.... ........|
00000360: C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 |................|
00000370: AE 92 22 00 A0 0B 78 00 99 22 20 20 12 C2 35 C2 |.."...x.." ..5.|
00000380: 92 20 20 20 20 12 C2 2A 2A 2A 2A 50 52 4F 47 52 |. ..****PROGR|
00000390: 41 4D 4D 20 20 45 4E 44 45 2A 2A 2A 2A C2 92 22 |AMM ENDE****.."|
000003A0: 00 D4 0B 79 00 99 22 20 20 12 AD C3 BD 92 20 20 |...y.." ..... |
000003B0: 20 20 12 AD C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 | ..............|
000003C0: C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 BD 92 20 20 20 20 |............ |
000003D0: 20 20 20 22 00 04 0C 7A 00 99 22 20 20 20 20 20 | "...z.." |
000003E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000003F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000400: 20 20 22 3B 00 34 0C 7B 00 99 22 20 20 20 20 20 | ";.4.{.." |
00000410: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000420: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000430: 20 20 22 3B 00 65 0C 7C 00 99 22 20 20 20 20 20 | ";.e.|.." |
00000440: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000450: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000460: 20 20 20 22 3B 00 8C 0C 7D 00 8F 2A 2A 2A 2A 2A | ";...}..*****|
00000470: 2A 2A 2A 2A 4D 45 4E 55 45 2D 45 4E 44 45 2A 2A |****MENUE-ENDE**|
00000480: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 9B 0C 80 |************....|
00000490: 00 92 31 39 38 2C 31 3A A1 41 24 00 A1 0C C3 00 |..198,1:.A$.....|
000004A0: 8C 00 C9 0C C7 00 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A |.......*********|
000004B0: 2A 53 43 52 4F 4C 4C 49 4E 47 20 52 4F 55 54 49 |*SCROLLING ROUTI|
000004C0: 4E 45 2A 2A 2A 2A 2A 2A 2A 00 EB 0C C8 00 41 44 |NE*******.....AD|
000004D0: B2 34 39 31 35 32 3A 81 49 B2 30 A4 36 34 3A 87 |.49152:.I.0.64:.|
000004E0: 58 3A 97 41 44 AA 49 2C 58 3A 82 00 FD 0C C9 00 |X:.AD.I,X:......|
000004F0: 81 49 B2 31 A4 33 35 3A 9E 41 44 3A 82 00 47 0D |.I.1.35:.AD:..G.|
00000500: CA 00 83 31 36 39 2C 38 30 2C 31 33 33 2C 37 38 |...169,80,133,78|
00000510: 2C 31 33 33 2C 38 30 2C 31 36 39 2C 34 2C 31 33 |,133,80,169,4,13|
00000520: 33 2C 37 39 2C 31 36 39 2C 32 31 36 2C 31 33 33 |3,79,169,216,133|
00000530: 2C 38 31 2C 31 36 32 2C 32 33 2C 31 36 30 2C 31 |,81,162,23,160,1|
00000540: 2C 31 37 37 2C 37 38 00 92 0D CB 00 83 31 33 36 |,177,78......136|
00000550: 2C 31 34 35 2C 37 38 2C 32 30 30 2C 31 37 37 2C |,145,78,200,177,|
00000560: 38 30 2C 31 33 36 2C 31 34 35 2C 38 30 2C 32 30 |80,136,145,80,20|
00000570: 30 2C 32 30 30 2C 31 39 32 2C 34 30 2C 32 30 38 |0,200,192,40,208|
00000580: 2C 32 33 39 2C 32 34 2C 31 36 35 2C 37 38 2C 31 |,239,24,165,78,1|
00000590: 30 35 00 DA 0D CC 00 83 34 30 2C 31 33 33 2C 37 |05......40,133,7|
000005A0: 38 2C 31 36 35 2C 37 39 2C 31 30 35 2C 30 2C 31 |8,165,79,105,0,1|
000005B0: 33 33 2C 37 39 2C 32 34 2C 31 36 35 2C 38 30 2C |33,79,24,165,80,|
000005C0: 31 30 35 2C 34 30 2C 31 33 33 2C 38 30 2C 31 36 |105,40,133,80,16|
000005D0: 35 2C 38 31 2C 31 30 35 2C 30 00 F5 0D CD 00 83 |5,81,105,0......|
000005E0: 31 33 33 2C 38 31 2C 32 30 32 2C 32 30 38 2C 32 |133,81,202,208,2|
000005F0: 30 38 2C 39 36 00 17 0E CE 00 4C B2 35 34 32 39 |08,96.....L.5429|
00000600: 36 3A 81 58 B2 31 A4 32 35 3A 97 4C 2C 31 30 3A |6:.X.1.25:.L,10:|
00000610: 97 4C 2C 30 3A 82 58 00 34 0E D2 00 8B 41 24 B3 |.L,0:.X.4....A$.|
00000620: C7 28 34 39 29 B0 41 24 B1 C7 28 20 35 34 29 A7 |.(49).A$..( 54).|
00000630: 20 31 32 36 00 5D 0E D3 00 91 C6 28 41 24 29 AB | 126.].....(A$).|
00000640: 34 38 89 20 35 30 30 2C 31 30 30 30 2C 20 31 35 |48. 500,1000, 15|
00000650: 30 30 2C 20 32 30 30 30 2C 35 30 30 30 00 84 0E |00, 2000,5000...|
00000660: F3 01 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |...*************|
00000670: 50 45 45 4B 2F 50 4F 4F 4B 45 53 2A 2A 2A 2A 2A |PEEK/POOKES*****|
00000680: 2A 2A 2A 2A 00 8D 0E F4 01 99 22 93 22 00 BB 0E |****......"."...|
00000690: F6 01 99 22 12 20 20 20 20 20 20 50 20 45 20 45 |...". P E E|
000006A0: 20 4B 20 20 55 4E 44 20 20 50 20 4F 20 4F 20 4B | K UND P O O K|
000006B0: 20 45 20 53 20 20 20 20 20 31 22 00 E7 0E F8 01 | E S 1".....|
000006C0: 99 22 11 12 31 30 20 50 4F 4B 45 20 35 33 32 36 |."..10 POKE 5326|
000006D0: 35 2C 50 45 45 4B 20 28 35 33 32 36 35 29 20 41 |5,PEEK (53265) A|
000006E0: 4E 44 20 32 33 39 22 00 12 0F F9 01 99 22 12 32 |ND 239"......".2|
000006F0: 30 20 50 4F 4B 45 20 35 36 33 33 34 2C 50 45 45 |0 POKE 56334,PEE|
00000700: 4B 20 28 35 36 33 33 34 29 20 41 4E 44 20 32 35 |K (56334) AND 25|
00000710: 34 22 00 5D 0F FA 01 99 22 44 49 45 53 45 53 20 |4".]...."DIESES |
00000720: 50 52 4F 47 52 41 4D 4D 20 53 43 48 41 4C 54 45 |PROGRAMM SCHALTE|
00000730: 54 20 44 45 4E 20 56 49 43 20 55 4E 44 20 20 20 |T DEN VIC UND |
00000740: 20 44 49 45 20 49 53 52 20 41 42 20 55 4E 44 20 | DIE ISR AB UND |
00000750: 4D 41 43 48 54 20 53 4F 20 44 45 4E 22 00 A5 0F |MACHT SO DEN"...|
00000760: FB 01 99 22 43 2D 36 34 20 42 45 49 20 5A 45 49 |..."C-64 BEI ZEI|
00000770: 54 4B 52 49 54 49 53 43 48 45 4E 20 52 45 43 48 |TKRITISCHEN RECH|
00000780: 45 4E 4F 50 45 52 41 2D 20 20 20 20 54 49 4F 4E |ENOPERA- TION|
00000790: 45 4E 20 55 4D 20 31 30 25 20 53 43 48 4E 45 4C |EN UM 10% SCHNEL|
000007A0: 4C 45 52 2E 22 00 BF 0F FC 01 99 22 4E 4F 52 4D |LER."......"NORM|
000007B0: 41 4C 5A 55 53 54 41 4E 44 20 4D 49 54 3A 22 00 |ALZUSTAND MIT:".|
000007C0: E8 0F FD 01 99 22 12 31 30 20 50 4F 4B 45 20 35 |.....".10 POKE 5|
000007D0: 33 32 36 35 2C 50 45 45 4B 20 28 35 33 32 36 35 |3265,PEEK (53265|
000007E0: 29 20 4F 52 20 31 36 22 00 11 10 FE 01 99 22 12 |) OR 16"......".|
000007F0: 32 30 20 50 4F 4B 45 20 35 33 33 33 34 2C 50 45 |20 POKE 53334,PE|
00000800: 45 4B 20 28 35 36 33 33 34 29 20 4F 52 20 31 20 |EK (56334) OR 1 |
00000810: 22 00 3F 10 FF 01 99 22 3D 3D 3D 3D 3D 3D 3D 3D |".?...."========|
00000820: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================|
00000830: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 22 00 |==============".|
00000840: 7C 10 00 02 99 22 12 50 4F 4B 45 20 35 33 32 37 ||....".POKE 5327|
00000850: 31 2C 56 92 20 56 45 52 47 52 4F 45 53 53 45 52 |1,V. VERGROESSER|
00000860: 54 20 53 50 52 49 54 45 20 56 20 49 4E 20 20 20 |T SPRITE V IN |
00000870: 59 2D 52 49 43 48 54 55 4E 47 2E 22 00 B9 10 01 |Y-RICHTUNG."....|
00000880: 02 99 22 12 50 4F 4B 45 20 35 33 32 37 37 2C 56 |..".POKE 53277,V|
00000890: 92 20 56 45 52 47 52 4F 45 53 53 45 52 54 20 53 |. VERGROESSERT S|
000008A0: 50 52 49 54 45 20 56 20 49 4E 20 20 20 58 2D 52 |PRITE V IN X-R|
000008B0: 49 43 48 54 55 4E 47 2E 22 00 01 11 02 02 99 22 |ICHTUNG."......"|
000008C0: 12 50 4F 4B 45 20 35 33 32 37 35 2C 56 92 20 53 |.POKE 53275,V. S|
000008D0: 43 48 49 45 42 54 20 53 50 52 49 54 45 20 56 20 |CHIEBT SPRITE V |
000008E0: 49 4E 20 44 45 4E 20 20 20 20 42 49 4C 44 53 43 |IN DEN BILDSC|
000008F0: 48 49 52 4D 56 4F 52 44 45 52 47 52 55 4E 44 2E |HIRMVORDERGRUND.|
00000900: 22 00 2F 11 03 02 99 22 3D 3D 3D 3D 3D 3D 3D 3D |"./...."========|
00000910: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================|
00000920: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 22 00 |==============".|
00000930: 74 11 04 02 99 22 12 50 4F 4B 45 20 36 34 33 2C |t....".POKE 643,|
00000940: 30 3A 50 4F 4B 45 20 36 34 34 2C 31 32 38 3A 53 |0:POKE 644,128:S|
00000950: 59 53 20 36 34 37 36 34 92 20 20 20 20 20 20 20 |YS 64764. |
00000960: 53 45 54 5A 54 20 44 41 53 20 42 41 53 49 43 20 |SETZT DAS BASIC |
00000970: 52 41 4D 22 00 92 11 05 02 99 22 55 4D 20 38 20 |RAM"......"UM 8 |
00000980: 4B 42 59 54 45 20 4E 41 43 48 20 55 4E 54 45 4E |KBYTE NACH UNTEN|
00000990: 2E 22 00 C0 11 06 02 99 22 3D 3D 3D 3D 3D 3D 3D |."......"=======|
000009A0: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================|
000009B0: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 22 |==============="|
000009C0: 00 D8 11 08 02 97 31 39 38 2C 30 3A 92 36 35 33 |......198,0:.653|
000009D0: 2C 32 3A 8D 37 30 30 30 00 E1 11 0A 02 99 22 93 |,2:.7000......".|
000009E0: 22 00 0F 12 0C 02 99 22 12 20 20 20 20 20 20 50 |"......". P|
000009F0: 20 45 20 45 20 4B 20 20 55 4E 44 20 20 50 20 4F | E E K UND P O|
00000A00: 20 4F 20 4B 20 45 20 53 20 20 20 20 20 32 22 00 | O K E S 2".|
00000A10: 55 12 0E 02 99 22 11 12 50 4F 4B 45 20 36 34 31 |U...."..POKE 641|
00000A20: 2C 30 3A 50 4F 4B 45 20 36 34 32 2C 31 36 3A 53 |,0:POKE 642,16:S|
00000A30: 59 53 20 36 34 37 36 34 92 20 20 20 20 20 20 20 |YS 64764. |
00000A40: 20 53 45 54 5A 54 20 44 41 53 20 42 41 53 49 43 | SETZT DAS BASIC|
00000A50: 20 52 41 4D 22 00 72 12 0F 02 99 22 55 4D 20 32 | RAM".r...."UM 2|
00000A60: 20 4B 42 59 54 45 20 4E 41 43 48 20 4F 42 45 4E | KBYTE NACH OBEN|
00000A70: 2E 22 00 A0 12 10 02 99 22 3D 3D 3D 3D 3D 3D 3D |."......"=======|
00000A80: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================|
00000A90: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 22 |==============="|
00000AA0: 00 E3 12 12 02 99 22 12 50 4F 4B 45 20 35 33 32 |......".POKE 532|
00000AB0: 36 35 2C 35 39 92 20 53 43 48 41 4C 54 45 54 20 |65,59. SCHALTET |
00000AC0: 44 49 45 20 48 4F 43 48 41 55 46 4C 4F 45 2D 20 |DIE HOCHAUFLOE- |
00000AD0: 20 53 45 4E 44 45 20 47 52 41 46 49 4B 20 45 49 | SENDE GRAFIK EI|
00000AE0: 4E 2E 22 00 11 13 13 02 99 22 3D 3D 3D 3D 3D 3D |N."......"======|
00000AF0: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================|
00000B00: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================|
00000B10: 22 00 3C 13 15 02 99 22 4D 49 54 20 12 20 50 4F |".<...."MIT . PO|
00000B20: 4B 45 20 35 34 32 39 36 2C 30 92 20 4C 41 45 53 |KE 54296,0. LAES|
00000B30: 53 54 20 53 49 43 48 20 44 49 45 22 00 6A 13 16 |ST SICH DIE".j..|
00000B40: 02 99 22 54 4F 4E 41 55 53 47 41 42 45 20 44 45 |.."TONAUSGABE DE|
00000B50: 53 20 53 4F 55 4E 44 2D 43 48 49 50 53 20 41 42 |S SOUND-CHIPS AB|
00000B60: 53 43 48 41 4C 54 45 4E 2E 22 00 93 13 17 02 99 |SCHALTEN."......|
00000B70: 22 4D 49 54 20 12 20 50 4F 4B 45 20 35 34 32 39 |"MIT . POKE 5429|
00000B80: 36 2C 31 35 92 20 45 52 52 45 49 43 48 54 20 44 |6,15. ERREICHT D|
00000B90: 49 45 22 00 B3 13 18 02 99 22 4C 41 55 54 53 54 |IE"......"LAUTST|
00000BA0: 41 45 52 4B 45 20 49 48 52 20 4D 41 58 49 4D 55 |AERKE IHR MAXIMU|
00000BB0: 4D 2E 22 00 E1 13 1A 02 99 22 3D 3D 3D 3D 3D 3D |M."......"======|
00000BC0: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================|
00000BD0: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================|
00000BE0: 22 00 0D 14 1C 02 99 22 4D 49 54 20 12 20 50 4F |"......"MIT . PO|
00000BF0: 4B 45 20 32 30 35 30 2C 31 30 20 92 20 55 4E 44 |KE 2050,10 . UND|
00000C00: 20 44 45 52 20 45 49 4E 47 41 42 45 22 00 57 14 | DER EINGABE".W.|
00000C10: 1D 02 99 22 45 49 4E 45 52 20 5A 45 49 4C 45 4E |..."EINER ZEILEN|
00000C20: 4E 55 4D 4D 45 52 20 44 49 45 20 4E 49 43 48 54 |NUMMER DIE NICHT|
00000C30: 20 49 4D 20 42 41 53 49 43 20 20 20 50 52 4F 47 | IM BASIC PROG|
00000C40: 52 41 4D 4D 20 56 4F 52 4B 4F 4D 4D 54 2C 48 4F |RAMM VORKOMMT,HO|
00000C50: 4C 54 20 4D 41 4E 22 00 8F 14 1E 02 99 22 45 49 |LT MAN"......"EI|
00000C60: 4E 20 4D 49 54 20 52 45 53 45 54 20 47 45 4C 4F |N MIT RESET GELO|
00000C70: 45 53 43 48 54 45 53 20 50 52 4F 47 52 41 4D 4D |ESCHTES PROGRAMM|
00000C80: 20 20 20 20 20 20 5A 55 52 55 45 43 4B 2E 22 00 | ZURUECK.".|
00000C90: BD 14 20 02 99 22 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |.. .."==========|
00000CA0: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================|
00000CB0: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 22 00 08 15 |============"...|
00000CC0: 22 02 99 22 12 50 4F 4B 45 37 36 38 2C 31 34 35 |"..".POKE768,145|
00000CD0: 92 20 47 49 42 54 20 42 45 49 20 4A 45 44 45 4D |. GIBT BEI JEDEM|
00000CE0: 20 45 49 4E 47 45 47 45 42 45 20 20 20 20 4E 45 | EINGEGEBE NE|
00000CF0: 4E 20 42 45 46 45 48 4C 20 49 4D 20 44 49 52 45 |N BEFEHL IM DIRE|
00000D00: 4B 54 4D 4F 44 4F 53 22 00 48 15 23 02 99 22 4B |KTMODOS".H.#.."K|
00000D10: 45 49 4E 45 20 46 45 48 4C 45 52 4D 45 4C 44 55 |EINE FEHLERMELDU|
00000D20: 4E 47 20 4D 45 48 52 20 41 55 53 20 5A 2E 42 20 |NG MEHR AUS Z.B |
00000D30: 20 20 20 20 20 20 20 5B 50 4F 4B 45 20 37 30 30 | [POKE 700|
00000D40: 30 30 2C 33 30 30 5D 22 00 60 15 26 02 97 31 39 |00,300]".`.&..19|
00000D50: 38 2C 30 3A 92 36 35 33 2C 32 3A 8D 37 30 30 30 |8,0:.653,2:.7000|
00000D60: 00 69 15 27 02 99 22 93 22 00 97 15 28 02 99 22 |.i.'.."."...(.."|
00000D70: 12 20 20 20 20 20 20 50 20 45 20 45 20 4B 20 20 |. P E E K |
00000D80: 55 4E 44 20 20 50 20 4F 20 4F 20 4B 20 45 20 53 |UND P O O K E S|
00000D90: 20 20 20 20 20 33 22 00 C2 15 29 02 99 22 11 53 | 3"...)..".S|
00000DA0: 59 53 54 45 4D 4D 4D 45 4C 44 55 4E 47 20 5B 4C |YSTEMMMELDUNG [L|
00000DB0: 4F 41 44 2C 56 45 52 49 46 59 2C 55 2E 53 2E 57 |OAD,VERIFY,U.S.W|
00000DC0: 5D 22 00 EB 15 2A 02 99 22 11 12 50 4F 4B 45 20 |]"...*.."..POKE |
00000DD0: 31 35 37 2C 30 20 20 92 53 59 53 54 45 4D 4D 45 |157,0 .SYSTEMME|
00000DE0: 4C 44 55 4E 47 20 41 55 53 2E 22 00 13 16 2B 02 |LDUNG AUS."...+.|
00000DF0: 99 22 12 50 4F 4B 45 20 31 35 37 2C 31 32 38 92 |.".POKE 157,128.|
00000E00: 53 59 53 54 45 4D 4D 45 4C 44 55 4E 44 20 45 49 |SYSTEMMELDUND EI|
00000E10: 4E 2E 22 00 3C 16 2C 02 99 22 11 12 50 4F 4B 45 |N.".<.,.."..POKE|
00000E20: 20 37 36 38 2C 31 38 35 92 46 45 48 4C 45 52 4D | 768,185.FEHLERM|
00000E30: 45 4C 44 55 4E 47 20 41 55 53 2E 22 00 64 16 2D |ELDUNG AUS.".d.-|
00000E40: 02 99 22 12 50 4F 4B 45 20 37 36 38 2C 31 33 39 |..".POKE 768,139|
00000E50: 92 46 45 48 4C 45 52 4D 45 4C 44 55 4E 47 20 45 |.FEHLERMELDUNG E|
00000E60: 49 4E 2E 22 00 8D 16 2E 02 99 22 11 12 50 4F 4B |IN."......"..POK|
00000E70: 45 20 35 33 32 37 32 2C 32 32 92 4B 4C 45 49 4E |E 53272,22.KLEIN|
00000E80: 53 43 48 52 49 46 54 20 45 49 4E 2E 22 00 B5 16 |SCHRIFT EIN."...|
00000E90: 2F 02 99 22 12 50 4F 4B 45 20 35 33 32 37 32 2C |/..".POKE 53272,|
00000EA0: 32 31 92 4B 4C 45 49 4E 53 43 48 52 49 46 54 20 |21.KLEINSCHRIFT |
00000EB0: 41 55 53 2E 22 00 C8 16 30 02 99 22 11 55 4D 53 |AUS."...0..".UMS|
00000EC0: 43 48 41 4C 54 45 4E 22 00 E8 16 31 02 99 22 12 |CHALTEN"...1..".|
00000ED0: 50 4F 4B 45 20 31 2C 35 34 92 42 41 53 49 43 20 |POKE 1,54.BASIC |
00000EE0: 49 4E 53 20 52 41 4D 22 00 13 17 32 02 99 22 12 |INS RAM"...2..".|
00000EF0: 50 4F 4B 45 20 31 2C 35 33 92 42 41 53 49 43 20 |POKE 1,53.BASIC |
00000F00: 55 4E 44 20 4B 45 52 4E 41 4C 20 49 4E 53 20 52 |UND KERNAL INS R|
00000F10: 41 4D 22 00 42 17 33 02 99 22 12 50 4F 4B 45 20 |AM".B.3..".POKE |
00000F20: 31 2C 35 32 92 42 41 53 49 43 2D 4B 45 52 4E 41 |1,52.BASIC-KERNA|
00000F30: 4C 20 55 4E 44 20 49 2F 30 20 49 4E 53 20 52 41 |L UND I/0 INS RA|
00000F40: 4D 22 00 6C 17 34 02 99 22 12 50 4F 4B 45 20 31 |M".l.4..".POKE 1|
00000F50: 2C 35 31 92 42 4C 45 4E 44 45 54 20 5A 45 49 43 |,51.BLENDET ZEIC|
00000F60: 48 45 4E 53 41 54 5A 20 45 49 4E 22 00 90 17 36 |HENSATZ EIN"...6|
00000F70: 02 99 22 11 4E 55 52 20 49 4D 20 50 52 4F 47 52 |..".NUR IM PROGR|
00000F80: 41 4D 4D 20 4D 4F 45 47 4C 49 43 48 20 21 21 22 |AMM MOEGLICH !!"|
00000F90: 00 B3 17 37 02 99 22 12 50 4F 4B 45 20 35 36 33 |...7..".POKE 563|
00000FA0: 33 34 2C 30 92 49 4E 54 45 52 52 55 50 54 20 41 |34,0.INTERRUPT A|
00000FB0: 55 53 22 00 D6 17 38 02 99 22 12 50 4F 4B 45 20 |US"...8..".POKE |
00000FC0: 35 36 33 33 34 2C 31 92 49 4E 54 45 52 52 55 50 |56334,1.INTERRUP|
00000FD0: 54 20 45 49 4E 22 00 EE 17 E4 03 97 31 39 38 2C |T EIN"......198,|
00000FE0: 30 3A 92 36 35 33 2C 32 3A 8D 37 30 30 30 00 F7 |0:.653,2:.7000..|
00000FF0: 17 E5 03 89 31 30 30 00 1E 18 E6 03 8F 2A 2A 2A |....100......***|
00001000: 2A 2A 2A 2A 2A 2A 2A 2A 2A 50 45 45 4B 2F 50 4F |*********PEEK/PO|
00001010: 4F 4B 45 53 2D 45 4E 44 45 2A 2A 2A 2A 2A 00 45 |OKES-ENDE*****.E|
00001020: 18 E7 03 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |....************|
00001030: 4C 49 53 54 53 43 48 55 54 5A 2A 2A 2A 2A 2A 2A |LISTSCHUTZ******|
00001040: 2A 2A 2A 2A 2A 00 60 18 E8 03 99 22 93 22 3A 97 |*****.`....".":.|
00001050: 35 33 32 38 30 2C 35 3A 97 35 33 32 38 31 2C 31 |53280,5:.53281,1|
00001060: 00 92 18 F2 03 99 22 12 1F 20 20 20 20 20 20 20 |......".. |
00001070: 20 20 20 20 20 20 20 20 4C 49 53 54 53 43 48 55 | LISTSCHU|
00001080: 54 5A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |TZ |
00001090: 31 22 00 C0 18 F7 03 99 22 1D 1D 48 49 45 52 20 |1"......"..HIER |
000010A0: 45 49 4E 49 47 45 20 56 41 52 49 41 4E 54 45 4E |EINIGE VARIANTEN|
000010B0: 20 5A 55 4D 20 4C 49 53 54 53 43 48 55 54 5A 22 | ZUM LISTSCHUTZ"|
000010C0: 00 EF 18 FC 03 99 22 3D 3D 3D 3D 3D 3D 3D 3D 3D |......"=========|
000010D0: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================|
000010E0: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 22 00 |==============".|
000010F0: 34 19 01 04 99 22 12 50 4F 4B 45 20 37 36 38 2C |4....".POKE 768,|
00001100: 31 34 33 92 20 57 45 4E 4E 20 44 41 53 20 50 52 |143. WENN DAS PR|
00001110: 4F 47 52 41 4D 4D 20 44 41 53 20 20 20 20 20 20 |OGRAMM DAS |
00001120: 45 4E 44 45 20 4F 44 45 52 20 45 49 4E 45 4E 20 |ENDE ODER EINEN |
00001130: 45 4E 44 22 00 70 19 02 04 99 22 42 45 46 45 48 |END".p...."BEFEH|
00001140: 4C 20 45 52 48 41 45 4C 54 20 57 49 52 44 20 45 |L ERHAELT WIRD E|
00001150: 49 4E 20 52 45 53 45 54 20 20 20 20 20 20 20 20 |IN RESET |
00001160: 20 20 20 41 55 53 47 45 46 55 45 48 52 54 2E 22 | AUSGEFUEHRT."|
00001170: 00 AB 19 03 04 99 22 53 54 41 54 54 20 31 34 33 |......"STATT 143|
00001180: 20 4B 41 4E 4E 20 41 55 43 48 20 31 34 34 2F 31 | KANN AUCH 144/1|
00001190: 34 36 2F 31 34 38 20 45 49 4E 47 45 47 45 20 42 |46/148 EINGEGE B|
000011A0: 45 4E 20 57 45 52 44 45 4E 2E 22 00 DA 19 08 04 |EN WERDEN.".....|
000011B0: 99 22 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |."==============|
000011C0: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================|
000011D0: 3D 3D 3D 3D 3D 3D 3D 3D 3D 22 00 ED 19 09 04 99 |========="......|
000011E0: 22 12 50 4F 4B 45 20 37 37 34 2C 58 22 00 1A 1A |".POKE 774,X"...|
000011F0: 0B 04 99 22 12 58 3D 32 32 20 4F 44 45 52 20 32 |...".X=22 ODER 2|
00001200: 34 92 20 42 45 49 20 4C 49 53 54 20 57 49 52 44 |4. BEI LIST WIRD|
00001210: 20 44 41 53 20 50 52 4F 2D 22 00 3B 1A 0C 04 99 | DAS PRO-".;....|
00001220: 22 47 52 41 4D 4D 20 53 45 48 52 20 42 55 4E 54 |"GRAMM SEHR BUNT|
00001230: 20 47 45 4C 49 53 54 45 54 2E 22 00 7D 1A 0E 04 | GELISTET.".}...|
00001240: 99 22 12 58 3D 32 35 92 20 45 53 20 57 49 52 44 |.".X=25. ES WIRD|
00001250: 20 44 41 53 20 50 52 4F 47 52 41 4D 4D 20 47 45 | DAS PROGRAMM GE|
00001260: 4C 49 53 54 45 54 20 20 20 20 20 20 41 42 45 52 |LISTET ABER|
00001270: 20 44 49 45 20 42 45 46 45 48 4C 45 22 00 99 1A | DIE BEFEHLE"...|
00001280: 10 04 99 22 57 45 52 44 45 4E 20 41 55 53 47 45 |..."WERDEN AUSGE|
00001290: 54 41 55 53 43 48 54 2E 22 00 DA 1A 12 04 99 22 |TAUSCHT."......"|
000012A0: 12 58 3D 34 30 92 20 45 53 20 57 49 52 44 20 44 |.X=40. ES WIRD D|
000012B0: 41 53 20 50 52 4F 47 52 41 4D 4D 20 47 45 4C 49 |AS PROGRAMM GELI|
000012C0: 53 54 45 54 20 20 20 20 20 20 41 42 45 52 20 46 |STET ABER F|
000012D0: 55 45 52 20 4A 45 44 45 4E 22 00 F3 1A 13 04 99 |UER JEDEN"......|
000012E0: 22 42 45 46 45 48 4C 20 45 49 4E 20 12 4C 49 53 |"BEFEHL EIN .LIS|
000012F0: 54 92 22 00 38 1B 14 04 99 22 12 58 3D 35 30 20 |T.".8....".X=50 |
00001300: 42 49 53 20 35 36 92 20 45 53 20 57 49 52 44 20 |BIS 56. ES WIRD |
00001310: 45 49 4E 20 42 55 4E 54 45 53 20 4D 55 53 54 45 |EIN BUNTES MUSTE|
00001320: 52 20 20 20 47 45 4C 49 53 54 45 54 2C 44 49 45 |R GELISTET,DIE|
00001330: 53 45 53 20 49 53 54 22 00 59 1B 16 04 99 22 55 |SES IST".Y...."U|
00001340: 4E 41 42 48 41 45 4E 47 49 47 20 56 4F 4D 20 50 |NABHAENGIG VOM P|
00001350: 52 4F 47 52 41 4D 4D 2E 22 00 88 1B 17 04 99 22 |ROGRAMM."......"|
00001360: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================|
00001370: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================|
00001380: 3D 3D 3D 3D 3D 3D 3D 22 00 A0 1B 1F 04 97 31 39 |======="......19|
00001390: 38 2C 30 3A 92 36 35 33 2C 32 3A 8D 37 30 30 30 |8,0:.653,2:.7000|
000013A0: 00 A9 1B 21 04 99 22 93 22 00 DB 1B 23 04 99 22 |...!.."."...#.."|
000013B0: 12 1F 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |.. |
000013C0: 20 4C 49 53 54 53 43 48 55 54 5A 20 20 20 20 20 | LISTSCHUTZ |
000013D0: 20 20 20 20 20 20 20 20 20 32 22 00 22 1C 25 04 | 2".".%.|
000013E0: 99 22 12 50 4F 4B 45 20 37 38 38 2C 35 30 92 20 |.".POKE 788,50. |
000013F0: 48 49 45 52 20 57 49 52 44 20 52 55 4E 2F 53 54 |HIER WIRD RUN/ST|
00001400: 4F 50 20 20 20 20 20 20 20 20 20 20 42 4C 4F 4B |OP BLOK|
00001410: 49 45 52 54 2C 45 53 20 45 52 53 43 48 45 49 4E |IERT,ES ERSCHEIN|
00001420: 54 22 00 60 1C 27 04 99 22 4B 45 49 4E 20 43 55 |T".`.'.."KEIN CU|
00001430: 52 53 4F 52 20 55 4E 44 20 44 49 45 20 49 4E 54 |RSOR UND DIE INT|
00001440: 45 52 4E 45 20 55 48 52 20 2A 20 20 20 20 20 20 |ERNE UHR * |
00001450: 20 42 4C 45 49 42 54 20 53 54 45 48 45 4E 2E 22 | BLEIBT STEHEN."|
00001460: 00 7A 1C 29 04 99 22 20 2A 20 56 41 52 49 41 42 |.z.).." * VARIAB|
00001470: 4C 45 20 54 49 2C 54 49 24 22 00 A9 1C 2A 04 99 |LE TI,TI$"...*..|
00001480: 22 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |"===============|
00001490: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================|
000014A0: 3D 3D 3D 3D 3D 3D 3D 3D 22 00 F3 1C 2B 04 99 22 |========"...+.."|
000014B0: 45 49 4E 45 4E 20 52 45 43 48 54 20 47 55 54 45 |EINEN RECHT GUTE|
000014C0: 4E 20 4C 49 53 54 53 43 48 55 54 5A 20 45 52 48 |N LISTSCHUTZ ERH|
000014D0: 41 45 4C 54 20 20 20 20 4D 41 4E 2C 49 4E 44 45 |AELT MAN,INDE|
000014E0: 4D 20 41 4E 20 45 49 4E 45 20 50 52 4F 47 52 41 |M AN EINE PROGRA|
000014F0: 4D 4D 22 00 3B 1D 2D 04 99 22 5A 45 49 4C 45 20 |MM".;.-.."ZEILE |
00001500: 45 49 4E 45 4E 20 52 45 4D 2D 42 45 46 45 48 4C |EINEN REM-BEFEHL|
00001510: 20 41 4E 48 41 45 4E 47 54 20 55 4E 44 20 20 20 | ANHAENGT UND |
00001520: 20 20 44 41 48 49 4E 54 45 52 20 49 4E 20 41 4E | DAHINTER IN AN|
00001530: 46 55 45 48 52 55 4E 47 53 2D 22 00 84 1D 2F 04 |FUEHRUNGS-".../.|
00001540: 99 22 5A 45 49 43 48 45 4E 20 45 49 4E 45 20 52 |."ZEICHEN EINE R|
00001550: 45 49 48 45 20 52 45 56 45 52 53 45 52 20 5B 54 |EIHE REVERSER [T|
00001560: 5D 20 47 45 46 4F 4C 47 54 20 56 4F 4E 20 45 49 |] GEFOLGT VON EI|
00001570: 4E 45 4D 20 44 4F 50 50 45 4C 50 55 4E 4B 54 20 |NEM DOPPELPUNKT |
00001580: 55 4E 44 22 00 AB 1D 30 04 99 22 45 49 4E 45 4D |UND"...0.."EINEM|
00001590: 20 42 45 4C 49 45 42 49 47 45 4E 20 54 45 58 54 | BELIEBIGEN TEXT|
000015A0: 20 53 43 48 52 45 49 42 54 2E 22 00 BC 1D 31 04 | SCHREIBT."...1.|
000015B0: 99 22 12 42 45 49 53 50 49 45 4C 22 00 FE 1D 33 |.".BEISPIEL"...3|
000015C0: 04 99 22 12 31 30 20 50 52 49 4E 54 27 42 41 55 |..".10 PRINT'BAU|
000015D0: 4D 27 3A 52 45 4D 27 20 5B 31 39 20 52 45 56 45 |M':REM' [19 REVE|
000015E0: 52 53 45 20 54 5D 27 3A 92 20 20 20 20 12 31 30 |RSE T]':. .10|
000015F0: 20 50 52 49 4E 54 27 42 4C 55 4D 45 27 22 00 48 | PRINT'BLUME'".H|
00001600: 1E 35 04 99 22 57 45 4E 4E 20 44 49 45 53 45 53 |.5.."WENN DIESES|
00001610: 20 4B 4C 45 49 4E 45 20 50 52 4F 47 52 41 4D 4D | KLEINE PROGRAMM|
00001620: 20 47 45 53 54 41 52 54 45 54 20 20 20 57 49 52 | GESTARTET WIR|
00001630: 44 2C 53 43 48 52 45 49 42 54 20 44 45 52 20 43 |D,SCHREIBT DER C|
00001640: 4F 4D 50 55 54 45 52 22 00 89 1E 37 04 99 22 5B |OMPUTER"...7.."[|
00001650: 42 41 55 4D 5D 2C 42 45 49 4D 20 4C 49 53 54 45 |BAUM],BEIM LISTE|
00001660: 4E 20 5A 45 49 47 54 20 45 52 20 41 42 45 52 20 |N ZEIGT ER ABER |
00001670: 4E 55 52 20 20 20 20 5B 31 30 20 50 52 49 4E 54 |NUR [10 PRINT|
00001680: 20 27 42 4C 55 4D 45 27 5D 00 B8 1E 38 04 99 22 | 'BLUME']...8.."|
00001690: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================|
000016A0: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================|
000016B0: 3D 3D 3D 3D 3D 3D 3D 22 00 D0 1E 3A 04 97 31 39 |======="...:..19|
000016C0: 38 2C 30 3A 92 36 35 33 2C 32 3A 8D 37 30 30 30 |8,0:.653,2:.7000|
000016D0: 00 D9 1E 3B 04 99 22 93 22 00 0B 1F 3C 04 99 22 |...;.."."...<.."|
000016E0: 12 1F 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |.. |
000016F0: 20 4C 49 53 54 53 43 48 55 54 5A 20 20 20 20 20 | LISTSCHUTZ |
00001700: 20 20 20 20 20 20 20 20 20 33 22 00 4E 1F 42 04 | 3".N.B.|
00001710: 99 22 11 45 49 4E 45 20 57 45 49 54 45 52 45 20 |.".EINE WEITERE |
00001720: 49 4E 54 45 52 45 53 53 41 4E 54 45 20 56 41 52 |INTERESSANTE VAR|
00001730: 49 41 4E 54 45 2C 20 20 20 20 20 53 45 49 4E 45 |IANTE, SEINE|
00001740: 20 50 52 4F 47 52 41 4D 4D 45 20 5A 55 22 00 72 | PROGRAMME ZU".r|
00001750: 1F 43 04 99 22 53 43 48 55 45 54 5A 45 4E 20 46 |.C.."SCHUETZEN F|
00001760: 4F 4C 47 54 20 4E 41 43 48 53 54 45 48 45 4E 44 |OLGT NACHSTEHEND|
00001770: 2E 22 00 BD 1F 45 04 99 22 57 49 43 48 54 49 47 |."...E.."WICHTIG|
00001780: 20 48 49 45 52 42 45 49 20 49 53 54 2C 44 41 53 | HIERBEI IST,DAS|
00001790: 53 20 41 4C 4C 45 20 5A 45 49 4C 45 4E 2C 20 20 |S ALLE ZEILEN, |
000017A0: 20 44 49 45 20 53 50 41 45 54 45 52 20 4E 49 43 | DIE SPAETER NIC|
000017B0: 48 54 20 4D 45 48 52 20 41 55 46 2D 22 00 06 20 |HT MEHR AUF-".. |
000017C0: 46 04 99 22 47 45 4C 49 53 54 45 54 20 57 45 52 |F.."GELISTET WER|
000017D0: 44 45 4E 20 53 4F 4C 4C 45 4E 2C 4E 41 43 48 20 |DEN SOLLEN,NACH |
000017E0: 46 4F 4C 47 45 4E 45 4E 20 20 20 20 53 43 48 45 |FOLGENEN SCHE|
000017F0: 4D 41 20 45 49 4E 47 45 47 45 42 45 4E 20 57 45 |MA EINGEGEBEN WE|
00001800: 52 44 45 4E 2E 22 00 24 20 47 04 99 22 12 31 30 |RDEN.".$ G..".10|
00001810: 20 3A 3A 3A 3A 3A 20 50 52 49 4E 54 27 48 41 4C | ::::: PRINT'HAL|
00001820: 4C 4F 27 22 00 6A 20 48 04 99 22 4E 41 43 48 20 |LO'".j H.."NACH |
00001830: 45 49 4E 47 41 42 45 20 44 45 52 20 5A 45 49 4C |EINGABE DER ZEIL|
00001840: 45 4E 4E 55 4D 4D 45 52 20 46 4F 4C 47 45 4E 20 |ENNUMMER FOLGEN |
00001850: 35 20 20 44 4F 50 50 45 4C 50 55 4E 4B 54 45 2C |5 DOPPELPUNKTE,|
00001860: 53 4F 57 49 45 20 44 49 45 22 00 87 20 49 04 99 |SOWIE DIE".. I..|
00001870: 22 45 49 47 45 4E 44 4C 49 43 48 45 4E 20 42 45 |"EIGENDLICHEN BE|
00001880: 46 45 48 4C 45 2E 22 00 D0 20 4A 04 99 22 57 45 |FEHLE.".. J.."WE|
00001890: 4E 4E 20 4E 55 4E 20 44 41 53 20 46 4F 4C 47 45 |NN NUN DAS FOLGE|
000018A0: 4E 44 45 20 50 52 4F 47 52 41 4D 4D 20 41 4E 20 |NDE PROGRAMM AN |
000018B0: 44 41 53 20 20 20 5A 55 20 53 43 48 55 45 54 5A |DAS ZU SCHUETZ|
000018C0: 45 4E 44 45 20 41 4E 47 45 48 41 45 4E 47 54 22 |ENDE ANGEHAENGT"|
000018D0: 00 19 21 4B 04 99 22 57 49 52 44 20 55 4E 44 20 |..!K.."WIRD UND |
000018E0: 4D 49 54 20 52 55 4E 20 35 30 30 30 30 20 47 45 |MIT RUN 50000 GE|
000018F0: 53 54 41 52 54 45 54 2C 20 20 20 20 20 20 20 45 |STARTET, E|
00001900: 52 53 43 48 45 49 4E 54 20 4E 41 43 48 20 44 45 |RSCHEINT NACH DE|
00001910: 4D 20 4C 49 53 54 45 4E 22 00 3B 21 4C 04 99 22 |M LISTEN".;!L.."|
00001920: 4E 55 52 20 4E 4F 43 48 20 44 49 45 20 5A 45 49 |NUR NOCH DIE ZEI|
00001930: 4C 45 4E 4E 55 4D 4D 45 52 2E 22 00 53 21 4E 04 |LENNUMMER.".S!N.|
00001940: 97 31 39 38 2C 30 3A 92 36 35 33 2C 32 3A 8D 37 |.198,0:.653,2:.7|
00001950: 30 30 30 00 5C 21 4F 04 99 22 93 22 00 8E 21 50 |000.\!O.."."..!P|
00001960: 04 99 22 12 1F 20 20 20 20 20 20 20 20 20 20 20 |..".. |
00001970: 20 20 20 20 4C 49 53 54 53 43 48 55 54 5A 20 20 | LISTSCHUTZ |
00001980: 20 20 20 20 20 20 20 20 20 20 20 20 34 22 00 D7 | 4"..|
00001990: 21 52 04 99 22 11 12 35 30 30 30 30 20 46 4F 52 |!R.."..50000 FOR|
000019A0: 58 3D 50 45 45 4B 28 34 34 29 2A 32 35 36 2B 50 |X=PEEK(44)*256+P|
000019B0: 45 45 4B 28 34 33 29 54 4F 92 20 20 20 20 20 20 |EEK(43)TO. |
000019C0: 12 50 45 45 4B 28 34 36 29 2A 32 35 36 2B 50 45 |.PEEK(46)*256+PE|
000019D0: 45 4B 28 34 35 29 22 00 23 22 53 04 99 22 11 12 |EK(45)".#"S.."..|
000019E0: 35 30 30 30 35 20 49 46 20 50 45 45 4B 28 58 29 |50005 IF PEEK(X)|
000019F0: 3D 35 38 41 4E 44 50 45 45 4B 28 58 2B 31 29 3D |=58ANDPEEK(X+1)=|
00001A00: 35 38 41 4E 44 92 20 20 20 12 50 45 45 4B 28 58 |58AND. .PEEK(X|
00001A10: 2B 32 29 3D 35 38 41 4E 44 50 45 45 4B 28 58 2B |+2)=58ANDPEEK(X+|
00001A20: 33 29 22 00 4F 22 54 04 99 22 12 3D 35 38 41 4E |3)".O"T..".=58AN|
00001A30: 44 50 45 45 4B 28 58 2B 34 29 3D 35 38 54 48 45 |DPEEK(X+4)=58THE|
00001A40: 4E 50 4F 4B 45 58 2C 30 3A 58 3D 58 2B 34 22 00 |NPOKEX,0:X=X+4".|
00001A50: 63 22 55 04 99 22 11 12 35 30 30 31 30 20 4E 45 |c"U.."..50010 NE|
00001A60: 58 54 22 00 AE 22 56 04 99 22 11 11 11 44 49 45 |XT".."V.."...DIE|
00001A70: 53 45 53 20 50 52 4F 47 52 41 4D 4D 20 57 41 4E |SES PROGRAMM WAN|
00001A80: 44 45 4C 54 20 44 45 4E 20 45 52 53 54 45 4E 20 |DELT DEN ERSTEN |
00001A90: 20 20 20 20 20 44 4F 50 50 45 4C 50 55 4E 4B 54 | DOPPELPUNKT|
00001AA0: 20 49 4E 20 45 49 4E 45 20 30 20 55 4D 22 00 F2 | IN EINE 0 UM"..|
00001AB0: 22 57 04 99 22 56 4F 4E 20 44 45 52 20 4C 49 53 |"W.."VON DER LIS|
00001AC0: 54 52 4F 55 54 49 4E 45 20 57 49 52 44 20 44 49 |TROUTINE WIRD DI|
00001AD0: 45 53 45 20 30 20 44 41 4E 4E 20 20 20 41 4C 53 |ESE 0 DANN ALS|
00001AE0: 20 5A 45 49 4C 45 4E 4D 41 52 4B 49 45 52 55 4E | ZEILENMARKIERUN|
00001AF0: 47 22 00 1E 23 58 04 99 22 45 52 4B 41 4E 4E 54 |G"..#X.."ERKANNT|
00001B00: 20 55 4E 44 20 42 45 49 4D 20 4C 49 53 54 45 4E | UND BEIM LISTEN|
00001B10: 20 55 45 42 45 52 47 41 4E 47 45 4E 2E 22 00 36 | UEBERGANGEN.".6|
00001B20: 23 59 04 97 31 39 38 2C 30 3A 92 36 35 33 2C 32 |#Y..198,0:.653,2|
00001B30: 3A 8D 37 30 30 30 00 3F 23 5A 04 99 22 93 22 00 |:.7000.?#Z..".".|
00001B40: 71 23 5B 04 99 22 12 1F 20 20 20 20 20 20 20 20 |q#[..".. |
00001B50: 20 20 20 20 20 20 20 4C 49 53 54 53 43 48 55 54 | LISTSCHUT|
00001B60: 5A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 35 |Z 5|
00001B70: 22 00 BB 23 60 04 99 22 11 4D 49 54 20 46 4F 4C |"..#`..".MIT FOL|
00001B80: 47 45 4E 44 45 4E 20 50 52 4F 47 52 41 4D 4D 20 |GENDEN PROGRAMM |
00001B90: 4B 41 4E 4E 20 4D 41 4E 20 44 45 4E 20 20 20 20 |KANN MAN DEN |
00001BA0: 20 4C 49 53 54 53 43 48 55 54 5A 20 57 49 45 44 | LISTSCHUTZ WIED|
00001BB0: 45 52 20 4B 4E 41 43 4B 45 4E 22 00 04 24 62 04 |ER KNACKEN"..$b.|
00001BC0: 99 22 11 12 35 30 30 30 30 20 46 4F 52 58 3D 50 |."..50000 FORX=P|
00001BD0: 45 45 4B 28 34 34 29 2A 32 35 36 2B 50 45 45 4B |EEK(44)*256+PEEK|
00001BE0: 28 34 33 29 54 4F 92 20 20 20 20 20 20 12 50 45 |(43)TO. .PE|
00001BF0: 45 4B 28 34 36 29 2A 32 35 36 2B 50 45 45 4B 28 |EK(46)*256+PEEK(|
00001C00: 34 35 29 22 00 47 24 63 04 99 22 11 12 35 30 30 |45)".G$c.."..500|
00001C10: 30 35 20 49 46 50 45 45 4B 28 58 29 3D 30 41 4E |05 IFPEEK(X)=0AN|
00001C20: 44 50 45 45 4B 28 58 2B 31 29 3D 35 38 41 4E 44 |DPEEK(X+1)=58AND|
00001C30: 92 20 20 20 20 20 12 50 45 45 4B 28 58 2B 33 29 |. .PEEK(X+3)|
00001C40: 3D 35 38 41 4E 44 22 00 6E 24 64 04 99 22 12 50 |=58AND".n$d..".P|
00001C50: 45 45 4B 28 58 2B 34 29 3D 35 38 54 48 45 4E 50 |EEK(X+4)=58THENP|
00001C60: 4F 4B 45 58 2C 35 38 3A 58 3D 58 2B 34 22 00 82 |OKEX,58:X=X+4"..|
00001C70: 24 65 04 99 22 11 12 35 30 30 31 30 20 4E 45 58 |$e.."..50010 NEX|
00001C80: 54 22 00 AD 24 6A 04 99 22 11 4E 41 43 48 20 41 |T"..$j..".NACH A|
00001C90: 42 4C 41 55 46 20 44 49 45 53 45 52 20 52 4F 55 |BLAUF DIESER ROU|
00001CA0: 54 49 4E 45 20 49 53 54 20 44 45 52 22 00 D8 24 |TINE IST DER"..$|
00001CB0: 6B 04 99 22 55 52 53 50 52 55 4E 47 53 5A 55 53 |k.."URSPRUNGSZUS|
00001CC0: 54 41 4E 44 20 57 49 45 44 45 52 20 48 45 52 47 |TAND WIEDER HERG|
00001CD0: 45 53 54 45 4C 4C 54 22 00 06 25 6C 04 99 22 3D |ESTELLT"..%l.."=|
00001CE0: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================|
00001CF0: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================|
00001D00: 3D 3D 3D 3D 3D 22 00 35 25 6D 04 99 22 12 50 4F |=====".5%m..".PO|
00001D10: 4B 45 38 31 38 2C 32 32 36 3A 50 4F 4B 45 20 38 |KE818,226:POKE 8|
00001D20: 31 39 2C 32 32 35 92 53 41 56 45 20 42 4C 4F 4B |19,225.SAVE BLOK|
00001D30: 49 45 52 54 22 00 62 25 6E 04 99 22 12 50 4F 4B |IERT".b%n..".POK|
00001D40: 45 38 31 38 2C 32 33 37 3A 50 4F 4B 45 20 38 31 |E818,237:POKE 81|
00001D50: 39 2C 32 34 35 92 53 41 56 45 20 4E 4F 52 4D 41 |9,245.SAVE NORMA|
00001D60: 4C 22 00 7A 25 AB 05 97 31 39 38 2C 30 3A 92 36 |L".z%...198,0:.6|
00001D70: 35 33 2C 32 3A 8D 37 30 30 30 00 83 25 AC 05 89 |53,2:.7000..%...|
00001D80: 31 30 30 00 A9 25 AD 05 8F 2A 2A 2A 2A 2A 4C 49 |100..%...*****LI|
00001D90: 53 54 53 43 48 55 54 5A 2D 45 4E 44 45 2A 2A 2A |STSCHUTZ-ENDE***|
00001DA0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 CF 25 DB 05 8F 2A |*********..%...*|
00001DB0: 2A 2A 44 49 53 4B 45 54 54 45 4E 2F 43 41 53 53 |**DISKETTEN/CASS|
00001DC0: 45 54 54 45 4E 54 49 50 2A 2A 2A 2A 2A 2A 2A 00 |ETTENTIP*******.|
00001DD0: D8 25 DC 05 99 22 93 22 00 08 26 DE 05 99 22 12 |.%..."."..&...".|
00001DE0: 20 20 20 20 20 20 44 49 53 4B 45 54 54 45 4E 20 | DISKETTEN |
00001DF0: 55 4E 44 20 43 41 53 53 45 54 54 45 4E 54 49 50 |UND CASSETTENTIP|
00001E00: 53 20 20 20 20 20 31 22 00 34 26 E0 05 99 22 11 |S 1".4&...".|
00001E10: 4E 41 43 48 4C 41 44 45 4E 20 56 4F 4E 20 55 4E |NACHLADEN VON UN|
00001E20: 54 45 52 50 52 4F 47 52 41 4D 4D 45 4E 20 44 55 |TERPROGRAMMEN DU|
00001E30: 52 43 48 22 00 7D 26 E1 05 99 22 12 50 4F 4B 45 |RCH".}&...".POKE|
00001E40: 31 38 36 2C 31 3A 50 4F 4B 45 37 38 30 2C 30 3A |186,1:POKE780,0:|
00001E50: 50 4F 4B 45 37 38 31 2C 30 3A 50 4F 4B 45 37 38 |POKE781,0:POKE78|
00001E60: 32 2C 92 20 20 12 39 36 3A 50 4F 4B 45 31 38 33 |2,. .96:POKE183|
00001E70: 2C 30 3A 53 59 53 20 36 35 34 39 33 22 00 AB 26 |,0:SYS 65493"..&|
00001E80: E2 05 99 22 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |..."============|
00001E90: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================|
00001EA0: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 22 00 F0 26 E9 05 |=========="..&..|
00001EB0: 99 22 4D 49 54 20 46 4F 4C 47 45 4E 44 45 4E 20 |."MIT FOLGENDEN |
00001EC0: 50 52 4F 47 52 41 4D 4D 20 4C 41 45 53 53 54 20 |PROGRAMM LAESST |
00001ED0: 53 49 43 48 20 44 49 45 20 20 4C 41 44 45 41 44 |SICH DIE LADEAD|
00001EE0: 52 45 53 53 45 20 45 49 4E 45 53 20 41 55 46 22 |RESSE EINES AUF"|
00001EF0: 00 2D 27 EA 05 99 22 44 49 53 4B 45 54 54 45 20 |.-'..."DISKETTE |
00001F00: 47 45 53 50 45 49 43 48 45 52 54 45 4E 20 50 52 |GESPEICHERTEN PR|
00001F10: 4F 47 52 41 4D 4D 45 53 20 20 20 20 20 20 20 48 |OGRAMMES H|
00001F20: 45 52 41 55 53 46 49 4E 44 45 4E 2E 22 00 5C 27 |ERAUSFINDEN.".\'|
00001F30: EB 05 99 22 12 32 30 20 41 3D 41 53 43 28 41 24 |...".20 A=ASC(A$|
00001F40: 2B 43 48 52 24 28 30 29 29 3A 42 3D 41 53 43 28 |+CHR$(0)):B=ASC(|
00001F50: 42 24 2B 43 48 52 24 28 30 29 29 22 00 7F 27 EC |B$+CHR$(0))"..'.|
00001F60: 05 99 22 12 33 30 20 3F 27 53 54 41 52 54 41 44 |..".30 ?'STARTAD|
00001F70: 52 45 53 53 45 3D 27 41 2B 32 35 36 2A 42 22 00 |RESSE='A+256*B".|
00001F80: AD 27 ED 05 99 22 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |.'..."==========|
00001F90: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================|
00001FA0: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 22 00 F0 27 |============"..'|
00001FB0: EE 05 99 22 4D 45 48 45 52 45 20 50 52 4F 47 52 |..."MEHERE PROGR|
00001FC0: 41 4D 4D 45 20 4B 41 4E 4E 20 4D 41 4E 20 41 55 |AMME KANN MAN AU|
00001FD0: 46 20 45 49 4E 45 4E 20 20 20 20 20 53 43 48 4C |F EINEN SCHL|
00001FE0: 41 47 20 4C 4F 45 53 43 48 45 4E 20 4D 49 54 22 |AG LOESCHEN MIT"|
00001FF0: 00 28 28 EF 05 99 22 12 50 52 49 4E 54 23 31 35 |.((...".PRINT#15|
00002000: 2C 20 27 53 4F 3A 50 52 4F 47 52 41 4D 4D 31 2C |, 'SO:PROGRAMM1,|
00002010: 50 52 4F 47 52 41 4D 4D 32 2C 92 20 20 20 20 20 |PROGRAMM2,. |
00002020: 20 12 55 2E 53 2E 57 22 00 56 28 F0 05 99 22 3D | .U.S.W".V(..."=|
00002030: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================|
00002040: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================|
00002050: 3D 3D 3D 3D 3D 22 00 9F 28 F2 05 99 22 45 53 20 |====="..(..."ES |
00002060: 4B 41 4E 4E 20 56 4F 52 4B 4F 4D 4D 45 4E 2C 44 |KANN VORKOMMEN,D|
00002070: 41 53 20 54 52 4F 54 5A 20 4D 45 48 52 46 41 43 |AS TROTZ MEHRFAC|
00002080: 48 45 52 20 20 56 45 52 53 55 43 48 45 20 42 45 |HER VERSUCHE BE|
00002090: 49 4D 20 41 42 53 50 45 49 43 48 45 52 4E 22 00 |IM ABSPEICHERN".|
000020A0: E8 28 F4 05 99 22 48 49 4E 54 45 52 48 45 52 20 |.(..."HINTERHER |
000020B0: 4E 49 43 48 54 53 20 41 55 46 20 44 45 52 20 4B |NICHTS AUF DER K|
000020C0: 41 53 53 45 54 54 45 20 53 54 45 48 54 20 41 42 |ASSETTE STEHT AB|
000020D0: 48 49 4C 46 45 20 42 52 49 4E 47 54 20 12 50 4F |HILFE BRINGT .PO|
000020E0: 4B 45 20 30 2C 34 37 22 00 00 29 FA 05 97 31 39 |KE 0,47"..)...19|
000020F0: 38 2C 30 3A 92 36 35 33 2C 32 3A 8D 37 30 30 30 |8,0:.653,2:.7000|
00002100: 00 09 29 00 06 99 22 93 22 00 39 29 02 06 99 22 |..)...".".9)..."|
00002110: 12 20 20 20 20 20 20 44 49 53 4B 45 54 54 45 4E |. DISKETTEN|
00002120: 20 55 4E 44 20 43 41 53 53 45 54 54 45 4E 54 49 | UND CASSETTENTI|
00002130: 50 53 20 20 20 20 20 32 22 00 80 29 04 06 99 22 |PS 2"..)..."|
00002140: 11 57 45 4E 4E 20 42 45 49 4D 20 41 55 46 54 52 |.WENN BEIM AUFTR|
00002150: 45 54 45 4E 20 45 49 4E 45 53 20 46 45 48 4C 45 |ETEN EINES FEHLE|
00002160: 52 53 20 44 49 45 20 20 20 52 4F 54 45 20 4C 45 |RS DIE ROTE LE|
00002170: 55 43 48 54 44 49 4F 44 45 20 4E 49 43 48 54 22 |UCHTDIODE NICHT"|
00002180: 00 AD 29 06 06 99 22 45 52 4C 49 53 43 48 54 2C |..)..."ERLISCHT,|
00002190: 4B 41 4E 4E 20 4D 41 4E 20 44 49 45 53 20 4D 49 |KANN MAN DIES MI|
000021A0: 54 20 44 45 4D 20 42 45 46 45 48 4C 22 00 C5 29 |T DEM BEFEHL"..)|
000021B0: 08 06 99 22 12 31 30 20 4F 50 45 4E 20 31 35 2C |...".10 OPEN 15,|
000021C0: 38 2C 31 35 22 00 DB 29 0A 06 99 22 12 32 30 20 |8,15"..)...".20 |
000021D0: 49 4E 50 55 54 20 41 2C 42 24 22 00 FB 29 0C 06 |INPUT A,B$"..)..|
000021E0: 99 22 12 33 30 20 43 4C 4F 53 45 20 31 35 92 20 |.".30 CLOSE 15. |
000021F0: 45 52 52 45 49 43 48 45 4E 2E 22 00 29 2A 10 06 |ERREICHEN.".)*..|
00002200: 99 22 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |."==============|
00002210: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================|
00002220: 3D 3D 3D 3D 3D 3D 3D 3D 22 00 6F 2A 1A 06 99 22 |========".o*..."|
00002230: 4D 49 54 20 46 4F 4C 47 45 4E 44 45 52 20 52 4F |MIT FOLGENDER RO|
00002240: 55 54 49 4E 45 20 4B 41 4E 4E 20 4D 41 4E 20 44 |UTINE KANN MAN D|
00002250: 49 45 20 20 20 20 20 20 44 41 54 41 53 45 54 54 |IE DATASETT|
00002260: 45 20 41 4C 53 20 4E 4F 52 4D 41 4C 45 4E 22 00 |E ALS NORMALEN".|
00002270: 93 2A 1C 06 99 22 4B 41 53 53 45 54 54 45 4E 52 |.*..."KASSETTENR|
00002280: 45 43 4F 52 44 45 52 20 42 45 54 52 45 49 42 45 |ECORDER BETREIBE|
00002290: 4E 2E 22 00 CA 2A 1E 06 99 22 12 31 30 20 46 4F |N."..*...".10 FO|
000022A0: 52 49 3D 34 39 31 35 32 20 54 4F 20 34 39 31 37 |RI=49152 TO 4917|
000022B0: 38 3A 52 45 41 44 41 3A 50 4F 4B 45 49 2C 41 3A |8:READA:POKEI,A:|
000022C0: 92 20 20 20 12 4E 45 58 54 22 00 DF 2A 1F 06 99 |. .NEXT"..*...|
000022D0: 22 12 32 30 20 53 59 53 20 34 39 31 35 32 22 00 |".20 SYS 49152".|
000022E0: 0E 2B 20 06 99 22 12 33 30 20 44 41 54 41 20 31 |.+ ..".30 DATA 1|
000022F0: 37 33 2C 31 34 32 2C 32 2C 32 34 30 2C 31 2C 39 |73,142,2,240,1,9|
00002300: 36 2C 31 37 33 2C 31 33 2C 32 32 30 2C 22 00 3C |6,173,13,220,".<|
00002310: 2B 21 06 99 22 12 34 31 2C 31 36 2C 32 34 30 2C |+!..".41,16,240,|
00002320: 37 2C 31 36 39 2C 31 35 2C 31 34 31 2C 32 34 2C |7,169,15,141,24,|
00002330: 32 31 32 2C 31 34 34 2C 32 33 36 22 00 65 2B 22 |212,144,236".e+"|
00002340: 06 99 22 12 34 30 20 44 41 54 41 20 31 36 39 2C |..".40 DATA 169,|
00002350: 30 2C 31 34 31 2C 32 34 2C 32 31 32 2C 31 34 34 |0,141,24,212,144|
00002360: 2C 32 32 39 22 00 93 2B 23 06 99 22 3D 3D 3D 3D |,229"..+#.."====|
00002370: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================|
00002380: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================|
00002390: 3D 3D 22 00 AB 2B 26 06 97 31 39 38 2C 30 3A 92 |=="..+&..198,0:.|
000023A0: 36 35 33 2C 32 3A 8D 37 30 30 30 00 B4 2B 27 06 |653,2:.7000..+'.|
000023B0: 99 22 93 22 00 E4 2B 28 06 99 22 12 20 20 20 20 |."."..+(..". |
000023C0: 20 20 44 49 53 4B 45 54 54 45 4E 20 55 4E 44 20 | DISKETTEN UND |
000023D0: 43 41 53 53 45 54 54 45 4E 54 49 50 53 20 20 20 |CASSETTENTIPS |
000023E0: 20 20 33 22 00 20 2C 2A 06 99 22 11 12 4C 4F 41 | 3". ,*.."..LOA|
000023F0: 44 20 27 24 24 27 2C 38 20 92 20 4D 45 4C 44 55 |D '$$',8 . MELDU|
00002400: 4E 47 20 4E 55 52 20 44 45 52 20 46 52 45 49 45 |NG NUR DER FREIE|
00002410: 4E 20 20 20 20 20 20 42 4C 4F 45 43 4B 45 2E 22 |N BLOECKE."|
00002420: 00 59 2C 2B 06 99 22 12 4C 4F 41 44 20 27 24 53 |.Y,+..".LOAD '$S|
00002430: 27 2C 38 20 92 20 44 49 52 45 43 54 4F 52 59 20 |',8 . DIRECTORY |
00002440: 45 52 53 43 48 45 49 4E 54 20 4F 42 45 4E 20 20 |ERSCHEINT OBEN |
00002450: 20 20 4C 49 4E 4B 53 2E 22 00 9E 2C 2C 06 99 22 | LINKS."..,,.."|
00002460: 12 4C 4F 41 44 20 27 24 43 4C 52 2F 48 4F 4D 45 |.LOAD '$CLR/HOME|
00002470: 27 2C 38 92 42 49 4C 44 53 43 48 49 52 4D 20 4C |',8.BILDSCHIRM L|
00002480: 4F 45 53 43 48 45 4E 20 20 20 20 44 49 52 45 43 |OESCHEN DIREC|
00002490: 54 4F 52 59 20 47 45 4C 41 44 45 4E 2E 22 00 E1 |TORY GELADEN."..|
000024A0: 2C 2E 06 99 22 12 4C 4F 41 44 20 27 23 27 2C 38 |,...".LOAD '#',8|
000024B0: 20 92 20 4C 4F 45 53 43 48 54 20 44 41 53 20 42 | . LOESCHT DAS B|
000024C0: 4C 49 4E 4B 45 4E 20 44 45 53 20 20 20 20 20 20 |LINKEN DES |
000024D0: 52 4F 54 45 4E 20 4C 41 45 4D 50 43 48 45 4E 53 |ROTEN LAEMPCHENS|
000024E0: 22 00 FC 2C 2F 06 99 22 12 1F 4E 55 52 20 44 52 |"..,/.."..NUR DR|
000024F0: 45 43 4B 54 4D 4F 44 55 53 90 92 22 00 46 2D 30 |ECKTMODUS..".F-0|
00002500: 06 99 22 12 4C 4F 41 44 20 27 2A 2A 27 2C 38 20 |..".LOAD '**',8 |
00002510: 4F 44 45 52 20 4C 4F 41 44 20 27 2A 58 27 2C 38 |ODER LOAD '*X',8|
00002520: 20 92 58 3D 46 55 45 52 20 20 20 20 20 20 41 4E | .X=FUER AN|
00002530: 46 41 4E 47 53 42 55 53 54 41 42 45 2F 50 52 4F |FANGSBUSTABE/PRO|
00002540: 47 52 41 4D 4D 22 00 85 2D 31 06 99 22 48 4F 4C |GRAMM"..-1.."HOL|
00002550: 54 20 50 52 4F 47 52 41 4D 4D 45 20 44 49 45 20 |T PROGRAMME DIE |
00002560: 44 55 52 43 48 12 31 2C 38 2C 31 35 2C 27 53 3A |DURCH.1,8,15,'S:|
00002570: 92 20 20 20 20 20 20 12 4E 41 4D 45 27 3A 43 4C |. .NAME':CL|
00002580: 4F 53 45 31 22 00 CF 2D 32 06 99 22 47 45 4C 4F |OSE1"..-2.."GELO|
00002590: 45 53 43 48 54 20 57 55 52 44 45 4E 2C 41 55 43 |ESCHT WURDEN,AUC|
000025A0: 48 20 57 45 4E 4E 20 4E 41 43 48 20 44 45 4D 20 |H WENN NACH DEM |
000025B0: 20 20 20 20 4F 50 45 4E 2D 42 45 46 45 48 4C 20 | OPEN-BEFEHL |
000025C0: 45 49 4E 20 12 4E 45 57 92 20 4F 44 45 52 22 00 |EIN .NEW. ODER".|
000025D0: 09 2E 33 06 99 22 45 49 4E 20 12 52 45 53 45 54 |..3.."EIN .RESET|
000025E0: 92 20 45 52 46 4F 4C 47 54 45 20 56 4F 4C 4C 53 |. ERFOLGTE VOLLS|
000025F0: 54 41 45 4E 44 49 47 20 20 20 20 20 20 20 20 20 |TAENDIG |
00002600: 5A 55 52 55 45 43 4B 2E 22 00 26 2E 34 06 97 31 |ZURUECK.".&.4..1|
00002610: 39 38 2C 31 3A 92 36 35 33 2C 32 3A 8D 37 30 30 |98,1:.653,2:.700|
00002620: 30 3A 99 22 93 22 00 56 2E 35 06 99 22 12 05 20 |0:.".".V.5..".. |
00002630: 20 20 20 20 44 49 53 4B 45 54 54 45 4E 20 55 4E | DISKETTEN UN|
00002640: 44 20 43 41 53 53 45 54 54 45 4E 54 49 50 53 20 |D CASSETTENTIPS |
00002650: 20 20 20 20 34 22 00 A1 2E 36 06 99 22 11 41 55 | 4"...6..".AU|
00002660: 43 48 20 42 45 49 20 45 49 4E 45 4E 20 46 4F 52 |CH BEI EINEN FOR|
00002670: 4D 41 52 54 49 45 52 55 4E 47 53 42 45 46 45 48 |MARTIERUNGSBEFEH|
00002680: 4C 20 20 20 20 20 41 4C 4C 45 52 44 49 4E 47 53 |L ALLERDINGS|
00002690: 20 4F 48 4E 45 20 12 49 44 2D 4E 55 4D 4D 45 52 | OHNE .ID-NUMMER|
000026A0: 22 00 C9 2E 37 06 99 22 4B 41 4E 4E 20 44 45 52 |"...7.."KANN DER|
000026B0: 20 42 45 46 45 48 4C 20 41 4E 47 45 57 41 4E 44 | BEFEHL ANGEWAND|
000026C0: 54 20 57 45 52 44 45 4E 22 00 0E 2F 38 06 99 22 |T WERDEN"../8.."|
000026D0: 44 45 52 20 46 4F 52 4D 41 54 49 45 52 55 4E 47 |DER FORMATIERUNG|
000026E0: 53 42 45 46 45 48 4C 20 44 41 52 46 20 44 45 4E |SBEFEHL DARF DEN|
000026F0: 4E 20 41 42 45 52 20 20 4E 55 52 20 57 49 45 20 |N ABER NUR WIE |
00002700: 46 4F 4C 47 54 20 4C 41 55 54 45 4E 3A 22 00 32 |FOLGT LAUTEN:".2|
00002710: 2F 39 06 99 22 12 4F 50 45 4E 31 2C 38 2C 31 35 |/9..".OPEN1,8,15|
00002720: 2C 27 4E 3A 4E 41 4D 45 2C 27 3A 43 4C 4F 53 45 |,'N:NAME,':CLOSE|
00002730: 31 22 00 60 2F 3A 06 99 22 3D 3D 3D 3D 3D 3D 3D |1".`/:.."=======|
00002740: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================|
00002750: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 22 |==============="|
00002760: 00 A1 2F 3B 06 99 22 41 42 53 50 45 49 43 48 45 |../;.."ABSPEICHE|
00002770: 52 4E 20 45 49 4E 45 53 20 4D 41 53 43 48 49 4E |RN EINES MASCHIN|
00002780: 45 4E 50 52 4F 47 52 41 4D 4D 53 20 20 20 20 44 |ENPROGRAMMS D|
00002790: 49 52 45 43 4B 54 20 41 55 46 20 44 49 53 4B 2E |IRECKT AUF DISK.|
000027A0: 22 00 C6 2F 3C 06 99 22 12 31 20 4F 50 45 4E 31 |"../<..".1 OPEN1|
000027B0: 2C 38 2C 31 35 2C 27 50 52 4F 47 52 41 4D 4D 20 |,8,15,'PROGRAMM |
000027C0: 4E 41 4D 45 27 22 00 E7 2F 3D 06 99 22 12 32 20 |NAME'"../=..".2 |
000027D0: 53 3D 49 4E 54 28 41 2F 32 35 36 29 3A 4C 3D 41 |S=INT(A/256):L=A|
000027E0: 2D 53 2A 32 35 36 22 00 09 30 3E 06 99 22 12 33 |-S*256"..0>..".3|
000027F0: 20 50 52 49 4E 54 23 31 2C 43 48 52 24 28 4C 29 | PRINT#1,CHR$(L)|
00002800: 3B 43 48 52 24 28 53 29 3B 00 1D 30 3F 06 99 22 |;CHR$(S);..0?.."|
00002810: 12 34 20 46 4F 52 58 3D 41 54 4F 45 22 00 3D 30 |.4 FORX=ATOE".=0|
00002820: 40 06 99 22 12 35 20 50 52 49 4E 54 23 31 2C 43 |@..".5 PRINT#1,C|
00002830: 48 52 24 28 50 45 45 4B 28 58 29 29 22 00 54 30 |HR$(PEEK(X))".T0|
00002840: 41 06 99 22 12 36 20 4E 45 58 54 49 3A 43 4C 4F |A..".6 NEXTI:CLO|
00002850: 53 45 31 22 00 7D 30 42 06 99 22 11 12 1F 41 3D |SE1".}0B.."...A=|
00002860: 41 4E 46 41 4E 47 53 41 44 52 45 53 53 45 20 45 |ANFANGSADRESSE E|
00002870: 3D 45 4E 44 41 44 52 45 53 53 45 90 22 00 95 30 |=ENDADRESSE."..0|
00002880: 72 06 97 31 39 38 2C 30 3A 92 36 35 33 2C 32 3A |r..198,0:.653,2:|
00002890: 8D 37 30 30 30 00 9E 30 A4 06 89 31 30 30 00 C4 |.7000..0...100..|
000028A0: 30 A5 06 8F 2A 2A 2A 2A 44 49 53 4B 45 54 54 45 |0...****DISKETTE|
000028B0: 4E 2F 43 41 53 53 45 54 54 45 4E 54 49 50 2D 45 |N/CASSETTENTIP-E|
000028C0: 4E 44 45 2A 00 DC 30 CB 07 97 31 39 38 2C 30 3A |NDE*..0...198,0:|
000028D0: 92 36 35 33 2C 32 3A 8D 37 30 30 30 00 E5 30 CC |.653,2:.7000..0.|
000028E0: 07 89 31 30 30 00 0B 31 CD 07 8F 2A 2A 2A 2A 44 |..100..1...****D|
000028F0: 49 53 4B 45 54 54 45 4E 2F 43 41 53 53 45 54 54 |ISKETTEN/CASSETT|
00002900: 45 4E 54 49 50 2D 45 4E 44 45 2A 00 11 31 CE 07 |ENTIP-ENDE*..1..|
00002910: 3A 00 37 31 CF 07 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A |:.71...*********|
00002920: 53 4F 4E 53 54 49 47 45 53 2A 2A 2A 2A 2A 2A 2A |SONSTIGES*******|
00002930: 2A 2A 2A 2A 2A 2A 2A 00 40 31 D0 07 99 22 93 22 |*******.@1..."."|
00002940: 00 6F 31 DA 07 99 22 12 20 20 20 20 20 20 20 20 |.o1...". |
00002950: 20 20 20 20 20 20 20 53 4F 4E 53 54 49 47 45 53 | SONSTIGES|
00002960: 20 20 20 20 20 20 20 20 20 20 20 20 20 31 22 00 | 1".|
00002970: B3 31 DC 07 99 22 11 12 50 52 49 4E 54 20 50 45 |.1..."..PRINT PE|
00002980: 45 4B 20 28 32 30 33 29 92 20 47 49 42 54 20 44 |EK (203). GIBT D|
00002990: 49 45 20 5A 55 4C 45 54 5A 54 20 47 45 2D 20 20 |IE ZULETZT GE- |
000029A0: 20 44 52 55 45 43 4B 54 45 20 54 41 53 54 45 20 | DRUECKTE TASTE |
000029B0: 49 4D 22 00 CE 31 DD 07 99 22 43 48 41 52 41 4B |IM"..1..."CHARAK|
000029C0: 54 45 52 4D 4F 44 4F 53 20 41 55 53 2E 22 00 0C |TERMODOS AUS."..|
000029D0: 32 DE 07 99 22 12 50 52 49 4E 54 20 50 45 45 4B |2...".PRINT PEEK|
000029E0: 20 28 31 39 37 29 92 20 44 45 52 5A 45 49 54 49 | (197). DERZEITI|
000029F0: 47 45 52 20 20 20 20 20 20 20 20 20 20 20 20 54 |GER T|
00002A00: 41 53 54 45 4E 44 52 55 43 4B 2E 22 00 57 32 DF |ASTENDRUCK.".W2.|
00002A10: 07 99 22 12 50 52 49 4E 54 20 50 45 45 4B 20 28 |..".PRINT PEEK (|
00002A20: 31 39 38 29 92 20 47 49 42 54 20 41 4E 20 57 49 |198). GIBT AN WI|
00002A30: 45 56 49 45 4C 20 54 41 53 54 45 4E 20 42 45 52 |EVIEL TASTEN BER|
00002A40: 45 49 54 53 20 49 4D 20 54 41 53 54 41 54 55 52 |EITS IM TASTATUR|
00002A50: 50 55 46 46 45 52 22 00 66 32 E0 07 99 22 53 54 |PUFFER".f2..."ST|
00002A60: 45 48 45 4E 2E 22 00 B2 32 E1 07 99 22 12 50 52 |EHEN."..2...".PR|
00002A70: 49 4E 54 20 50 45 45 4B 20 28 32 31 34 29 2C 50 |INT PEEK (214),P|
00002A80: 45 45 4B 20 28 32 31 31 29 92 47 49 42 54 20 44 |EEK (211).GIBT D|
00002A90: 49 45 20 41 4B 20 20 54 55 45 4C 4C 45 20 50 4F |IE AK TUELLE PO|
00002AA0: 53 49 54 49 4F 4E 20 44 45 53 20 43 55 52 53 4F |SITION DES CURSO|
00002AB0: 52 22 00 CD 32 E2 07 99 22 41 55 53 20 5B 5A 45 |R"..2..."AUS [ZE|
00002AC0: 49 4C 45 2F 53 50 41 4C 54 45 5D 2E 22 00 FB 32 |ILE/SPALTE]."..2|
00002AD0: E3 07 99 22 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |..."============|
00002AE0: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================|
00002AF0: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 22 00 43 33 E4 07 |==========".C3..|
00002B00: 99 22 12 44 45 46 20 46 4E 46 20 28 41 29 3D 41 |.".DEF FNF (A)=A|
00002B10: 2D 31 36 31 2D 33 33 2A 28 41 3C 32 35 35 29 2D |-161-33*(A<255)-|
00002B20: 36 34 2A 28 41 3C 31 39 32 29 92 20 12 2D 33 32 |64*(A<192). .-32|
00002B30: 2A 28 41 3C 31 36 30 29 2B 33 32 2A 28 41 3C 39 |*(A<160)+32*(A<9|
00002B40: 36 29 22 00 82 33 E5 07 99 22 12 2D 36 34 2A 28 |6)"..3...".-64*(|
00002B50: 41 3C 36 34 29 92 20 44 49 45 53 45 20 46 55 4E |A<64). DIESE FUN|
00002B60: 4B 54 49 4F 4E 20 57 41 4E 44 45 4C 54 20 44 45 |KTION WANDELT DE|
00002B70: 4E 20 20 20 41 53 43 49 49 20 43 4F 44 45 20 41 |N ASCII CODE A|
00002B80: 20 22 00 B1 33 E6 07 99 22 49 4E 20 44 45 4E 20 | "..3..."IN DEN |
00002B90: 45 4E 54 53 50 52 45 43 48 45 4E 44 45 4E 20 42 |ENTSPRECHENDEN B|
00002BA0: 49 4C 44 53 43 48 49 52 4D 43 4F 44 45 20 55 4D |ILDSCHIRMCODE UM|
00002BB0: 22 00 DF 33 F3 07 99 22 3D 3D 3D 3D 3D 3D 3D 3D |"..3..."========|
00002BC0: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================|
00002BD0: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 22 00 |==============".|
00002BE0: 09 34 F5 07 99 22 12 53 59 53 20 36 35 34 39 39 |.4...".SYS 65499|
00002BF0: 92 20 53 45 54 5A 54 20 12 54 49 24 92 20 41 55 |. SETZT .TI$. AU|
00002C00: 46 20 30 30 30 30 30 30 22 00 37 34 F6 07 99 22 |F 000000".74..."|
00002C10: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================|
00002C20: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================|
00002C30: 3D 3D 3D 3D 3D 3D 22 00 4F 34 F8 07 97 31 39 38 |======".O4...198|
00002C40: 2C 30 3A 92 36 35 33 2C 32 3A 8D 37 30 30 30 00 |,0:.653,2:.7000.|
00002C50: 58 34 F9 07 99 22 93 22 00 87 34 FA 07 99 22 12 |X4..."."..4...".|
00002C60: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 53 | S|
00002C70: 4F 4E 53 54 49 47 45 53 20 20 20 20 20 20 20 20 |ONSTIGES |
00002C80: 20 20 20 20 20 32 22 00 CA 34 05 08 99 22 11 44 | 2"..4...".D|
00002C90: 49 45 20 41 4E 46 41 4E 47 53 41 44 52 45 53 53 |IE ANFANGSADRESS|
00002CA0: 45 20 44 45 53 20 42 41 53 49 43 2D 50 52 4F 47 |E DES BASIC-PROG|
00002CB0: 52 41 4D 4D 53 20 20 45 52 48 41 45 4C 54 20 4D |RAMMS ERHAELT M|
00002CC0: 41 4E 20 44 55 52 43 48 3A 22 00 F1 34 06 08 99 |AN DURCH:"..4...|
00002CD0: 22 12 50 52 49 4E 54 20 50 45 45 4B 20 28 34 33 |".PRINT PEEK (43|
00002CE0: 29 2B 50 45 45 4B 20 28 34 34 29 2A 32 35 36 20 |)+PEEK (44)*256 |
00002CF0: 22 00 33 35 07 08 99 22 44 49 45 20 45 4E 44 41 |".35..."DIE ENDA|
00002D00: 44 52 45 53 53 45 20 44 45 53 20 42 41 53 49 43 |DRESSE DES BASIC|
00002D10: 2D 50 52 4F 47 52 41 4D 4D 53 20 20 20 20 20 20 |-PROGRAMMS |
00002D20: 45 52 48 41 45 4C 54 20 4D 41 4E 20 44 55 52 43 |ERHAELT MAN DURC|
00002D30: 48 3A 22 00 5A 35 08 08 99 22 12 50 52 49 4E 54 |H:".Z5...".PRINT|
00002D40: 20 50 45 45 4B 20 28 34 35 29 2B 50 45 45 4B 20 | PEEK (45)+PEEK |
00002D50: 28 34 36 29 2A 32 35 36 20 22 00 88 35 09 08 99 |(46)*256 "..5...|
00002D60: 22 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |"===============|
00002D70: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================|
00002D80: 3D 3D 3D 3D 3D 3D 3D 22 00 CF 35 0A 08 99 22 12 |======="..5...".|
00002D90: 50 52 49 4E 54 20 50 45 45 4B 20 28 31 38 32 29 |PRINT PEEK (182)|
00002DA0: 92 20 47 49 42 54 20 44 49 45 20 41 4E 5A 41 48 |. GIBT DIE ANZAH|
00002DB0: 4C 20 44 45 52 20 20 20 20 5A 45 49 43 48 45 4E |L DER ZEICHEN|
00002DC0: 4C 45 53 45 46 45 48 4C 45 52 20 41 55 53 22 00 |LESEFEHLER AUS".|
00002DD0: 14 36 0B 08 99 22 12 50 52 49 4E 54 20 50 45 45 |.6...".PRINT PEE|
00002DE0: 4B 20 28 35 37 29 92 41 55 53 47 41 42 45 20 44 |K (57).AUSGABE D|
00002DF0: 45 52 20 5A 45 49 4C 45 4E 4E 55 4D 4D 45 52 20 |ER ZEILENNUMMER |
00002E00: 41 4E 20 44 45 52 20 44 41 53 20 50 52 4F 47 52 |AN DER DAS PROGR|
00002E10: 41 4D 4D 22 00 2F 36 0C 08 99 22 55 4E 54 45 52 |AMM"./6..."UNTER|
00002E20: 42 52 4F 43 48 45 4E 20 57 55 52 44 45 2E 22 00 |BROCHEN WURDE.".|
00002E30: 79 36 0D 08 99 22 12 50 52 49 4E 54 20 50 45 45 |y6...".PRINT PEE|
00002E40: 4B 20 28 31 35 32 29 92 20 47 49 42 54 20 44 49 |K (152). GIBT DI|
00002E50: 45 20 41 4E 5A 41 48 4C 20 44 45 52 20 20 20 20 |E ANZAHL DER |
00002E60: 47 45 4F 45 46 46 4E 45 54 45 4E 20 44 41 54 45 |GEOEFFNETEN DATE|
00002E70: 49 45 4E 20 41 55 53 2E 22 00 A7 36 0E 08 99 22 |IEN AUS."..6..."|
00002E80: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================|
00002E90: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================|
00002EA0: 3D 3D 3D 3D 3D 3D 22 00 EE 36 0F 08 99 22 41 4C |======"..6..."AL|
00002EB0: 4C 45 20 4A 4F 59 53 54 49 43 4B 46 55 4E 4B 54 |LE JOYSTICKFUNKT|
00002EC0: 49 4F 4E 45 4E 20 4B 41 4E 4E 20 4D 41 4E 20 41 |IONEN KANN MAN A|
00002ED0: 55 43 48 20 20 20 55 45 42 45 52 20 54 41 53 54 |UCH UEBER TAST|
00002EE0: 41 54 55 52 20 53 54 45 55 45 52 4E 3A 22 00 2F |ATUR STEUERN:"./|
00002EF0: 37 10 08 99 22 12 4A 4F 59 53 54 49 43 4B 20 50 |7...".JOYSTICK P|
00002F00: 4F 52 54 20 31 92 20 12 46 45 55 45 52 3D 53 50 |ORT 1. .FEUER=SP|
00002F10: 41 43 45 92 20 12 4C 49 4E 4B 53 3D 20 43 54 52 |ACE. .LINKS= CTR|
00002F20: 4C 92 20 12 52 45 43 48 54 53 3D 27 32 27 22 00 |L. .RECHTS='2'".|
00002F30: 4C 37 11 08 99 22 12 4F 42 45 4E 3D 27 31 27 92 |L7...".OBEN='1'.|
00002F40: 20 12 55 4E 54 45 4E 3D 27 3C 27 22 00 64 37 15 | .UNTEN='<'".d7.|
00002F50: 08 97 31 39 38 2C 30 3A 92 36 35 33 2C 32 3A 8D |..198,0:.653,2:.|
00002F60: 37 30 30 30 00 6D 37 16 08 99 22 93 22 00 9C 37 |7000.m7..."."..7|
00002F70: 18 08 99 22 12 20 20 20 20 20 20 20 20 20 20 20 |...". |
00002F80: 20 20 20 20 53 4F 4E 53 54 49 47 45 53 20 20 20 | SONSTIGES |
00002F90: 20 20 20 20 20 20 20 20 20 20 33 22 00 DB 37 1A | 3"..7.|
00002FA0: 08 99 22 11 12 4A 4F 59 53 54 49 43 4B 20 50 4F |.."..JOYSTICK PO|
00002FB0: 52 54 20 32 92 20 12 46 45 55 45 52 3D 43 54 52 |RT 2. .FEUER=CTR|
00002FC0: 4C 2B 27 4A 27 20 20 4C 49 4E 4B 53 92 20 20 20 |L+'J' LINKS. |
00002FD0: 12 3D 43 54 52 4C 2B 27 44 27 22 00 1E 38 1C 08 |.=CTRL+'D'"..8..|
00002FE0: 99 22 12 52 45 43 48 54 53 3D 43 54 52 4C 2B 27 |.".RECHTS=CTRL+'|
00002FF0: 47 27 92 20 12 4F 42 45 4E 3D 43 54 52 4C 2B 43 |G'. .OBEN=CTRL+C|
00003000: 52 53 52 20 52 49 47 48 54 92 20 20 20 20 12 55 |RSR RIGHT. .U|
00003010: 4E 54 45 4E 3D 43 54 52 4C 2B 27 41 27 22 00 4C |NTEN=CTRL+'A'".L|
00003020: 38 1D 08 99 22 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |8..."===========|
00003030: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================|
00003040: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 22 00 7C 38 1E |===========".|8.|
00003050: 08 99 22 12 57 41 49 54 20 35 36 33 32 30 2C 31 |..".WAIT 56320,1|
00003060: 36 2C 31 36 92 20 57 41 52 54 45 54 20 41 55 46 |6,16. WARTET AUF|
00003070: 20 46 45 55 45 52 4B 4E 4F 50 46 22 00 B3 38 1F | FEUERKNOPF"..8.|
00003080: 08 99 22 12 57 41 49 54 20 35 36 33 32 30 2C 34 |..".WAIT 56320,4|
00003090: 2C 34 92 20 57 41 52 54 45 54 20 41 55 46 20 4A |,4. WARTET AUF J|
000030A0: 4F 59 53 54 49 43 4B 20 4E 41 43 48 20 4C 49 4E |OYSTICK NACH LIN|
000030B0: 4B 53 22 00 E9 38 20 08 99 22 12 57 41 49 54 20 |KS"..8 ..".WAIT |
000030C0: 35 36 33 32 30 2C 31 2C 31 92 20 57 41 52 54 45 |56320,1,1. WARTE|
000030D0: 54 20 41 55 46 20 4A 4F 59 53 54 49 43 4B 20 4E |T AUF JOYSTICK N|
000030E0: 41 43 48 20 4F 42 45 4E 22 00 20 39 21 08 99 22 |ACH OBEN". 9!.."|
000030F0: 12 57 41 49 54 20 35 36 33 32 30 2C 32 2C 32 92 |.WAIT 56320,2,2.|
00003100: 20 57 41 52 54 45 54 20 41 55 46 20 4A 4F 59 53 | WARTET AUF JOYS|
00003110: 54 49 43 4B 20 4E 41 43 48 20 55 4E 54 45 4E 22 |TICK NACH UNTEN"|
00003120: 00 6B 39 22 08 99 22 44 49 45 53 45 53 20 47 49 |.k9".."DIESES GI|
00003130: 4C 54 20 46 55 45 52 20 50 4F 52 54 20 32 20 20 |LT FUER PORT 2 |
00003140: 20 20 42 45 49 20 50 4F 52 54 20 31 20 20 20 20 | BEI PORT 1 |
00003150: 20 20 4C 41 55 54 45 54 20 44 49 45 20 41 44 52 | LAUTET DIE ADR|
00003160: 45 53 53 45 20 35 36 33 32 31 22 00 99 39 23 08 |ESSE 56321"..9#.|
00003170: 99 22 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |."==============|
00003180: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================|
00003190: 3D 3D 3D 3D 3D 3D 3D 3D 22 00 D9 39 24 08 99 22 |========"..9$.."|
000031A0: 45 49 4E 45 4E 20 57 41 52 4E 54 4F 4E 20 45 52 |EINEN WARNTON ER|
000031B0: 5A 45 55 47 54 20 4D 41 4E 20 45 49 4E 46 41 43 |ZEUGT MAN EINFAC|
000031C0: 48 20 49 4E 20 20 20 20 46 4F 4C 47 45 4E 44 45 |H IN FOLGENDE|
000031D0: 52 20 57 45 49 53 45 2E 22 00 12 3A 25 08 99 22 |R WEISE."..:%.."|
000031E0: 12 31 30 20 4C 3D 35 34 32 39 36 3A 46 4F 52 58 |.10 L=54296:FORX|
000031F0: 3D 31 54 4F 31 30 30 3A 50 4F 4B 45 4C 2C 31 30 |=1TO100:POKEL,10|
00003200: 3A 50 4F 4B 45 4C 2C 30 92 20 12 3A 4E 45 58 54 |:POKEL,0. .:NEXT|
00003210: 58 22 00 2A 3A 2A 08 97 31 39 38 2C 30 3A 92 36 |X".*:*..198,0:.6|
00003220: 35 33 2C 32 3A 8D 37 30 30 30 00 33 3A 2C 08 99 |53,2:.7000.3:,..|
00003230: 22 93 22 00 62 3A 2E 08 99 22 12 20 20 20 20 20 |".".b:...". |
00003240: 20 20 20 20 20 20 20 20 20 20 53 4F 4E 53 54 49 | SONSTI|
00003250: 47 45 53 20 20 20 20 20 20 20 20 20 20 20 20 20 |GES |
00003260: 34 22 00 A6 3A 30 08 99 22 11 4D 49 54 20 44 45 |4"..:0..".MIT DE|
00003270: 4D 20 4A 4F 59 53 54 49 43 4B 20 49 4D 20 50 4F |M JOYSTICK IM PO|
00003280: 52 54 20 31 20 4B 41 4E 4E 20 4D 41 4E 20 20 20 |RT 1 KANN MAN |
00003290: 20 20 44 41 53 20 41 55 46 4C 49 53 54 45 4E 20 | DAS AUFLISTEN |
000032A0: 45 49 4E 45 53 22 00 D4 3A 31 08 99 22 50 52 4F |EINES"..:1.."PRO|
000032B0: 47 52 41 4D 4D 45 53 20 41 4D 20 42 49 4C 44 53 |GRAMMES AM BILDS|
000032C0: 43 48 49 52 4D 20 56 45 52 4C 41 4E 47 53 41 4D |CHIRM VERLANGSAM|
000032D0: 45 4E 2E 22 00 02 3B 32 08 99 22 3D 3D 3D 3D 3D |EN."..;2.."=====|
000032E0: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================|
000032F0: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================|
00003300: 3D 22 00 44 3B 33 08 99 22 4D 49 54 12 20 53 59 |=".D;3.."MIT. SY|
00003310: 53 20 36 34 37 36 37 92 20 53 45 54 5A 54 20 4D |S 64767. SETZT M|
00003320: 41 4E 20 44 45 4E 20 43 4F 4D 50 55 54 45 52 20 |AN DEN COMPUTER |
00003330: 20 20 20 5A 55 52 55 45 43 4B 2C 4F 48 4E 45 20 | ZURUECK,OHNE |
00003340: 44 41 53 22 00 6E 3B 34 08 99 22 53 49 43 48 20 |DAS".n;4.."SICH |
00003350: 44 49 45 20 42 49 4C 44 53 43 48 49 52 4D 46 41 |DIE BILDSCHIRMFA|
00003360: 52 42 45 4E 20 41 45 4E 44 45 52 4E 2E 22 00 9C |RBEN AENDERN."..|
00003370: 3B 35 08 99 22 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |;5.."===========|
00003380: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================|
00003390: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 22 00 E2 3B 36 |==========="..;6|
000033A0: 08 99 22 55 4D 20 44 45 4E 20 42 45 46 45 48 4C |.."UM DEN BEFEHL|
000033B0: 12 20 50 52 49 4E 54 20 23 92 20 20 20 41 42 5A |. PRINT #. ABZ|
000033C0: 55 4B 55 45 52 5A 45 4E 20 20 20 20 20 4B 41 4E |UKUERZEN KAN|
000033D0: 4E 20 4D 41 4E 20 12 20 50 2F 53 48 49 46 54 20 |N MAN . P/SHIFT |
000033E0: 52 22 00 F3 3B 37 08 99 22 45 49 4E 47 45 42 45 |R"..;7.."EINGEBE|
000033F0: 4E 2E 22 00 21 3C 38 08 99 22 3D 3D 3D 3D 3D 3D |N.".!<8.."======|
00003400: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================|
00003410: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================|
00003420: 22 00 68 3C 39 08 99 22 49 4D 20 44 49 52 45 4B |".h<9.."IM DIREK|
00003430: 54 4D 4F 44 55 53 20 4B 41 4E 4E 20 4D 41 4E 20 |TMODUS KANN MAN |
00003440: 4D 49 54 20 46 4F 4C 47 45 4E 44 45 4E 20 20 20 |MIT FOLGENDEN |
00003450: 50 52 4F 47 52 41 4D 4D 20 44 45 4E 20 42 49 4C |PROGRAMM DEN BIL|
00003460: 44 53 43 48 49 52 4D 22 00 82 3C 3A 08 99 22 49 |DSCHIRM"..<:.."I|
00003470: 4E 48 41 4C 54 20 41 55 53 44 52 55 43 4B 45 4E |NHALT AUSDRUCKEN|
00003480: 2E 22 00 C6 3C 3B 08 99 22 12 4F 50 45 4E 20 33 |."..<;..".OPEN 3|
00003490: 2C 33 3A 4F 50 45 4E 20 34 2C 34 3A 50 52 49 4E |,3:OPEN 4,4:PRIN|
000034A0: 54 20 43 4C 52 3A 46 4F 52 20 49 3D 31 92 20 20 |T CLR:FOR I=1. |
000034B0: 20 20 20 12 54 4F 20 31 30 30 30 3A 47 45 54 23 | .TO 1000:GET#|
000034C0: 33 2C 41 24 3A 22 00 ED 3C 3C 08 99 22 12 50 52 |3,A$:"..<<..".PR|
000034D0: 49 4E 54 23 34 2C 41 24 3B 3A 4E 45 58 54 3A 43 |INT#4,A$;:NEXT:C|
000034E0: 4C 4F 53 45 33 3A 43 4C 4F 53 45 34 22 00 1B 3D |LOSE3:CLOSE4"..=|
000034F0: 3D 08 99 22 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |=.."============|
00003500: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================|
00003510: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 22 00 33 3D 3E 08 |==========".3=>.|
00003520: 97 31 39 38 2C 30 3A 92 36 35 33 2C 32 3A 8D 37 |.198,0:.653,2:.7|
00003530: 30 30 30 00 3C 3D 3F 08 99 22 93 22 00 6B 3D 40 |000.<=?..".".k=@|
00003540: 08 99 22 12 05 20 20 20 20 20 20 20 20 20 20 20 |..".. |
00003550: 20 20 20 53 4F 4E 53 54 49 47 45 53 20 20 20 20 | SONSTIGES |
00003560: 20 20 20 20 20 20 20 20 20 35 22 00 95 3D 48 08 | 5"..=H.|
00003570: 99 22 11 4D 49 54 20 12 50 52 49 4E 54 20 50 45 |.".MIT .PRINT PE|
00003580: 45 4B 28 36 37 38 29 92 20 4C 41 45 53 53 54 20 |EK(678). LAESST |
00003590: 53 49 43 48 22 00 DB 3D 49 08 99 22 46 45 53 54 |SICH"..=I.."FEST|
000035A0: 53 54 45 4C 4C 45 4E 20 57 4F 20 44 45 52 20 43 |STELLEN WO DER C|
000035B0: 4F 4D 50 55 54 45 52 20 48 45 52 47 45 53 54 45 |OMPUTER HERGESTE|
000035C0: 4C 4C 54 20 57 55 52 44 45 20 12 20 31 3D 45 55 |LLT WURDE . 1=EU|
000035D0: 52 4F 50 41 20 32 3D 55 53 41 22 00 09 3E 4C 08 |ROPA 2=USA"..>L.|
000035E0: 99 22 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |."==============|
000035F0: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================|
00003600: 3D 3D 3D 3D 3D 3D 3D 3D 22 00 2D 3E 4D 08 99 22 |========".->M.."|
00003610: 12 05 43 4F 4E 54 20 4E 41 43 48 20 43 4F 4E 54 |..CONT NACH CONT|
00003620: 49 4E 49 55 45 20 45 52 52 4F 52 90 22 00 6C 3E |INIUE ERROR.".l>|
00003630: 4E 08 99 22 41 55 53 47 41 42 45 20 44 45 52 20 |N.."AUSGABE DER |
00003640: 5A 45 49 4C 45 4E 4E 55 4D 4D 45 52 20 56 4F 4D |ZEILENNUMMER VOM|
00003650: 20 4C 45 54 5A 54 45 4E 20 20 20 20 50 52 4F 47 | LETZTEN PROG|
00003660: 52 41 4D 4D 41 42 42 52 55 43 48 22 00 90 3E 4F |RAMMABBRUCH"..>O|
00003670: 08 99 22 12 50 52 49 4E 54 20 50 45 45 4B 28 35 |..".PRINT PEEK(5|
00003680: 39 29 2B 32 35 36 2A 50 45 45 4B 28 36 30 29 22 |9)+256*PEEK(60)"|
00003690: 00 BC 3E 50 08 99 22 57 45 4E 4E 20 43 4F 4E 54 |..>P.."WENN CONT|
000036A0: 20 4E 49 43 48 54 20 4D 45 48 52 20 4D 4F 45 47 | NICHT MEHR MOEG|
000036B0: 4C 49 43 48 2C 44 41 4E 4E 20 3A 22 00 E6 3E 51 |LICH,DANN :"..>Q|
000036C0: 08 99 22 12 50 4F 4B 45 20 35 39 2C 50 45 45 4B |..".POKE 59,PEEK|
000036D0: 28 36 31 29 3A 50 4F 4B 45 20 36 30 2C 50 45 45 |(61):POKE 60,PEE|
000036E0: 4B 28 36 32 29 22 00 14 3F 52 08 99 22 3D 3D 3D |K(62)"..?R.."===|
000036F0: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================|
00003700: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================|
00003710: 3D 3D 3D 22 00 5B 3F 53 08 99 22 44 49 45 20 5B |===".[?S.."DIE [|
00003720: 52 45 41 44 59 5D 20 4D 45 4C 44 55 4E 47 20 4B |READY] MELDUNG K|
00003730: 41 4E 4E 20 49 4D 20 44 49 52 45 4B 54 4D 4F 44 |ANN IM DIREKTMOD|
00003740: 55 53 20 41 55 43 48 20 44 55 52 43 48 20 45 49 |US AUCH DURCH EI|
00003750: 47 45 4E 45 4E 20 54 45 58 54 22 00 73 3F 54 08 |GENEN TEXT".s?T.|
00003760: 99 22 47 45 41 4E 44 45 52 54 20 57 45 52 44 45 |."GEANDERT WERDE|
00003770: 4E 2E 22 00 BF 3F 55 08 99 22 12 46 4F 52 49 3D |N."..?U..".FORI=|
00003780: 34 30 39 36 30 54 4F 34 39 31 35 31 3A 50 4F 4B |40960TO49151:POK|
00003790: 45 49 2C 50 45 45 4B 28 49 29 3A 4E 45 58 54 92 |EI,PEEK(I):NEXT.|
000037A0: 20 20 20 20 12 3A 50 4F 4B 45 31 2C 35 34 92 05 | .:POKE1,54..|
000037B0: 42 41 53 49 43 20 49 4E 53 20 52 41 4D 90 22 00 |BASIC INS RAM.".|
000037C0: 0B 40 56 08 99 22 11 12 46 4F 52 49 3D 34 31 38 |.@V.."..FORI=418|
000037D0: 34 38 54 4F 34 31 38 35 33 3A 50 4F 4B 45 49 2C |48TO41853:POKEI,|
000037E0: 33 32 3A 4E 45 58 54 92 20 20 20 20 20 20 20 20 |32:NEXT. |
000037F0: 20 20 20 20 05 52 45 41 44 59 20 55 45 42 45 52 | .READY UEBER|
00003800: 53 43 48 52 45 49 42 45 4E 90 22 00 51 40 57 08 |SCHREIBEN.".Q@W.|
00003810: 99 22 12 41 24 3D 27 48 41 4C 4C 4F 27 3A 46 4F |.".A$='HALLO':FO|
00003820: 52 49 3D 31 54 4F 36 3A 50 4F 4B 45 34 31 38 34 |RI=1TO6:POKE4184|
00003830: 37 2B 49 2C 41 53 43 92 20 20 20 20 12 28 4D 49 |7+I,ASC. .(MI|
00003840: 44 24 28 41 24 2C 49 2C 31 29 29 3A 4E 45 58 54 |D$(A$,I,1)):NEXT|
00003850: 22 00 7F 40 58 08 99 22 05 54 45 58 54 45 49 4E |"..@X..".TEXTEIN|
00003860: 47 41 42 45 20 4E 49 43 48 54 20 4D 45 48 52 20 |GABE NICHT MEHR |
00003870: 41 4C 53 20 36 20 5A 45 49 43 48 45 4E 90 22 00 |ALS 6 ZEICHEN.".|
00003880: 97 40 59 08 97 31 39 38 2C 30 3A 92 36 35 33 2C |.@Y..198,0:.653,|
00003890: 32 3A 8D 37 30 30 30 00 A0 40 5A 08 99 22 93 22 |2:.7000..@Z.."."|
000038A0: 00 CF 40 5B 08 99 22 12 05 20 20 20 20 20 20 20 |..@[..".. |
000038B0: 20 20 20 20 20 20 20 53 4F 4E 53 54 49 47 45 53 | SONSTIGES|
000038C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 36 22 00 | 6".|
000038D0: FE 40 5C 08 99 22 11 52 45 4D 20 49 4E 56 45 52 |.@\..".REM INVER|
000038E0: 53 45 20 53 45 54 5A 45 4E 20 53 54 41 52 54 20 |SE SETZEN START |
000038F0: 4D 49 54 20 52 55 4E 20 36 30 30 30 30 22 00 10 |MIT RUN 60000"..|
00003900: 41 5E 08 99 22 12 35 39 39 39 39 20 45 4E 44 22 |A^..".59999 END"|
00003910: 00 36 41 5F 08 99 22 12 36 30 30 30 30 20 4E 3D |.6A_..".60000 N=|
00003920: 50 45 45 4B 28 34 33 29 2B 32 35 36 2A 50 45 45 |PEEK(43)+256*PEE|
00003930: 4B 28 34 34 29 22 00 64 41 60 08 99 22 12 36 30 |K(44)".dA`..".60|
00003940: 30 31 30 20 49 46 50 45 45 4B 28 4E 2B 34 29 3D |010 IFPEEK(N+4)=|
00003950: 31 34 33 41 4E 44 20 50 45 45 4B 28 4E 2B 35 29 |143AND PEEK(N+5)|
00003960: 3D 34 32 22 00 7D 41 61 08 99 22 12 54 48 45 4E |=42".}Aa..".THEN|
00003970: 50 4F 4B 45 28 4E 2B 35 29 2C 31 38 22 00 A3 41 |POKE(N+5),18"..A|
00003980: 62 08 99 22 12 36 30 30 32 30 20 4E 3D 50 45 45 |b..".60020 N=PEE|
00003990: 4B 28 4E 29 2B 32 35 36 2A 50 45 45 4B 28 4E 2B |K(N)+256*PEEK(N+|
000039A0: 31 29 22 00 BB 41 63 08 99 22 12 49 46 4E 3E 30 |1)"..Ac..".IFN>0|
000039B0: 54 48 45 4E 20 36 30 30 31 30 22 00 E9 41 64 08 |THEN 60010"..Ad.|
000039C0: 99 22 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |."==============|
000039D0: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================|
000039E0: 3D 3D 3D 3D 3D 3D 3D 3D 22 00 01 42 3C 0F 97 31 |========"..B<..1|
000039F0: 39 38 2C 30 3A 92 36 35 33 2C 32 3A 8D 37 30 30 |98,0:.653,2:.700|
00003A00: 30 00 0A 42 3D 0F 89 31 30 30 00 30 42 9F 0F 8F |0..B=..100.0B...|
00003A10: 2A 2A 2A 2A 2A 2A 53 4F 4E 53 54 49 47 45 53 2D |******SONSTIGES-|
00003A20: 45 4E 44 45 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |ENDE************|
00003A30: 00 4B 42 1A 13 99 22 93 22 3A 97 35 33 32 38 31 |.KB...".":.53281|
00003A40: 2C 36 3A 97 35 33 32 38 30 2C 37 00 80 42 25 13 |,6:.53280,7..B%.|
00003A50: 53 24 B2 22 05 11 11 11 11 11 11 11 11 11 11 11 |S$."............|
00003A60: 11 11 11 11 11 20 20 54 52 49 43 4B 4B 49 53 54 |..... TRICKKIST|
00003A70: 45 20 20 20 20 32 2E 54 45 49 4C 20 20 20 20 22 |E 2.TEIL "|
00003A80: 00 8F 42 2D 13 81 49 B2 31 A4 C3 28 53 24 29 00 |..B-..I.1..(S$).|
00003A90: BA 42 2E 13 50 24 B2 CA 28 53 24 2C 49 2C 31 35 |.B..P$..(S$,I,15|
00003AA0: 29 AA CA 28 53 24 2C 31 2C 34 30 AB C3 28 CA 28 |)..(S$,1,40..(.(|
00003AB0: 53 24 2C 49 2C 34 30 29 29 29 00 E8 42 38 13 99 |S$,I,40)))..B8..|
00003AC0: 22 13 22 AA 50 24 3B 3A 81 5A B2 31 A4 33 30 3A |".".P$;:.Z.1.30:|
00003AD0: 82 5A 3A 82 49 3A 81 54 B2 31 A4 32 35 30 30 3A |.Z:.I:.T.1.2500:|
00003AE0: 82 54 3A 89 35 30 31 35 00 0E 43 88 13 99 22 93 |.T:.5015..C...".|
00003AF0: 11 11 11 11 11 11 11 11 11 11 05 22 3A 97 35 33 |...........":.53|
00003B00: 32 38 30 2C 30 3A 97 35 33 32 38 31 2C 30 00 34 |280,0:.53281,0.4|
00003B10: 43 89 13 99 A3 38 29 22 50 52 4F 47 52 41 4D 4D |C....8)"PROGRAMM|
00003B20: 20 42 45 45 4E 44 45 4E 20 20 20 20 20 20 20 5B | BEENDEN [|
00003B30: 31 5D 11 22 00 5A 43 8A 13 99 A3 38 29 22 50 52 |1].".ZC....8)"PR|
00003B40: 4F 47 52 41 4D 4D 20 57 49 45 44 45 52 48 4F 4C |OGRAMM WIEDERHOL|
00003B50: 45 4E 20 20 20 5B 32 5D 11 22 00 70 43 8C 13 97 |EN [2].".pC...|
00003B60: 31 39 38 2C 30 3A 92 31 39 38 2C 31 3A A1 45 24 |198,0:.198,1:.E$|
00003B70: 00 81 43 8D 13 8B 45 24 B2 22 31 22 A7 38 30 30 |..C...E$."1".800|
00003B80: 30 00 91 43 8E 13 8B 45 24 B2 22 32 22 A7 31 30 |0..C...E$."2".10|
00003B90: 30 00 9B 43 90 13 89 35 30 30 34 00 CB 43 92 13 |0..C...5004..C..|
00003BA0: 99 22 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |."**************|
00003BB0: 2A 2A 32 2E 20 20 54 45 49 4C 2A 2A 2A 2A 2A 2A |**2. TEIL******|
00003BC0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 22 00 E6 43 97 13 |**********"..C..|
00003BD0: 99 22 93 22 3A 97 35 33 32 38 30 2C 36 3A 97 35 |.".":.53280,6:.5|
00003BE0: 33 32 38 31 2C 36 00 17 44 98 13 99 22 9E 2A 2A |3281,6..D...".**|
00003BF0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00003C00: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00003C10: 2A 2A 2A 2A 2A 2A 22 00 47 44 99 13 99 22 2A 2A |******".GD..."**|
00003C20: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 32 2E |**************2.|
00003C30: 20 20 54 45 49 4C 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A | TEIL**********|
00003C40: 2A 2A 2A 2A 2A 2A 22 00 79 44 9C 13 99 22 2A 12 |******".yD..."*.|
00003C50: 20 20 54 20 52 20 49 20 43 20 4B 20 4B 20 49 20 | T R I C K K I |
00003C60: 53 20 54 20 45 20 20 20 20 20 20 20 20 20 20 20 |S T E |
00003C70: 20 20 20 20 20 20 92 2A 22 00 A9 44 A6 13 99 22 | .*"..D..."|
00003C80: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00003C90: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00003CA0: 2A 2A 2A 2A 2A 2A 2A 2A 22 00 DB 44 B0 13 99 22 |********"..D..."|
00003CB0: 2A 12 20 20 20 45 49 4E 20 50 55 42 4C 49 43 2D |*. EIN PUBLIC-|
00003CC0: 44 4F 4D 41 49 4E 2D 50 52 4F 47 52 41 4D 4D 20 |DOMAIN-PROGRAMM |
00003CD0: 20 20 20 20 20 20 20 20 92 2A 22 00 0D 45 BA 13 | .*"..E..|
00003CE0: 99 22 2A 12 20 20 20 20 20 20 20 20 20 20 20 20 |."*. |
00003CF0: 20 20 20 20 46 55 45 52 20 44 45 4E 20 20 20 20 | FUER DEN |
00003D00: 20 20 20 20 20 20 20 20 20 20 92 2A 22 00 3D 45 | .*".=E|
00003D10: C4 13 99 22 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |..."************|
00003D20: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00003D30: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 22 00 6F 45 |************".oE|
00003D40: CE 13 99 22 2A 12 20 20 20 20 20 20 20 20 20 43 |..."*. C|
00003D50: 4F 4D 4D 4F 44 4F 52 45 20 43 20 36 34 20 20 20 |OMMODORE C 64 |
00003D60: 20 20 20 20 20 20 20 20 20 20 20 20 92 2A 22 00 | .*".|
00003D70: 9F 45 D8 13 99 22 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |.E..."**********|
00003D80: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00003D90: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 22 00 |**************".|
00003DA0: CF 45 E2 13 99 22 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |.E..."**********|
00003DB0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00003DC0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 22 00 |**************".|
00003DD0: 01 46 EC 13 99 22 2A 2A 2A 2A 2A 2A 12 20 5A 55 |.F..."******. ZU|
00003DE0: 4D 20 57 45 49 54 45 52 42 4C 41 45 54 54 45 52 |M WEITERBLAETTER|
00003DF0: 4E 20 49 4D 4D 45 52 20 20 92 2A 2A 2A 2A 2A 2A |N IMMER .******|
00003E00: 22 00 33 46 F6 13 99 22 2A 2A 2A 2A 2A 2A 12 44 |".3F..."******.D|
00003E10: 49 45 20 43 4F 4D 4D 4F 44 4F 52 45 2D 54 41 53 |IE COMMODORE-TAS|
00003E20: 54 45 20 44 52 55 45 43 4B 45 4E 92 2A 2A 2A 2A |TE DRUECKEN.****|
00003E30: 2A 2A 22 00 45 46 DE 17 97 31 39 38 2C 30 3A 92 |**".EF...198,0:.|
00003E40: 36 35 33 2C 32 00 67 46 E8 17 41 44 B2 34 39 31 |653,2.gF..AD.491|
00003E50: 35 32 3A 81 49 B2 30 A4 36 34 3A 87 58 3A 97 41 |52:.I.0.64:.X:.A|
00003E60: 44 AA 49 2C 58 3A 82 00 79 46 F2 17 81 49 B2 31 |D.I,X:..yF...I.1|
00003E70: A4 33 39 3A 9E 41 44 3A 82 00 8B 46 58 1B 81 49 |.39:.AD:...FX..I|
00003E80: B2 31 A4 34 30 3A 9E 41 44 3A 82 00 91 46 BC 1B |.1.40:.AD:...F..|
00003E90: 8E 00 B7 46 3F 1F 8F 2A 2A 2A 2A 2A 2A 45 4E 44 |...F?..******END|
00003EA0: 45 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |E***************|
00003EB0: 2A 2A 2A 2A 2A 2A 2A 00 C4 46 40 1F 81 58 B2 30 |*******..F@..X.0|
00003EC0: A4 31 35 31 00 CF 46 4A 1F 97 36 34 36 2C 58 00 |.151..FJ..646,X.|
00003ED0: FD 46 4F 1F 99 20 22 13 11 11 11 11 11 11 11 11 |.FO.. ".........|
00003EE0: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 12 50 52 4F 47 |............PROG|
00003EF0: 41 4D 4D 20 20 20 20 45 4E 44 45 22 2C 00 11 47 |AMM ENDE",..G|
00003F00: 54 1F 82 58 3A 81 54 B2 31 A4 31 35 30 30 3A 82 |T..X:.T.1.1500:.|
00003F10: 54 00 1B 47 5E 1F 8D 37 30 30 30 00 26 47 68 1F |T..G^..7000.&Gh.|
00003F20: 9E 36 34 37 33 38 00 00 00 |.64738... |
.......4890.3.C..**************MENUE****
***********.Y.D..G(147);G(142);:.53280,6
:.53281,6...E.."..
";...I.."
";...J.." ..
UCI. .UCCCCCCCCCCCCCCCCCCCCCCCCCCI.
";.(.K.." .B1B. .B* P E E K / P O O
K E S *B. ";.].L.." .JCK. .JCCCCCC
CCCCCCCCCCCCCCCCCCCCK. ";...M.." .U
CI. .UCCCCCCCCCCCCCCCCCCCCCCCCCCI.
";.G.N.." .B2B. .B* LISTSCHUTZ
*B. ";...O.." .JCK. .JCCCCCCC
CCCCCCCCCCCCCCCCCCCK. ";.1.P.." .UC
I. .UCCCCCCCCCCCCCCCCCCCCCCCCCCI. "
;.F.Q.." .B3B. .B* DISKETTEN/CASSETTEN
TIP *B. ";...R.." .JCK. .JCCCCCCCC
CCCCCCCCCCCCCCCCCCK. ";.P.S.." .UCI
. .UCCCCCCCCCCCCCCCCCCCCCCCCCCI. ";
...T.." .B4B. .B* SONSTIGES
*B. ";.:.U.." .JCK. .JCCCCCCCCC
CCCCCCCCCCCCCCCCCK. ";.F.V..:.:.:..S
.W.." ..C.. ..CCCCCCCCCCCCCCCCCCCCCC
..". .X.." .B5B. .B****PROGRAMM END
E****B.".T.Y.." ..C.. ..CCCCCCCCCCCC
CCCCCCCCCC.. "...Z.."
";.4.{.."
";.E.|
.."
";...}..*********MENUE-ENDE**********
****......198,1:.A$...C...I.G..*********
*SCROLLING ROUTINE*******...H.AD.49152:.
I.0.64:.X:.AD.I,X:....I..I.1.35:.AD:..G.
J..169,80,133,78,133,80,169,4,133,79,169
,216,133,81,162,23,160,1,177,78...K..136
,145,78,200,177,80,136,145,80,200,200,19
2,40,208,239,24,165,78,105.Z.L..40,133,7
8,165,79,105,0,133,79,24,165,80,105,40,1
33,80,165,81,105,0...M..133,81,202,208,2
08,96...N.L.54296:.X.1.25:.L,10:.L,0:.X.
4.R..A$.G(49).A$.G( 54). 126.].S..F(A$).
48. 500,1000, 1500, 2000,5000......*****
********PEEK/POOKES*********......"."...
...". P E E K UND P O O K E S
1"......"..10 POKE 53265,PEEK (53265) A
ND 239"......".20 POKE 56334,PEEK (56334
) AND 254".]...."DIESES PROGRAMM SCHALTE
T DEN VIC UND DIE ISR AB UND MACHT SO
DEN"......"C-64 BEI ZEITKRITISCHEN RECH
ENOPERA- TIONEN UM 10% SCHNELLER."...
..."NORMALZUSTAND MIT:"......".10 POKE 5
3265,PEEK (53265) OR 16"......".20 POKE
53334,PEEK (56334) OR 1 ".?...."========
==============================".|....".P
OKE 53271,V. VERGROESSERT SPRITE V IN
Y-RICHTUNG."......".POKE 53277,V. VERGRO
ESSERT SPRITE V IN X-RICHTUNG."......"
.POKE 53275,V. SCHIEBT SPRITE V IN DEN
BILDSCHIRMVORDERGRUND."./...."========
==============================".T....".P
OKE 643,0:POKE 644,128:SYS 64764.
SETZT DAS BASIC RAM"......"UM 8 KBYTE NA
CH UNTEN."......"=======================
===============".X....198,0:.653,2:.7000
......"."......". P E E K UND P O
O K E S 2".U...."..POKE 641,0:POKE
642,16:SYS 64764. SETZT DAS BASIC
RAM".R...."UM 2 KBYTE NACH OBEN.". ....
"======================================"
......".POKE 53265,59. SCHALTET DIE HOCH
AUFLOE- SENDE GRAFIK EIN."......"======
================================".<...."
MIT . POKE 54296,0. LAESST SICH DIE".J..
.."TONAUSGABE DES SOUND-CHIPS ABSCHALTEN
."......"MIT . POKE 54296,15. ERREICHT D
IE"......"LAUTSTAERKE IHR MAXIMUM.".....
."======================================
"......"MIT . POKE 2050,10 . UND DER EIN
GABE".W...."EINER ZEILENNUMMER DIE NICHT
IM BASIC PROGRAMM VORKOMMT,HOLT MAN".
....."EIN MIT RESET GELOESCHTES PROGRAMM
ZURUECK."... .."==================
===================="..."..".POKE768,145
. GIBT BEI JEDEM EINGEGEBE NEN BEFEHL
IM DIREKTMODOS".H.#.."KEINE FEHLERMELDU
NG MEHR AUS Z.B [POKE 70000,300]"
.`.&..198,0:.653,2:.7000.I.'.."."...(.."
. P E E K UND P O O K E S 3".
B.)..".SYSTEMMMELDUNG [LOAD,VERIFY,U.S.W
]"...*.."..POKE 157,0 .SYSTEMMELDUNG AU
S."...+..".POKE 157,128.SYSTEMMELDUND EI
N.".<.,.."..POKE 768,185.FEHLERMELDUNG A
US.".D.-..".POKE 768,139.FEHLERMELDUNG E
IN."......"..POKE 53272,22.KLEINSCHRIFT
EIN.".../..".POKE 53272,21.KLEINSCHRIFT
AUS.".H.0..".UMSCHALTEN"...1..".POKE 1,5
4.BASIC INS RAM"...2..".POKE 1,53.BASIC
UND KERNAL INS RAM".B.3..".POKE 1,52.BAS
IC-KERNAL UND I/0 INS RAM".L.4..".POKE 1
,51.BLENDET ZEICHENSATZ EIN"...6..".NUR
IM PROGRAMM MOEGLICH !!"...7..".POKE 563
34,0.INTERRUPT AUS".V.8..".POKE 56334,1.
INTERRUPT EIN"......198,0:.653,2:.7000..
....100......************PEEK/POOKES-END
E*****.E....************LISTSCHUTZ******
*****.`....".":.53280,5:.53281,1......".
. LISTSCHUTZ
1"......"..HIER EINIGE VARIANTEN ZUM LIS
TSCHUTZ"......"=========================
==============".4....".POKE 768,143. WEN
N DAS PROGRAMM DAS ENDE ODER EINEN
END".P...."BEFEHL ERHAELT WIRD EIN RESET
AUSGEFUEHRT."......"STATT 143
KANN AUCH 144/146/148 EINGEGE BEN WERDE
N.".Z...."==============================
========="......".POKE 774,X"......".X=2
2 ODER 24. BEI LIST WIRD DAS PRO-".;....
"GRAMM SEHR BUNT GELISTET.".}....".X=25.
ES WIRD DAS PROGRAMM GELISTET ABER
DIE BEFEHLE"......"WERDEN AUSGETAUSCHT.
".Z....".X=40. ES WIRD DAS PROGRAMM GELI
STET ABER FUER JEDEN"......"BEFEHL
EIN .LIST.".8....".X=50 BIS 56. ES WIRD
EIN BUNTES MUSTER GELISTET,DIESES IST"
.Y...."UNABHAENGIG VOM PROGRAMM."......"
======================================="
. ....198,0:.653,2:.7000...!.."."...#.."
.. LISTSCHUTZ
2".".%..".POKE 788,50. HIER WIRD RUN/ST
OP BLOKIERT,ES ERSCHEINT".`.'..
"KEIN CURSOR UND DIE INTERNE UHR *
BLEIBT STEHEN.".Z.).." * VARIABLE TI,TI
$"...*.."===============================
========"...+.."EINEN RECHT GUTEN LISTSC
HUTZ ERHAELT MAN,INDEM AN EINE PROGRA
MM".;.-.."ZEILE EINEN REM-BEFEHL ANHAENG
T UND DAHINTER IN ANFUEHRUNGS-".../.
."ZEICHEN EINE REIHE REVERSER [T] GEFOLG
T VON EINEM DOPPELPUNKT UND"...0.."EINEM
BELIEBIGEN TEXT SCHREIBT."...1..".BEISP
IEL"...3..".10 PRINT'BAUM':REM' [19 REVE
RSE T]':. .10 PRINT'BLUME'".H.5.."WEN
N DIESES KLEINE PROGRAMM GESTARTET WIR
D,SCHREIBT DER COMPUTER"...7.."[BAUM],BE
IM LISTEN ZEIGT ER ABER NUR [10 PRINT
'BLUME']...8.."========================
===============".P.:..198,0:.653,2:.7000
.Y.;.."."...<..".. LISTSCH
UTZ 3".N.B..".EINE WEITERE
INTERESSANTE VARIANTE, SEINE PROGRAM
ME ZU".R.C.."SCHUETZEN FOLGT NACHSTEHEND
."...E.."WICHTIG HIERBEI IST,DASS ALLE Z
EILEN, DIE SPAETER NICHT MEHR AUF-"..
F.."GELISTET WERDEN SOLLEN,NACH FOLGENEN
SCHEMA EINGEGEBEN WERDEN.".$ G..".10
::::: PRINT'HALLO'".J H.."NACH EINGABE
DER ZEILENNUMMER FOLGEN 5 DOPPELPUNKTE,
SOWIE DIE".. I.."EIGENDLICHEN BEFEHLE.".
P J.."WENN NUN DAS FOLGENDE PROGRAMM AN
DAS ZU SCHUETZENDE ANGEHAENGT"..!K.."W
IRD UND MIT RUN 50000 GESTARTET, E
RSCHEINT NACH DEM LISTEN".;!L.."NUR NOCH
DIE ZEILENNUMMER.".S!N..198,0:.653,2:.7
000.\!O.."."..!P..".. LIST
SCHUTZ 4".W!R.."..50000 FOR
X=PEEK(44)*256+PEEK(43)TO. .PEEK(46
)*256+PEEK(45)".#"S.."..50005 IF PEEK(X)
=58ANDPEEK(X+1)=58AND. .PEEK(X+2)=58AN
DPEEK(X+3)".O"T..".=58ANDPEEK(X+4)=58THE
NPOKEX,0:X=X+4".C"U.."..50010 NEXT".."V.
."...DIESES PROGRAMM WANDELT DEN ERSTEN
DOPPELPUNKT IN EINE 0 UM".."W.."VON
DER LISTROUTINE WIRD DIESE 0 DANN ALS
ZEILENMARKIERUNG"..#X.."ERKANNT UND BEI
M LISTEN UEBERGANGEN.".6#Y..198,0:.653,2
:.7000.?#Z..".".Q#[..".. L
ISTSCHUTZ 5"..#`..".MIT FOL
GENDEN PROGRAMM KANN MAN DEN LISTSCH
UTZ WIEDER KNACKEN"..$B.."..50000 FORX=P
EEK(44)*256+PEEK(43)TO. .PEEK(46)*2
56+PEEK(45)".G$C.."..50005 IFPEEK(X)=0AN
DPEEK(X+1)=58AND. .PEEK(X+3)=58AND".
N$D..".PEEK(X+4)=58THENPOKEX,58:X=X+4"..
$E.."..50010 NEXT"..$J..".NACH ABLAUF DI
ESER ROUTINE IST DER".X$K.."URSPRUNGSZUS
TAND WIEDER HERGESTELLT"..%L.."=========
=============================".5%M..".PO
KE818,226:POKE 819,225.SAVE BLOKIERT".B%
N..".POKE818,237:POKE 819,245.SAVE NORMA
L".Z%...198,0:.653,2:.7000..%...100..%..
.*****LISTSCHUTZ-ENDE************.O%...*
**DISKETTEN/CASSETTENTIP*******.X%..."."
..&...". DISKETTEN UND CASSETTENTIP
S 1".4&...".NACHLADEN VON UNTERPROGR
AMMEN DURCH".}&...".POKE186,1:POKE780,0:
POKE781,0:POKE782,. .96:POKE183,0:SYS 6
5493"..&..."============================
=========="..&..."MIT FOLGENDEN PROGRAMM
LAESST SICH DIE LADEADRESSE EINES AUF"
.-'..."DISKETTE GESPEICHERTEN PROGRAMMES
HERAUSFINDEN.".\'...".20 A=ASC(A$
+CHR$(0)):B=ASC(B$+CHR$(0))".'...".30 ?
'STARTADRESSE='A+256*B"..'..."==========
============================"..'..."MEHE
RE PROGRAMME KANN MAN AUF EINEN SCHL
AG LOESCHEN MIT".((...".PRINT#15, 'SO:PR
OGRAMM1,PROGRAMM2,. .U.S.W".V(..."=
====================================="..
(..."ES KANN VORKOMMEN,DAS TROTZ MEHRFAC
HER VERSUCHE BEIM ABSPEICHERN"..(..."HI
NTERHER NICHTS AUF DER KASSETTE STEHT AB
HILFE BRINGT .POKE 0,47"..)...198,0:.653
,2:.7000..)...".".9)...". DISKETTEN
UND CASSETTENTIPS 2"..)...".WENN BE
IM AUFTRETEN EINES FEHLERS DIE ROTE LE
UCHTDIODE NICHT"..)..."ERLISCHT,KANN MAN
DIES MIT DEM BEFEHL".E)...".10 OPEN 15,
8,15"..)...".20 INPUT A,B$"..)...".30 CL
OSE 15. ERREICHEN.".)*..."==============
========================".O*..."MIT FOLG
ENDER ROUTINE KANN MAN DIE DATASETT
E ALS NORMALEN"..*..."KASSETTENRECORDER
BETREIBEN.".J*...".10 FORI=49152 TO 4917
8:READA:POKEI,A:. .NEXT"..*...".20 SYS
49152"..+ ..".30 DATA 173,142,2,240,1,9
6,173,13,220,".<+!..".41,16,240,7,169,15
,141,24,212,144,236".E+"..".40 DATA 169,
0,141,24,212,144,229"..+#.."============
=========================="..+&..198,0:.
653,2:.7000..+'.."."..+(..". DISKET
TEN UND CASSETTENTIPS 3". ,*.."..LOA
D '$$',8 . MELDUNG NUR DER FREIEN B
LOECKE.".Y,+..".LOAD '$S',8 . DIRECTORY
ERSCHEINT OBEN LINKS."..,,..".LOAD '$
CLR/HOME',8.BILDSCHIRM LOESCHEN DIREC
TORY GELADEN."..,...".LOAD '#',8 . LOESC
HT DAS BLINKEN DES ROTEN LAEMPCHENS
"..,/.."..NUR DRECKTMODUS..".F-0..".LOAD
'**',8 ODER LOAD '*X',8 .X=FUER AN
FANGSBUSTABE/PROGRAMM"..-1.."HOLT PROGRA
MME DIE DURCH.1,8,15,'S:. .NAME':CL
OSE1".O-2.."GELOESCHT WURDEN,AUCH WENN N
ACH DEM OPEN-BEFEHL EIN .NEW. ODER".
..3.."EIN .RESET. ERFOLGTE VOLLSTAENDIG
ZURUECK.".&.4..198,1:.653,2:.700
0:.".".V.5..".. DISKETTEN UND CASSET
TENTIPS 4"...6..".AUCH BEI EINEN FOR
MARTIERUNGSBEFEHL ALLERDINGS OHNE .I
D-NUMMER".I.7.."KANN DER BEFEHL ANGEWAND
T WERDEN"../8.."DER FORMATIERUNGSBEFEHL
DARF DENN ABER NUR WIE FOLGT LAUTEN:".2
/9..".OPEN1,8,15,'N:NAME,':CLOSE1".`/:..
"======================================"
../;.."ABSPEICHERN EINES MASCHINENPROGRA
MMS DIRECKT AUF DISK.".F/<..".1 OPEN1
,8,15,'PROGRAMM NAME'"../=..".2 S=INT(A/
256):L=A-S*256"..0>..".3 PRINT#1,CHR$(L)
;CHR$(S);..0?..".4 FORX=ATOE".=0@..".5 P
RINT#1,CHR$(PEEK(X))".T0A..".6 NEXTI:CLO
SE1".}0B.."...A=ANFANGSADRESSE E=ENDADRE
SSE."..0R..198,0:.653,2:.7000..0...100.D
0...****DISKETTEN/CASSETTENTIP-ENDE*..0K
..198,0:.653,2:.7000..0L..100..1M..****D
ISKETTEN/CASSETTENTIP-ENDE*..1N.:.71O..*
********SONSTIGES**************.@1P.."."
.O1Z..". SONSTIGES
1"..1..."..PRINT PEEK (203). GIBT D
IE ZULETZT GE- DRUECKTE TASTE IM".N1..
."CHARAKTERMODOS AUS."..2...".PRINT PEEK
(197). DERZEITIGER TASTENDRU
CK.".W2...".PRINT PEEK (198). GIBT AN WI
EVIEL TASTEN BEREITS IM TASTATURPUFFER".
F2..."STEHEN."..2...".PRINT PEEK (214),P
EEK (211).GIBT DIE AK TUELLE POSITION D
ES CURSOR".M2..."AUS [ZEILE/SPALTE]."..2
..."====================================
==".C3...".DEF FNF (A)=A-161-33*(A<255)-
64*(A<192). .-32*(A<160)+32*(A<96)"..3..
.".-64*(A<64). DIESE FUNKTION WANDELT DE
N ASCII CODE A "..3..."IN DEN ENTSPREC
HENDEN BILDSCHIRMCODE UM"..3..."========
=============================="..4...".S
YS 65499. SETZT .TI$. AUF 000000".74..."
======================================".
O4...198,0:.653,2:.7000.X4..."."..4...".
SONSTIGES 2".
J4...".DIE ANFANGSADRESSE DES BASIC-PROG
RAMMS ERHAELT MAN DURCH:"..4...".PRINT
PEEK (43)+PEEK (44)*256 ".35..."DIE ENDA
DRESSE DES BASIC-PROGRAMMS ERHAELT
MAN DURCH:".Z5...".PRINT PEEK (45)+PEEK
(46)*256 "..5..."=======================
===============".O5...".PRINT PEEK (182)
. GIBT DIE ANZAHL DER ZEICHENLESEFEHL
ER AUS"..6...".PRINT PEEK (57).AUSGABE D
ER ZEILENNUMMER AN DER DAS PROGRAMM"./6.
.."UNTERBROCHEN WURDE.".Y6...".PRINT PEE
K (152). GIBT DIE ANZAHL DER GEOEFFNE
TEN DATEIEN AUS."..6..."================
======================"..6..."ALLE JOYST
ICKFUNKTIONEN KANN MAN AUCH UEBER TAST
ATUR STEUERN:"./7...".JOYSTICK PORT 1. .
FEUER=SPACE. .LINKS= CTRL. .RECHTS='2'".
L7...".OBEN='1'. .UNTEN='<'".D7...198,0:
.653,2:.7000.M7..."."..7...".
SONSTIGES 3"..7..."..JOY
STICK PORT 2. .FEUER=CTRL+'J' LINKS.
.=CTRL+'D'"..8...".RECHTS=CTRL+'G'. .OBE
N=CTRL+CRSR RIGHT. .UNTEN=CTRL+'A'".L
8..."===================================
===".|8...".WAIT 56320,16,16. WARTET AUF
FEUERKNOPF"..8...".WAIT 56320,4,4. WART
ET AUF JOYSTICK NACH LINKS"..8 ..".WAIT
56320,1,1. WARTET AUF JOYSTICK NACH OBEN
". 9!..".WAIT 56320,2,2. WARTET AUF JOYS
TICK NACH UNTEN".K9".."DIESES GILT FUER
PORT 2 BEI PORT 1 LAUTET DIE ADR
ESSE 56321"..9#.."======================
================".Y9$.."EINEN WARNTON ER
ZEUGT MAN EINFACH IN FOLGENDER WEISE.
"..:%..".10 L=54296:FORX=1TO100:POKEL,10
:POKEL,0. .:NEXTX".*:*..198,0:.653,2:.70
00.3:,..".".B:...". SONSTI
GES 4"..:0..".MIT DEM JOYSTI
CK IM PORT 1 KANN MAN DAS AUFLISTEN
EINES".T:1.."PROGRAMMES AM BILDSCHIRM VE
RLANGSAMEN."..;2.."=====================
=================".D;3.."MIT. SYS 64767.
SETZT MAN DEN COMPUTER ZURUECK,OHNE
DAS".N;4.."SICH DIE BILDSCHIRMFARBEN AEN
DERN."..;5.."===========================
==========="..;6.."UM DEN BEFEHL. PRINT
#. ABZUKUERZEN KANN MAN . P/SHIFT
R"..;7.."EINGEBEN.".!<8.."==============
========================".H<9.."IM DIREK
TMODUS KANN MAN MIT FOLGENDEN PROGRAMM
DEN BILDSCHIRM"..<:.."INHALT AUSDRUCKEN
.".F<;..".OPEN 3,3:OPEN 4,4:PRINT CLR:FO
R I=1. .TO 1000:GET#3,A$:"..<<..".PR
INT#4,A$;:NEXT:CLOSE3:CLOSE4"..==.."====
==================================".3=>.
.198,0:.653,2:.7000.<=?..".".K=@.."..
SONSTIGES 5"..=H.
.".MIT .PRINT PEEK(678). LAESST SICH"..=
I.."FESTSTELLEN WO DER COMPUTER HERGESTE
LLT WURDE . 1=EUROPA 2=USA"..>L.."======
================================".->M.."
..CONT NACH CONTINIUE ERROR.".L>N.."AUSG
ABE DER ZEILENNUMMER VOM LETZTEN PROG
RAMMABBRUCH"..>O..".PRINT PEEK(59)+256*P
EEK(60)"..>P.."WENN CONT NICHT MEHR MOEG
LICH,DANN :"..>Q..".POKE 59,PEEK(61):POK
E 60,PEEK(62)"..?R.."===================
===================".[?S.."DIE [READY] M
ELDUNG KANN IM DIREKTMODUS AUCH DURCH EI
GENEN TEXT".S?T.."GEANDERT WERDEN."..?U.
.".FORI=40960TO49151:POKEI,PEEK(I):NEXT.
.:POKE1,54..BASIC INS RAM."..@V.."..
FORI=41848TO41853:POKEI,32:NEXT.
.READY UEBERSCHREIBEN.".Q@W..".A$='H
ALLO':FORI=1TO6:POKE41847+I,ASC. .(MI
D$(A$,I,1)):NEXT".@X..".TEXTEINGABE NIC
HT MEHR ALS 6 ZEICHEN."..@Y..198,0:.653,
2:.7000. @Z..".".O@[..".. S
ONSTIGES 6"..@\..".REM INVER
SE SETZEN START MIT RUN 60000"..A^..".59
999 END".6A_..".60000 N=PEEK(43)+256*PEE
K(44)".DA`..".60010 IFPEEK(N+4)=143AND P
EEK(N+5)=42".}AA..".THENPOKE(N+5),18"..A
B..".60020 N=PEEK(N)+256*PEEK(N+1)"..AC.
.".IFN>0THEN 60010"..AD.."==============
========================"..B<..198,0:.65
3,2:.7000..B=..100.0B...******SONSTIGES-
ENDE************.KB...".":.53281,6:.5328
0,7..B%.S$."................. TRICKKIST
E 2.TEIL "..B-..I.1.C(S$)..B..P$.J
(S$,I,15).J(S$,1,40.C(J(S$,I,40)))..B8..
".".P$;:.Z.1.30:.Z:.I:.T.1.2500:.T:.5015
..C..."............":.53280,0:.53281,0.4
C....8)"PROGRAMM BEENDEN [1].".ZC.
...8)"PROGRAMM WIEDERHOLEN [2].".PC...
198,0:.198,1:.E$..C...E$."1".8000..C...E
$."2".100..C...5004.KC..."**************
**2. TEIL****************"..C...".":.53
280,6:.53281,6..D...".******************
**********************".GD..."**********
******2. TEIL****************".YD..."*.
T R I C K K I S T E .*
"..D..."********************************
********"..D..."*. EIN PUBLIC-DOMAIN-P
ROGRAMM .*"..E..."*.
FUER DEN .*".=ED.."****
************************************".OE
N.."*. COMMODORE C 64
.*"..EX.."**************************
**************".OE..."******************
**********************"..F..."******. ZU
M WEITERBLAETTERN IMMER .******".3F..."
******.DIE COMMODORE-TASTE DRUECKEN.****
**".EF...198,0:.653,2.GF..AD.49152:.I.0.
64:.X:.AD.I,X:..YF...I.1.39:.AD:...FX..I
.1.40:.AD:...F.....F?..******ENDE*******
***************.DF@..X.0.151.OFJ..646,X.
.FO.. ".....................PROGAMM E
NDE",..GT..X:.T.1.1500:.T..G^..7000.&GH.
.64738...
> CLICK IMAGE PREVIEW FOR FULL MODAL