CHARDESIGN....64
FILE INFORMATION
FILENAME(S): CHARDESIGN....64
FILE TYPE(S): PRG
FILE SIZE: 5.4K
FIRST SEEN: 2025-10-20 14:37:13
APPEARS ON: 2 disk(s)
FILE HASH
8109e76c36024490c1444681140bc73eb7fdf0bbea9abc01a4e06c6f0ae9175b
FOUND ON DISKS (2 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| CW 11 87 | CHARDESIGN....64 | PRG | Treasure Chest - LehrerMIL | 19 | 0 | DOWNLOAD FILE |
| CW 11 87 | CHARDESIGN....64 | PRG | Treasure Chest - LehrerMIL | 19 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 1F 08 0A 00 8F 20 43 48 41 52 2D 44 45 53 |....... CHAR-DES|
00000010: 49 47 4E 45 52 3D 3D 3D 3D 3D 3D 3D 3D 36 34 00 |IGNER========64.|
00000020: 3D 08 14 00 8F 20 28 50 29 20 43 4F 4D 4D 4F 44 |=.... (P) COMMOD|
00000030: 4F 52 45 20 57 45 4C 54 20 20 20 3D 3D 00 5B 08 |ORE WELT ==.[.|
00000040: 1E 00 8F 20 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |... ============|
00000050: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 00 79 08 28 00 |===========.y.(.|
00000060: 8F 20 28 43 29 20 42 59 20 4A 41 4E 20 26 20 41 |. (C) BY JAN & A|
00000070: 52 4E 45 20 20 20 20 3D 3D 00 97 08 32 00 8F 20 |RNE ==...2.. |
00000080: 20 20 20 20 20 20 20 42 49 53 54 45 52 20 20 20 | BISTER |
00000090: 20 20 20 20 20 3D 3D 00 B5 08 3C 00 8F 20 20 20 | ==...<.. |
000000A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000000B0: 20 20 20 3D 3D 00 D3 08 46 00 8F 20 56 45 52 53 | ==...F.. VERS|
000000C0: 49 4F 4E 20 32 2E 30 20 34 30 5A 2F 41 53 43 49 |ION 2.0 40Z/ASCI|
000000D0: 49 3D 3D 00 F1 08 50 00 8F 20 43 20 36 34 20 2B |I==...P.. C 64 +|
000000E0: 20 46 4C 4F 50 50 59 20 20 20 20 20 20 20 20 3D | FLOPPY =|
000000F0: 3D 00 0F 09 5A 00 8F 20 3D 3D 3D 3D 3D 3D 3D 3D |=...Z.. ========|
00000100: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 00 |===============.|
00000110: 1B 09 5F 00 8D 20 36 30 30 30 30 00 30 09 64 00 |.._.. 60000.0.d.|
00000120: 8B 4C 57 B2 31 A7 8D 31 37 35 30 3A 89 34 30 30 |.LW.1..1750:.400|
00000130: 00 61 09 6E 00 97 35 33 32 38 30 2C 38 3A 97 35 |.a.n..53280,8:.5|
00000140: 33 32 38 31 2C 30 3A 81 49 B2 38 32 38 A4 39 30 |3281,0:.I.828.90|
00000150: 31 3A 87 58 3A 97 49 2C 58 3A 82 49 3A 9E 38 32 |1:.X:.I,X:.I:.82|
00000160: 38 00 AF 09 78 00 83 31 32 30 2C 31 36 39 2C 34 |8...x..120,169,4|
00000170: 39 2C 31 33 33 2C 31 2C 31 36 39 2C 30 2C 31 33 |9,133,1,169,0,13|
00000180: 33 2C 31 30 30 2C 31 36 39 2C 32 30 38 2C 31 33 |3,100,169,208,13|
00000190: 33 2C 39 39 2C 31 36 39 2C 32 30 30 2C 31 33 33 |3,99,169,200,133|
000001A0: 2C 31 30 31 2C 31 36 32 2C 31 36 2C 31 36 30 00 |,101,162,16,160.|
000001B0: FC 09 82 00 83 30 2C 31 37 37 2C 39 38 2C 31 34 |.....0,177,98,14|
000001C0: 35 2C 31 30 30 2C 32 30 30 2C 32 30 38 2C 32 34 |5,100,200,208,24|
000001D0: 39 2C 32 33 30 2C 39 39 2C 32 33 30 2C 31 30 31 |9,230,99,230,101|
000001E0: 2C 32 30 32 2C 32 30 38 2C 32 34 32 2C 31 36 39 |,202,208,242,169|
000001F0: 2C 35 35 2C 31 33 33 2C 31 2C 38 38 00 44 0A 8C |,55,133,1,88.D..|
00000200: 00 83 31 36 39 2C 31 38 2C 31 34 31 2C 32 34 2C |..169,18,141,24,|
00000210: 32 30 38 2C 31 36 39 2C 31 34 38 2C 31 34 31 2C |208,169,148,141,|
00000220: 30 2C 32 32 31 2C 31 36 39 2C 31 39 36 2C 31 34 |0,221,169,196,14|
00000230: 31 2C 31 33 36 2C 32 2C 33 32 2C 36 38 2C 32 32 |1,136,2,32,68,22|
00000240: 39 2C 39 36 00 4A 0A 96 00 3A 00 98 0A A0 00 8F |9,96.J...:......|
00000250: 20 20 52 4F 55 54 49 4E 45 20 5A 55 4D 20 5A 45 | ROUTINE ZUM ZE|
00000260: 49 43 48 45 4E 4B 4F 50 49 45 52 45 4E 20 20 20 |ICHENKOPIEREN |
00000270: 20 20 20 20 20 20 20 20 20 20 45 4E 54 4E 4F 4D | ENTNOM|
00000280: 4D 45 4E 20 56 4F 4D 20 22 5A 45 49 43 48 45 4E |MEN VOM "ZEICHEN|
00000290: 2D 45 44 49 54 4F 52 22 00 BE 0A AA 00 8F 20 20 |-EDITOR"...... |
000002A0: 41 55 53 20 44 45 4D 20 36 34 27 45 52 2D 53 4F |AUS DEM 64'ER-SO|
000002B0: 4E 44 45 52 48 45 46 54 20 4E 52 2E 20 31 00 C4 |NDERHEFT NR. 1..|
000002C0: 0A B4 00 3A 00 00 0B BE 00 83 31 36 32 2C 30 2C |...:......162,0,|
000002D0: 31 33 38 2C 31 35 37 2C 32 30 38 2C 31 39 38 2C |138,157,208,198,|
000002E0: 31 36 39 2C 35 2C 31 35 37 2C 32 30 38 2C 32 31 |169,5,157,208,21|
000002F0: 38 2C 32 33 32 2C 32 30 38 2C 32 34 34 2C 39 36 |8,232,208,244,96|
00000300: 00 23 0B C8 00 97 36 35 30 2C 31 32 38 3A 97 37 |.#....650,128:.7|
00000310: 39 32 2C 31 39 33 3A 99 C7 28 38 29 3A 97 31 39 |92,193:..(8):.19|
00000320: 38 2C 30 00 29 0B D2 00 3A 00 4B 0B DC 00 8F 20 |8,0.)...:.K.... |
00000330: 20 2A 2A 20 45 49 47 45 4E 45 20 52 4F 55 54 49 | ** EIGENE ROUTI|
00000340: 4E 45 20 5A 55 52 20 44 41 52 2D 00 70 0B E6 00 |NE ZUR DAR-.p...|
00000350: 8F 20 20 2A 2A 20 53 54 45 4C 4C 55 4E 47 20 44 |. ** STELLUNG D|
00000360: 45 53 20 5A 45 49 43 48 45 4E 53 41 54 5A 45 53 |ES ZEICHENSATZES|
00000370: 00 76 0B F0 00 3A 00 A8 0B FA 00 99 43 4C 24 59 |.v...:......CL$Y|
00000380: 45 24 22 20 20 20 2A 2A 20 20 43 20 48 20 41 20 |E$" ** C H A |
00000390: 52 20 2D 20 44 20 45 20 53 20 49 20 47 20 4E 20 |R - D E S I G N |
000003A0: 45 20 52 20 20 2A 2A 22 00 D9 0B 04 01 99 43 34 |E R **"......C4|
000003B0: 24 22 2E 2E 2E 2E 2E 2E 2E 2E 20 20 31 20 46 45 |$"........ 1 FE|
000003C0: 52 54 49 47 45 53 20 5A 45 49 43 48 45 4E 20 42 |RTIGES ZEICHEN B|
000003D0: 45 52 45 43 48 4E 45 4E 22 00 00 0C 0E 01 99 22 |ERECHNEN"......"|
000003E0: 2E 2E 2E 2E 2E 2E 2E 2E 20 20 32 20 5A 45 49 43 |........ 2 ZEIC|
000003F0: 48 45 4E 53 41 54 5A 20 41 4E 53 45 48 45 4E 22 |HENSATZ ANSEHEN"|
00000400: 00 2B 0C 18 01 99 22 2E 2E 2E 2E 2E 2E 2E 2E 20 |.+...."........ |
00000410: 20 33 20 5A 45 49 43 48 45 4E 53 41 54 5A 20 41 | 3 ZEICHENSATZ A|
00000420: 42 53 50 45 49 43 48 45 52 4E 22 00 50 0C 22 01 |BSPEICHERN".P.".|
00000430: 99 22 2E 2E 2E 2E 2E 2E 2E 2E 20 20 34 20 5A 45 |."........ 4 ZE|
00000440: 49 43 48 45 4E 53 41 54 5A 20 4C 41 44 45 4E 22 |ICHENSATZ LADEN"|
00000450: 00 7B 0C 2C 01 99 22 2E 2E 2E 2E 2E 2E 2E 2E 20 |.{.,.."........ |
00000460: 20 35 20 50 52 4F 47 52 41 4D 4D 20 49 4E 49 54 | 5 PROGRAMM INIT|
00000470: 49 41 4C 49 53 49 45 52 45 4E 22 00 A6 0C 36 01 |IALISIEREN"...6.|
00000480: 99 22 2E 2E 2E 2E 2E 2E 2E 2E 20 20 36 20 52 4F |."........ 6 RO|
00000490: 4D 2D 5A 45 49 43 48 45 4E 20 55 45 42 45 52 4E |M-ZEICHEN UEBERN|
000004A0: 45 48 4D 45 4E 22 00 D1 0C 40 01 99 22 2E 2E 2E |EHMEN"...@.."...|
000004B0: 2E 2E 2E 2E 2E 20 20 37 20 52 41 4D 2D 5A 45 49 |..... 7 RAM-ZEI|
000004C0: 43 48 45 4E 20 55 45 42 45 52 4E 45 48 4D 45 4E |CHEN UEBERNEHMEN|
000004D0: 22 00 F8 0C 4A 01 99 22 2E 2E 2E 2E 2E 2E 2E 2E |"...J.."........|
000004E0: 20 20 38 20 44 49 52 45 43 54 4F 52 59 20 41 55 | 8 DIRECTORY AU|
000004F0: 46 4C 49 53 54 45 4E 22 00 1C 0D 54 01 99 22 20 |FLISTEN"...T.." |
00000500: 20 20 20 20 20 20 20 20 20 39 20 50 52 4F 47 52 | 9 PROGR|
00000510: 41 4D 4D 20 42 45 45 4E 44 45 4E 22 00 4C 0D 5E |AMM BEENDEN".L.^|
00000520: 01 99 22 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |.."-------------|
00000530: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000540: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 22 00 84 0D 68 |-----------"...h|
00000550: 01 99 C8 28 51 44 24 2C 34 29 22 2D 2D 2D 2D 2D |...(QD$,4)"-----|
00000560: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000570: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000580: 2D 2D 2D 22 00 8A 0D 72 01 3A 00 9F 0D 7C 01 8F |---"...r.:...|..|
00000590: 20 20 4D 45 4E 55 45 2D 45 49 4E 47 41 42 45 00 | MENUE-EINGABE.|
000005A0: A5 0D 86 01 3A 00 AB 0D 90 01 3A 00 D2 0D 9A 01 |....:.....:.....|
000005B0: 5A B2 35 30 32 35 36 3A 58 B2 30 3A 59 B2 30 3A |Z.50256:X.0:Y.0:|
000005C0: 97 5A 2C C2 28 5A 29 B0 31 32 38 3A 97 31 39 38 |.Z,.(Z).128:.198|
000005D0: 2C 30 00 05 0E A4 01 A1 58 24 3A 8B 58 24 B2 43 |,0......X$:.X$.C|
000005E0: 4C 24 A7 99 48 45 24 AA 43 34 24 3A 81 49 B2 31 |L$..HE$.C4$:.I.1|
000005F0: A4 38 3A 99 22 2E 2E 2E 2E 2E 2E 2E 2E 22 3A 82 |.8:."........":.|
00000600: 3A 89 34 30 30 00 30 0E AE 01 8B 58 24 B2 48 45 |:.400.0....X$.HE|
00000610: 24 A7 97 5A AA 58 AA 34 30 AC 59 2C C2 28 5A AA |$..Z.X.40.Y,.(Z.|
00000620: 58 AA 34 30 AC 59 29 AF 31 32 37 3A 89 34 30 30 |X.40.Y).127:.400|
00000630: 00 3F 0E B8 01 50 B2 5A AA 58 AA 34 30 AC 59 00 |.?...P.Z.X.40.Y.|
00000640: 52 0E C2 01 8B 58 24 B2 C7 28 32 30 29 A7 8D 37 |R....X$..(20)..7|
00000650: 32 30 00 84 0E CC 01 8B 58 24 B2 43 31 24 AF 58 |20......X$.C1$.X|
00000660: B1 30 A7 97 50 2C C2 28 50 29 AF 31 32 37 3A 97 |.0..P,.(P).127:.|
00000670: 50 AB 31 2C C2 28 50 AB 31 29 B0 31 32 38 3A 58 |P.1,.(P.1).128:X|
00000680: B2 58 AB 31 00 B6 0E D6 01 8B 58 24 B2 43 33 24 |.X.1......X$.C3$|
00000690: AF 58 B3 37 A7 97 50 2C C2 28 50 29 AF 31 32 37 |.X.7..P,.(P).127|
000006A0: 3A 97 50 AA 31 2C C2 28 50 AA 31 29 B0 31 32 38 |:.P.1,.(P.1).128|
000006B0: 3A 58 B2 58 AA 31 00 EA 0E E0 01 8B 58 24 B2 43 |:X.X.1......X$.C|
000006C0: 32 24 AF 59 B1 30 A7 97 50 2C C2 28 50 29 AF 31 |2$.Y.0..P,.(P).1|
000006D0: 32 37 3A 97 50 AB 34 30 2C C2 28 50 AB 34 30 29 |27:.P.40,.(P.40)|
000006E0: B0 31 32 38 3A 59 B2 59 AB 31 00 1E 0F EA 01 8B |.128:Y.Y.1......|
000006F0: 58 24 B2 43 34 24 AF 59 B3 37 A7 97 50 2C C2 28 |X$.C4$.Y.7..P,.(|
00000700: 50 29 AF 31 32 37 3A 97 50 AA 34 30 2C C2 28 50 |P).127:.P.40,.(P|
00000710: AA 34 30 29 B0 31 32 38 3A 59 B2 59 AA 31 00 32 |.40).128:Y.Y.1.2|
00000720: 0F F4 01 8B 58 24 B2 C7 28 31 33 29 A7 8D 31 36 |....X$..(13)..16|
00000730: 36 30 00 49 0F FE 01 8B 58 24 B2 22 2A 22 A7 41 |60.I....X$."*".A|
00000740: 56 B2 34 32 3A 8D 36 37 30 00 60 0F 08 02 8B 58 |V.42:.670.`....X|
00000750: 24 B2 22 20 22 A7 41 56 B2 34 36 3A 8D 36 37 30 |$." ".AV.46:.670|
00000760: 00 76 0F 12 02 8B 58 24 B2 22 31 22 A7 8D 38 32 |.v....X$."1"..82|
00000770: 30 3A 89 34 30 30 00 8C 0F 1C 02 8B 58 24 B2 22 |0:.400......X$."|
00000780: 32 22 A7 8D 39 30 30 3A 89 34 30 30 00 A3 0F 26 |2"..900:.400...&|
00000790: 02 8B 58 24 B2 22 33 22 A7 8D 31 30 30 30 3A 89 |..X$."3"..1000:.|
000007A0: 34 30 30 00 BA 0F 30 02 8B 58 24 B2 22 34 22 A7 |400...0..X$."4".|
000007B0: 8D 31 30 39 30 3A 89 34 30 30 00 D1 0F 3A 02 8B |.1090:.400...:..|
000007C0: 58 24 B2 22 35 22 A7 8D 31 31 35 30 3A 89 34 30 |X$."5"..1150:.40|
000007D0: 30 00 E8 0F 44 02 8B 58 24 B2 22 36 22 A7 8D 31 |0...D..X$."6"..1|
000007E0: 32 33 30 3A 89 34 30 30 00 FF 0F 4E 02 8B 58 24 |230:.400...N..X$|
000007F0: B2 22 37 22 A7 8D 31 33 32 30 3A 89 34 30 30 00 |."7"..1320:.400.|
00000800: 16 10 58 02 8B 58 24 B2 22 38 22 A7 8D 31 34 30 |..X..X$."8"..140|
00000810: 30 3A 89 32 35 30 00 59 10 62 02 8B 58 24 B2 22 |0:.250.Y.b..X$."|
00000820: 39 22 A7 99 43 4C 24 AA 43 34 24 AA 43 33 24 AA |9"..CL$.C4$.C3$.|
00000830: 22 56 49 45 4C 20 53 50 41 53 53 20 4D 49 54 20 |"VIEL SPASS MIT |
00000840: 44 45 4D 20 4E 45 55 45 4E 20 5A 45 49 43 48 45 |DEM NEUEN ZEICHE|
00000850: 4E 53 41 54 5A 21 22 3A 80 00 62 10 6C 02 89 34 |NSATZ!":..b.l..4|
00000860: 32 30 00 68 10 76 02 3A 00 6E 10 80 02 3A 00 94 |20.h.v.:.n...:..|
00000870: 10 8A 02 8F 20 20 53 55 42 52 4F 55 54 49 4E 45 |.... SUBROUTINE|
00000880: 3A 20 22 2A 22 20 55 4E 44 20 22 2E 22 20 53 45 |: "*" UND "." SE|
00000890: 54 5A 45 4E 00 9A 10 94 02 3A 00 B7 10 9E 02 97 |TZEN.....:......|
000008A0: 50 2C 41 56 3A 8B 58 B2 37 A7 97 50 2C C2 28 50 |P,AV:.X.7..P,.(P|
000008B0: 29 B0 31 32 38 3A 8E 00 D3 10 A8 02 97 50 AA 31 |).128:.......P.1|
000008C0: 2C C2 28 50 AA 31 29 B0 31 32 38 3A 58 B2 58 AA |,.(P.1).128:X.X.|
000008D0: 31 3A 8E 00 D9 10 B2 02 3A 00 F7 10 BC 02 8F 20 |1:......:...... |
000008E0: 20 53 55 42 52 4F 55 54 49 4E 45 3A 20 5B 49 4E | SUBROUTINE: [IN|
000008F0: 53 54 2F 44 45 4C 5D 00 FD 10 C6 02 3A 00 08 11 |ST/DEL].....:...|
00000900: D0 02 8B 58 B2 30 A7 8E 00 24 11 DA 02 97 50 AB |...X.0...$....P.|
00000910: 31 2C C2 28 50 29 3A 58 B2 58 AB 31 3A 97 50 2C |1,.(P):X.X.1:.P,|
00000920: 34 36 3A 8E 00 2A 11 E4 02 3A 00 4E 11 EE 02 8F |46:..*...:.N....|
00000930: 20 20 53 55 42 52 4F 55 54 49 4E 45 4E 20 46 55 | SUBROUTINEN FU|
00000940: 45 52 20 4D 45 4E 55 45 50 55 4E 4B 54 45 00 54 |ER MENUEPUNKTE.T|
00000950: 11 F8 02 3A 00 5A 11 02 03 3A 00 60 11 0C 03 3A |...:.Z...:.`...:|
00000960: 00 66 11 16 03 3A 00 88 11 20 03 8F 20 20 46 45 |.f...:... .. FE|
00000970: 52 54 49 47 45 53 20 5A 45 49 43 48 45 4E 20 42 |RTIGES ZEICHEN B|
00000980: 45 52 45 43 48 4E 45 4E 00 8E 11 2A 03 3A 00 CB |ERECHNEN...*.:..|
00000990: 11 34 03 99 48 45 24 C8 28 51 44 24 2C 31 32 29 |.4..HE$.(QD$,12)|
000009A0: 52 4E 24 22 46 45 52 54 49 47 45 53 20 5A 45 49 |RN$"FERTIGES ZEI|
000009B0: 43 48 45 4E 20 42 45 52 45 43 48 4E 45 4E 22 3A |CHEN BERECHNEN":|
000009C0: 97 50 2C C2 28 50 29 AF 31 32 37 00 F9 11 3E 03 |.P,.(P).127...>.|
000009D0: 8D 31 35 34 30 3A 81 49 B2 30 A4 37 3A 58 B2 30 |.1540:.I.0.7:X.0|
000009E0: 3A 81 49 32 B2 30 A4 37 3A 4C 50 B2 35 30 32 35 |:.I2.0.7:LP.5025|
000009F0: 36 AA 49 32 AA 34 30 AC 49 00 14 12 48 03 8B C2 |6.I2.40.I...H...|
00000A00: 28 4C 50 29 B2 34 32 A7 58 B2 58 AA 32 AE 28 37 |(LP).42.X.X.2.(7|
00000A10: AB 49 32 29 00 41 12 52 03 82 49 32 3A 97 35 31 |.I2).A.R..I2:.51|
00000A20: 32 30 30 AA 38 AC 43 50 AA 49 2C 58 3A 82 49 3A |200.8.CP.I,X:.I:|
00000A30: 99 22 54 41 53 54 45 20 44 52 55 45 43 4B 45 4E |."TASTE DRUECKEN|
00000A40: 22 00 5B 12 5C 03 97 31 39 38 2C 30 3A 92 31 39 |".[.\..198,0:.19|
00000A50: 38 2C 31 3A 8D 31 37 35 30 3A 8E 00 61 12 66 03 |8,1:.1750:..a.f.|
00000A60: 3A 00 7B 12 70 03 8F 20 5A 45 49 43 48 45 4E 53 |:.{.p.. ZEICHENS|
00000A70: 41 54 5A 20 41 4E 53 45 48 45 4E 00 81 12 7A 03 |ATZ ANSEHEN...z.|
00000A80: 3A 00 B7 12 84 03 99 48 45 24 C8 28 51 44 24 2C |:......HE$.(QD$,|
00000A90: 31 32 29 52 4E 24 22 5A 45 49 43 48 45 4E 53 41 |12)RN$"ZEICHENSA|
00000AA0: 54 5A 20 41 4E 53 45 48 45 4E 22 3A 97 50 2C C2 |TZ ANSEHEN":.P,.|
00000AB0: 28 50 29 AF 31 32 37 00 CF 12 8E 03 97 38 39 34 |(P).127......894|
00000AC0: 2C 31 35 3A 9E 38 38 37 3A 97 38 39 34 2C 35 00 |,15:.887:.894,5.|
00000AD0: F5 12 98 03 99 43 34 24 22 52 45 56 45 52 53 3D |.....C4$"REVERS=|
00000AE0: 4E 4F 52 4D 41 4C 3F 20 28 4A 2F 4E 29 22 3A 97 |NORMAL? (J/N)":.|
00000AF0: 31 39 38 2C 30 00 0D 13 A2 03 A1 58 24 3A 8B 58 |198,0......X$:.X|
00000B00: 24 B2 22 4E 22 A7 8D 31 37 35 30 3A 8E 00 1E 13 |$."N"..1750:....|
00000B10: AC 03 8B 58 24 B3 B1 22 4A 22 A7 39 33 30 00 46 |...X$.."J".930.F|
00000B20: 13 B6 03 81 49 B2 30 A4 31 30 32 33 3A 97 35 32 |....I.0.1023:.52|
00000B30: 32 32 34 AA 49 2C 32 35 35 AB C2 28 35 31 32 30 |224.I,255..(5120|
00000B40: 30 AA 49 29 3A 82 00 75 13 C0 03 99 43 34 24 22 |0.I):..u....C4$"|
00000B50: 54 41 53 54 45 20 44 52 55 45 43 4B 45 4E 22 3A |TASTE DRUECKEN":|
00000B60: 97 31 39 38 2C 30 3A 92 31 39 38 2C 31 3A 8D 31 |.198,0:.198,1:.1|
00000B70: 37 35 30 3A 8E 00 7B 13 CA 03 3A 00 99 13 D4 03 |750:..{...:.....|
00000B80: 8F 20 5A 45 49 43 48 45 4E 53 41 54 5A 20 41 42 |. ZEICHENSATZ AB|
00000B90: 53 50 45 49 43 48 45 52 4E 00 9F 13 DE 03 3A 00 |SPEICHERN.....:.|
00000BA0: D9 13 E8 03 99 48 45 24 C8 28 51 44 24 2C 31 32 |.....HE$.(QD$,12|
00000BB0: 29 52 4E 24 22 5A 45 49 43 48 45 4E 53 41 54 5A |)RN$"ZEICHENSATZ|
00000BC0: 20 41 42 53 50 45 49 43 48 45 52 4E 22 3A 97 50 | ABSPEICHERN":.P|
00000BD0: 2C C2 28 50 29 AF 31 32 37 00 09 14 F2 03 99 43 |,.(P).127......C|
00000BE0: 34 24 22 4E 41 4D 45 20 28 4E 3D 5A 55 52 55 45 |4$"NAME (N=ZURUE|
00000BF0: 43 4B 29 22 3B 3A 85 58 24 3A 8B 58 24 B2 22 4E |CK)";:.X$:.X$."N|
00000C00: 22 A7 8D 31 37 35 30 3A 8E 00 41 14 FC 03 9F 31 |"..1750:..A....1|
00000C10: 2C 38 2C 31 35 2C 22 53 3A 22 AA 58 24 3A A0 31 |,8,15,"S:".X$:.1|
00000C20: 3A 81 49 B2 31 A4 C3 28 58 24 29 3A 97 34 39 31 |:.I.1..(X$):.491|
00000C30: 35 31 AA 49 2C C6 28 CA 28 58 24 2C 49 2C 31 29 |51.I,.(.(X$,I,1)|
00000C40: 29 00 71 14 06 04 82 49 3A 97 31 38 33 2C C3 28 |).q....I:.183,.(|
00000C50: 58 24 29 3A 97 31 38 35 2C 32 3A 97 31 38 36 2C |X$):.185,2:.186,|
00000C60: 38 3A 97 31 38 37 2C 30 3A 97 31 38 38 2C 31 39 |8:.187,0:.188,19|
00000C70: 32 00 95 14 10 04 97 31 39 33 2C 30 3A 97 31 39 |2......193,0:.19|
00000C80: 34 2C 32 30 30 3A 97 31 37 34 2C 30 3A 97 31 37 |4,200:.174,0:.17|
00000C90: 35 2C 32 30 38 00 A8 14 1A 04 9E 36 32 39 35 34 |5,208......62954|
00000CA0: 3A 8D 31 37 35 30 3A 8E 00 AE 14 24 04 3A 00 C6 |:.1750:....$.:..|
00000CB0: 14 2E 04 8F 20 5A 45 49 43 48 45 4E 53 41 54 5A |.... ZEICHENSATZ|
00000CC0: 20 4C 41 44 45 4E 00 CC 14 38 04 3A 00 00 15 42 | LADEN...8.:...B|
00000CD0: 04 99 48 45 24 C8 28 51 44 24 2C 31 32 29 52 4E |..HE$.(QD$,12)RN|
00000CE0: 24 22 5A 45 49 43 48 45 4E 53 41 54 5A 20 4C 41 |$"ZEICHENSATZ LA|
00000CF0: 44 45 4E 22 3A 97 50 2C C2 28 50 29 AF 31 32 37 |DEN":.P,.(P).127|
00000D00: 00 30 15 4C 04 99 43 34 24 22 4E 41 4D 45 20 28 |.0.L..C4$"NAME (|
00000D10: 4E 3D 5A 55 52 55 45 43 4B 29 22 3B 3A 85 58 24 |N=ZURUECK)";:.X$|
00000D20: 3A 8B 58 24 B2 22 4E 22 A7 8D 31 37 35 30 3A 8E |:.X$."N"..1750:.|
00000D30: 00 41 15 56 04 4C 57 B2 31 3A 93 58 24 2C 38 2C |.A.V.LW.1:.X$,8,|
00000D40: 31 00 47 15 60 04 3A 00 63 15 6A 04 8F 20 43 4F |1.G.`.:.c.j.. CO|
00000D50: 4D 4D 4F 44 4F 52 45 2D 5A 45 49 43 48 45 4E 53 |MMODORE-ZEICHENS|
00000D60: 41 54 5A 00 69 15 74 04 3A 00 A3 15 7E 04 99 48 |ATZ.i.t.:...~..H|
00000D70: 45 24 C8 28 51 44 24 2C 31 32 29 52 4E 24 22 50 |E$.(QD$,12)RN$"P|
00000D80: 52 4F 47 52 41 4D 4D 20 49 4E 49 54 49 41 4C 49 |ROGRAMM INITIALI|
00000D90: 53 49 45 52 45 4E 22 3A 97 50 2C C2 28 50 29 AF |SIEREN":.P,.(P).|
00000DA0: 31 32 37 00 D5 15 88 04 99 43 34 24 22 4D 45 49 |127......C4$"MEI|
00000DB0: 4E 45 4E 20 53 49 45 20 44 41 53 20 57 49 52 4B |NEN SIE DAS WIRK|
00000DC0: 4C 49 43 48 20 45 52 4E 53 54 20 3F 3F 3F 20 28 |LICH ERNST ??? (|
00000DD0: 4A 2F 4E 29 22 00 ED 15 92 04 A1 58 24 3A 8B 58 |J/N)"......X$:.X|
00000DE0: 24 B2 22 4E 22 A7 8D 31 37 35 30 3A 8E 00 FF 15 |$."N"..1750:....|
00000DF0: 9C 04 8B 58 24 B3 B1 22 4A 22 A7 31 31 37 30 00 |...X$.."J".1170.|
00000E00: 05 16 A6 04 8A 00 0B 16 B0 04 3A 00 29 16 BA 04 |..........:.)...|
00000E10: 8F 20 52 4F 4D 2D 5A 45 49 43 48 45 4E 20 55 45 |. ROM-ZEICHEN UE|
00000E20: 42 45 52 4E 45 48 4D 45 4E 00 2F 16 C4 04 3A 00 |BERNEHMEN./...:.|
00000E30: 69 16 CE 04 99 48 45 24 C8 28 51 44 24 2C 31 32 |i....HE$.(QD$,12|
00000E40: 29 52 4E 24 22 52 4F 4D 2D 5A 45 49 43 48 45 4E |)RN$"ROM-ZEICHEN|
00000E50: 20 55 45 42 45 52 4E 45 48 4D 45 4E 22 3A 97 50 | UEBERNEHMEN":.P|
00000E60: 2C C2 28 50 29 AF 31 32 37 00 96 16 D8 04 8D 31 |,.(P).127......1|
00000E70: 35 34 30 3A 8D 31 37 35 30 3A 99 48 45 24 43 34 |540:.1750:.HE$C4|
00000E80: 24 3A 81 49 B2 31 A4 38 3A 99 22 2E 2E 2E 2E 2E |$:.I.1.8:.".....|
00000E90: 2E 2E 2E 22 3A 82 00 A9 16 E2 04 97 35 36 33 33 |...":.......5633|
00000EA0: 34 2C 30 3A 97 31 2C 35 31 00 C6 16 EC 04 81 49 |4,0:.1,51......I|
00000EB0: B2 30 A4 37 3A 58 B2 C2 28 35 33 32 34 38 AA 38 |.0.7:X..(53248.8|
00000EC0: AC 43 50 AA 49 29 00 FA 16 F6 04 81 49 32 B2 30 |.CP.I)......I2.0|
00000ED0: A4 37 3A 8B 58 B1 B2 32 AE 28 37 AB 49 32 29 A7 |.7:.X..2.(7.I2).|
00000EE0: 58 B2 58 AB 32 AE 28 37 AB 49 32 29 3A 97 5A AA |X.X.2.(7.I2):.Z.|
00000EF0: 49 32 AA 34 30 AC 49 2C 34 32 00 13 17 00 05 82 |I2.40.I,42......|
00000F00: 3A 82 3A 97 31 2C 35 35 3A 97 35 36 33 33 34 2C |:.:.1,55:.56334,|
00000F10: 31 3A 8E 00 19 17 0A 05 3A 00 37 17 14 05 8F 20 |1:......:.7.... |
00000F20: 52 41 4D 2D 5A 45 49 43 48 45 4E 20 55 45 42 45 |RAM-ZEICHEN UEBE|
00000F30: 52 4E 45 48 4D 45 4E 00 3D 17 1E 05 3A 00 77 17 |RNEHMEN.=...:.w.|
00000F40: 28 05 99 48 45 24 C8 28 51 44 24 2C 31 32 29 52 |(..HE$.(QD$,12)R|
00000F50: 4E 24 22 52 41 4D 2D 5A 45 49 43 48 45 4E 20 55 |N$"RAM-ZEICHEN U|
00000F60: 45 42 45 52 4E 45 48 4D 45 4E 22 3A 97 50 2C C2 |EBERNEHMEN":.P,.|
00000F70: 28 50 29 AF 31 32 37 00 A4 17 32 05 8D 31 35 34 |(P).127...2..154|
00000F80: 30 3A 8D 31 37 35 30 3A 99 48 45 24 43 34 24 3A |0:.1750:.HE$C4$:|
00000F90: 81 49 B2 31 A4 38 3A 99 22 2E 2E 2E 2E 2E 2E 2E |.I.1.8:.".......|
00000FA0: 2E 22 3A 82 00 C1 17 3C 05 81 49 B2 30 A4 37 3A |.":....<..I.0.7:|
00000FB0: 58 B2 C2 28 35 31 32 30 30 AA 38 AC 43 50 AA 49 |X..(51200.8.CP.I|
00000FC0: 29 00 F5 17 46 05 81 49 32 B2 30 A4 37 3A 8B 58 |)...F..I2.0.7:.X|
00000FD0: B1 B2 32 AE 28 37 AB 49 32 29 A7 58 B2 58 AB 32 |..2.(7.I2).X.X.2|
00000FE0: AE 28 37 AB 49 32 29 3A 97 5A AA 49 32 AA 34 30 |.(7.I2):.Z.I2.40|
00000FF0: AC 49 2C 34 32 00 FF 17 50 05 82 3A 82 3A 8E 00 |.I,42...P..:.:..|
00001000: 05 18 5A 05 3A 00 1F 18 64 05 8F 20 44 49 52 45 |..Z.:...d.. DIRE|
00001010: 43 54 4F 52 59 20 41 55 46 4C 49 53 54 45 4E 00 |CTORY AUFLISTEN.|
00001020: 25 18 6E 05 3A 00 68 18 78 05 99 43 4C 24 52 4E |%.n.:.h.x..CL$RN|
00001030: 24 22 44 49 52 45 43 54 4F 52 59 20 41 55 46 4C |$"DIRECTORY AUFL|
00001040: 49 53 54 45 4E 22 43 34 24 3B 43 34 24 43 34 24 |ISTEN"C4$;C4$C4$|
00001050: 3A 99 22 44 49 53 4B 45 54 54 45 3A 22 3A 9F 31 |:."DISKETTE:":.1|
00001060: 2C 38 2C 30 2C 22 24 22 00 90 18 82 05 A1 23 31 |,8,0,"$"......#1|
00001070: 2C 58 24 3A A1 23 31 2C 58 24 3A A1 23 31 2C 44 |,X$:.#1,X$:.#1,D|
00001080: 24 3A A1 23 31 2C 58 24 3A 99 C5 28 44 24 29 3B |$:.#1,X$:..(D$);|
00001090: 00 AD 18 8C 05 81 49 49 B2 30 A4 32 37 3A A1 23 |......II.0.27:.#|
000010A0: 31 2C 58 24 3A 99 58 24 3B 3A 82 3A 99 00 BD 18 |1,X$:.X$;:.:....|
000010B0: 96 05 8B 53 54 B2 36 34 A7 31 34 39 30 00 CF 18 |...ST.64.1490...|
000010C0: A0 05 A1 23 31 2C 58 24 3A A1 23 31 2C 58 24 00 |...#1,X$:.#1,X$.|
000010D0: 01 19 AA 05 A1 23 31 2C 5A 4C 24 3A A1 23 31 2C |.....#1,ZL$:.#1,|
000010E0: 5A 48 24 3A 99 C6 28 5A 4C 24 AA C7 28 30 29 29 |ZH$:..(ZL$..(0))|
000010F0: AA 32 35 36 AC C6 28 5A 48 24 AA C7 28 30 29 29 |.256..(ZH$..(0))|
00001100: 3B 00 1E 19 B4 05 81 49 49 B2 30 A4 32 37 3A A1 |;......II.0.27:.|
00001110: 23 31 2C 58 24 3A 99 58 24 3B 3A 82 3A 99 00 33 |#1,X$:.X$;:.:..3|
00001120: 19 BE 05 A1 58 24 3A 8B 58 24 B2 22 20 22 A7 31 |....X$:.X$." ".1|
00001130: 34 39 30 00 3D 19 C8 05 89 31 34 33 30 00 5E 19 |490.=....1430.^.|
00001140: D2 05 99 3A 99 43 34 24 43 34 24 43 34 24 22 54 |...:.C4$C4$C4$"T|
00001150: 41 53 54 45 20 44 52 55 45 43 4B 45 4E 22 00 75 |ASTE DRUECKEN".u|
00001160: 19 DC 05 A0 31 3A 97 31 39 38 2C 30 3A 92 31 39 |....1:.198,0:.19|
00001170: 38 2C 31 3A 8E 00 7B 19 E6 05 3A 00 9D 19 F0 05 |8,1:..{...:.....|
00001180: 8F 20 20 53 55 42 52 4F 55 54 49 4E 45 3A 20 5A |. SUBROUTINE: Z|
00001190: 45 49 43 48 45 4E 41 55 53 57 41 48 4C 00 A3 19 |EICHENAUSWAHL...|
000011A0: FA 05 3A 00 AC 19 04 06 9E 38 38 37 00 E7 19 0E |..:......887....|
000011B0: 06 99 43 34 24 22 5A 45 49 43 48 45 4E 41 55 53 |..C4$"ZEICHENAUS|
000011C0: 57 41 48 4C 20 4D 49 54 20 28 43 52 53 52 29 20 |WAHL MIT (CRSR) |
000011D0: 55 4E 44 20 28 52 45 54 55 52 4E 29 22 43 34 24 |UND (RETURN)"C4$|
000011E0: 3A 97 31 39 38 2C 30 00 FB 19 18 06 97 35 36 30 |:.198,0......560|
000011F0: 31 36 AA 43 50 2C 35 3A A1 58 24 00 1F 1A 22 06 |16.CP,5:.X$...".|
00001200: 8B 58 24 B2 43 32 24 A7 43 50 B2 43 50 AB 34 30 |.X$.C2$.CP.CP.40|
00001210: 3A 8B 43 50 B3 30 A7 43 50 B2 43 50 AA 34 30 00 |:.CP.0.CP.CP.40.|
00001220: 45 1A 2C 06 8B 58 24 B2 43 34 24 A7 43 50 B2 43 |E.,..X$.C4$.CP.C|
00001230: 50 AA 34 30 3A 8B 43 50 B1 32 35 35 A7 43 50 B2 |P.40:.CP.255.CP.|
00001240: 43 50 AB 34 30 00 67 1A 36 06 8B 58 24 B2 43 31 |CP.40.g.6..X$.C1|
00001250: 24 A7 43 50 B2 43 50 AB 31 3A 8B 43 50 B3 30 A7 |$.CP.CP.1:.CP.0.|
00001260: 43 50 B2 43 50 AA 31 00 8B 1A 40 06 8B 58 24 B2 |CP.CP.1...@..X$.|
00001270: 43 33 24 A7 43 50 B2 43 50 AA 31 3A 8B 43 50 B1 |C3$.CP.CP.1:.CP.|
00001280: 32 35 35 A7 43 50 B2 43 50 AB 31 00 B3 1A 4A 06 |255.CP.CP.1...J.|
00001290: 97 35 36 30 31 36 AA 43 50 2C 31 3A 8B 58 24 B2 |.56016.CP,1:.X$.|
000012A0: C7 28 31 33 29 A7 97 35 36 30 31 36 AA 43 50 2C |.(13)..56016.CP,|
000012B0: 33 3A 8E 00 C7 1A 54 06 81 49 B2 31 A4 32 30 3A |3:....T..I.1.20:|
000012C0: 82 3A 89 31 35 36 30 00 CD 1A 5E 06 3A 00 E9 1A |.:.1560...^.:...|
000012D0: 68 06 8F 20 20 53 55 42 52 4F 55 54 49 4E 45 3A |h.. SUBROUTINE:|
000012E0: 20 5B 52 45 54 55 52 4E 5D 00 EF 1A 72 06 3A 00 | [RETURN]...r.:.|
000012F0: FD 1A 7C 06 8B 59 B1 36 A7 31 37 30 30 00 0D 1B |..|..Y.6.1700...|
00001300: 86 06 97 50 2C C2 28 50 29 AF 31 32 37 00 27 1B |...P,.(P).127.'.|
00001310: 90 06 97 50 AA 34 30 AB 58 2C C2 28 50 AA 34 30 |...P.40.X,.(P.40|
00001320: AB 58 29 B0 31 32 38 00 37 1B 9A 06 58 B2 30 3A |.X).128.7...X.0:|
00001330: 59 B2 59 AA 31 3A 8E 00 5D 1B A4 06 97 50 2C C2 |Y.Y.1:..]....P,.|
00001340: 28 50 29 AF 31 32 37 3A 97 50 AB 58 2C C2 28 50 |(P).127:.P.X,.(P|
00001350: AB 58 29 B0 31 32 38 3A 58 B2 30 3A 8E 00 63 1B |.X).128:X.0:..c.|
00001360: AE 06 3A 00 76 1B B8 06 8F 20 20 53 55 42 52 4F |..:.v.... SUBRO|
00001370: 55 54 49 4E 45 3A 00 99 1B C2 06 8F 20 20 55 4E |UTINE:...... UN|
00001380: 54 45 52 45 20 42 49 4C 44 48 41 45 4C 46 54 45 |TERE BILDHAELFTE|
00001390: 20 4C 4F 45 53 43 48 45 4E 00 9F 1B CC 06 3A 00 | LOESCHEN.....:.|
000013A0: B9 1B D6 06 99 48 45 24 C8 28 51 44 24 2C 31 32 |.....HE$.(QD$,12|
000013B0: 29 3B 3A 81 49 B2 31 A4 35 00 F4 1B E0 06 99 22 |);:.I.1.5......"|
000013C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000013D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000013E0: 20 20 20 20 20 20 20 22 3A 8F 20 33 39 20 53 50 | ":. 39 SP|
000013F0: 41 43 45 53 00 27 1C EA 06 82 3A 99 22 2D 2D 2D |ACES.'....:."---|
00001400: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00001410: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00001420: 2D 2D 2D 2D 2D 22 3B 00 33 1C F4 06 81 49 B2 37 |-----";.3....I.7|
00001430: A4 31 32 00 70 1C FE 06 99 22 20 20 20 20 20 20 |.12.p...." |
00001440: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001450: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001460: 20 20 22 3B 3A 8F 20 34 30 20 53 50 41 43 45 53 | ";:. 40 SPACES|
00001470: 00 8D 1C 08 07 82 3A 99 22 20 20 20 20 20 20 20 |......:." |
00001480: 20 20 20 20 20 20 20 20 20 22 3B 3A 8E 00 A8 1C | ";:....|
00001490: 60 EA 8F 20 4E 41 43 48 53 50 41 4E 4E 20 3D 3D |`.. NACHSPANN ==|
000014A0: 3D 3D 3D 3D 3D 3D 3D 3D 00 C8 1C 6A EA 8F 20 2A |========...j.. *|
000014B0: 20 46 41 52 42 43 4F 44 45 53 2F 53 54 45 55 45 | FARBCODES/STEUE|
000014C0: 52 43 4F 44 45 53 20 2A 00 E0 1C 74 EA 43 34 24 |RCODES *...t.C4$|
000014D0: B2 C7 28 31 37 29 3A 52 4E 24 B2 C7 28 31 38 29 |..(17):RN$..(18)|
000014E0: 00 F8 1C 7E EA 48 45 24 B2 C7 28 31 39 29 3A 43 |...~.HE$..(19):C|
000014F0: 33 24 B2 C7 28 32 39 29 00 12 1D 88 EA 43 32 24 |3$..(29).....C2$|
00001500: B2 C7 28 31 34 35 29 3A 43 4C 24 B2 C7 28 31 34 |..(145):CL$..(14|
00001510: 37 29 00 2C 1D 92 EA 43 31 24 B2 C7 28 31 35 37 |7).,...C1$..(157|
00001520: 29 3A 59 45 24 B2 C7 28 31 35 38 29 00 40 1D 9C |):YE$..(158).@..|
00001530: EA 8F 20 5A 45 49 43 48 45 4E 46 4F 4C 47 45 4E |.. ZEICHENFOLGEN|
00001540: 00 4F 1D A6 EA 81 20 51 B2 31 20 A4 20 34 30 00 |.O.... Q.1 . 40.|
00001550: 5F 1D B0 EA 51 44 24 B2 51 44 24 AA 43 34 24 00 |_...QD$.QD$.C4$.|
00001560: 67 1D BA EA 82 20 51 00 6D 1D C4 EA 8E 00 00 00 |g.... Q.m.......|
....... CHAR-DESIGNER========64.=.... (P
) COMMODORE WELT ==.[.... ============
===========.Y.(.. (C) BY JAN & ARNE =
=...2.. BISTER ==...<..
==.S.F.. VERSION 2.0
40Z/ASCII==...P.. C 64 + FLOPPY =
=...Z.. =======================..._.. 60
000.0.D..LW.1..1750:.400.A.N..53280,8:.5
3281,0:.I.828.901:.X:.I,X:.I:.828...X..1
20,169,49,133,1,169,0,133,100,169,208,13
3,99,169,200,133,101,162,16,160......0,1
77,98,145,100,200,208,249,230,99,230,101
,202,208,242,169,55,133,1,88.D....169,18
,141,24,208,169,148,141,0,221,169,196,14
1,136,2,32,68,229,96.J...:... .. ROUTIN
E ZUM ZEICHENKOPIEREN ENTNOM
MEN VOM "ZEICHEN-EDITOR"...... AUS DEM
64'ER-SONDERHEFT NR. 1.D...:......162,0,
138,157,208,198,169,5,157,208,218,232,20
8,244,96.#.H..650,128:.792,193:.G(8):.19
8,0.).R.:.K.... ** EIGENE ROUTINE ZUR D
AR-.P.... ** STELLUNG DES ZEICHENSATZES
.V...:......CL$YE$" ** C H A R - D E
S I G N E R **".Y....C4$"........ 1 FE
RTIGES ZEICHEN BERECHNEN"......"........
2 ZEICHENSATZ ANSEHEN".+...."........
3 ZEICHENSATZ ABSPEICHERN".P.".."......
.. 4 ZEICHENSATZ LADEN".{.,.."........
5 PROGRAMM INITIALISIEREN"...6.."......
.. 6 ROM-ZEICHEN UEBERNEHMEN".Q.@.."...
..... 7 RAM-ZEICHEN UEBERNEHMEN"...J.."
........ 8 DIRECTORY AUFLISTEN"...T.."
9 PROGRAMM BEENDEN".L.^.."-----
-----------------------------------"...H
..H(QD$,4)"-----------------------------
-----------"...R.:...|.. MENUE-EINGABE.
....:.....:.R...Z.50256:X.0:Y.0:.Z,B(Z).
128:.198,0......X$:.X$.CL$..HE$.C4$:.I.1
.8:."........":.:.400.0....X$.HE$..Z.X.4
0.Y,B(Z.X.40.Y).127:.400.?...P.Z.X.40.Y.
R.B..X$.G(20)..720...L..X$.C1$.X.0..P,B(
P).127:.P.1,B(P.1).128:X.X.1...V..X$.C3$
.X.7..P,B(P).127:.P.1,B(P.1).128:X.X.1..
....X$.C2$.Y.0..P,B(P).127:.P.40,B(P.40)
.128:Y.Y.1......X$.C4$.Y.7..P,B(P).127:.
P.40,B(P.40).128:Y.Y.1.2....X$.G(13)..16
60.I....X$."*".AV.42:.670.`....X$." ".AV
.46:.670.V....X$."1"..820:.400......X$."
2"..900:.400...&..X$."3"..1000:.400...0.
.X$."4"..1090:.400.Q.:..X$."5"..1150:.40
0...D..X$."6"..1230:.400...N..X$."7"..13
20:.400...X..X$."8"..1400:.250.Y.B..X$."
9"..CL$.C4$.C3$."VIEL SPASS MIT DEM NEUE
N ZEICHENSATZ!":..B.L..420.H.V.:.N...:..
.... SUBROUTINE: "*" UND "." SETZEN....
.:......P,AV:.X.7..P,B(P).128:..S....P.1
,B(P.1).128:X.X.1:..Y...:...... SUBROUT
INE: [INST/DEL]...F.:...P..X.0...$.Z..P.
1,B(P):X.X.1:.P,46:..*...:.N.... SUBROU
TINEN FUER MENUEPUNKTE.T...:.Z...:.`...:
.F...:... .. FERTIGES ZEICHEN BERECHNEN
...*.:.K.4..HE$H(QD$,12)RN$"FERTIGES ZEI
CHEN BERECHNEN":.P,B(P).127...>..1540:.I
.0.7:X.0:.I2.0.7:LP.50256.I2.40.I...H..B
(LP).42.X.X.2.(7.I2).A.R..I2:.51200.8.CP
.I,X:.I:."TASTE DRUECKEN".[.\..198,0:.19
8,1:.1750:..A.F.:.{.P.. ZEICHENSATZ ANSE
HEN...Z.:......HE$H(QD$,12)RN$"ZEICHENSA
TZ ANSEHEN":.P,B(P).127.O....894,15:.887
:.894,5......C4$"REVERS=NORMAL? (J/N)":.
198,0......X$:.X$."N"..1750:.......X$.."
J".930.F....I.0.1023:.52224.I,255.B(5120
0.I):..U....C4$"TASTE DRUECKEN":.198,0:.
198,1:.1750:..{.J.:...T.. ZEICHENSATZ AB
SPEICHERN.....:.Y....HE$H(QD$,12)RN$"ZEI
CHENSATZ ABSPEICHERN":.P,B(P).127......C
4$"NAME (N=ZURUECK)";:.X$:.X$."N"..1750:
..A....1,8,15,"S:".X$: 1:.I.1.C(X$):.491
51.I,F(J(X$,I,1)).Q....I:.183,C(X$):.185
,2:.186,8:.187,0:.188,192......193,0:.19
4,200:.174,0:.175,208......62954:.1750:.
...$.:.F.... ZEICHENSATZ LADEN.L.8.:...B
..HE$H(QD$,12)RN$"ZEICHENSATZ LADEN":.P,
B(P).127.0.L..C4$"NAME (N=ZURUECK)";:.X$
:.X$."N"..1750:..A.V.LW.1:.X$,8,1.G.`.:.
C.J.. COMMODORE-ZEICHENSATZ.I.T.:...~..H
E$H(QD$,12)RN$"PROGRAMM INITIALISIEREN":
.P,B(P).127.U....C4$"MEINEN SIE DAS WIRK
LICH ERNST ??? (J/N)"......X$:.X$."N"..1
750:.......X$.."J".1170...........:.)...
. ROM-ZEICHEN UEBERNEHMEN./.D.:.I.N..HE$
H(QD$,12)RN$"ROM-ZEICHEN UEBERNEHMEN":.P
,B(P).127...X..1540:.1750:.HE$C4$:.I.1.8
:."........":.......56334,0:.1,51.F....I
.0.7:X.B(53248.8.CP.I)......I2.0.7:.X..2
.(7.I2).X.X.2.(7.I2):.Z.I2.40.I,42......
:.:.1,55:.56334,1:......:.7.... RAM-ZEIC
HEN UEBERNEHMEN.=...:.W.(..HE$H(QD$,12)R
N$"RAM-ZEICHEN UEBERNEHMEN":.P,B(P).127.
..2..1540:.1750:.HE$C4$:.I.1.8:.".......
.":..A.<..I.0.7:X.B(51200.8.CP.I)...F..I
2.0.7:.X..2.(7.I2).X.X.2.(7.I2):.Z.I2.40
.I,42...P..:.:....Z.:...D.. DIRECTORY AU
FLISTEN.%.N.:.H.X..CL$RN$"DIRECTORY AUFL
ISTEN"C4$;C4$C4$:."DISKETTE:":.1,8,0,"$"
......#1,X$:.#1,X$:.#1,D$:.#1,X$:.E(D$);
......II.0.27:.#1,X$:.X$;:.:.......ST.64
.1490.O. ..#1,X$:.#1,X$......#1,ZL$:.#1,
ZH$:.F(ZL$.G(0)).256.F(ZH$.G(0));......I
I.0.27:.#1,X$:.X$;:.:..3....X$:.X$." ".1
490.=.H..1430.^.R..:.C4$C4$C4$"TASTE DRU
ECKEN".U... 1:.198,0:.198,1:..{...:.....
. SUBROUTINE: ZEICHENAUSWAHL.....:.....
.887......C4$"ZEICHENAUSWAHL MIT (CRSR)
UND (RETURN)"C4$:.198,0......56016.CP,5:
.X$..."..X$.C2$.CP.CP.40:.CP.0.CP.CP.40.
E.,..X$.C4$.CP.CP.40:.CP.255.CP.CP.40.G.
6..X$.C1$.CP.CP.1:.CP.0.CP.CP.1...@..X$.
C3$.CP.CP.1:.CP.255.CP.CP.1...J..56016.C
P,1:.X$.G(13)..56016.CP,3:..G.T..I.1.20:
.:.1560.M.^.:...H.. SUBROUTINE: [RETURN
]...R.:...|..Y.6.1700......P,B(P).127.'.
...P.40.X,B(P.40.X).128.7...X.0:Y.Y.1:..
]....P,B(P).127:.P.X,B(P.X).128:X.0:..C.
..:.V.... SUBROUTINE:...B.. UNTERE BIL
DHAELFTE LOESCHEN...L.:...V..HE$H(QD$,12
);:.I.1.5......"
":. 39 SPACES.'....:."---
-------------------------------------";.
3....I.7.12.P...."
";:. 40 SPACES......:.
" ";:....`.. NACHSPANN ==
========.H.J.. * FARBCODES/STEUERCODES *
...T.C4$.G(17):RN$.G(18)...~.HE$.G(19):C
3$.G(29).....C2$.G(145):CL$.G(147).,...C
1$.G(157):YE$.G(158).@.... ZEICHENFOLGEN
.O.... Q.1 . 40._...QD$.QD$.C4$.G.... Q.
M.D.....
> CLICK IMAGE PREVIEW FOR FULL MODAL