SIMONS DEMO
FILE INFORMATION
FILENAME(S): SIMONS DEMO
FILE TYPE(S): PRG
FILE SIZE: 9.2K
FIRST SEEN: 2025-11-02 16:54:43
APPEARS ON: 1 disk(s)
FILE HASH
c1b92613c5c30c8d688d3d09d6f5568892b63c7a77fb3e1f9e748a2ad8651ae2
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| PROGRAMMLISTE | SIMONS DEMO | PRG | Treasure Chest - Reamigation | 2 | 2 |
⚠ CORRUPT DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 26 08 0A 00 8F 20 2A 2A 2A 2A 2A 2A 2A 2A |..&.... ********|
00000010: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000020: 2A 2A 2A 2A 2A 2A 00 4B 08 0B 00 8F 20 2A 2A 2A |******.K.... ***|
00000030: 20 4D 45 53 53 45 44 45 4D 4F 20 20 20 20 20 20 | MESSEDEMO |
00000040: 20 20 20 20 20 20 20 20 2A 2A 2A 00 70 08 0C 00 | ***.p...|
00000050: 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |. **************|
00000060: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000070: 00 7D 08 14 00 64 31 20 53 54 41 52 54 00 A1 08 |.}...d1 START...|
00000080: 1E 00 8F 20 2A 2A 2A 2A 20 50 4F 4B 45 20 37 38 |... **** POKE 78|
00000090: 38 2C 35 32 3A 50 4F 4B 45 20 37 39 32 2C 31 39 |8,52:POKE 792,19|
000000A0: 33 00 BA 08 64 00 97 20 35 33 32 38 30 2C 31 20 |3...d.. 53280,1 |
000000B0: 3A 97 20 35 33 32 38 31 2C 31 00 CF 08 6E 00 64 |:. 53281,1...n.d|
000000C0: 01 20 31 32 2C 32 3A 64 19 20 34 2C 35 2C 36 00 |. 12,2:d. 4,5,6.|
000000D0: F2 08 78 00 64 6F 20 35 2C 35 2C 22 02 C3 4F 4D |..x.do 5,5,"..OM|
000000E0: 4D 4F 44 4F 52 45 20 20 36 34 22 2C 33 2C 36 2C |MODORE 64",3,6,|
000000F0: 31 32 00 0F 09 82 00 64 6F 20 35 30 2C 39 30 2C |12.....do 50,90,|
00000100: 22 02 55 20 4E 20 44 22 2C 31 2C 32 2C 31 32 00 |".U N D",1,2,12.|
00000110: 34 09 8C 00 64 6F 20 35 2C 31 36 30 2C 22 01 53 |4...do 5,160,".S|
00000120: 49 4D 4F 4E 27 53 20 42 41 53 49 43 22 2C 32 2C |IMON'S BASIC",2,|
00000130: 35 2C 31 32 00 3D 09 96 00 64 66 20 33 00 4B 09 |5,12.=...df 3.K.|
00000140: A0 00 97 20 35 33 32 38 30 2C 32 00 54 09 AA 00 |... 53280,2.T...|
00000150: 64 66 20 33 00 63 09 B4 00 97 20 35 33 32 38 30 |df 3.c.... 53280|
00000160: 2C 31 34 00 6C 09 BE 00 64 66 20 33 00 87 09 C8 |,14.l...df 3....|
00000170: 00 97 20 35 33 32 38 30 2C 31 34 3A 20 97 20 35 |.. 53280,14: . 5|
00000180: 33 32 38 31 2C 31 34 00 9E 09 D2 00 64 01 20 31 |3281,14.....d. 1|
00000190: 32 2C 32 3A 20 64 19 20 30 2C 20 36 2C 31 00 C3 |2,2: d. 0, 6,1..|
000001A0: 09 DC 00 64 6F 20 20 35 2C 31 30 2C 22 01 53 49 |...do 5,10,".SI|
000001B0: 4D 4F 4E 27 53 20 42 41 53 49 43 22 2C 33 2C 35 |MON'S BASIC",3,5|
000001C0: 2C 31 32 00 DF 09 E6 00 64 6F 20 35 30 2C 37 30 |,12.....do 50,70|
000001D0: 2C 22 02 45 49 4E 45 22 2C 31 2C 32 2C 31 35 00 |,".EINE",1,2,15.|
000001E0: 01 0A F0 00 64 6F 20 35 2C 31 31 30 2C 22 01 55 |....do 5,110,".U|
000001F0: 45 42 45 52 53 49 43 48 54 22 2C 32 2C 35 2C 31 |EBERSICHT",2,5,1|
00000200: 36 00 2A 0A FA 00 64 6F 20 35 2C 31 37 30 2C 22 |6.*...do 5,170,"|
00000210: 02 42 49 54 54 45 20 20 31 20 44 52 55 45 43 4B |.BITTE 1 DRUECK|
00000220: 45 4E 22 2C 31 2C 32 2C 20 39 00 36 0A 04 01 64 |EN",1,2, 9.6...d|
00000230: 33 20 41 4E 54 57 00 4F 0A 2C 01 97 20 35 33 32 |3 ANTW.O.,.. 532|
00000240: 38 30 2C 35 3A 20 97 20 35 33 32 38 31 2C 35 00 |80,5: . 53281,5.|
00000250: 65 0A 36 01 64 01 20 31 32 2C 32 3A 20 64 19 20 |e.6.d. 12,2: d. |
00000260: 30 2C 31 2C 32 00 84 0A 40 01 64 6F 20 31 30 2C |0,1,2...@.do 10,|
00000270: 31 30 2C 22 02 D3 50 52 49 54 45 53 22 2C 31 2C |10,"..PRITES",1,|
00000280: 35 2C 32 33 00 9F 0A 4A 01 64 6F 20 35 30 2C 37 |5,23...J.do 50,7|
00000290: 30 2C 22 02 4D 49 54 22 2C 32 2C 32 2C 31 35 00 |0,".MIT",2,2,15.|
000002A0: C4 0A 54 01 64 6F 20 35 2C 31 31 30 2C 22 01 53 |..T.do 5,110,".S|
000002B0: 49 4D 4F 4E 27 53 20 42 41 53 49 43 22 2C 33 2C |IMON'S BASIC",3,|
000002C0: 35 2C 31 32 00 ED 0A 5E 01 64 6F 20 35 2C 31 37 |5,12...^.do 5,17|
000002D0: 30 2C 22 02 42 49 54 54 45 20 20 32 20 44 52 55 |0,".BITTE 2 DRU|
000002E0: 45 43 4B 45 4E 22 2C 32 2C 32 2C 20 39 00 F9 0A |ECKEN",2,2, 9...|
000002F0: 68 01 64 33 20 41 4E 54 57 00 12 0B 90 01 97 20 |h.d3 ANTW...... |
00000300: 35 33 32 38 30 2C 32 3A 20 97 20 35 33 32 38 31 |53280,2: . 53281|
00000310: 2C 32 00 29 0B 9A 01 64 01 20 31 32 2C 32 3A 20 |,2.)...d. 12,2: |
00000320: 64 19 20 30 2C 31 34 2C 31 00 47 0B A4 01 64 6F |d. 0,14,1.G...do|
00000330: 20 31 35 2C 31 30 2C 22 02 C7 52 41 46 49 4B 22 | 15,10,"..RAFIK"|
00000340: 2C 31 2C 35 2C 32 35 00 62 0B AE 01 64 6F 20 35 |,1,5,25.b...do 5|
00000350: 30 2C 37 30 2C 22 02 4D 49 54 22 2C 33 2C 32 2C |0,70,".MIT",3,2,|
00000360: 31 35 00 87 0B B8 01 64 6F 20 35 2C 31 31 30 2C |15.....do 5,110,|
00000370: 22 01 53 49 4D 4F 4E 27 53 20 42 41 53 49 43 22 |".SIMON'S BASIC"|
00000380: 2C 32 2C 35 2C 31 32 00 B0 0B C2 01 64 6F 20 35 |,2,5,12.....do 5|
00000390: 2C 31 37 30 2C 22 02 42 49 54 54 45 20 20 33 20 |,170,".BITTE 3 |
000003A0: 44 52 55 45 43 4B 45 4E 22 2C 33 2C 32 2C 20 39 |DRUECKEN",3,2, 9|
000003B0: 00 BC 0B CC 01 64 33 20 41 4E 54 57 00 D5 0B F4 |.....d3 ANTW....|
000003C0: 01 97 20 35 33 32 38 30 2C 34 3A 20 97 20 35 33 |.. 53280,4: . 53|
000003D0: 32 38 31 2C 30 00 EB 0B FE 01 64 01 20 31 32 2C |281,0.....d. 12,|
000003E0: 32 3A 20 64 19 20 34 2C 34 2C 34 00 08 0C 08 02 |2: d. 4,4,4.....|
000003F0: 64 6F 20 32 30 2C 31 30 2C 22 02 CD 55 53 49 4B |do 20,10,"..USIK|
00000400: 22 2C 31 2C 35 2C 32 35 00 23 0C 12 02 64 6F 20 |",1,5,25.#...do |
00000410: 35 30 2C 37 30 2C 22 02 4D 49 54 22 2C 32 2C 32 |50,70,".MIT",2,2|
00000420: 2C 31 35 00 48 0C 1C 02 64 6F 20 35 2C 31 31 30 |,15.H...do 5,110|
00000430: 2C 22 01 53 49 4D 4F 4E 27 53 20 42 41 53 49 43 |,".SIMON'S BASIC|
00000440: 22 2C 33 2C 35 2C 31 32 00 71 0C 26 02 64 6F 20 |",3,5,12.q.&.do |
00000450: 35 2C 31 37 30 2C 22 02 42 49 54 54 45 20 20 34 |5,170,".BITTE 4|
00000460: 20 44 52 55 45 43 4B 45 4E 22 2C 31 2C 32 2C 20 | DRUECKEN",1,2, |
00000470: 39 00 7D 0C 30 02 64 33 20 41 4E 54 57 00 96 0C |9.}.0.d3 ANTW...|
00000480: 58 02 97 20 35 33 32 38 30 2C 31 3A 20 97 20 35 |X.. 53280,1: . 5|
00000490: 33 32 38 31 2C 31 00 AC 0C 62 02 64 01 20 31 32 |3281,1...b.d. 12|
000004A0: 2C 32 3A 20 64 19 20 34 2C 35 2C 36 00 D4 0C 6C |,2: d. 4,5,6...l|
000004B0: 02 64 6F 20 20 30 2C 31 30 2C 22 02 D0 52 4F 47 |.do 0,10,"..ROG|
000004C0: 52 41 4D 4D 49 45 52 48 49 4C 46 45 22 2C 31 2C |RAMMIERHILFE",1,|
000004D0: 34 2C 31 30 00 EF 0C 76 02 64 6F 20 35 30 2C 37 |4,10...v.do 50,7|
000004E0: 30 2C 22 02 4D 49 54 22 2C 32 2C 32 2C 31 35 00 |0,".MIT",2,2,15.|
000004F0: 14 0D 80 02 64 6F 20 35 2C 31 31 30 2C 22 01 53 |....do 5,110,".S|
00000500: 49 4D 4F 4E 27 53 20 42 41 53 49 43 22 2C 33 2C |IMON'S BASIC",3,|
00000510: 35 2C 31 32 00 3D 0D 8A 02 64 6F 20 35 2C 31 37 |5,12.=...do 5,17|
00000520: 30 2C 22 02 42 49 54 54 45 20 20 35 20 44 52 55 |0,".BITTE 5 DRU|
00000530: 45 43 4B 45 4E 22 2C 32 2C 32 2C 20 39 00 49 0D |ECKEN",2,2, 9.I.|
00000540: 94 02 64 33 20 41 4E 54 57 00 64 0D BC 02 97 20 |..d3 ANTW.d.... |
00000550: 35 33 32 38 30 2C 31 34 3A 20 97 20 35 33 32 38 |53280,14: . 5328|
00000560: 31 2C 31 34 00 7A 0D C6 02 64 01 20 31 32 2C 32 |1,14.z...d. 12,2|
00000570: 3A 20 64 19 20 31 2C 33 2C 36 00 9F 0D D0 02 64 |: d. 1,3,6.....d|
00000580: 6F 20 31 35 2C 31 30 2C 22 02 D3 54 52 55 4B 54 |o 15,10,"..TRUKT|
00000590: 55 52 49 45 52 54 45 22 2C 31 2C 34 2C 31 30 00 |URIERTE",1,4,10.|
000005A0: C5 0D DA 02 64 6F 20 31 30 2C 35 30 2C 22 02 D0 |....do 10,50,"..|
000005B0: 52 4F 47 52 41 4D 4D 49 45 52 55 4E 47 22 2C 31 |ROGRAMMIERUNG",1|
000005C0: 2C 34 2C 31 30 00 E0 0D E4 02 64 6F 20 35 30 2C |,4,10.....do 50,|
000005D0: 38 35 2C 22 02 4D 49 54 22 2C 32 2C 32 2C 31 35 |85,".MIT",2,2,15|
000005E0: 00 05 0E EE 02 64 6F 20 35 2C 31 32 30 2C 22 01 |.....do 5,120,".|
000005F0: 53 49 4D 4F 4E 27 53 20 42 41 53 49 43 22 2C 33 |SIMON'S BASIC",3|
00000600: 2C 35 2C 31 32 00 2E 0E F8 02 64 6F 20 35 2C 31 |,5,12.....do 5,1|
00000610: 37 30 2C 22 02 42 49 54 54 45 20 20 36 20 44 52 |70,".BITTE 6 DR|
00000620: 55 45 43 4B 45 4E 22 2C 32 2C 32 2C 20 39 00 3A |UECKEN",2,2, 9.:|
00000630: 0E 02 03 64 33 20 41 4E 54 57 00 47 0E E8 03 64 |...d3 ANTW.G...d|
00000640: 32 20 53 54 41 52 54 00 55 0E D0 07 64 31 20 55 |2 START.U...d1 U|
00000650: 45 42 45 52 53 00 6F 0E DA 07 97 20 35 33 32 38 |EBERS.o.... 5328|
00000660: 30 2C 31 34 3A 97 20 35 33 32 38 31 2C 31 34 00 |0,14:. 53281,14.|
00000670: 85 0E DF 07 64 01 20 31 32 2C 32 3A 64 19 20 31 |....d. 12,2:d. 1|
00000680: 2C 20 36 2C 30 00 A8 0E E4 07 64 6F 20 35 2C 31 |, 6,0.....do 5,1|
00000690: 30 2C 22 53 49 4D 4F 4E 27 53 20 42 41 53 49 43 |0,"SIMON'S BASIC|
000006A0: 22 2C 31 2C 35 2C 31 32 00 CA 0E EE 07 64 6F 20 |",1,5,12.....do |
000006B0: 32 30 2C 35 35 2C 22 02 55 45 42 45 52 20 20 31 |20,55,".UEBER 1|
000006C0: 30 30 22 2C 31 2C 34 2C 31 32 00 ED 0E F8 07 64 |00",1,4,12.....d|
000006D0: 6F 20 38 2C 31 30 30 2C 22 5A 55 53 41 45 54 5A |o 8,100,"ZUSAETZ|
000006E0: 4C 49 43 48 45 22 2C 31 2C 35 2C 31 32 00 11 0F |LICHE",1,5,12...|
000006F0: 02 08 64 6F 20 35 2C 31 35 30 2C 22 42 41 53 49 |..do 5,150,"BASI|
00000700: 43 2D 42 45 46 45 48 4C 45 22 2C 31 2C 35 2C 31 |C-BEFEHLE",1,5,1|
00000710: 32 00 20 0F 07 08 81 20 58 B2 31 20 A4 20 32 30 |2. .... X.1 . 20|
00000720: 00 2D 0F 0A 08 3A 20 20 64 66 20 2E 39 00 4F 0F |.-...: df .9.O.|
00000730: 0C 08 64 6F 20 32 30 2C 35 35 2C 22 02 55 45 42 |..do 20,55,".UEB|
00000740: 45 52 20 20 31 30 30 22 2C 32 2C 34 2C 31 32 00 |ER 100",2,4,12.|
00000750: 5C 0F 11 08 3A 20 20 64 66 20 2E 39 00 7E 0F 16 |\...: df .9.~..|
00000760: 08 64 6F 20 32 30 2C 35 35 2C 22 02 55 45 42 45 |.do 20,55,".UEBE|
00000770: 52 20 20 31 30 30 22 2C 33 2C 34 2C 31 32 00 86 |R 100",3,4,12..|
00000780: 0F 20 08 82 20 58 00 9F 0F 34 08 97 20 35 33 32 |. .. X...4.. 532|
00000790: 38 30 2C 31 34 3A 97 20 35 33 32 38 31 2C 31 00 |80,14:. 53281,1.|
000007A0: B6 0F 3E 08 64 01 20 31 32 2C 32 3A 64 19 20 31 |..>.d. 12,2:d. 1|
000007B0: 34 2C 36 2C 31 34 00 DC 0F 48 08 64 6F 20 30 2C |4,6,14...H.do 0,|
000007C0: 31 30 2C 22 50 52 4F 47 52 41 4D 4D 49 45 52 48 |10,"PROGRAMMIERH|
000007D0: 49 4C 46 45 22 2C 31 2C 32 2C 31 30 00 02 10 52 |ILFE",1,2,10...R|
000007E0: 08 64 6F 20 30 2C 34 35 2C 22 53 54 52 49 4E 47 |.do 0,45,"STRING|
000007F0: 42 45 48 41 4E 44 4C 55 4E 47 22 2C 32 2C 32 2C |BEHANDLUNG",2,2,|
00000800: 31 30 00 28 10 5C 08 64 6F 20 30 2C 38 30 2C 22 |10.(.\.do 0,80,"|
00000810: 5A 41 48 4C 45 4E 42 45 48 41 4E 44 4C 55 4E 47 |ZAHLENBEHANDLUNG|
00000820: 22 2C 31 2C 32 2C 31 30 00 4F 10 66 08 64 6F 20 |",1,2,10.O.f.do |
00000830: 30 2C 31 31 35 2C 22 44 49 53 4B 45 54 54 45 4E |0,115,"DISKETTEN|
00000840: 42 45 46 45 48 4C 45 22 2C 32 2C 32 2C 31 30 00 |BEFEHLE",2,2,10.|
00000850: 73 10 70 08 64 6F 20 30 2C 31 35 30 2C 22 53 54 |s.p.do 0,150,"ST|
00000860: 52 55 4B 54 55 52 49 45 52 54 45 22 2C 31 2C 32 |RUKTURIERTE",1,2|
00000870: 2C 31 30 00 99 10 75 08 64 6F 20 32 30 2C 31 37 |,10...u.do 20,17|
00000880: 35 2C 22 50 52 4F 47 52 41 4D 4D 49 45 52 55 4E |5,"PROGRAMMIERUN|
00000890: 47 22 2C 31 2C 32 2C 31 30 00 A8 10 77 08 64 1C |G",1,2,10...w.d.|
000008A0: 20 31 36 2C 36 2C 31 34 00 B2 10 78 08 64 66 20 | 16,6,14...x.df |
000008B0: 31 35 00 BB 10 79 08 64 1C 20 30 00 D4 10 84 08 |15...y.d. 0.....|
000008C0: 97 20 35 33 32 38 30 2C 31 30 3A 97 20 35 33 32 |. 53280,10:. 532|
000008D0: 38 31 2C 31 00 EB 10 8E 08 64 01 20 31 32 2C 32 |81,1.....d. 12,2|
000008E0: 3A 64 19 20 31 34 2C 36 2C 31 34 00 0C 11 98 08 |:d. 14,6,14.....|
000008F0: 64 6F 20 30 2C 20 35 2C 22 42 49 4C 44 53 43 48 |do 0, 5,"BILDSCH|
00000900: 49 52 4D 2D 22 2C 33 2C 32 2C 31 34 00 2D 11 A2 |IRM-",3,2,14.-..|
00000910: 08 64 6F 20 32 30 2C 32 35 2C 22 48 41 4E 44 48 |.do 20,25,"HANDH|
00000920: 41 42 55 4E 47 22 2C 33 2C 32 2C 31 33 00 4A 11 |ABUNG",3,2,13.J.|
00000930: AC 08 64 6F 20 33 30 2C 36 30 2C 22 47 52 41 46 |..do 30,60,"GRAF|
00000940: 49 4B 22 2C 32 2C 32 2C 31 38 00 68 11 B6 08 64 |IK",2,2,18.h...d|
00000950: 6F 20 32 30 2C 39 30 2C 22 53 50 52 49 54 45 53 |o 20,90,"SPRITES|
00000960: 22 2C 33 2C 32 2C 31 38 00 85 11 C0 08 64 6F 20 |",3,2,18.....do |
00000970: 34 30 2C 31 32 30 2C 22 4D 55 53 49 4B 22 2C 32 |40,120,"MUSIK",2|
00000980: 2C 32 2C 31 38 00 A4 11 CA 08 64 6F 20 30 2C 31 |,2,18.....do 0,1|
00000990: 35 37 2C 22 4C 49 47 48 54 50 45 4E 2D 22 2C 33 |57,"LIGHTPEN-",3|
000009A0: 2C 31 2C 37 00 C3 11 D4 08 64 6F 20 30 2C 31 36 |,1,7.....do 0,16|
000009B0: 35 2C 22 4A 4F 59 53 54 49 43 4B 2D 22 2C 33 2C |5,"JOYSTICK-",3,|
000009C0: 31 2C 37 00 E1 11 DE 08 64 6F 20 30 2C 31 37 33 |1,7.....do 0,173|
000009D0: 2C 22 50 41 44 44 4C 45 20 2D 22 2C 33 2C 31 2C |,"PADDLE -",3,1,|
000009E0: 38 00 00 12 E8 08 64 6F 20 37 30 2C 31 36 32 2C |8.....do 70,162,|
000009F0: 22 41 42 46 52 41 47 45 22 2C 33 2C 32 2C 31 32 |"ABFRAGE",3,2,12|
00000A00: 00 0F 12 F2 08 64 1C 20 32 35 2C 32 2C 31 30 00 |.....d. 25,2,10.|
00000A10: 19 12 FC 08 64 66 20 31 35 00 22 12 06 09 64 1C |....df 15."...d.|
00000A20: 20 30 00 2F 12 60 09 64 32 20 53 54 41 52 54 00 | 0./.`.d2 START.|
00000A30: 3D 12 B8 0B 64 31 20 47 52 41 46 49 4B 00 56 12 |=...d1 GRAFIK.V.|
00000A40: BD 0B 97 20 35 33 32 38 30 2C 33 20 3A 97 20 35 |... 53280,3 :. 5|
00000A50: 33 32 38 31 2C 33 00 6B 12 C2 0B 64 01 20 30 2C |3281,3.k...d. 0,|
00000A60: 32 3A 64 19 20 31 32 2C 38 2C 36 00 7A 12 CC 0B |2:d. 12,8,6.z...|
00000A70: 81 20 58 B2 35 20 A4 20 36 30 00 87 12 D6 0B 3A |. X.5 . 60.....:|
00000A80: 20 20 46 B2 46 AA 31 00 9A 12 E0 0B 3A 20 20 8B | F.F.1.....: .|
00000A90: 20 46 B2 34 20 A7 20 46 B2 30 00 C3 12 EA 0B 3A | F.4 . F.0.....:|
00000AA0: 20 20 64 08 20 58 2C 31 2E 39 AC 58 2C 31 36 30 | d. X,1.9.X,160|
00000AB0: AB 32 2E 35 AC 58 2C 31 32 30 AB 39 AD 31 33 AC |.2.5.X,120.9.13.|
00000AC0: 58 2C 46 00 CB 12 F4 0B 82 20 58 00 D4 12 FE 0B |X,F...... X.....|
00000AD0: 64 33 20 9B 00 EA 12 08 0C 8B 20 4A 4E 24 B3 B1 |d3 ....... JN$..|
00000AE0: 22 4A 22 20 A7 20 33 35 30 30 00 F3 12 0D 0C 64 |"J" . 3500.....d|
00000AF0: 70 20 30 00 19 13 12 0C 99 22 93 90 20 35 20 50 |p 0......".. 5 P|
00000B00: 4F 4B 45 20 35 33 32 38 30 2C 33 20 3A 50 4F 4B |OKE 53280,3 :POK|
00000B10: 45 20 35 33 32 38 31 2C 33 00 39 13 1C 0C 99 22 |E 53281,3.9...."|
00000B20: 31 30 20 48 49 52 45 53 20 30 2C 32 3A 4D 55 4C |10 HIRES 0,2:MUL|
00000B30: 54 49 20 31 32 2C 38 2C 36 00 50 13 26 0C 99 22 |TI 12,8,6.P.&.."|
00000B40: 32 30 20 46 4F 52 20 58 3D 35 20 54 4F 20 36 30 |20 FOR X=5 TO 60|
00000B50: 00 61 13 30 0C 99 22 33 30 20 3A 20 46 3D 46 2B |.a.0.."30 : F=F+|
00000B60: 31 00 7C 13 3A 0C 99 22 34 30 20 3A 20 49 46 20 |1.|.:.."40 : IF |
00000B70: 46 3D 34 20 54 48 45 4E 20 46 3D 30 00 AA 13 44 |F=4 THEN F=0...D|
00000B80: 0C 99 22 35 30 20 3A 20 52 45 43 20 58 2C 31 2E |.."50 : REC X,1.|
00000B90: 39 2A 58 2C 31 36 30 2D 32 2E 35 2A 58 2C 31 32 |9*X,160-2.5*X,12|
00000BA0: 30 2D 39 2F 31 33 2A 58 2C 46 00 BA 13 4E 0C 99 |0-9/13*X,F...N..|
00000BB0: 22 36 30 20 4E 45 58 54 20 58 00 E2 13 58 0C 99 |"60 NEXT X...X..|
00000BC0: 22 11 11 44 49 45 20 47 52 41 46 49 4B 20 4E 4F |"..DIE GRAFIK NO|
00000BD0: 43 48 4D 41 4C 20 28 4A 20 4F 44 45 52 20 4E 29 |CHMAL (J ODER N)|
00000BE0: 3F 22 00 EC 13 62 0C 64 33 20 9B 32 00 12 14 6C |?"...b.d3 .2...l|
00000BF0: 0C 8B 20 4A 4E 24 B2 22 4A 22 20 A7 20 64 70 20 |.. JN$."J" . dp |
00000C00: 32 3A 64 19 20 31 32 2C 38 2C 36 3A 89 20 33 30 |2:d. 12,8,6:. 30|
00000C10: 37 30 00 2C 14 AC 0D 97 20 35 33 32 38 30 2C 31 |70.,.... 53280,1|
00000C20: 31 3A 97 20 35 33 32 38 31 2C 31 31 00 34 14 B6 |1:. 53281,11.4..|
00000C30: 0D 5A B2 35 00 48 14 C0 0D 64 01 20 30 2C 32 3A |.Z.5.H...d. 0,2:|
00000C40: 64 19 20 33 2C 34 2C 39 00 4F 14 CA 0D 64 20 00 |d. 3,4,9.O...d .|
00000C50: 5F 14 D4 0D 3A 20 81 20 58 B2 31 20 A4 20 33 00 |_...: . X.1 . 3.|
00000C60: 74 14 F2 0D 3A 20 20 20 64 08 20 5A 2C 5A 2C 5A |t...: d. Z,Z,Z|
00000C70: 2C 5A 2C 58 00 83 14 FC 0D 3A 20 20 20 5A B2 5A |,Z,X.....: Z.Z|
00000C80: AA 33 31 00 95 14 06 0E 3A 20 20 20 64 76 20 31 |.31.....: dv 1|
00000C90: 2C 31 32 2C 30 00 AA 14 10 0E 3A 20 20 20 64 08 |,12,0.....: d.|
00000CA0: 20 5A 2C 5A 2C 5A 2C 5A 2C 58 00 B9 14 1A 0E 3A | Z,Z,Z,Z,X.....:|
00000CB0: 20 20 20 5A B2 5A AB 32 31 00 C4 14 24 0E 3A 20 | Z.Z.21...$.: |
00000CC0: 20 20 64 0C 00 CE 14 2E 0E 3A 20 82 20 58 00 DB | d......: . X..|
00000CD0: 14 38 0E 3A 20 5A B2 5A AB 32 39 00 E7 14 42 0E |.8.: Z.Z.29...B.|
00000CE0: 64 29 20 5A B1 31 34 00 F0 14 4C 0E 64 33 20 9B |d) Z.14...L.d3 .|
00000CF0: 00 05 15 74 0E 8B 20 4A 4E 24 B3 B1 22 4A 22 A7 |...t.. JN$.."J".|
00000D00: 20 34 30 30 30 00 0E 15 79 0E 64 70 20 30 00 36 | 4000...y.dp 0.6|
00000D10: 15 7E 0E 99 22 90 93 31 30 30 20 50 4F 4B 45 20 |.~.."..100 POKE |
00000D20: 35 33 32 38 30 2C 31 31 3A 50 4F 4B 45 20 35 33 |53280,11:POKE 53|
00000D30: 32 38 31 2C 31 31 00 44 15 88 0E 99 22 31 31 30 |281,11.D...."110|
00000D40: 20 5A 3D 35 00 64 15 92 0E 99 22 31 32 30 20 48 | Z=5.d...."120 H|
00000D50: 49 52 45 53 20 30 2C 32 3A 4D 55 4C 54 49 20 33 |IRES 0,2:MULTI 3|
00000D60: 2C 34 2C 39 00 75 15 9C 0E 99 22 31 33 30 20 52 |,4,9.u...."130 R|
00000D70: 45 50 45 41 54 00 8E 15 A6 0E 99 22 31 34 30 20 |EPEAT......"140 |
00000D80: 3A 20 46 4F 52 20 58 3D 31 20 54 4F 20 33 00 AA |: FOR X=1 TO 3..|
00000D90: 15 B0 0E 99 22 31 35 30 20 3A 20 20 20 52 45 43 |...."150 : REC|
00000DA0: 20 5A 2C 5A 2C 5A 2C 5A 2C 58 00 BF 15 BA 0E 99 | Z,Z,Z,Z,X......|
00000DB0: 22 31 36 30 20 3A 20 20 20 5A 3D 5A 2B 33 31 00 |"160 : Z=Z+31.|
00000DC0: DC 15 C4 0E 99 22 31 37 30 20 3A 20 20 20 4C 4F |....."170 : LO|
00000DD0: 57 20 43 4F 4C 20 31 2C 31 32 2C 30 00 F8 15 CE |W COL 1,12,0....|
00000DE0: 0E 99 22 31 38 30 20 3A 20 20 20 52 45 43 20 5A |.."180 : REC Z|
00000DF0: 2C 5A 2C 5A 2C 5A 2C 58 00 0D 16 D8 0E 99 22 31 |,Z,Z,Z,X......"1|
00000E00: 39 30 20 3A 20 20 20 5A 3D 5A 2D 32 31 00 22 16 |90 : Z=Z-21.".|
00000E10: E2 0E 99 22 32 31 30 20 3A 20 20 20 48 49 20 43 |..."210 : HI C|
00000E20: 4F 4C 00 35 16 0A 0F 99 22 32 32 30 20 3A 20 4E |OL.5...."220 : N|
00000E30: 45 58 54 20 58 00 48 16 14 0F 99 22 32 33 30 20 |EXT X.H...."230 |
00000E40: 3A 20 5A 3D 5A 2D 32 39 00 5D 16 1E 0F 99 22 32 |: Z=Z-29.]...."2|
00000E50: 34 30 20 55 4E 54 49 4C 20 5A 3E 31 34 00 85 16 |40 UNTIL Z>14...|
00000E60: 28 0F 99 22 11 11 44 49 45 20 47 52 41 46 49 4B |(.."..DIE GRAFIK|
00000E70: 20 4E 4F 43 48 4D 41 4C 20 28 4A 20 4F 44 45 52 | NOCHMAL (J ODER|
00000E80: 20 4E 29 3F 22 00 8F 16 32 0F 64 33 20 9B 32 00 | N)?"...2.d3 .2.|
00000E90: A4 16 3C 0F 8B 20 4A 4E 24 B2 22 4A 22 20 A7 20 |..<.. JN$."J" . |
00000EA0: 33 35 30 30 00 B2 16 A0 0F 97 20 35 33 32 38 30 |3500...... 53280|
00000EB0: 2C 36 00 BD 16 AA 0F 64 01 20 31 2C 36 00 D1 16 |,6.....d. 1,6...|
00000EC0: B4 0F 81 20 58 B2 30 20 A4 20 33 32 30 20 A9 20 |... X.0 . 320 . |
00000ED0: 38 00 E8 16 B9 0F 3A 20 20 58 31 B2 58 AC 33 AD |8.....: X1.X.3.|
00000EE0: 34 3A 58 32 B2 58 AD 32 00 FC 16 BE 0F 3A 20 20 |4:X2.X.2.....: |
00000EF0: 4D 31 B2 31 34 30 AD 33 32 30 AC 58 00 11 17 C8 |M1.140.320.X....|
00000F00: 0F 3A 20 20 4D 32 B2 31 30 30 AD 32 34 30 AC 58 |.: M2.100.240.X|
00000F10: 31 00 26 17 D2 0F 3A 20 20 4D 33 B2 20 37 30 AD |1.&...: M3. 70.|
00000F20: 31 36 30 AC 58 32 00 42 17 DC 0F 3A 20 20 64 03 |160.X2.B...: d.|
00000F30: 20 33 32 30 AB 58 20 2C 4D 31 2C 58 2C 31 34 30 | 320.X ,M1,X,140|
00000F40: 2C 31 00 62 17 E6 0F 3A 20 20 64 03 20 32 36 30 |,1.b...: d. 260|
00000F50: AB 58 31 2C 4D 32 2C 32 30 AA 58 31 2C 31 30 30 |.X1,M2,20.X1,100|
00000F60: 2C 31 00 82 17 F0 0F 3A 20 20 64 03 20 32 30 30 |,1.....: d. 200|
00000F70: AB 58 32 2C 4D 33 2C 34 30 AA 58 32 2C 20 37 30 |.X2,M3,40.X2, 70|
00000F80: 2C 31 00 8A 17 FA 0F 82 20 58 00 93 17 2C 10 64 |,1...... X...,.d|
00000F90: 33 20 9B 00 A9 17 36 10 8B 20 4A 4E 24 B3 B1 22 |3 ....6.. JN$.."|
00000FA0: 4A 22 20 A7 20 34 35 30 30 00 B2 17 40 10 64 70 |J" . 4500...@.dp|
00000FB0: 20 30 00 CC 17 4A 10 99 22 90 93 34 30 30 30 20 | 0...J.."..4000 |
00000FC0: 50 4F 4B 45 20 35 33 32 38 30 2C 36 00 E1 17 54 |POKE 53280,6...T|
00000FD0: 10 99 22 34 30 31 30 20 48 49 52 45 53 20 31 2C |.."4010 HIRES 1,|
00000FE0: 36 00 02 18 5E 10 99 22 34 30 32 30 20 46 4F 52 |6...^.."4020 FOR|
00000FF0: 20 58 3D 30 20 54 4F 20 33 32 30 20 53 54 45 50 | X=0 TO 320 STEP|
00001000: 20 38 00 20 18 68 10 99 22 34 30 32 35 20 3A 20 | 8. .h.."4025 : |
00001010: 20 58 31 3D 58 2A 33 2F 34 3A 58 32 3D 58 2F 32 | X1=X*3/4:X2=X/2|
00001020: 00 3B 18 72 10 99 22 34 30 33 30 20 3A 20 20 4D |.;.r.."4030 : M|
00001030: 31 3D 31 34 30 2F 33 32 30 2A 58 00 57 18 7C 10 |1=140/320*X.W.|.|
00001040: 99 22 34 30 34 30 20 3A 20 20 4D 32 3D 31 30 30 |."4040 : M2=100|
00001050: 2F 32 34 30 2A 58 31 00 73 18 86 10 99 22 34 30 |/240*X1.s...."40|
00001060: 35 30 20 3A 20 20 4D 33 3D 20 37 30 2F 31 36 30 |50 : M3= 70/160|
00001070: 2A 58 32 00 98 18 90 10 99 22 34 30 36 30 20 3A |*X2......"4060 :|
00001080: 20 20 4C 49 4E 45 20 33 32 30 2D 58 20 2C 4D 31 | LINE 320-X ,M1|
00001090: 2C 58 2C 31 34 30 2C 31 00 C1 18 9A 10 99 22 34 |,X,140,1......"4|
000010A0: 30 37 30 20 3A 20 20 4C 49 4E 45 20 32 36 30 2D |070 : LINE 260-|
000010B0: 58 31 2C 4D 32 2C 32 30 2B 58 31 2C 31 30 30 2C |X1,M2,20+X1,100,|
000010C0: 31 00 EA 18 A4 10 99 22 34 30 38 30 20 3A 20 20 |1......"4080 : |
000010D0: 4C 49 4E 45 20 32 30 30 2D 58 32 2C 4D 33 2C 34 |LINE 200-X2,M3,4|
000010E0: 30 2B 58 32 2C 20 37 30 2C 31 00 FC 18 AE 10 99 |0+X2, 70,1......|
000010F0: 22 34 30 39 30 20 4E 45 58 54 20 58 00 24 19 B8 |"4090 NEXT X.$..|
00001100: 10 99 22 11 11 44 49 45 20 47 52 41 46 49 4B 20 |.."..DIE GRAFIK |
00001110: 4E 4F 43 48 4D 41 4C 20 28 4A 20 4F 44 45 52 20 |NOCHMAL (J ODER |
00001120: 4E 29 3F 22 00 2E 19 C2 10 64 33 20 9B 32 00 4A |N)?".....d3 .2.J|
00001130: 19 CC 10 8B 20 4A 4E 24 B2 22 4A 22 20 A7 20 64 |.... JN$."J" . d|
00001140: 70 20 32 3A 89 20 34 31 34 30 00 60 19 94 11 64 |p 2:. 4140.`...d|
00001150: 01 20 31 2C 35 20 3A 97 20 35 33 32 38 30 2C 35 |. 1,5 :. 53280,5|
00001160: 00 74 19 9E 11 81 20 58 B2 35 20 A4 20 31 30 30 |.t.... X.5 . 100|
00001170: 20 A9 20 32 00 9E 19 A8 11 3A 20 64 6B 31 30 30 | . 2.....: dk100|
00001180: AA 58 AC 2E 38 2C 31 30 30 2C 33 31 35 2C 20 39 |.X..8,100,315, 9|
00001190: 30 2C 34 35 2C 58 AC 31 2E 32 2C 58 2C 31 00 C8 |0,45,X.1.2,X,1..|
000011A0: 19 B2 11 3A 20 64 6B 31 30 30 AA 58 AC 2E 38 2C |...: dk100.X..8,|
000011B0: 31 30 30 2C 31 33 35 2C 32 37 30 2C 34 35 2C 58 |100,135,270,45,X|
000011C0: AC 31 2E 32 2C 58 2C 31 00 D0 19 BC 11 82 20 58 |.1.2,X,1...... X|
000011D0: 00 F2 19 C6 11 64 6B 20 31 38 30 2C 31 30 30 2C |.....dk 180,100,|
000011E0: 30 2C 33 36 30 2C 34 35 2C 31 32 30 2C 31 30 30 |0,360,45,120,100|
000011F0: 2C 31 00 FB 19 D0 11 64 33 20 9B 00 11 1A DA 11 |,1.....d3 ......|
00001200: 8B 20 4A 4E 24 B3 B1 22 4A 22 20 A7 20 34 38 30 |. JN$.."J" . 480|
00001210: 30 00 1A 1A E4 11 64 70 20 30 00 31 1A EE 11 99 |0.....dp 0.1....|
00001220: 22 93 11 34 35 30 30 20 48 49 52 45 53 20 31 2C |"..4500 HIRES 1,|
00001230: 35 00 52 1A F8 11 99 22 34 35 31 30 20 46 4F 52 |5.R...."4510 FOR|
00001240: 20 58 3D 35 20 54 4F 20 31 30 30 20 53 54 45 50 | X=5 TO 100 STEP|
00001250: 20 32 00 85 1A 02 12 99 22 34 35 32 30 20 3A 20 | 2......"4520 : |
00001260: 41 52 43 20 31 30 30 2B 58 2A 2E 38 2C 31 30 30 |ARC 100+X*.8,100|
00001270: 2C 33 31 35 2C 20 39 30 2C 34 35 2C 58 2A 31 2E |,315, 90,45,X*1.|
00001280: 32 2C 58 2C 31 00 B8 1A 0C 12 99 22 34 35 33 30 |2,X,1......"4530|
00001290: 20 3A 20 41 52 43 20 31 30 30 2B 58 2A 2E 38 2C | : ARC 100+X*.8,|
000012A0: 31 30 30 2C 31 33 35 2C 32 37 30 2C 34 35 2C 58 |100,135,270,45,X|
000012B0: 2A 31 2E 32 2C 58 2C 31 00 CA 1A 16 12 99 22 34 |*1.2,X,1......"4|
000012C0: 35 34 30 20 4E 45 58 54 20 58 00 F4 1A 20 12 99 |540 NEXT X... ..|
000012D0: 22 34 35 35 30 20 41 52 43 20 31 38 30 2C 31 30 |"4550 ARC 180,10|
000012E0: 30 2C 30 2C 33 36 30 2C 34 35 2C 31 32 30 2C 31 |0,0,360,45,120,1|
000012F0: 30 30 2C 31 00 1B 1B 2A 12 99 22 11 11 44 49 45 |00,1...*.."..DIE|
00001300: 20 47 52 41 46 49 4B 20 4E 4F 43 48 4D 41 4C 20 | GRAFIK NOCHMAL |
00001310: 28 4A 20 4F 44 45 52 20 4E 29 3F 00 25 1B 34 12 |(J ODER N)?.%.4.|
00001320: 64 33 20 9B 32 00 41 1B 3E 12 8B 20 4A 4E 24 B2 |d3 .2.A.>.. JN$.|
00001330: 22 4A 22 20 A7 20 64 70 20 32 3A 89 20 34 35 36 |"J" . dp 2:. 456|
00001340: 30 00 4E 1B C0 12 64 01 20 20 36 2C 31 30 00 5D |0.N...d. 6,10.]|
00001350: 1B C5 12 97 20 35 33 32 38 30 2C 31 30 00 71 1B |.... 53280,10.q.|
00001360: CA 12 81 20 58 B2 35 20 A4 20 33 35 38 20 A9 20 |... X.5 . 358 . |
00001370: 33 00 92 1B D4 12 3A 20 64 6A 20 32 32 30 2C 31 |3.....: dj 220,1|
00001380: 32 35 2C 58 2C 58 AD 31 2E 34 2C 58 AD 33 2E 38 |25,X,X.1.4,X.3.8|
00001390: 2C 31 00 9A 1B DE 12 82 20 58 00 A3 1B E8 12 64 |,1...... X.....d|
000013A0: 33 20 9B 00 B9 1B F2 12 8B 20 4A 4E 24 B3 B1 22 |3 ....... JN$.."|
000013B0: 4A 22 20 A7 20 35 30 30 30 00 C2 1B FC 12 64 70 |J" . 5000.....dp|
000013C0: 20 30 00 DD 1B 06 13 99 22 93 11 34 38 30 30 20 | 0......"..4800 |
000013D0: 50 4F 4B 45 20 35 33 32 38 30 2C 31 30 00 F4 1B |POKE 53280,10...|
000013E0: 10 13 99 22 34 38 30 35 20 48 49 52 45 53 20 36 |..."4805 HIRES 6|
000013F0: 20 2C 31 30 00 15 1C 1A 13 99 22 34 38 31 30 20 | ,10......"4810 |
00001400: 46 4F 52 20 58 3D 35 20 54 4F 20 33 35 38 20 53 |FOR X=5 TO 358 S|
00001410: 54 45 50 20 33 00 3F 1C 24 13 99 22 34 38 32 30 |TEP 3.?.$.."4820|
00001420: 20 3A 20 41 4E 47 4C 20 32 32 30 2C 31 32 35 2C | : ANGL 220,125,|
00001430: 58 2C 58 2F 31 2E 34 2C 58 2F 33 2E 38 2C 31 00 |X,X/1.4,X/3.8,1.|
00001440: 51 1C 2E 13 99 22 34 38 33 30 20 4E 45 58 54 20 |Q...."4830 NEXT |
00001450: 58 00 79 1C 38 13 99 22 11 11 44 49 45 20 47 52 |X.y.8.."..DIE GR|
00001460: 41 46 49 43 20 4E 4F 43 48 4D 41 4C 20 28 4A 20 |AFIC NOCHMAL (J |
00001470: 4F 44 45 52 20 4E 29 3F 22 00 83 1C 42 13 64 33 |ODER N)?"...B.d3|
00001480: 20 9B 32 00 9F 1C 4C 13 8B 20 4A 4E 24 B2 22 4A | .2...L.. JN$."J|
00001490: 22 20 A7 20 64 70 20 32 3A 89 20 34 38 34 30 00 |" . dp 2:. 4840.|
000014A0: B4 1C 88 13 64 01 20 32 2C 32 3A 64 19 20 31 30 |....d. 2,2:d. 10|
000014B0: 2C 31 2C 35 00 CC 1C 8D 13 97 20 35 33 32 38 30 |,1,5...... 53280|
000014C0: 2C 39 3A 97 20 35 33 32 38 31 2C 39 00 D5 1C 92 |,9:. 53281,9....|
000014D0: 13 58 B2 31 36 00 F8 1C 9C 13 64 6F 20 35 2C 35 |.X.16.....do 5,5|
000014E0: 2C 22 02 C3 4F 4D 4D 4F 44 4F 52 45 20 20 36 34 |,"..OMMODORE 64|
000014F0: 22 2C 31 2C 34 2C 31 32 00 FF 1C A6 13 64 20 00 |",1,4,12.....d .|
00001500: 0F 1D B0 13 3A 20 81 20 46 B2 31 20 A4 20 33 00 |....: . F.1 . 3.|
00001510: 22 1D BA 13 3A 20 20 44 59 B2 BB 28 31 29 AC 31 |"...: DY..(1).1|
00001520: 32 30 00 3F 1D C4 13 3A 20 20 64 04 20 58 2C 34 |20.?...: d. X,4|
00001530: 30 AA 44 59 2C 58 AA 31 30 2C 31 38 30 2C 46 00 |0.DY,X.10,180,F.|
00001540: 5B 1D CE 13 3A 20 20 64 0B 20 58 2C 31 37 30 2C |[...: d. X,170,|
00001550: 58 AD 38 AB 31 2C 46 AB 31 2C 31 00 68 1D D8 13 |X.8.1,F.1,1.h...|
00001560: 3A 20 20 58 B2 58 AA 38 00 72 1D E2 13 3A 20 82 |: X.X.8.r...: .|
00001570: 20 46 00 7F 1D EC 13 64 29 20 58 B1 31 32 30 00 | F.....d) X.120.|
00001580: 88 1D F6 13 64 33 20 9B 00 9E 1D 00 14 8B 20 4A |....d3 ....... J|
00001590: 4E 24 B3 B1 22 4A 22 20 A7 20 35 33 30 30 00 A7 |N$.."J" . 5300..|
000015A0: 1D 0A 14 64 70 20 30 00 CB 1D 14 14 99 22 93 11 |...dp 0......"..|
000015B0: 35 30 30 30 20 48 49 52 45 53 20 32 2C 32 3A 4D |5000 HIRES 2,2:M|
000015C0: 55 4C 54 49 20 31 30 2C 31 2C 35 00 EC 1D 19 14 |ULTI 10,1,5.....|
000015D0: 99 22 50 4F 4B 45 20 35 33 32 38 30 2C 39 3A 20 |."POKE 53280,9: |
000015E0: 50 4F 4B 45 20 35 33 32 38 31 2C 39 00 FC 1D 1E |POKE 53281,9....|
000015F0: 14 99 22 35 30 31 30 20 58 3D 31 36 00 36 1E 28 |.."5010 X=16.6.(|
00001600: 14 99 22 35 30 32 30 20 35 2C 31 36 35 2C 22 AA |.."5020 5,165,".|
00001610: C7 28 33 34 29 AA 22 02 C3 30 4D 4D 4F 44 4F 52 |.(34)."..0MMODOR|
00001620: 45 20 20 36 34 22 AA C7 28 33 34 29 AA 22 2C 31 |E 64"..(34).",1|
00001630: 2C 34 2C 31 32 22 00 48 1E 32 14 99 22 35 30 33 |,4,12".H.2.."503|
00001640: 30 20 52 45 50 45 41 54 00 62 1E 3C 14 99 22 35 |0 REPEAT.b.<.."5|
00001650: 30 34 30 20 3A 20 46 4F 52 20 46 3D 31 20 54 4F |040 : FOR F=1 TO|
00001660: 20 33 00 7E 1E 46 14 99 22 35 30 35 30 20 3A 20 | 3.~.F.."5050 : |
00001670: 20 44 59 3D 52 4E 44 28 31 29 2A 31 32 30 00 A5 | DY=RND(1)*120..|
00001680: 1E 50 14 99 22 35 30 36 30 20 3A 20 20 42 4C 4F |.P.."5060 : BLO|
00001690: 43 4B 20 58 2C 32 30 2B 44 59 2C 58 2B 31 30 2C |CK X,20+DY,X+10,|
000016A0: 31 36 30 2C 46 00 CA 1E 5A 14 99 22 35 30 37 30 |160,F...Z.."5070|
000016B0: 20 3A 20 20 43 48 41 52 20 58 2C 31 35 30 2C 58 | : CHAR X,150,X|
000016C0: 2F 38 2D 31 2C 46 2D 31 2C 31 00 DE 1E 64 14 99 |/8-1,F-1,1...d..|
000016D0: 22 35 30 38 30 20 3A 20 20 58 3D 58 2B 38 00 F2 |"5080 : X=X+8..|
000016E0: 1E 6E 14 99 22 35 30 39 30 20 3A 20 4E 45 58 54 |.n.."5090 : NEXT|
000016F0: 20 46 00 09 1F 78 14 99 22 35 31 30 30 20 55 4E | F...x.."5100 UN|
00001700: 54 49 4C 20 58 3E 31 32 30 00 32 1F 82 14 99 22 |TIL X>120.2...."|
00001710: 11 11 44 49 45 20 47 52 41 46 49 4B 20 4E 4F 43 |..DIE GRAFIK NOC|
00001720: 48 4D 41 4C 20 28 4A 20 4F 44 45 52 20 4E 29 20 |HMAL (J ODER N) |
00001730: 3F 22 00 3C 1F 87 14 64 33 20 9B 32 00 62 1F 8C |?".<...d3 .2.b..|
00001740: 14 8B 20 4A 4E 24 B2 22 4A 22 20 A7 20 64 70 20 |.. JN$."J" . dp |
00001750: 32 3A 64 19 20 31 30 2C 31 2C 35 3A 89 20 35 31 |2:d. 10,1,5:. 51|
00001760: 31 30 00 6F 1F B4 14 64 32 20 53 54 41 52 54 00 |10.o...d2 START.|
00001770: 79 1F 30 16 64 66 20 31 32 00 86 1F 70 17 64 31 |y.0.df 12...p.d1|
00001780: 20 50 52 4F 48 49 00 A4 1F 75 17 64 70 20 30 3A | PROHI...u.dp 0:|
00001790: 97 20 35 33 32 38 30 2C 31 34 3A 97 20 35 33 32 |. 53280,14:. 532|
000017A0: 38 31 2C 31 00 D5 1F 76 17 99 22 93 96 20 2A 2A |81,1...v..".. **|
000017B0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000017C0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000017D0: 2A 2A 2A 2A 22 00 09 20 78 17 99 22 2A 2A 2A 90 |****".. x.."***.|
000017E0: 20 20 20 42 45 4C 45 47 55 4E 47 20 44 45 52 20 | BELEGUNG DER |
000017F0: 46 55 4E 4B 54 49 4F 4E 53 54 41 53 54 45 4E 20 |FUNKTIONSTASTEN |
00001800: 20 20 96 2A 2A 2A 11 1F 22 00 22 20 7A 17 64 74 | .***.."." z.dt|
00001810: 31 2C 22 93 44 49 53 50 4C 41 59 22 AA C7 28 31 |1,".DISPLAY"..(1|
00001820: 33 29 00 32 20 84 17 64 74 32 2C 22 50 52 49 4E |3).2 ..dt2,"PRIN|
00001830: 54 22 00 42 20 8E 17 64 74 33 2C 22 93 41 55 54 |T".B ..dt3,".AUT|
00001840: 4F 22 00 51 20 98 17 64 74 34 2C 22 53 41 56 45 |O".Q ..dt4,"SAVE|
00001850: 22 00 65 20 A2 17 64 74 35 2C 22 52 55 4E 22 AA |".e ..dt5,"RUN".|
00001860: C7 28 31 33 29 00 74 20 AC 17 64 74 36 2C 22 4C |.(13).t ..dt6,"L|
00001870: 4F 41 44 22 00 8A 20 B6 17 64 74 37 2C 22 93 4C |OAD".. ..dt7,".L|
00001880: 49 53 54 22 AA C7 28 31 33 29 00 9B 20 C0 17 64 |IST"..(13).. ..d|
00001890: 74 38 2C 22 56 45 52 49 46 59 22 00 AB 20 CA 17 |t8,"VERIFY".. ..|
000018A0: 64 74 39 2C 22 54 52 41 43 45 22 00 BE 20 D4 17 |dt9,"TRACE".. ..|
000018B0: 64 74 31 30 2C 22 52 45 54 52 41 43 45 22 00 CE |dt10,"RETRACE"..|
000018C0: 20 DE 17 64 74 31 31 2C 22 50 41 47 45 22 00 E0 | ..dt11,"PAGE"..|
000018D0: 20 E8 17 64 74 31 32 2C 22 4F 50 54 49 4F 4E 22 | ..dt12,"OPTION"|
000018E0: 00 F1 20 F2 17 64 74 31 33 2C 22 44 45 4C 41 59 |.. ..dt13,"DELAY|
000018F0: 22 00 01 21 FC 17 64 74 31 34 2C 22 46 49 4E 44 |"..!..dt14,"FIND|
00001900: 22 00 13 21 06 18 64 74 31 35 2C 22 44 49 53 41 |"..!..dt15,"DISA|
00001910: 50 41 22 00 25 21 10 18 64 74 31 36 2C 22 53 45 |PA".%!..dt16,"SE|
00001920: 43 55 52 45 22 00 2C 21 1A 18 64 7D 00 5F 21 2E |CURE".,!..d}._!.|
00001930: 18 99 22 96 11 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |.."..***********|
00001940: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00001950: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 22 3B 00 |*************";.|
00001960: 8F 21 38 18 99 22 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |.!8.."**********|
00001970: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00001980: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 22 00 |**************".|
00001990: 9B 21 3D 18 64 1F 20 30 2C 33 30 00 A5 21 42 18 |.!=.d. 0,30..!B.|
000019A0: 64 66 20 31 35 00 AC 21 56 18 64 69 00 C6 21 6A |df 15..!V.di..!j|
000019B0: 18 97 20 35 33 32 38 30 2C 31 30 3A 97 20 35 33 |.. 53280,10:. 53|
000019C0: 32 38 31 2C 31 30 00 D0 21 74 18 99 22 93 05 22 |281,10..!t..".."|
000019D0: 00 E7 21 BA 18 64 23 22 2A 2A 2A 20 41 55 54 4F |..!..d#"*** AUTO|
000019E0: 20 2A 2A 2A 22 3A 99 00 F2 21 C4 18 99 22 1F 11 | ***":...!..."..|
000019F0: 11 22 00 0D 22 CE 18 64 23 22 2A 2A 2A 20 52 45 |.".."..d#"*** RE|
00001A00: 4E 55 4D 42 45 52 20 2A 2A 2A 22 3A 99 00 18 22 |NUMBER ***":..."|
00001A10: D8 18 99 22 1C 11 11 22 00 31 22 E2 18 64 23 22 |..."...".1"..d#"|
00001A20: 2A 2A 2A 20 50 41 55 53 45 20 20 2A 2A 2A 22 3A |*** PAUSE ***":|
00001A30: 99 00 3C 22 EC 18 99 22 05 11 11 22 00 53 22 F6 |..<"..."...".S".|
00001A40: 18 64 23 22 2A 2A 2A 20 4C 49 4E 20 20 2A 2A 2A |.d#"*** LIN ***|
00001A50: 22 3A 99 00 5E 22 00 19 99 22 1F 11 11 22 00 77 |":..^"..."...".w|
00001A60: 22 0A 19 64 23 22 2A 2A 2A 20 43 47 4F 54 4F 20 |"..d#"*** CGOTO |
00001A70: 20 2A 2A 2A 22 3A 99 00 82 22 14 19 99 22 1C 11 | ***":..."..."..|
00001A80: 11 22 00 9B 22 1E 19 64 23 22 2A 2A 2A 20 52 45 |.".."..d#"*** RE|
00001A90: 53 45 54 20 20 2A 2A 2A 22 3A 99 00 B7 22 20 19 |SET ***":..." .|
00001AA0: 64 1F 20 31 2C 38 30 3A 64 1F 20 32 2C 38 30 3A |d. 1,80:d. 2,80:|
00001AB0: 64 1F 20 36 2C 38 30 00 C0 22 23 19 64 66 20 35 |d. 6,80.."#.df 5|
00001AC0: 00 CB 22 28 19 99 22 05 11 11 22 00 E4 22 32 19 |.."(.."...".."2.|
00001AD0: 64 23 22 2A 2A 2A 20 4D 45 52 47 45 20 20 2A 2A |d#"*** MERGE **|
00001AE0: 2A 22 3A 99 00 ED 22 37 19 64 66 20 35 00 F8 22 |*":..."7.df 5.."|
00001AF0: 3C 19 99 22 1C 11 11 22 00 0F 23 46 19 64 23 22 |<.."..."..#F.d#"|
00001B00: 2A 2A 2A 20 50 41 47 45 20 2A 2A 2A 22 3A 99 00 |*** PAGE ***":..|
00001B10: 18 23 4B 19 64 66 20 35 00 23 23 50 19 99 22 1F |.#K.df 5.##P..".|
00001B20: 11 11 22 00 3C 23 5A 19 64 23 22 2A 2A 2A 20 4F |..".<#Z.d#"*** O|
00001B30: 50 54 49 4F 4E 20 2A 2A 2A 22 3A 99 00 45 23 5F |PTION ***":..E#_|
00001B40: 19 64 66 20 35 00 50 23 64 19 99 22 05 11 11 22 |.df 5.P#d.."..."|
00001B50: 00 69 23 6E 19 64 23 22 2A 2A 2A 20 44 45 4C 41 |.i#n.d#"*** DELA|
00001B60: 59 20 20 2A 2A 2A 22 3A 99 00 72 23 73 19 64 66 |Y ***":..r#s.df|
00001B70: 20 35 00 7D 23 78 19 99 22 1C 11 11 22 00 96 23 | 5.}#x.."..."..#|
00001B80: 82 19 64 23 22 2A 2A 2A 20 54 52 41 43 45 20 20 |..d#"*** TRACE |
00001B90: 2A 2A 2A 22 3A 99 00 9F 23 87 19 64 66 20 35 00 |***":...#..df 5.|
00001BA0: AA 23 8C 19 99 22 1F 11 11 22 00 C5 23 96 19 64 |.#..."..."..#..d|
00001BB0: 23 22 2A 2A 2A 20 52 45 54 52 41 43 45 20 20 2A |#"*** RETRACE *|
00001BC0: 2A 2A 22 3A 99 00 CE 23 9B 19 64 66 20 35 00 D9 |**":...#..df 5..|
00001BD0: 23 A0 19 99 22 1C 11 11 22 00 F2 23 AA 19 64 23 |#..."..."..#..d#|
00001BE0: 22 2A 2A 2A 20 44 49 53 41 50 41 20 2A 2A 2A 22 |"*** DISAPA ***"|
00001BF0: 3A 99 00 FB 23 AF 19 64 66 20 35 00 06 24 B4 19 |:...#..df 5..$..|
00001C00: 99 22 1F 11 11 22 00 1F 24 BE 19 64 23 22 2A 2A |."..."..$..d#"**|
00001C10: 2A 20 53 45 43 55 52 45 20 2A 2A 2A 22 3A 99 00 |* SECURE ***":..|
00001C20: 28 24 C3 19 64 66 20 35 00 33 24 C8 19 99 22 05 |($..df 5.3$...".|
00001C30: 11 11 22 00 4A 24 D2 19 64 23 22 2A 2A 2A 20 4F |..".J$..d#"*** O|
00001C40: 4C 44 20 20 2A 2A 2A 22 3A 99 00 54 24 44 1B 64 |LD ***":..T$D.d|
00001C50: 66 20 31 35 00 5B 24 4E 1B 64 69 00 68 24 53 1B |f 15.[$N.di.h$S.|
00001C60: 64 32 20 53 54 41 52 54 00 76 24 58 1B 64 31 20 |d2 START.v$X.d1 |
00001C70: 53 54 52 55 4B 54 00 7E 24 BC 1B 99 22 93 00 96 |STRUKT.~$..."...|
00001C80: 24 C6 1B 97 20 35 33 32 38 30 2C 39 3A 97 20 35 |$... 53280,9:. 5|
00001C90: 33 32 38 31 2C 39 00 A3 24 20 1C 64 01 20 20 31 |3281,9..$ .d. 1|
00001CA0: 30 2C 39 00 CB 24 2A 1C 64 6F 20 33 35 2C 35 2C |0,9..$*.do 35,5,|
00001CB0: 22 02 D0 52 4F 47 52 41 4D 4D 53 43 48 4C 45 49 |"..ROGRAMMSCHLEI|
00001CC0: 46 45 4E 22 2C 31 2C 32 2C 31 35 00 E7 24 34 1C |FEN",1,2,15..$4.|
00001CD0: 64 6F 20 31 35 30 2C 32 35 2C 22 02 55 4E 44 22 |do 150,25,".UND"|
00001CE0: 2C 31 2C 31 2C 31 30 00 0A 25 3E 1C 64 6F 20 39 |,1,1,10..%>.do 9|
00001CF0: 30 2C 33 35 2C 22 02 C2 45 44 49 4E 47 55 4E 47 |0,35,"..EDINGUNG|
00001D00: 45 4E 22 2C 31 2C 32 2C 31 35 00 20 25 43 1C 64 |EN",1,2,15. %C.d|
00001D10: 03 20 33 35 2C 35 35 2C 32 39 30 2C 35 35 2C 31 |. 35,55,290,55,1|
00001D20: 00 36 25 45 1C 64 03 20 33 35 2C 35 38 2C 32 39 |.6%E.d. 35,58,29|
00001D30: 30 2C 35 38 2C 31 00 53 25 48 1C 64 6F 20 35 30 |0,58,1.S%H.do 50|
00001D40: 2C 37 30 2C 22 52 45 50 45 41 54 22 2C 31 2C 33 |,70,"REPEAT",1,3|
00001D50: 2C 31 35 00 70 25 52 1C 64 6F 20 35 30 2C 31 37 |,15.p%R.do 50,17|
00001D60: 30 2C 22 55 4E 54 49 4C 22 2C 31 2C 33 2C 31 35 |0,"UNTIL",1,3,15|
00001D70: 00 92 25 5C 1C 64 6F 20 31 34 30 2C 31 37 38 2C |..%\.do 140,178,|
00001D80: 22 02 C2 45 44 49 4E 47 55 4E 47 22 2C 31 2C 31 |"..EDINGUNG",1,1|
00001D90: 2C 38 00 B3 25 66 1C 64 6F 20 39 30 2C 31 32 35 |,8..%f.do 90,125|
00001DA0: 2C 22 02 C1 4E 57 45 49 53 55 4E 47 22 2C 31 2C |,"..NWEISUNG",1,|
00001DB0: 31 2C 38 00 C2 25 6B 1C 81 20 58 B2 31 20 A4 20 |1,8..%k.. X.1 . |
00001DC0: 20 38 00 E3 25 70 1C 64 6B 20 37 30 2C 31 33 30 | 8..%p.dk 70,130|
00001DD0: 2C 31 32 30 2C 33 35 39 2C 31 30 2C 31 35 2C 33 |,120,359,10,15,3|
00001DE0: 30 2C 32 00 02 26 75 1C 64 6B 20 37 30 2C 31 33 |0,2..&u.dk 70,13|
00001DF0: 30 2C 30 2C 20 36 30 2C 31 30 2C 31 35 2C 33 30 |0,0, 60,10,15,30|
00001E00: 2C 32 00 0A 26 7A 1C 82 20 58 00 16 26 84 1C 64 |,2..&z.. X..&..d|
00001E10: 01 20 20 35 2C 39 00 3E 26 8E 1C 64 6F 20 33 35 |. 5,9.>&..do 35|
00001E20: 2C 35 2C 22 02 D0 52 4F 47 52 41 4D 4D 53 43 48 |,5,"..ROGRAMMSCH|
00001E30: 4C 45 49 46 45 4E 22 2C 31 2C 32 2C 31 35 00 5A |LEIFEN",1,2,15.Z|
00001E40: 26 98 1C 64 6F 20 31 35 30 2C 32 35 2C 22 02 55 |&..do 150,25,".U|
00001E50: 4E 44 22 2C 31 2C 31 2C 31 30 00 7D 26 A2 1C 64 |ND",1,1,10.}&..d|
00001E60: 6F 20 39 30 2C 33 35 2C 22 02 C2 45 44 49 4E 47 |o 90,35,"..EDING|
00001E70: 55 4E 47 45 4E 22 2C 31 2C 32 2C 31 35 00 93 26 |UNGEN",1,2,15..&|
00001E80: A7 1C 64 03 20 33 35 2C 35 35 2C 32 39 30 2C 35 |..d. 35,55,290,5|
00001E90: 35 2C 31 00 A9 26 A9 1C 64 03 20 33 35 2C 35 38 |5,1..&..d. 35,58|
00001EA0: 2C 32 39 30 2C 35 38 2C 31 00 C4 26 AC 1C 64 6F |,290,58,1..&..do|
00001EB0: 20 35 30 2C 37 30 2C 22 4C 4F 4F 50 22 2C 31 2C | 50,70,"LOOP",1,|
00001EC0: 33 2C 32 35 00 E4 26 B6 1C 64 6F 20 35 30 2C 31 |3,25..&..do 50,1|
00001ED0: 37 30 2C 22 45 4E 44 20 4C 4F 4F 50 22 2C 31 2C |70,"END LOOP",1,|
00001EE0: 33 2C 31 32 00 03 27 CA 1C 64 6F 20 31 32 30 2C |3,12..'..do 120,|
00001EF0: 31 32 30 2C 22 45 58 49 54 20 49 46 22 2C 31 2C |120,"EXIT IF",1,|
00001F00: 33 2C 38 00 12 27 CF 1C 81 20 58 B2 31 20 A4 20 |3,8..'... X.1 . |
00001F10: 20 38 00 33 27 D4 1C 64 6B 20 37 30 2C 31 33 30 | 8.3'..dk 70,130|
00001F20: 2C 31 32 30 2C 33 35 39 2C 31 30 2C 31 35 2C 33 |,120,359,10,15,3|
00001F30: 30 2C 32 00 52 27 D9 1C 64 6B 20 37 30 2C 31 33 |0,2.R'..dk 70,13|
00001F40: 30 2C 30 2C 20 36 30 2C 31 30 2C 31 35 2C 33 30 |0,0, 60,10,15,30|
00001F50: 2C 32 00 5A 27 DE 1C 82 20 58 00 66 27 E8 1C 64 |,2.Z'... X.f'..d|
00001F60: 01 20 20 31 2C 39 00 8E 27 F2 1C 64 6F 20 33 35 |. 1,9..'..do 35|
00001F70: 2C 35 2C 22 02 D0 52 4F 47 52 41 4D 4D 53 43 48 |,5,"..ROGRAMMSCH|
00001F80: 4C 45 49 46 45 4E 22 2C 31 2C 32 2C 31 35 00 AA |LEIFEN",1,2,15..|
00001F90: 27 FC 1C 64 6F 20 31 35 30 2C 32 35 2C 22 02 55 |'..do 150,25,".U|
00001FA0: 4E 44 22 2C 31 2C 31 2C 31 30 00 CD 27 06 1D 64 |ND",1,1,10..'..d|
00001FB0: 6F 20 39 30 2C 33 35 2C 22 02 C2 45 44 49 4E 47 |o 90,35,"..EDING|
00001FC0: 55 4E 47 45 4E 22 2C 31 2C 32 2C 31 35 00 E3 27 |UNGEN",1,2,15..'|
00001FD0: 0B 1D 64 03 20 33 35 2C 35 35 2C 32 39 30 2C 35 |..d. 35,55,290,5|
00001FE0: 35 2C 31 00 F9 27 0D 1D 64 03 20 33 35 2C 35 38 |5,1..'..d. 35,58|
00001FF0: 2C 32 39 30 2C 35 38 2C 31 00 14 28 10 1D 64 6F |,290,58,1..(..do|
00002000: 20 31 35 30 2C 31 30 30 2C 22 49 46 22 2C 31 2C | 150,100,"IF",1,|
00002010: 33 2C 32 30 00 30 28 1A 1D 64 6F 20 35 30 2C 31 |3,20.0(..do 50,1|
00002020: 37 30 2C 22 54 48 45 4E 22 2C 31 2C 33 2C 32 30 |70,"THEN",1,3,20|
00002030: 00 4D 28 2E 1D 64 6F 20 32 31 35 2C 31 37 30 2C |.M(..do 215,170,|
00002040: 22 45 4C 53 45 22 2C 31 2C 33 2C 32 30 00 68 28 |"ELSE",1,3,20.h(|
00002050: 38 1D 64 6F 20 38 30 2C 31 33 30 2C 22 02 CA 41 |8.do 80,130,"..A|
00002060: 22 2C 31 2C 31 2C 31 30 00 86 28 42 1D 64 6F 20 |",1,1,10..(B.do |
00002070: 32 33 30 2C 31 33 30 2C 22 02 CE 45 49 4E 22 2C |230,130,"..EIN",|
00002080: 31 2C 31 2C 31 30 00 9E 28 4C 1D 64 03 20 39 30 |1,1,10..(L.d. 90|
00002090: 2C 31 31 32 2C 31 34 30 2C 31 31 32 2C 31 00 B7 |,112,140,112,1..|
000020A0: 28 56 1D 64 03 20 32 30 30 2C 31 31 32 2C 32 35 |(V.d. 200,112,25|
000020B0: 30 2C 31 31 32 2C 31 00 C1 28 74 1D 64 66 20 31 |0,112,1..(t.df 1|
000020C0: 32 00 CD 28 7E 1D 64 01 20 20 31 2C 39 00 F5 28 |2..(~.d. 1,9..(|
000020D0: 88 1D 64 6F 20 33 35 2C 35 2C 22 02 D0 52 4F 47 |..do 35,5,"..ROG|
000020E0: 52 41 4D 4D 53 43 48 4C 45 49 46 45 4E 22 2C 31 |RAMMSCHLEIFEN",1|
000020F0: 2C 32 2C 31 35 00 11 29 92 1D 64 6F 20 31 35 30 |,2,15..)..do 150|
00002100: 2C 32 35 2C 22 02 55 4E 44 22 2C 31 2C 31 2C 31 |,25,".UND",1,1,1|
00002110: 30 00 34 29 9C 1D 64 6F 20 39 30 2C 33 35 2C 22 |0.4)..do 90,35,"|
00002120: 02 C2 45 44 49 4E 47 55 4E 47 45 4E 22 2C 31 2C |..EDINGUNGEN",1,|
00002130: 32 2C 31 35 00 4A 29 A1 1D 64 03 20 33 35 2C 35 |2,15.J)..d. 35,5|
00002140: 35 2C 32 39 30 2C 35 35 2C 31 00 60 29 A3 1D 64 |5,290,55,1.`)..d|
00002150: 03 20 33 35 2C 35 38 2C 32 39 30 2C 35 38 2C 31 |. 35,58,290,58,1|
00002160: 00 7B 29 A6 1D 64 6F 20 31 36 30 2C 20 38 30 2C |.{)..do 160, 80,|
00002170: 22 49 46 22 2C 31 2C 31 2C 31 32 00 97 29 B0 1D |"IF",1,1,12..)..|
00002180: 64 6F 20 36 35 2C 31 31 35 2C 22 54 48 45 4E 22 |do 65,115,"THEN"|
00002190: 2C 31 2C 31 2C 31 32 00 B4 29 BA 1D 64 6F 20 32 |,1,1,12..)..do 2|
000021A0: 33 35 2C 31 31 35 2C 22 45 4C 53 45 22 2C 31 2C |35,115,"ELSE",1,|
000021B0: 31 2C 31 32 00 CE 29 C4 1D 64 6F 20 38 30 2C 20 |1,12..)..do 80, |
000021C0: 39 30 2C 22 02 CA 41 22 2C 31 2C 31 2C 38 00 EA |90,"..A",1,1,8..|
000021D0: 29 CE 1D 64 6F 20 32 34 30 2C 39 30 2C 22 02 CE |)..do 240,90,"..|
000021E0: 45 49 4E 22 2C 31 2C 31 2C 38 00 02 2A D8 1D 64 |EIN",1,1,8..*..d|
000021F0: 03 20 39 30 2C 20 38 34 2C 31 34 30 2C 20 38 34 |. 90, 84,140, 84|
00002200: 2C 31 00 19 2A E2 1D 64 03 20 32 30 30 2C 38 34 |,1..*..d. 200,84|
00002210: 2C 32 35 30 2C 38 34 2C 31 00 36 2A EC 1D 64 6F |,250,84,1.6*..do|
00002220: 20 34 35 2C 31 35 30 2C 22 52 43 4F 4D 50 22 2C | 45,150,"RCOMP",|
00002230: 31 2C 33 2C 32 30 00 53 2A F6 1D 64 6F 20 32 32 |1,3,20.S*..do 22|
00002240: 35 2C 31 35 30 2C 22 45 4C 53 45 22 2C 31 2C 33 |5,150,"ELSE",1,3|
00002250: 2C 32 30 00 5D 2A 00 1E 64 66 20 31 35 00 77 2A |,20.]*..df 15.w*|
00002260: 14 1E 97 20 35 33 32 38 30 2C 31 35 3A 97 20 35 |... 53280,15:. 5|
00002270: 33 32 38 31 2C 31 35 00 8D 2A 1E 1E 64 01 20 31 |3281,15..*..d. 1|
00002280: 2C 31 3A 64 19 20 20 34 2C 31 30 2C 32 00 B2 2A |,1:d. 4,10,2..*|
00002290: 28 1E 64 6F 20 31 30 2C 35 2C 22 02 D5 4E 54 45 |(.do 10,5,"..NTE|
000022A0: 52 50 52 4F 47 52 41 4D 4D 45 22 2C 31 2C 32 2C |RPROGRAMME",1,2,|
000022B0: 31 30 00 CD 2A 32 1E 64 6F 20 36 38 2C 32 35 2C |10..*2.do 68,25,|
000022C0: 22 02 55 4E 44 22 2C 31 2C 31 2C 20 38 00 F2 2A |".UND",1,1, 8..*|
000022D0: 3C 1E 64 6F 20 31 35 2C 33 35 2C 22 02 D6 45 52 |<.do 15,35,"..ER|
000022E0: 5A 57 45 49 47 55 4E 47 45 4E 22 2C 31 2C 32 2C |ZWEIGUNGEN",1,2,|
000022F0: 31 30 00 08 2B 46 1E 64 03 20 31 30 2C 35 35 2C |10..+F.d. 10,55,|
00002300: 31 35 30 2C 35 35 2C 31 00 1E 2B 50 1E 64 03 20 |150,55,1..+P.d. |
00002310: 31 30 2C 35 38 2C 31 35 30 2C 35 38 2C 31 00 44 |10,58,150,58,1.D|
00002320: 2B 5A 1E 64 6F 20 20 35 2C 38 30 2C 22 50 52 4F |+Z.do 5,80,"PRO|
00002330: 43 20 20 20 45 4E 44 20 50 52 4F 43 22 2C 32 2C |C END PROC",2,|
00002340: 33 2C 31 30 00 60 2B 64 1E 64 6F 20 34 30 2C 31 |3,10.`+d.do 40,1|
00002350: 32 30 2C 22 43 41 4C 4C 22 2C 33 2C 33 2C 32 30 |20,"CALL",3,3,20|
00002360: 00 7C 2B 6E 1E 64 6F 20 34 30 2C 31 36 30 2C 22 |.|+n.do 40,160,"|
00002370: 45 58 45 43 22 2C 33 2C 33 2C 32 30 00 86 2B 78 |EXEC",3,3,20..+x|
00002380: 1E 64 66 20 31 35 00 A0 2B 82 1E 97 20 35 33 32 |.df 15..+... 532|
00002390: 38 30 2C 31 34 3A 97 20 35 33 32 38 31 2C 31 34 |80,14:. 53281,14|
000023A0: 00 B5 2B 8C 1E 64 01 20 31 34 2C 31 3A 64 19 20 |..+..d. 14,1:d. |
000023B0: 31 2C 31 2C 31 00 D4 2B 01 01 01 01 01 01 01 01 |1,1,1..+........|
000023C0: 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 |................|
000023D0: 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 |................|
000023E0: 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 |................|
000023F0: 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 |................|
00002400: 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 |................|
00002410: 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 |................|
00002420: 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 |................|
00002430: 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 |................|
00002440: 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 |................|
00002450: 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 |................|
00002460: 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 |................|
00002470: 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 |................|
00002480: 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 |................|
00002490: 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 |................|
000024A0: 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 |................|
000024B0: 01 01 01 01 01 01 |...... |
..&.... ******************************.K
.... *** MESSEDEMO ***.P...
. ******************************.}...D1
START...... **** POKE 788,52:POKE 792,19
3...D.. 53280,1 :. 53281,1.O.N.D. 12,2:D
. 4,5,6...X.DO 5,5,".COMMODORE 64",3,6,
12.....DO 50,90,".U N D",1,2,12.4...DO 5
,160,".SIMON'S BASIC",2,5,12.=...DF 3.K.
.. 53280,2.T...DF 3.C.... 53280,14.L...
DF 3...H.. 53280,14: . 53281,14...R.D. 1
2,2: D. 0, 6,1.C...DO 5,10,".SIMON'S BA
SIC",3,5,12.....DO 50,70,".EINE",1,2,15.
....DO 5,110,".UEBERSICHT",2,5,16.*...DO
5,170,".BITTE 1 DRUECKEN",1,2, 9.6...D
3 ANTW.O.,.. 53280,5: . 53281,5.E.6.D. 1
2,2: D. 0,1,2...@.DO 10,10,".SPRITES",1,
5,23...J.DO 50,70,".MIT",2,2,15.D.T.DO 5
,110,".SIMON'S BASIC",3,5,12...^.DO 5,17
0,".BITTE 2 DRUECKEN",2,2, 9...H.D3 ANT
W...... 53280,2: . 53281,2.)...D. 12,2:
D. 0,14,1.G...DO 15,10,".GRAFIK",1,5,25.
B...DO 50,70,".MIT",3,2,15.....DO 5,110,
".SIMON'S BASIC",2,5,12...B.DO 5,170,".B
ITTE 3 DRUECKEN",3,2, 9...L.D3 ANTW.U..
.. 53280,4: . 53281,0.....D. 12,2: D. 4,
4,4.....DO 20,10,".MUSIK",1,5,25.#...DO
50,70,".MIT",2,2,15.H...DO 5,110,".SIMON
'S BASIC",3,5,12.Q.&.DO 5,170,".BITTE 4
DRUECKEN",1,2, 9.}.0.D3 ANTW...X.. 5328
0,1: . 53281,1...B.D. 12,2: D. 4,5,6.T.L
.DO 0,10,".PROGRAMMIERHILFE",1,4,10...V
.DO 50,70,".MIT",2,2,15.....DO 5,110,".S
IMON'S BASIC",3,5,12.=...DO 5,170,".BITT
E 5 DRUECKEN",2,2, 9.I...D3 ANTW.D....
53280,14: . 53281,14.Z.F.D. 12,2: D. 1,3
,6...P.DO 15,10,".STRUKTURIERTE",1,4,10.
E.Z.DO 10,50,".PROGRAMMIERUNG",1,4,10...
..DO 50,85,".MIT",2,2,15.....DO 5,120,".
SIMON'S BASIC",3,5,12.....DO 5,170,".BIT
TE 6 DRUECKEN",2,2, 9.:...D3 ANTW.G...D
2 START.U.P.D1 UEBERS.O.Z.. 53280,14:. 5
3281,14.....D. 12,2:D. 1, 6,0.....DO 5,1
0,"SIMON'S BASIC",1,5,12.J...DO 20,55,".
UEBER 100",1,4,12.....DO 8,100,"ZUSAETZ
LICHE",1,5,12.....DO 5,150,"BASIC-BEFEHL
E",1,5,12. .... X.1 . 20.-...: DF .9.O.
..DO 20,55,".UEBER 100",2,4,12.\...: D
F .9.~...DO 20,55,".UEBER 100",3,4,12..
. .. X...4.. 53280,14:. 53281,1...>.D. 1
2,2:D. 14,6,14...H.DO 0,10,"PROGRAMMIERH
ILFE",1,2,10...R.DO 0,45,"STRINGBEHANDLU
NG",2,2,10.(.\.DO 0,80,"ZAHLENBEHANDLUNG
",1,2,10.O.F.DO 0,115,"DISKETTENBEFEHLE"
,2,2,10.S.P.DO 0,150,"STRUKTURIERTE",1,2
,10...U.DO 20,175,"PROGRAMMIERUNG",1,2,1
0...W.D. 16,6,14...X.DF 15...Y.D. 0.T...
. 53280,10:. 53281,1.....D. 12,2:D. 14,6
,14.....DO 0, 5,"BILDSCHIRM-",3,2,14.-..
.DO 20,25,"HANDHABUNG",3,2,13.J...DO 30,
60,"GRAFIK",2,2,18.H...DO 20,90,"SPRITES
",3,2,18.....DO 40,120,"MUSIK",2,2,18...
J.DO 0,157,"LIGHTPEN-",3,1,7.C.T.DO 0,16
5,"JOYSTICK-",3,1,7.....DO 0,173,"PADDLE
-",3,1,8.....DO 70,162,"ABFRAGE",3,2,12
.....D. 25,2,10.....DF 15."...D. 0./.`.D
2 START.=...D1 GRAFIK.V.... 53280,3 :. 5
3281,3.K.B.D. 0,2:D. 12,8,6.Z.L.. X.5 .
60...V.: F.F.1.....: . F.4 . F.0.C...:
D. X,1.9.X,160.2.5.X,120.9.13.X,F.K...
. X.T...D3 ....... JN$.."J" . 3500.....D
P 0......".. 5 POKE 53280,3 :POKE 53281,
3.9...."10 HIRES 0,2:MULTI 12,8,6.P.&.."
20 FOR X=5 TO 60.A.0.."30 : F=F+1.|.:.."
40 : IF F=4 THEN F=0...D.."50 : REC X,1.
9*X,160-2.5*X,120-9/13*X,F...N.."60 NEXT
X...X.."..DIE GRAFIK NOCHMAL (J ODER N)
?"...B.D3 .2...L.. JN$."J" . DP 2:D. 12,
8,6:. 3070.,.... 53280,11:. 53281,11.4..
.Z.5.H...D. 0,2:D. 3,4,9.O.J.D ._.T.: .
X.1 . 3.T...: D. Z,Z,Z,Z,X.....: Z.Z
.31.....: DV 1,12,0.....: D. Z,Z,Z,Z
,X.....: Z.Z.21.D.$.: D..N...: . X..
.8.: Z.Z.29...B.D) Z.14...L.D3 ....T.. J
N$.."J". 4000...Y.DP 0.6.~.."..100 POKE
53280,11:POKE 53281,11.D...."110 Z=5.D..
.."120 HIRES 0,2:MULTI 3,4,9.U...."130 R
EPEAT......"140 : FOR X=1 TO 3......"150
: REC Z,Z,Z,Z,X......"160 : Z=Z+31.
..D.."170 : LOW COL 1,12,0...N.."180 :
REC Z,Z,Z,Z,X...X.."190 : Z=Z-21.".
..."210 : HI COL.5...."220 : NEXT X.H.
..."230 : Z=Z-29.]...."240 UNTIL Z>14...
(.."..DIE GRAFIK NOCHMAL (J ODER N)?"...
2.D3 .2...<.. JN$."J" . 3500... .. 53280
,6.....D. 1,6.Q.... X.0 . 320 . 8.....:
X1.X.3.4:X2.X.2.....: M1.140.320.X...H
.: M2.100.240.X1.&.R.: M3. 70.160.X2.B
...: D. 320.X ,M1,X,140,1.B...: D. 260
.X1,M2,20.X1,100,1.....: D. 200.X2,M3,4
0.X2, 70,1...... X...,.D3 ....6.. JN$.."
J" . 4500...@.DP 0.L.J.."..4000 POKE 532
80,6...T.."4010 HIRES 1,6...^.."4020 FOR
X=0 TO 320 STEP 8. .H.."4025 : X1=X*3/
4:X2=X/2.;.R.."4030 : M1=140/320*X.W.|.
."4040 : M2=100/240*X1.S...."4050 : M3
= 70/160*X2......"4060 : LINE 320-X ,M1
,X,140,1.A...."4070 : LINE 260-X1,M2,20
+X1,100,1......"4080 : LINE 200-X2,M3,4
0+X2, 70,1......"4090 NEXT X.$...."..DIE
GRAFIK NOCHMAL (J ODER N)?"...B.D3 .2.J
.L.. JN$."J" . DP 2:. 4140.`...D. 1,5 :.
53280,5.T.... X.5 . 100 . 2.....: DK100
.X..8,100,315, 90,45,X.1.2,X,1.H...: DK1
00.X..8,100,135,270,45,X.1.2,X,1.P.... X
...F.DK 180,100,0,360,45,120,100,1...P.D
3 ....Z.. JN$.."J" . 4800.....DP 0.1....
"..4500 HIRES 1,5.R...."4510 FOR X=5 TO
100 STEP 2......"4520 : ARC 100+X*.8,100
,315, 90,45,X*1.2,X,1......"4530 : ARC 1
00+X*.8,100,135,270,45,X*1.2,X,1.J...."4
540 NEXT X... .."4550 ARC 180,100,0,360,
45,120,100,1...*.."..DIE GRAFIK NOCHMAL
(J ODER N)?.%.4.D3 .2.A.>.. JN$."J" . DP
2:. 4560.N...D. 6,10.].E.. 53280,10.Q.
J.. X.5 . 358 . 3...T.: DJ 220,125,X,X.1
.4,X.3.8,1...... X.....D3 ....... JN$.."
J" . 5000.B...DP 0......"..4800 POKE 532
80,10......"4805 HIRES 6 ,10......"4810
FOR X=5 TO 358 STEP 3.?.$.."4820 : ANGL
220,125,X,X/1.4,X/3.8,1.Q...."4830 NEXT
X.Y.8.."..DIE GRAFIC NOCHMAL (J ODER N)?
"...B.D3 .2...L.. JN$."J" . DP 2:. 4840.
....D. 2,2:D. 10,1,5.L.... 53280,9:. 532
81,9.U...X.16.....DO 5,5,".COMMODORE 64
",1,4,12.....D .....: . F.1 . 3."...: D
Y..(1).120.?.D.: D. X,40.DY,X.10,180,F.
[.N.: D. X,170,X.8.1,F.1,1.H.X.: X.X.8
.R...: . F....D) X.120.....D3 ....... J
N$.."J" . 5300.....DP 0.K...."..5000 HIR
ES 2,2:MULTI 10,1,5......"POKE 53280,9:
POKE 53281,9......"5010 X=16.6.(.."5020
5,165,".G(34).".C0MMODORE 64".G(34).",1
,4,12".H.2.."5030 REPEAT.B.<.."5040 : FO
R F=1 TO 3.~.F.."5050 : DY=RND(1)*120..
.P.."5060 : BLOCK X,20+DY,X+10,160,F.J.
Z.."5070 : CHAR X,150,X/8-1,F-1,1...D..
"5080 : X=X+8...N.."5090 : NEXT F...X..
"5100 UNTIL X>120.2...."..DIE GRAFIK NOC
HMAL (J ODER N) ?".<...D3 .2.B.... JN$."
J" . DP 2:D. 10,1,5:. 5110.O...D2 START.
Y.0.DF 12...P.D1 PROHI...U.DP 0:. 53280,
14:. 53281,1.U.V..".. ******************
********************".. X.."***. BELEG
UNG DER FUNKTIONSTASTEN .***.."." Z.DT
1,".DISPLAY".G(13).2 ..DT2,"PRINT".B ..D
T3,".AUTO".Q ..DT4,"SAVE".E ..DT5,"RUN".
G(13).T ..DT6,"LOAD".. ..DT7,".LIST".G(1
3).. ..DT8,"VERIFY".. J.DT9,"TRACE".. T.
DT10,"RETRACE".N ..DT11,"PAGE".. ..DT12,
"OPTION".. ..DT13,"DELAY"..!..DT14,"FIND
"..!..DT15,"DISAPA".%!..DT16,"SECURE".,!
..D}._!..."..***************************
*************";..!8.."******************
**********************"..!=.D. 0,30..!B.
DF 15..!V.DI.F!J.. 53280,10:. 53281,10.P
!T..".."..!..D#"*** AUTO ***":...!D.."..
.".."N.D#"*** RENUMBER ***":..."X.."..."
.1"..D#"*** PAUSE ***":..<"..."...".S".
.D#"*** LIN ***":..^"..."...".W"..D#"**
* CGOTO ***":..."..."...".."..D#"*** RE
SET ***":..." .D. 1,80:D. 2,80:D. 6,80.
."#.DF 5.K"(.."...".."2.D#"*** MERGE **
*":..."7.DF 5.."<.."..."..#F.D#"*** PAGE
***":...#K.DF 5.##P.."...".<#Z.D#"*** O
PTION ***":..E#_.DF 5.P#D.."...".I#N.D#"
*** DELAY ***":..R#S.DF 5.}#X.."..."..#
..D#"*** TRACE ***":...#..DF 5..#..."..
.".E#..D#"*** RETRACE ***":..N#..DF 5.Y
# .."..."..#..D#"*** DISAPA ***":...#..D
F 5..$..."..."..$..D#"*** SECURE ***":..
($C.DF 5.3$H.."...".J$R.D#"*** OLD ***"
:..T$D.DF 15.[$N.DI.H$S.D2 START.V$X.D1
STRUKT.~$..."...$F.. 53280,9:. 53281,9..
$ .D. 10,9.K$*.DO 35,5,".PROGRAMMSCHLEI
FEN",1,2,15..$4.DO 150,25,".UND",1,1,10.
.%>.DO 90,35,".BEDINGUNGEN",1,2,15. %C.D
. 35,55,290,55,1.6%E.D. 35,58,290,58,1.S
%H.DO 50,70,"REPEAT",1,3,15.P%R.DO 50,17
0,"UNTIL",1,3,15..%\.DO 140,178,".BEDING
UNG",1,1,8..%F.DO 90,125,".ANWEISUNG",1,
1,8.B%K.. X.1 . 8..%P.DK 70,130,120,359
,10,15,30,2..&U.DK 70,130,0, 60,10,15,30
,2..&Z.. X..&..D. 5,9.>&..DO 35,5,".PRO
GRAMMSCHLEIFEN",1,2,15.Z&..DO 150,25,".U
ND",1,1,10.}&..DO 90,35,".BEDINGUNGEN",1
,2,15..&..D. 35,55,290,55,1..&..D. 35,58
,290,58,1.D&..DO 50,70,"LOOP",1,3,25..&.
.DO 50,170,"END LOOP",1,3,12..'J.DO 120,
120,"EXIT IF",1,3,8..'O.. X.1 . 8.3'T.D
K 70,130,120,359,10,15,30,2.R'Y.DK 70,13
0,0, 60,10,15,30,2.Z'... X.F'..D. 1,9..
'..DO 35,5,".PROGRAMMSCHLEIFEN",1,2,15..
'..DO 150,25,".UND",1,1,10.M'..DO 90,35,
".BEDINGUNGEN",1,2,15..'..D. 35,55,290,5
5,1..'..D. 35,58,290,58,1..(..DO 150,100
,"IF",1,3,20.0(..DO 50,170,"THEN",1,3,20
.M(..DO 215,170,"ELSE",1,3,20.H(8.DO 80,
130,".JA",1,1,10..(B.DO 230,130,".NEIN",
1,1,10..(L.D. 90,112,140,112,1..(V.D. 20
0,112,250,112,1.A(T.DF 12.M(~.D. 1,9..(
..DO 35,5,".PROGRAMMSCHLEIFEN",1,2,15..)
..DO 150,25,".UND",1,1,10.4)..DO 90,35,"
.BEDINGUNGEN",1,2,15.J)..D. 35,55,290,55
,1.`)..D. 35,58,290,58,1.{)..DO 160, 80,
"IF",1,1,12..)..DO 65,115,"THEN",1,1,12.
.)..DO 235,115,"ELSE",1,1,12.N)D.DO 80,
90,".JA",1,1,8..)N.DO 240,90,".NEIN",1,1
,8..*X.D. 90, 84,140, 84,1..*..D. 200,84
,250,84,1.6*..DO 45,150,"RCOMP",1,3,20.S
*..DO 225,150,"ELSE",1,3,20.]*..DF 15.W*
... 53280,15:. 53281,15..*..D. 1,1:D. 4
,10,2..*(.DO 10,5,".UNTERPROGRAMME",1,2,
10.M*2.DO 68,25,".UND",1,1, 8..*<.DO 15,
35,".VERZWEIGUNGEN",1,2,10..+F.D. 10,55,
150,55,1..+P.D. 10,58,150,58,1.D+Z.DO 5
,80,"PROC END PROC",2,3,10.`+D.DO 40,1
20,"CALL",3,3,20.|+N.DO 40,160,"EXEC",3,
3,20..+X.DF 15. +... 53280,14:. 53281,14
..+..D. 14,1:D. 1,1,1.T+................
........................................
........................................
........................................
........................................
........................................
......................................
> CLICK IMAGE PREVIEW FOR FULL MODAL