ZEICHEN.GEN
FILE INFORMATION
FILENAME(S): ZEICHEN.GEN
FILE TYPE(S): PRG
FILE SIZE: 4.6K
FIRST SEEN: 2025-11-02 16:23:51
APPEARS ON: 1 disk(s)
FILE HASH
17606c20be83355ea8ff1f206c9508cc3344f0c56a95f451f5f0cd8a5efbb0c2
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| BASIC KURS | ZEICHEN.GEN | PRG | Treasure Chest - Max | 16 | 2 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 24 08 60 EA 8D 36 32 30 30 30 3A 8B 28 C2 |..$.`..62000:.(.|
00000010: 28 35 33 32 37 32 29 AF 31 32 29 B2 31 32 A7 36 |(53272).12).12.6|
00000020: 30 30 38 30 00 40 08 6A EA 8B 28 C2 28 35 33 32 |0080.@.j..(.(532|
00000030: 37 32 29 AF 31 32 29 B2 31 32 A7 36 30 36 30 30 |72).12).12.60600|
00000040: 00 85 08 7E EA 8F 3A 46 4F 4C 47 45 4E 44 45 20 |...~..:FOLGENDE |
00000050: 5A 45 49 4C 45 4E 20 28 42 49 53 20 36 30 30 34 |ZEILEN (BIS 6004|
00000060: 39 29 20 45 52 53 45 54 5A 45 4E 20 36 30 30 32 |9) ERSETZEN 6002|
00000070: 30 2D 36 30 30 34 30 20 41 55 53 20 44 45 4D 20 |0-60040 AUS DEM |
00000080: 42 55 43 48 2E 00 CC 08 7F EA 8F 3A 2D 2D 2D 2D |BUCH.......:----|
00000090: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
000000A0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
000000B0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
000000C0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 00 13 09 80 |------------....|
000000D0: EA 8F 3A 44 49 45 20 27 45 52 53 45 54 5A 54 45 |..:DIE 'ERSETZTE|
000000E0: 27 20 52 4F 55 54 49 4E 45 20 48 4F 4C 54 20 32 |' ROUTINE HOLT 2|
000000F0: 30 34 38 20 42 59 54 45 53 20 44 45 53 20 5A 45 |048 BYTES DES ZE|
00000100: 49 43 48 45 4E 53 41 54 5A 45 53 20 41 55 53 20 |ICHENSATZES AUS |
00000110: 44 45 4D 00 59 09 81 EA 8F 3A 27 52 4F 4D 27 20 |DEM.Y....:'ROM' |
00000120: 49 4E 53 20 27 52 41 4D 27 2E 20 20 4C 45 49 44 |INS 'RAM'. LEID|
00000130: 45 52 20 44 41 55 45 52 54 20 44 49 45 20 55 45 |ER DAUERT DIE UE|
00000140: 42 45 52 54 52 41 47 55 4E 47 20 5A 49 45 4D 4C |BERTRAGUNG ZIEML|
00000150: 49 43 48 20 4C 41 4E 47 2C 00 86 09 82 EA 8F 3A |ICH LANG,......:|
00000160: 57 45 4E 4E 20 53 49 45 20 49 4E 20 27 42 41 53 |WENN SIE IN 'BAS|
00000170: 49 43 27 20 50 52 4F 47 52 41 4D 4D 49 45 52 54 |IC' PROGRAMMIERT|
00000180: 20 57 49 52 44 2E 00 CE 09 83 EA 8F 3A 49 4D 20 | WIRD.......:IM |
00000190: 46 4F 4C 47 45 4E 44 45 4E 20 57 49 52 44 20 44 |FOLGENDEN WIRD D|
000001A0: 41 48 45 52 20 53 54 41 54 54 44 45 53 53 45 4E |AHER STATTDESSEN|
000001B0: 20 45 49 4E 20 4D 41 53 43 48 49 4E 45 4E 50 52 | EIN MASCHINENPR|
000001C0: 4F 47 52 41 4D 4D 20 47 45 4C 41 44 45 4E 00 E5 |OGRAMM GELADEN..|
000001D0: 09 84 EA 8F 3A 55 4E 44 20 41 55 53 47 45 46 55 |....:UND AUSGEFU|
000001E0: 45 48 52 54 2E 00 2E 0A 85 EA 8F 3A 44 41 20 44 |EHRT.......:DA D|
000001F0: 49 45 53 20 52 45 43 48 54 20 53 43 48 4E 45 4C |IES RECHT SCHNEL|
00000200: 4C 20 47 45 48 54 2C 20 57 55 52 44 45 20 44 49 |L GEHT, WURDE DI|
00000210: 45 20 47 45 4C 45 47 45 4E 48 45 49 54 20 42 45 |E GELEGENHEIT BE|
00000220: 4E 55 54 5A 54 2C 20 55 4D 20 41 55 43 48 00 73 |NUTZT, UM AUCH.s|
00000230: 0A 86 EA 8F 3A 44 49 45 20 47 52 4F 53 53 2F 4B |....:DIE GROSS/K|
00000240: 4C 45 49 4E 53 43 48 52 49 46 54 20 4E 45 42 45 |LEINSCHRIFT NEBE|
00000250: 4E 20 44 45 52 20 47 52 4F 53 53 2F 47 52 41 46 |N DER GROSS/GRAF|
00000260: 49 4B 2D 53 43 48 52 49 46 54 20 5A 55 20 48 4F |IK-SCHRIFT ZU HO|
00000270: 4C 45 4E 00 A6 0A 87 EA 8F 3A 49 4E 53 47 45 53 |LEN......:INSGES|
00000280: 41 4D 54 20 57 45 52 44 45 4E 20 41 4C 53 4F 20 |AMT WERDEN ALSO |
00000290: 34 30 39 36 20 42 59 54 45 20 55 45 42 45 52 54 |4096 BYTE UEBERT|
000002A0: 52 41 47 45 4E 2E 00 F2 0A 88 EA 8F 3A 2D 2D 2D |RAGEN.......:---|
000002B0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
000002C0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
000002D0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
000002E0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
000002F0: 2D 2D 00 05 0B 89 EA 97 35 35 2C 30 3A 97 35 36 |--......55,0:.56|
00000300: 2C 34 38 3A 8C 00 23 0B 8A EA 8F 3A 4C 41 44 45 |,48:..#....:LADE|
00000310: 4E 20 4D 41 53 43 48 49 4E 45 4E 50 52 4F 47 52 |N MASCHINENPROGR|
00000320: 41 4D 4D 00 38 0B 8B EA 87 58 3A 8B 58 B3 B1 AB |AMM.8....X:.X...|
00000330: 39 39 A7 36 30 30 34 33 00 59 0B 8C EA 4D B2 34 |99.60043.Y...M.4|
00000340: 39 31 35 32 3A 81 49 B2 4D A4 4D AA 33 34 3A 87 |9152:.I.M.M.34:.|
00000350: 58 3A 97 49 2C 58 3A 82 49 00 A5 0B 8D EA 83 2D |X:.I,X:.I......-|
00000360: 39 39 2C 31 36 39 2C 30 2C 31 33 33 2C 33 34 2C |99,169,0,133,34,|
00000370: 31 33 33 2C 33 36 2C 31 36 38 2C 31 36 39 2C 34 |133,36,168,169,4|
00000380: 38 2C 31 33 33 2C 33 35 2C 31 36 32 2C 32 30 38 |8,133,35,162,208|
00000390: 2C 31 33 34 2C 33 37 2C 31 37 37 2C 33 36 2C 31 |,134,37,177,36,1|
000003A0: 34 35 2C 33 34 00 E4 0B 8E EA 83 32 33 30 2C 33 |45,34......230,3|
000003B0: 34 2C 32 30 38 2C 32 2C 32 33 30 2C 33 35 2C 32 |4,208,2,230,35,2|
000003C0: 33 30 2C 33 36 2C 32 30 38 2C 32 34 32 2C 32 33 |30,36,208,242,23|
000003D0: 32 2C 32 32 34 2C 32 31 36 2C 32 30 38 2C 32 33 |2,224,216,208,23|
000003E0: 35 2C 39 36 00 18 0C 8F EA 8C 3A 97 35 33 32 38 |5,96......:.5328|
000003F0: 30 2C 33 3A 97 35 33 32 38 31 2C 31 3A 97 35 36 |0,3:.53281,1:.56|
00000400: 33 33 34 2C C2 28 35 36 33 33 34 29 AF 32 35 34 |334,.(56334).254|
00000410: 3A 86 41 28 38 2C 38 29 00 28 0C 90 EA 97 31 2C |:.A(8,8).(....1,|
00000420: C2 28 31 29 AF 32 35 31 00 52 0C 91 EA 9E 34 39 |.(1).251.R....49|
00000430: 31 35 32 3A 8F 3A 4D 41 53 43 48 49 4E 45 4E 50 |152:.:MASCHINENP|
00000440: 52 4F 47 52 41 4D 4D 20 41 55 53 46 55 45 48 52 |ROGRAMM AUSFUEHR|
00000450: 45 4E 00 60 0C 92 EA 97 31 2C C2 28 31 29 B0 34 |EN.`....1,.(1).4|
00000460: 00 76 0C 9C EA 97 35 36 33 33 34 2C C2 28 35 36 |.v....56334,.(56|
00000470: 33 33 34 29 B0 31 00 93 0C A6 EA 97 35 33 32 37 |334).1......5327|
00000480: 32 2C 28 C2 28 35 33 32 37 32 29 AF 32 34 30 29 |2,(.(53272).240)|
00000490: AA 31 32 00 AD 0C B0 EA 81 58 B2 30 A4 37 3A 97 |.12......X.0.7:.|
000004A0: 31 34 33 32 38 AA 58 2C 32 35 35 3A 82 00 C7 0C |14328.X,255:....|
000004B0: BA EA 81 58 B2 31 A4 36 3A 97 31 34 33 32 30 AA |...X.1.6:.14320.|
000004C0: 58 2C 31 32 39 3A 82 00 E1 0C C4 EA 97 31 34 33 |X,129:.......143|
000004D0: 32 30 2C 32 35 35 3A 97 31 34 33 32 37 2C 32 35 |20,255:.14327,25|
000004E0: 35 00 10 0D CE EA 99 22 93 11 11 11 11 11 1F 1D |5......"........|
000004F0: 1D 1D 1D 57 45 4C 43 48 45 53 20 5A 45 49 43 48 |...WELCHES ZEICH|
00000500: 45 4E 20 4D 4F 45 43 48 54 45 4E 20 53 49 45 22 |EN MOECHTEN SIE"|
00000510: 00 35 0D D8 EA 85 22 1D 1D 1D 1D 44 45 46 49 4E |.5...."....DEFIN|
00000520: 49 45 52 45 4E 20 28 30 20 42 49 53 20 32 35 33 |IEREN (0 BIS 253|
00000530: 29 22 3B 43 48 00 56 0D E2 EA 8B 43 48 B3 30 B0 |)";CH.V....CH.0.|
00000540: 43 48 B1 32 35 33 B0 43 48 B3 B1 B5 28 43 48 29 |CH.253.CH...(CH)|
00000550: A7 36 30 31 31 30 00 90 0D EC EA 99 22 93 11 11 |.60110......"...|
00000560: 11 11 9C 48 49 45 52 20 49 53 54 20 49 48 52 20 |...HIER IST IHR |
00000570: 42 49 53 48 45 52 49 47 45 53 20 5A 45 49 43 48 |BISHERIGES ZEICH|
00000580: 45 4E 3A 98 20 22 3B 3A 97 31 32 31 38 2C 43 48 |EN:. ";:.1218,CH|
00000590: 00 A1 0D F1 EA 81 55 B2 31 A4 31 30 30 30 3A 82 |......U.1.1000:.|
000005A0: 55 00 C9 0D F6 EA 99 22 13 22 A3 37 29 22 11 11 |U......".".7)"..|
000005B0: 11 11 11 11 11 1C 12 BF BF BF BF BF BF BF BF BF |................|
000005C0: BF 22 3A 81 58 B2 31 A4 38 00 E2 0D 00 EB 99 A3 |.":.X.1.8.......|
000005D0: 37 29 22 1C 12 BF 1E BE BE BE BE BE BE BE BE 1C |7)".............|
000005E0: BF 22 00 FB 0D 0A EB 82 3A 99 A3 37 29 22 1C 12 |."......:..7)"..|
000005F0: BF BF BF BF BF BF BF BF BF BF 22 00 14 0E 14 EB |..........".....|
00000600: 99 22 11 11 11 11 90 20 20 20 20 20 20 57 2D 48 |."..... W-H|
00000610: 4F 43 48 22 00 2C 0E 1E EB 99 22 41 2D 4C 49 4E |OCH".,...."A-LIN|
00000620: 4B 53 20 53 2D 52 45 43 48 54 53 22 00 53 0E 28 |KS S-RECHTS".S.(|
00000630: EB 99 22 20 20 20 20 20 5A 2D 52 55 4E 54 45 52 |.." Z-RUNTER|
00000640: 22 3A 99 22 3C 52 45 54 55 52 4E 3E 3D 45 4E 44 |":."<RETURN>=END|
00000650: 45 22 3B 00 78 0E 32 EB 99 22 91 91 91 22 A3 31 |E";.x.2.."...".1|
00000660: 36 29 22 9A DD 9B 20 90 46 31 2D 50 55 4E 4B 54 |6)"... .F1-PUNKT|
00000670: 20 53 45 54 5A 45 4E 22 00 9A 0E 3C EB 99 A3 31 | SETZEN"...<...1|
00000680: 36 29 22 9A DD 9B 20 90 46 33 2D 50 55 4E 4B 54 |6)"... .F3-PUNKT|
00000690: 20 4C 4F 45 53 43 48 45 4E 22 00 B9 0E 46 EB 99 | LOESCHEN"...F..|
000006A0: A3 31 36 29 22 9A DD 9B 20 90 46 35 2D 44 41 54 |.16)"... .F5-DAT|
000006B0: 41 20 5A 45 49 47 45 4E 22 00 DD 0E 50 EB 99 A3 |A ZEIGEN"...P...|
000006C0: 31 36 29 22 9A DD 9B 20 90 46 37 2D 54 41 46 45 |16)"... .F7-TAFE|
000006D0: 4C 20 4C 4F 45 53 43 48 45 4E 1F 22 3B 00 F6 0E |L LOESCHEN.";...|
000006E0: 5A EB 58 B2 31 3A 59 B2 31 3A 97 35 35 32 39 36 |Z.X.1:Y.1:.55296|
000006F0: AA 33 32 38 2C 30 00 1C 0F 64 EB 81 42 B2 30 A4 |.328,0...d..B.0.|
00000700: 37 3A 97 31 32 32 38 38 AA 42 AA 43 48 AC 38 2C |7:.12288.B.CH.8,|
00000710: 30 3A 82 3A 97 36 35 30 2C 32 35 35 00 31 0F 6E |0:.:.650,255.1.n|
00000720: EB A1 41 24 3A 8B 41 24 B2 22 22 A7 36 30 32 37 |..A$:.A$."".6027|
00000730: 30 00 52 0F 78 EB 97 31 39 38 2C 30 3A 97 20 31 |0.R.x..198,0:. 1|
00000740: 32 31 38 2C 43 48 3A 97 20 35 35 34 39 30 2C 31 |218,CH:. 55490,1|
00000750: 33 30 00 71 0F 82 EB 97 35 35 32 39 36 AA 32 38 |30.q....55296.28|
00000760: 37 AA 58 AA 59 AC 34 30 2C 35 AA 41 28 58 2C 59 |7.X.Y.40,5.A(X,Y|
00000770: 29 00 87 0F 8C EB 8B 41 24 B2 22 41 22 AF 58 B1 |)......A$."A".X.|
00000780: 31 A7 58 B2 58 AB 31 00 9D 0F 96 EB 8B 41 24 B2 |1.X.X.1......A$.|
00000790: 22 53 22 AF 58 B3 38 A7 58 B2 58 AA 31 00 B3 0F |"S".X.8.X.X.1...|
000007A0: A0 EB 8B 41 24 B2 22 57 22 AF 59 B1 31 A7 59 B2 |...A$."W".Y.1.Y.|
000007B0: 59 AB 31 00 C9 0F AA EB 8B 41 24 B2 22 5A 22 AF |Y.1......A$."Z".|
000007C0: 59 B3 38 A7 59 B2 59 AA 31 00 F1 0F B4 EB 97 35 |Y.8.Y.Y.1......5|
000007D0: 35 32 39 36 AA 32 38 37 AA 58 AA 59 AC 34 30 2C |5296.287.X.Y.40,|
000007E0: 30 3A 8B 41 24 B2 C7 28 31 33 29 A7 36 31 30 30 |0:.A$..(13).6100|
000007F0: 30 00 36 10 BE EB 8B 41 24 B2 22 85 22 A7 41 28 |0.6....A$.".".A(|
00000800: 58 2C 59 29 B2 31 3A 97 31 30 32 34 AA 32 38 37 |X,Y).1:.1024.287|
00000810: AA 58 AA 59 AC 34 30 2C 32 35 35 3A 97 35 35 32 |.X.Y.40,255:.552|
00000820: 39 36 AA 32 38 37 AA 58 AA 59 AC 34 30 2C 36 3A |96.287.X.Y.40,6:|
00000830: 89 36 30 35 37 30 00 7B 10 C8 EB 8B 41 24 B2 22 |.60570.{....A$."|
00000840: 86 22 A7 41 28 58 2C 59 29 B2 30 3A 97 31 30 32 |.".A(X,Y).0:.102|
00000850: 34 AA 32 38 37 AA 58 AA 59 AC 34 30 2C 32 35 34 |4.287.X.Y.40,254|
00000860: 3A 97 35 35 32 39 36 AA 32 38 37 AA 58 AA 59 AC |:.55296.287.X.Y.|
00000870: 34 30 2C 35 3A 89 36 30 35 37 30 00 8D 10 D2 EB |40,5:.60570.....|
00000880: 8B 41 24 B2 22 87 22 A7 36 30 34 30 30 00 AA 10 |.A$.".".60400...|
00000890: DC EB 8B 41 24 B2 22 88 22 A7 9C 3A 86 41 28 38 |...A$."."..:.A(8|
000008A0: 2C 38 29 3A 89 36 30 31 31 30 00 B5 10 E6 EB 89 |,8):.60110......|
000008B0: 36 30 32 37 30 00 F2 10 F0 EB 99 22 13 5A 45 49 |60270......".ZEI|
000008C0: 4C 45 4E 4E 55 4D 4D 45 52 20 44 45 52 20 44 41 |LENNUMMER DER DA|
000008D0: 54 41 2D 5A 45 49 4C 45 22 20 20 20 20 20 20 3A |TA-ZEILE" :|
000008E0: 99 22 28 31 30 30 30 30 2D 36 30 30 30 30 29 3A |."(10000-60000):|
000008F0: 22 3B 00 13 11 FA EB 99 22 4F 44 45 52 20 30 20 |";......"ODER 0 |
00000900: 4E 55 52 20 5A 55 4D 20 5A 45 49 47 45 4E 22 3A |NUR ZUM ZEIGEN":|
00000910: 85 4C 4E 00 42 11 04 EC 8B 28 4C 4E B3 31 30 30 |.LN.B....(LN.100|
00000920: 30 30 B0 4C 4E B1 35 39 39 39 39 B0 4C 4E B3 B1 |00.LN.59999.LN..|
00000930: B5 28 4C 4E 29 29 AF 4C 4E B3 B1 30 A7 36 30 34 |.(LN)).LN..0.604|
00000940: 30 30 00 5B 11 0E EC 99 22 13 22 3B 3A 81 43 B2 |00.[....".";:.C.|
00000950: 31 A4 33 3A 81 44 B2 31 A4 33 38 00 83 11 18 EC |1.3:.D.1.38.....|
00000960: 99 22 20 22 3B 3A 82 3A 99 3A 82 3A 99 22 13 11 |." ";:.:.:.:."..|
00000970: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |................|
00000980: 11 22 3B 00 92 11 22 EC 8B 4C 4E B1 30 A7 99 4C |.";..."..LN.0..L|
00000990: 4E 3B 00 D2 11 2C EC 99 22 44 41 54 41 22 3B 3A |N;...,.."DATA";:|
000009A0: 8B 4C 4E B1 30 A7 99 43 48 22 2C 22 3B 20 20 20 |.LN.0..CH","; |
000009B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000009C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000009D0: 20 20 00 00 12 36 EC 43 24 B2 22 22 3A 81 43 B2 | ...6.C$."":.C.|
000009E0: 30 A4 37 3A 43 24 B2 43 24 AA C4 28 C2 28 31 32 |0.7:C$.C$..(.(12|
000009F0: 32 38 38 AA 43 48 AC 38 AA 43 29 29 AA 22 2C 22 |288.CH.8.C)).","|
00000A00: 00 28 12 40 EC 82 3A 43 24 B2 43 24 AA C7 28 32 |.(.@..:C$.C$..(2|
00000A10: 30 29 3A 99 43 24 3A 8B 4C 4E B2 30 A7 4C 4E B2 |0):.C$:.LN.0.LN.|
00000A20: 31 3A 89 36 30 35 30 30 00 58 12 4A EC 99 22 05 |1:.60500.X.J..".|
00000A30: 47 4F 54 4F 36 30 35 30 30 91 91 91 91 91 22 3A |GOTO60500.....":|
00000A40: 97 36 33 31 2C 31 33 3A 97 36 33 32 2C 31 33 3A |.631,13:.632,13:|
00000A50: 97 31 39 38 2C 32 3A 80 00 87 12 54 EC 99 22 13 |.198,2:....T..".|
00000A60: 11 11 22 A3 36 29 22 1C 12 20 57 45 49 54 45 52 |..".6)".. WEITER|
00000A70: 20 4D 49 54 20 44 45 52 20 4C 45 45 52 54 41 53 | MIT DER LEERTAS|
00000A80: 54 45 20 20 92 1F 22 00 92 12 5E EC 97 31 39 38 |TE .."...^..198|
00000A90: 2C 30 00 A7 12 68 EC A1 41 24 3A 8B 41 24 B2 22 |,0...h..A$:.A$."|
00000AA0: 22 A7 36 30 35 32 30 00 D4 12 72 EC 99 22 13 11 |".60520...r.."..|
00000AB0: 11 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |. |
00000AC0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000AD0: 20 20 20 22 00 ED 12 7C EC 8B 4C 4E B2 30 A7 86 | "...|..LN.0..|
00000AE0: 41 28 38 2C 38 29 3A 89 36 31 30 30 30 00 19 13 |A(8,8):.61000...|
00000AF0: 86 EC 99 22 13 11 11 11 11 11 11 11 11 11 11 11 |..."............|
00000B00: 11 11 11 11 11 11 11 22 3B 3A 81 43 B2 31 A4 37 |.......";:.C.1.7|
00000B10: 30 3A 99 22 20 22 3B 3A 82 00 24 13 90 EC 89 36 |0:." ";:..$....6|
00000B20: 30 32 37 30 00 58 13 9A EC 41 B2 C2 28 31 32 32 |0270.X...A..(122|
00000B30: 38 37 AA 59 AA 43 48 AC 38 29 3A 8B 41 28 58 2C |87.Y.CH.8):.A(X,|
00000B40: 59 29 B2 30 A7 41 B2 41 AF 28 32 35 35 AB 28 32 |Y).0.A.A.(255.(2|
00000B50: AE 28 38 AB 58 29 29 29 00 74 13 A4 EC 8B 41 28 |.(8.X))).t....A(|
00000B60: 58 2C 59 29 B2 31 A7 41 B2 41 B0 28 32 AE 28 38 |X,Y).1.A.A.(2.(8|
00000B70: AB 58 29 29 00 8F 13 AE EC 97 31 32 32 38 37 AA |.X))......12287.|
00000B80: 59 AA 43 48 AC 38 2C 41 3A 89 36 30 32 37 30 00 |Y.CH.8,A:.60270.|
00000B90: 98 13 B8 EC 4E B2 20 30 00 AD 13 C2 EC 81 59 B2 |....N. 0......Y.|
00000BA0: 31 A4 4E 3A 87 41 3A 81 58 B2 30 A4 37 00 C3 13 |1.N:.A:.X.0.7...|
00000BB0: CC EC 87 42 3A 97 31 32 32 38 38 AA 41 AC 38 AA |...B:.12288.A.8.|
00000BC0: 58 2C 42 00 CB 13 D6 EC 82 3A 82 00 D1 13 E0 EC |X,B......:......|
00000BD0: 8E 00 F9 13 48 EE 99 22 93 11 11 1D 1D 1D 1D 53 |....H..".......S|
00000BE0: 49 4E 44 20 57 49 52 20 4D 49 54 20 44 45 4D 20 |IND WIR MIT DEM |
00000BF0: 50 52 4F 47 52 41 4D 4D 22 00 24 14 52 EE 85 22 |PROGRAMM".$.R.."|
00000C00: 11 1D 1D 1D 1D 46 45 52 54 49 47 3F 20 28 4A 2F |.....FERTIG? (J/|
00000C10: 4E 29 22 3B 41 24 3A 8B 41 24 B2 22 4E 22 A7 36 |N)";A$:.A$."N".6|
00000C20: 30 31 31 30 00 37 14 5C EE 8B 41 24 B3 B1 22 4A |0110.7.\..A$.."J|
00000C30: 22 A7 36 31 30 30 30 00 65 14 66 EE 99 22 11 11 |".61000.e.f.."..|
00000C40: 1D 1D 1D 1D 41 43 48 54 55 4E 47 3A 20 44 49 45 |....ACHTUNG: DIE|
00000C50: 53 45 20 52 4F 55 54 49 4E 45 20 5A 45 52 53 54 |SE ROUTINE ZERST|
00000C60: 4F 45 52 54 22 00 7F 14 70 EE 99 22 11 1D 1D 1D |OERT"...p.."....|
00000C70: 1D 44 41 53 20 50 52 4F 47 52 41 4D 4D 2E 22 00 |.DAS PROGRAMM.".|
00000C80: AB 14 7A EE 99 22 11 11 1D 1D 1D 1D 53 4F 4C 4C |..z.."......SOLL|
00000C90: 45 4E 20 57 49 52 20 57 49 52 4B 4C 49 43 48 20 |EN WIR WIRKLICH |
00000CA0: 41 55 46 48 4F 45 52 45 4E 3F 22 00 D1 14 84 EE |AUFHOEREN?".....|
00000CB0: 85 22 11 1D 1D 1D 1D 20 28 4A 2F 4E 29 20 20 20 |."..... (J/N) |
00000CC0: 9D 9D 9D 22 3B 41 24 3A 8B 41 24 B2 22 4E 22 A7 |...";A$:.A$."N".|
00000CD0: 80 00 EC 14 8E EE 8B 41 24 B3 B1 22 4A 22 A7 99 |.......A$.."J"..|
00000CE0: 22 91 91 22 3B 3A 89 36 31 30 36 30 00 2C 15 98 |"..";:.61060.,..|
00000CF0: EE 99 22 11 11 1D 1D 1D 1D 57 49 45 20 56 49 45 |.."......WIE VIE|
00000D00: 4C 45 20 5A 45 49 43 48 45 4E 20 48 41 42 45 4E |LE ZEICHEN HABEN|
00000D10: 20 53 49 45 20 20 22 3A 85 22 11 1D 1D 1D 1D 47 | SIE ":.".....G|
00000D20: 45 41 45 4E 44 45 52 54 3F 22 3B 4E 00 39 15 A2 |EAENDERT?";N.9..|
00000D30: EE 99 22 93 05 11 11 22 3B 00 54 15 AC EE 99 22 |.."....";.T...."|
00000D40: 44 45 4C 45 54 45 36 30 30 38 30 2D 36 30 35 39 |DELETE60080-6059|
00000D50: 39 11 11 22 00 6A 15 B6 EE 99 22 44 45 4C 45 54 |9..".j...."DELET|
00000D60: 45 36 31 30 30 30 2D 11 11 22 00 7C 15 C0 EE 99 |E61000-..".|....|
00000D70: 22 36 30 36 30 30 20 4E 3D 22 3B 4E 00 89 15 CA |"60600 N=";N....|
00000D80: EE 99 22 36 30 30 30 30 22 00 A4 15 D4 EE 99 22 |.."60000"......"|
00000D90: 50 52 49 4E 54 22 C7 28 33 34 29 22 93 1F 22 C7 |PRINT".(34)"..".|
00000DA0: 28 33 34 29 00 AE 15 DE EE 99 22 13 22 3B 00 CE |(34)......".";..|
00000DB0: 15 E8 EE 81 58 B2 36 33 31 A4 36 33 35 3A 97 58 |....X.631.635:.X|
00000DC0: 2C 31 33 3A 82 3A 97 31 39 38 2C 35 3A 80 00 07 |,13:.:.198,5:...|
00000DD0: 16 30 F2 57 B2 35 33 32 37 32 3A 56 B2 57 AA 38 |.0.W.53272:V.W.8|
00000DE0: 3A 53 B2 31 30 32 30 3A 97 53 2C C2 28 56 29 3A |:S.1020:.S,.(V):|
00000DF0: 97 53 AA 31 2C C2 28 56 AA 31 29 3A 97 53 AA 32 |.S.1,.(V.1):.S.2|
00000E00: 2C C2 28 36 34 36 29 00 22 16 3A F2 97 53 AA 33 |,.(646).".:..S.3|
00000E10: 2C 28 C2 28 56 AB 38 29 AF 37 29 B0 C2 28 36 35 |,(.(V.8).7)..(65|
00000E20: 37 29 00 33 16 44 F2 97 56 2C 36 3A 97 56 AA 31 |7).3.D..V,6:.V.1|
00000E30: 2C 31 35 00 44 16 4E F2 41 B2 C2 28 57 29 3A 97 |,15.D.N.A..(W):.|
00000E40: 57 2C 32 31 00 5E 16 58 F2 99 22 93 22 C7 28 38 |W,21.^.X..".".(8|
00000E50: 29 C7 28 31 34 29 A3 31 34 29 22 91 91 22 00 7E |).(14).14)"..".~|
00000E60: 16 62 F2 99 A3 31 32 29 22 05 12 A2 A2 A2 A2 A2 |.b...12)".......|
00000E70: A2 A2 A2 A2 A2 A2 A2 A2 A2 A2 A2 92 1E 22 00 9A |............."..|
00000E80: 16 6C F2 99 A3 31 32 29 22 AC A2 A2 AC BB AC BB |.l...12)".......|
00000E90: A2 A2 BB AC A2 BB A2 20 A2 22 00 BF 16 76 F2 99 |....... ."...v..|
00000EA0: 20 A3 31 32 29 22 12 20 A2 A2 A1 BC BE 92 A1 12 | .12)". ........|
00000EB0: 20 A2 20 A1 AC 92 BE 12 20 92 A2 12 20 92 22 00 | . ..... ... .".|
00000EC0: E3 16 80 F2 99 A3 31 32 29 22 12 20 92 A2 BB 20 |......12)". ... |
00000ED0: 12 BB AC 92 20 12 20 BE AC A1 BC 92 BB BC 12 20 |.... . ........ |
00000EE0: 92 BE 22 00 07 17 8A F2 99 A3 31 32 29 22 BC 12 |..".......12)"..|
00000EF0: A2 20 92 20 12 A1 92 A1 20 12 20 BB BC A1 AC 92 |. . .... . .....|
00000F00: BE AC 12 20 92 BB 22 00 2D 17 94 F2 99 A3 31 32 |... ..".-.....12|
00000F10: 29 22 A2 A2 12 20 92 20 12 A1 92 A1 20 12 20 92 |)"... . .... . .|
00000F20: A2 12 20 A1 BC 92 BB 12 20 A2 20 92 22 00 53 17 |.. ..... . .".S.|
00000F30: 9E F2 99 A3 31 32 29 22 12 A2 A2 92 BE 20 BC BE |....12)"..... ..|
00000F40: 20 12 A2 A2 92 BE BC 12 A2 92 BE 12 A2 92 20 12 | ............. .|
00000F50: A2 92 22 00 72 17 A8 F2 99 A3 31 32 29 22 05 A2 |..".r.....12)"..|
00000F60: A2 A2 A2 A2 A2 A2 A2 A2 A2 A2 A2 A2 A2 A2 A2 92 |................|
00000F70: 9F 22 00 78 17 B2 F2 99 00 7E 17 BC F2 99 00 98 |.".x.....~......|
00000F80: 17 D0 F2 99 A3 31 34 29 22 1C A2 A2 A2 A2 A2 A2 |.....14)".......|
00000F90: A2 A2 A2 A2 A2 A2 A2 22 00 B2 17 DA F2 99 A3 31 |.......".......1|
00000FA0: 34 29 22 12 20 DA C5 C9 C3 C8 C5 CE 2E C7 C5 CE |4)". ...........|
00000FB0: 20 22 00 CC 17 E4 F2 99 A3 31 34 29 22 12 A2 A2 | ".......14)"...|
00000FC0: A2 A2 A2 A2 A2 A2 A2 A2 A2 A2 A2 22 00 F3 17 EE |..........."....|
00000FD0: F2 99 A3 36 29 22 1C 11 20 20 20 20 20 20 20 20 |...6)".. |
00000FE0: 20 20 28 C3 29 20 31 39 38 34 20 20 20 20 20 20 | (.) 1984 |
00000FF0: 20 20 22 00 1E 18 F8 F2 99 A3 35 29 22 97 11 D3 | ".......5)"...|
00001000: 59 42 45 58 2D D6 45 52 4C 41 47 20 C7 4D 42 C8 |YBEX-.ERLAG .MB.|
00001010: 20 20 C4 55 45 53 53 45 4C 44 4F 52 46 22 00 39 | .UESSELDORF".9|
00001020: 18 02 F3 99 A3 31 33 29 20 22 20 20 20 20 20 20 |.....13) " |
00001030: 20 20 20 20 20 20 20 20 22 00 67 18 0C F3 99 A3 | ".g.....|
00001040: 35 29 22 1C 11 12 20 D7 45 49 54 45 52 20 4D 49 |5)"... .EITER MI|
00001050: 54 20 49 52 47 45 4E 44 45 49 4E 45 52 20 D4 41 |T IRGENDEINER .A|
00001060: 53 54 45 20 92 22 3B 00 7C 18 11 F3 A1 41 24 3A |STE .";.|....A$:|
00001070: 8B 41 24 B2 22 22 A7 36 32 32 32 35 00 A9 18 16 |.A$."".62225....|
00001080: F3 99 22 93 11 97 22 A3 36 29 22 DA 55 52 20 C5 |.."...".6)".UR .|
00001090: 52 5A 45 55 47 55 4E 47 20 45 49 4E 45 53 20 DA |RZEUGUNG EINES .|
000010A0: 45 49 43 48 45 4E 53 3A 22 00 C3 18 20 F3 99 22 |EICHENS:"... .."|
000010B0: 11 1D 1D D3 54 45 55 45 52 4E 20 D3 49 45 20 44 |....TEUERN .IE D|
000010C0: 45 4E 22 00 D8 18 2A F3 99 22 1D 1D C3 55 52 53 |EN"...*.."...URS|
000010D0: 4F 52 20 4D 49 54 3A 22 00 F0 18 34 F3 99 22 11 |OR MIT:"...4..".|
000010E0: 11 11 1D 1D 1D 1D 1D 1D 1D 1C D7 11 9D 1F B2 22 |..............."|
000010F0: 00 05 19 3E F3 99 22 1D 1D 1D 1D 1D 1C C1 1F AB |...>..".........|
00001100: DB B3 1C D3 22 00 1A 19 48 F3 99 22 1D 1D 1D 1D |...."...H.."....|
00001110: 1D 20 1F 20 B1 11 9D 1C DA 22 00 37 19 52 F3 99 |. . .....".7.R..|
00001120: 22 13 11 11 11 22 A3 32 32 29 3B 22 97 CB 4F 4E |"....".22);"..ON|
00001130: 54 52 4F 4C 4C 2D 22 00 4F 19 5C F3 99 A3 32 32 |TROLL-".O.\...22|
00001140: 29 3B 22 C6 55 4E 4B 54 49 4F 4E 45 4E 3A 22 00 |);".UNKTIONEN:".|
00001150: 6D 19 66 F3 99 A3 31 37 29 22 11 1C 46 31 20 1F |m.f...17)"..F1 .|
00001160: D0 55 4E 4B 54 20 53 45 54 5A 45 4E 22 00 8D 19 |.UNKT SETZEN"...|
00001170: 70 F3 99 A3 31 37 29 22 11 1C 46 33 20 1F D0 55 |p...17)"..F3 ..U|
00001180: 4E 4B 54 20 4C 4F 45 53 43 48 45 4E 22 00 AF 19 |NKT LOESCHEN"...|
00001190: 7A F3 99 A3 31 37 29 22 11 1C 46 35 20 1F DA 45 |z...17)"..F5 ..E|
000011A0: 49 47 45 4E 20 26 20 41 4E 4C 45 47 45 4E 22 00 |IGEN & ANLEGEN".|
000011B0: CE 19 84 F3 99 A3 31 37 29 22 20 20 20 C4 C1 D4 |......17)" ...|
000011C0: C1 2D C1 4E 57 45 49 53 55 4E 47 45 4E 22 00 EE |.-.NWEISUNGEN"..|
000011D0: 19 98 F3 99 A3 31 37 29 22 11 1C 46 37 20 1F D4 |.....17)"..F7 ..|
000011E0: 41 46 45 4C 20 4C 4F 45 53 43 48 45 4E 22 00 16 |AFEL LOESCHEN"..|
000011F0: 1A A2 F3 99 A3 37 29 22 11 11 11 11 D2 C5 D4 D5 |.....7)"........|
00001200: D2 CE 20 42 45 45 4E 44 45 54 20 44 49 45 20 C1 |.. BEENDET DIE .|
00001210: 52 42 45 49 54 22 00 48 1A AC F3 99 22 11 11 11 |RBEIT".H...."...|
00001220: 11 22 3B A3 36 29 22 1C 12 D7 45 49 54 45 52 20 |.";.6)"...EITER |
00001230: 4D 49 54 20 49 52 47 45 4E 44 45 49 4E 45 52 20 |MIT IRGENDEINER |
00001240: D4 41 53 54 45 92 22 3B 00 5D 1A B6 F3 A1 41 24 |.ASTE.";.]....A$|
00001250: 3A 8B 41 24 B2 22 22 A7 36 32 33 39 30 00 78 1A |:.A$."".62390.x.|
00001260: C0 F3 99 C7 28 31 34 32 29 3B 22 93 22 3A 97 35 |....(142);".":.5|
00001270: 33 32 37 32 2C 41 3A 8E 00 00 00 |3272,A:.... |
..$.`..62000:.(B(53272).12).12.60080.@.J
..(B(53272).12).12.60600...~..:FOLGENDE
ZEILEN (BIS 60049) ERSETZEN 60020-60040
AUS DEM BUCH..L...:--------------------
----------------------------------------
----......:DIE 'ERSETZTE' ROUTINE HOLT 2
048 BYTES DES ZEICHENSATZES AUS DEM.Y...
.:'ROM' INS 'RAM'. LEIDER DAUERT DIE UE
BERTRAGUNG ZIEMLICH LANG,......:WENN SIE
IN 'BASIC' PROGRAMMIERT WIRD..N....:IM
FOLGENDEN WIRD DAHER STATTDESSEN EIN MAS
CHINENPROGRAMM GELADEN......:UND AUSGEFU
EHRT.......:DA DIES RECHT SCHNELL GEHT,
WURDE DIE GELEGENHEIT BENUTZT, UM AUCH.S
....:DIE GROSS/KLEINSCHRIFT NEBEN DER GR
OSS/GRAFIK-SCHRIFT ZU HOLEN......:INSGES
AMT WERDEN ALSO 4096 BYTE UEBERTRAGEN...
....:-----------------------------------
----------------------------------......
55,0:.56,48:..#....:LADEN MASCHINENPROGR
AMM.8....X:.X...99.60043.Y...M.49152:.I.
M.M.34:.X:.I,X:.I......-99,169,0,133,34,
133,36,168,169,48,133,35,162,208,134,37,
177,36,145,34......230,34,208,2,230,35,2
30,36,208,242,232,224,216,208,235,96....
..:.53280,3:.53281,1:.56334,B(56334).254
:.A(8,8).(....1,B(1).251.R....49152:.:MA
SCHINENPROGRAMM AUSFUEHREN.`....1,B(1).4
.V....56334,B(56334).1......53272,(B(532
72).240).12......X.0.7:.14328.X,255:..G.
...X.1.6:.14320.X,129:....D..14320,255:.
14327,255...N.."...........WELCHES ZEICH
EN MOECHTEN SIE".5.X.."....DEFINIEREN (0
BIS 253)";CH.V....CH.0.CH.253.CH...(CH)
.60110......"......HIER IST IHR BISHERIG
ES ZEICHEN:. ";:.1218,CH......U.1.1000:.
U.I....".".7)"...................":.X.1.
8.......7)".............."......:..7)"..
.........."......"..... W-HOCH".,..
.."A-LINKS S-RECHTS".S.(.." Z-RUNTER
":."<RETURN>=ENDE";.X.2.."...".16)"... .
F1-PUNKT SETZEN"...<...16)"... .F3-PUNKT
LOESCHEN"...F...16)"... .F5-DATA ZEIGEN
"...P...16)"... .F7-TAFEL LOESCHEN.";...
Z.X.1:Y.1:.55296.328,0...D..B.0.7:.12288
.B.CH.8,0:.:.650,255.1.N..A$:.A$."".6027
0.R.X..198,0:. 1218,CH:. 55490,130.Q....
55296.287.X.Y.40,5.A(X,Y)......A$."A".X.
1.X.X.1......A$."S".X.8.X.X.1... ..A$."W
".Y.1.Y.Y.1.I....A$."Z".Y.8.Y.Y.1......5
5296.287.X.Y.40,0:.A$.G(13).61000.6....A
$.".".A(X,Y).1:.1024.287.X.Y.40,255:.552
96.287.X.Y.40,6:.60570.{.H..A$.".".A(X,Y
).0:.1024.287.X.Y.40,254:.55296.287.X.Y.
40,5:.60570...R..A$.".".60400......A$.".
"..:.A(8,8):.60110......60270......".ZEI
LENNUMMER DER DATA-ZEILE" :."(10000
-60000):";......"ODER 0 NUR ZUM ZEIGEN":
.LN.B....(LN.10000.LN.59999.LN...(LN)).L
N..0.60400.[....".";:.C.1.3:.D.1.38.....
." ";:.:.:.:."...................";...".
.LN.0..LN;.R.,.."DATA";:.LN.0..CH",";
...6.C
$."":.C.0.7:C$.C$.D(B(12288.CH.8.C)).","
.(.@..:C$.C$.G(20):.C$:.LN.0.LN.1:.60500
.X.J..".GOTO60500.....":.631,13:.632,13:
.198,2:....T.."...".6)".. WEITER MIT DER
LEERTASTE .."...^..198,0...H..A$:.A$."
".60520.T.R.."...
"...|..LN.0..A(8,8):.61000...
..."...................";:.C.1.70:." ";:
..$....60270.X...A.B(12287.Y.CH.8):.A(X,
Y).0.A.A.(255.(2.(8.X))).T....A(X,Y).1.A
.A.(2.(8.X))......12287.Y.CH.8,A:.60270.
....N. 0...B..Y.1.N:.A:.X.0.7.C.L..B:.12
288.A.8.X,B.K.V..:..Q.......H..".......S
IND WIR MIT DEM PROGRAMM".$.R..".....FER
TIG? (J/N)";A$:.A$."N".60110.7.\..A$.."J
".61000.E.F.."......ACHTUNG: DIESE ROUTI
NE ZERSTOERT"..P..".....DAS PROGRAMM.".
..Z.."......SOLLEN WIR WIRKLICH AUFHOERE
N?".Q...."..... (J/N) ...";A$:.A$."N".
.......A$.."J".."..";:.61060.,....".....
.WIE VIELE ZEICHEN HABEN SIE ":.".....G
EAENDERT?";N.9...."....";.T...."DELETE60
080-60599..".J...."DELETE61000-..".|....
"60600 N=";N...J.."60000"...T.."PRINT"G(
34)".."G(34)......".";.N....X.631.635:.X
,13:.:.198,5:....0.W.53272:V.W.8:S.1020:
.S,B(V):.S.1,B(V.1):.S.2,B(646).".:..S.3
,(B(V.8).7).B(657).3.D..V,6:.V.1,15.D.N.
A.B(W):.W,21.^.X.."."G(8)G(14).14)"..".~
.B...12)"...................."...L...12)
".............. ."...V.. .12)". ........
. ..... ... .".......12)". ... .... . .
....... ..".......12)"... . .... . .....
... ..".-.....12)"... . .... . ... .....
. .".S.....12)"..... .. ............. .
..".R.....12)"...................".X....
.~.......P...14)".............."...Z...1
4)". ZEICHEN.GEN ".L.....14)"...........
...".......6)".. (C) 1984
".......5)"..SYBEX-VERLAG GMBH DUESSE
LDORF".9.....13) " ".G.....
5)"... WEITER MIT IRGENDEINER TASTE .";.
|....A$:.A$."".62225......"...".6)"ZUR E
RZEUGUNG EINES ZEICHENS:".C. .."...STEUE
RN SIE DEN".X.*.."..CURSOR MIT:"...4..".
..........W...."...>.."......A.....S"...
H.."..... . ....Z".7.R.."....".22);".KON
TROLL-".O.\...22);"FUNKTIONEN:".M.F...17
)"..F1 .PUNKT SETZEN"...P...17)"..F3 .PU
NKT LOESCHEN"...Z...17)"..F5 .ZEIGEN & A
NLEGEN".N.....17)" DATA-ANWEISUNGEN"..
.....17)"..F7 .TAFEL LOESCHEN".......7)"
....RETURN BEENDET DIE ARBEIT".H...."...
.";.6)"..WEITER MIT IRGENDEINER TASTE.";
.]....A$:.A$."".62390.X....G(142);".":.5
3272,A:....
> CLICK IMAGE PREVIEW FOR FULL MODAL