HARDCOPY.SRC
FILE INFORMATION
FILENAME(S): HARDCOPY.SRC
FILE TYPE(S): PRG
FILE SIZE: 4.1K
FIRST SEEN: 2025-10-20 14:30:10
APPEARS ON: 5 disk(s)
FILE HASH
1943bee0818dc30d35dacf91bb5b7539aa31f0b5627e5598e4f6bab635df793f
FOUND ON DISKS (5 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| SONDERHEFT 47 | HARDCOPY.SRC | PRG | Treasure Chest - Klaus Der Suhler | 4 | 10 | DOWNLOAD FILE |
| 15723 SEITE C | HARDCOPY.SRC | PRG | C64er, Treasure Chest - LehrerMIL | 11 | 10 | DOWNLOAD FILE |
| SPIELE | HARDCOPY.SRC | PRG | Treasure Chest - Plattfuss | 4 | 6 | DOWNLOAD FILE |
| 64 ER SONDERH 93 | HARDCOPY.SRC | PRG | C64er | 10 | 6 | DOWNLOAD FILE |
| SONDERHEFT 47 | HARDCOPY.SRC | PRG | BrainSkull, Sammlung, C64er | 4 | 10 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 26 08 64 00 3B 2A 2A 2A 2A 2A 2A 2A 2A 2A |..&.d.;*********| 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 6E 00 3B 2A 2A 2A 20 |******.K.n.;*** | 00000030: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000040: 20 20 20 20 20 20 20 20 2A 2A 2A 00 70 08 78 00 | ***.p.x.| 00000050: 3B 2A 2A 2A 20 20 20 53 4F 20 57 45 52 44 45 4E |;*** SO WERDEN| 00000060: 20 48 41 52 44 43 4F 50 59 53 20 20 20 2A 2A 2A | HARDCOPYS ***| 00000070: 00 95 08 82 00 3B 2A 2A 2A 20 20 20 20 20 20 20 |.....;*** | 00000080: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000090: 20 20 2A 2A 2A 00 BA 08 8C 00 3B 2A 2A 2A 20 20 | ***.....;*** | 000000A0: 20 20 20 20 20 50 52 4F 47 52 41 4D 4D 49 45 52 | PROGRAMMIER| 000000B0: 54 20 20 20 20 20 20 2A 2A 2A 00 DF 08 96 00 3B |T ***.....;| 000000C0: 2A 2A 2A 20 20 20 20 20 20 20 20 20 20 20 20 20 |*** | 000000D0: 20 20 20 20 20 20 20 20 20 20 20 20 2A 2A 2A 00 | ***.| 000000E0: 04 09 A0 00 3B 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |....;***********| 000000F0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000100: 2A 2A 2A 2A 00 29 09 AA 00 3B 2A 2A 2A 20 20 20 |****.)...;*** | 00000110: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000120: 20 20 20 20 20 20 2A 2A 2A 00 4E 09 B4 00 3B 2A | ***.N...;*| 00000130: 2A 2A 20 28 43 29 20 31 39 38 37 20 42 59 20 36 |** (C) 1987 BY 6| 00000140: 34 27 45 52 20 20 20 20 20 20 20 2A 2A 2A 00 73 |4'ER ***.s| 00000150: 09 BE 00 3B 2A 2A 2A 20 20 20 20 20 20 20 20 20 |...;*** | 00000160: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000170: 2A 2A 2A 00 98 09 C8 00 3B 2A 2A 2A 2A 2A 2A 2A |***.....;*******| 00000180: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000190: 2A 2A 2A 2A 2A 2A 2A 2A 00 BD 09 D2 00 3B 2A 2A |********.....;**| 000001A0: 2A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |* | 000001B0: 20 20 20 20 20 20 20 20 20 20 2A 2A 2A 00 E2 09 | ***...| 000001C0: DC 00 3B 2A 2A 2A 20 50 52 4F 47 52 41 4D 4D 49 |..;*** PROGRAMMI| 000001D0: 45 52 45 52 3A 20 20 20 20 20 20 20 20 20 20 2A |ERER: *| 000001E0: 2A 2A 00 07 0A E6 00 3B 2A 2A 2A 20 20 20 20 20 |**.....;*** | 000001F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000200: 20 20 20 20 2A 2A 2A 00 2C 0A F0 00 3B 2A 2A 2A | ***.,...;***| 00000210: 20 20 54 48 4F 4D 41 53 20 4C 49 50 50 20 20 20 | THOMAS LIPP | 00000220: 20 20 20 20 20 20 20 20 20 2A 2A 2A 00 51 0A FA | ***.Q..| 00000230: 00 3B 2A 2A 2A 20 20 20 20 20 20 20 20 20 20 20 |.;*** | 00000240: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2A 2A | **| 00000250: 2A 00 76 0A 04 01 3B 2A 2A 2A 2A 2A 2A 2A 2A 2A |*.v...;*********| 00000260: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000270: 2A 2A 2A 2A 2A 2A 00 7C 0A 0E 01 3B 00 A1 0A 18 |******.|...;....| 00000280: 01 3B 2A 2A 2A 20 42 41 53 45 20 55 4E 44 20 53 |.;*** BASE UND S| 00000290: 54 41 52 54 41 44 52 45 53 53 45 20 20 20 2A 2A |TARTADRESSE **| 000002A0: 2A 00 A7 0A 22 01 3B 00 B2 0A 2C 01 AA 24 43 30 |*...".;...,..$C0| 000002B0: 30 30 00 CA 0A 36 01 A9 22 48 41 52 44 43 4F 50 |00...6.."HARDCOP| 000002C0: 59 2E 4F 42 4A 2C 50 2C 57 22 00 D0 0A 40 01 3B |Y.OBJ,P,W"...@.;| 000002D0: 00 F5 0A 4A 01 3B 2A 2A 2A 20 4C 41 42 45 4C 2D |...J.;*** LABEL-| 000002E0: 44 45 4B 4C 41 52 41 54 49 4F 4E 20 20 20 20 20 |DEKLARATION | 000002F0: 20 20 2A 2A 2A 00 FB 0A 54 01 3B 00 27 0B 5E 01 | ***...T.;.'.^.| 00000300: A4 42 49 54 4D 41 50 3D 24 32 30 30 30 3B 20 53 |.BITMAP=$2000; S| 00000310: 54 41 52 54 2D 41 44 52 45 53 53 45 20 44 45 52 |TART-ADRESSE DER| 00000320: 20 42 49 54 4D 41 50 00 4A 0B 68 01 A4 53 54 52 | BITMAP.J.h..STR| 00000330: 4F 55 54 3D 24 41 42 31 45 3B 20 53 54 52 49 4E |OUT=$AB1E; STRIN| 00000340: 47 20 41 55 53 47 45 42 45 4E 00 72 0B 72 01 A4 |G AUSGEBEN.r.r..| 00000350: 53 45 54 46 4C 53 3D 24 46 46 42 41 3B 20 46 49 |SETFLS=$FFBA; FI| 00000360: 4C 45 50 41 52 41 4D 45 54 45 52 20 53 45 54 5A |LEPARAMETER SETZ| 00000370: 45 4E 00 8D 0B 7C 01 A4 4F 50 45 4E 3D 24 46 46 |EN...|..OPEN=$FF| 00000380: 43 30 3B 20 4F 50 45 4E 20 46 49 4C 45 00 AA 0B |C0; OPEN FILE...| 00000390: 86 01 A4 43 4C 4F 53 45 3D 24 46 46 43 33 3B 20 |...CLOSE=$FFC3; | 000003A0: 43 4C 4F 53 45 20 46 49 4C 45 00 CB 0B 90 01 A4 |CLOSE FILE......| 000003B0: 43 48 4B 4F 55 54 3D 24 46 46 43 39 3B 20 43 4D |CHKOUT=$FFC9; CM| 000003C0: 44 2D 4D 4F 44 55 53 20 45 49 4E 00 EB 0B 9A 01 |D-MODUS EIN.....| 000003D0: A4 43 4C 52 43 48 3D 24 46 46 43 43 3B 20 43 4D |.CLRCH=$FFCC; CM| 000003E0: 44 2D 4D 4F 44 55 53 20 41 55 53 00 0D 0C A4 01 |D-MODUS AUS.....| 000003F0: A4 50 52 49 4E 54 3D 24 46 46 44 32 3B 20 50 52 |.PRINT=$FFD2; PR| 00000400: 49 4E 54 20 43 48 41 52 41 43 54 45 52 00 31 0C |INT CHARACTER.1.| 00000410: AE 01 A4 4E 41 44 45 4C 3D 31 3B 20 56 4F 4E 20 |...NADEL=1; VON | 00000420: 4F 20 4E 41 43 48 20 55 3A 20 31 32 38 20 2D 20 |O NACH U: 128 - | 00000430: 31 00 37 0C B8 01 3B 00 5C 0C C2 01 3B 2A 2A 2A |1.7...;.\...;***| 00000440: 20 50 52 4F 47 52 41 4D 4D 20 42 45 47 49 4E 4E | PROGRAMM BEGINN| 00000450: 20 20 20 20 20 20 20 20 20 2A 2A 2A 00 62 0C CC | ***.b..| 00000460: 01 3B 00 87 0C D6 01 3B 2A 2A 2A 20 4F 50 45 4E |.;.....;*** OPEN| 00000470: 20 34 2C 34 2C 31 20 3A 20 43 4D 44 20 34 20 20 | 4,4,1 : CMD 4 | 00000480: 20 20 20 20 2A 2A 2A 00 8D 0C E0 01 3B 00 AD 0C | ***.....;...| 00000490: EA 01 20 CA 23 24 30 34 3B 20 4C 4F 47 49 53 43 |.. .#$04; LOGISC| 000004A0: 48 45 20 46 49 4C 45 4E 55 4D 4D 45 52 00 D8 0C |HE FILENUMMER...| 000004B0: F4 01 20 C2 23 24 30 34 3B 20 47 45 52 41 45 54 |.. .#$04; GERAET| 000004C0: 45 2D 41 44 52 45 53 53 45 20 34 20 46 55 45 52 |E-ADRESSE 4 FUER| 000004D0: 20 44 52 55 43 4B 45 52 00 09 0D FE 01 20 C3 23 | DRUCKER..... .#| 000004E0: 24 30 31 3B 20 53 45 4B 55 4E 44 41 45 52 2D 41 |$01; SEKUNDAER-A| 000004F0: 44 52 45 53 53 45 20 31 20 46 55 45 52 20 4C 49 |DRESSE 1 FUER LI| 00000500: 4E 45 41 52 4B 41 4E 41 4C 00 2C 0D 08 02 20 D6 |NEARKANAL.,... .| 00000510: 53 45 54 46 4C 53 3B 20 46 49 4C 45 50 41 52 41 |SETFLS; FILEPARA| 00000520: 4D 45 54 45 52 20 53 45 54 5A 45 4E 00 45 0D 12 |METER SETZEN.E..| 00000530: 02 20 D6 4F 50 45 4E 3B 20 46 49 4C 45 20 4F 45 |. .OPEN; FILE OE| 00000540: 46 46 4E 45 4E 00 5D 0D 1C 02 20 C2 23 24 30 34 |FFNEN.]... .#$04| 00000550: 3B 20 4C 4F 47 2E 20 46 49 4C 45 4E 52 00 84 0D |; LOG. FILENR...| 00000560: 26 02 20 D6 43 48 4B 4F 55 54 3B 20 43 4F 4D 4D |&. .CHKOUT; COMM| 00000570: 55 4E 49 43 41 54 49 4F 4E 20 44 49 52 45 43 54 |UNICATION DIRECT| 00000580: 20 45 49 4E 00 8A 0D 30 02 3B 00 AF 0D 3A 02 3B | EIN...0.;...:.;| 00000590: 2A 2A 2A 20 45 53 43 20 40 2C 20 45 53 43 20 33 |*** ESC @, ESC 3| 000005A0: 20 4E 2C 20 45 53 43 20 4C 20 4E 20 2A 2A 2A 00 | N, ESC L N ***.| 000005B0: B5 0D 44 02 3B 00 C9 0D 4E 02 20 CA 23 3C 28 49 |..D.;...N. .#<(I| 000005C0: 4E 49 54 29 3B 20 4C 53 42 00 DD 0D 58 02 20 C3 |NIT); LSB...X. .| 000005D0: 23 3E 28 49 4E 49 54 29 3B 20 4D 53 42 00 0F 0E |#>(INIT); MSB...| 000005E0: 62 02 20 D6 53 54 52 4F 55 54 3B 20 44 52 55 43 |b. .STROUT; DRUC| 000005F0: 4B 4B 45 52 53 45 51 55 45 4E 5A 45 4E 20 41 4E |KKERSEQUENZEN AN| 00000600: 20 44 52 55 43 4B 45 52 20 53 45 4E 44 45 4E 00 | DRUCKER SENDEN.| 00000610: 15 0E 6C 02 3B 00 3A 0E 76 02 3B 2A 2A 2A 20 49 |..l.;.:.v.;*** I| 00000620: 4E 49 54 49 41 4C 49 53 49 45 52 55 4E 47 20 20 |NITIALISIERUNG | 00000630: 20 20 20 20 20 20 20 2A 2A 2A 00 5F 0E 80 02 3B | ***._...;| 00000640: 2A 2A 2A 20 44 55 4D 4D 59 20 46 55 45 4C 4C 45 |*** DUMMY FUELLE| 00000650: 4E 20 20 20 20 20 20 20 20 20 20 20 2A 2A 2A 00 |N ***.| 00000660: 84 0E 8A 02 3B 2A 2A 2A 20 4C 49 4E 45 20 3D 20 |....;*** LINE = | 00000670: 32 35 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |25 | 00000680: 20 2A 2A 2A 00 8A 0E 94 02 3B 00 A0 0E 9E 02 20 | ***.....;..... | 00000690: CA 23 3C 28 42 49 54 4D 41 50 29 3B 20 4C 53 42 |.#<(BITMAP); LSB| 000006A0: 00 AE 0E A8 02 20 D2 44 55 4D 4D 59 2B 31 00 C4 |..... .DUMMY+1..| 000006B0: 0E B2 02 20 CA 23 3E 28 42 49 54 4D 41 50 29 3B |... .#>(BITMAP);| 000006C0: 20 4D 53 42 00 D2 0E BC 02 20 D2 44 55 4D 4D 59 | MSB..... .DUMMY| 000006D0: 2B 32 00 D8 0E C6 02 3B 00 E2 0E D0 02 20 CA 23 |+2.....;..... .#| 000006E0: 32 35 00 ED 0E DA 02 20 D2 4C 49 4E 45 00 F3 0E |25..... .LINE...| 000006F0: E4 02 3B 00 18 0F EE 02 3B 2A 2A 2A 20 45 53 43 |..;.....;*** ESC| 00000700: 20 4C 20 4E 31 20 4E 32 20 20 20 20 20 20 20 20 | L N1 N2 | 00000710: 20 20 20 20 20 2A 2A 2A 00 3D 0F F8 02 3B 2A 2A | ***.=...;**| 00000720: 2A 20 47 52 41 46 49 4B 4D 4F 44 55 53 20 45 49 |* GRAFIKMODUS EI| 00000730: 4E 53 43 48 41 4C 54 45 4E 20 2A 2A 2A 00 43 0F |NSCHALTEN ***.C.| 00000740: 02 03 3B 00 5F 0F 0C 03 4C 4E 4C 4F 4F 50 20 CA |..;._...LNLOOP .| 00000750: 23 3C 28 47 52 41 46 49 4B 29 3B 20 4C 53 42 00 |#<(GRAFIK); LSB.| 00000760: 75 0F 16 03 20 C3 23 3E 28 47 52 41 46 49 4B 29 |u... .#>(GRAFIK)| 00000770: 3B 20 4D 53 42 00 A6 0F 20 03 20 D6 53 54 52 4F |; MSB... . .STRO| 00000780: 55 54 3B 20 44 52 55 43 4B 45 52 53 45 51 55 45 |UT; DRUCKERSEQUE| 00000790: 4E 5A 45 4E 20 41 4E 20 44 52 55 43 4B 45 52 20 |NZEN AN DRUCKER | 000007A0: 53 45 4E 44 45 4E 00 AC 0F 2A 03 3B 00 D1 0F 34 |SENDEN...*.;...4| 000007B0: 03 3B 2A 2A 2A 20 42 4C 4F 43 4B 20 3D 20 34 30 |.;*** BLOCK = 40| 000007C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2A 2A | **| 000007D0: 2A 00 D7 0F 3E 03 3B 00 E1 0F 48 03 20 CA 23 34 |*...>.;...H. .#4| 000007E0: 30 00 ED 0F 52 03 20 D2 42 4C 4F 43 4B 00 F3 0F |0...R. .BLOCK...| 000007F0: 5C 03 3B 00 18 10 66 03 3B 2A 2A 2A 20 45 49 4E |\.;...f.;*** EIN| 00000800: 45 4E 20 42 4C 4F 43 4B 20 53 50 49 45 47 45 4C |EN BLOCK SPIEGEL| 00000810: 4E 20 20 20 20 2A 2A 2A 00 1E 10 70 03 3B 00 3C |N ***...p.;.<| 00000820: 10 7A 03 42 4B 4C 4F 4F 50 20 C3 23 30 3B 20 42 |.z.BKLOOP .#0; B| 00000830: 4C 4F 43 4B 53 43 48 4C 45 49 46 45 00 4A 10 84 |LOCKSCHLEIFE.J..| 00000840: 03 54 55 52 4E 31 20 C2 23 30 00 71 10 8E 03 44 |.TURN1 .#0.q...D| 00000850: 55 4D 4D 59 20 CA 24 46 46 46 46 2C 59 3B 20 42 |UMMY .$FFFF,Y; B| 00000860: 49 54 4D 41 50 42 59 54 45 20 49 4E 20 41 4B 4B |ITMAPBYTE IN AKK| 00000870: 55 00 9E 10 98 03 54 55 52 4E 32 20 CB 3B 20 42 |U.....TURN2 .; B| 00000880: 49 54 20 41 55 53 20 42 49 4C 44 53 43 48 49 52 |IT AUS BILDSCHIR| 00000890: 4D 42 59 54 45 20 41 55 53 4C 45 53 45 4E 00 C7 |MBYTE AUSLESEN..| 000008A0: 10 A2 03 AE 4E 41 44 45 4C 3B 20 54 52 55 45 20 |....NADEL; TRUE | 000008B0: 3D 20 56 4F 4E 20 4F 20 4E 41 43 48 20 55 3A 20 |= VON O NACH U: | 000008C0: 31 32 38 20 2D 20 31 00 F4 10 AC 03 20 CF 43 48 |128 - 1..... .CH| 000008D0: 52 2C 58 3B 20 42 49 54 20 49 4E 20 44 52 55 43 |R,X; BIT IN DRUC| 000008E0: 4B 45 52 42 59 54 45 20 52 45 49 4E 53 43 48 49 |KERBYTE REINSCHI| 000008F0: 45 42 45 4E 00 19 11 B6 03 AF 3B 20 46 41 4C 53 |EBEN......; FALS| 00000900: 45 20 3D 20 56 4F 4E 20 4F 20 4E 41 43 48 20 55 |E = VON O NACH U| 00000910: 3A 20 31 20 2D 20 31 32 38 00 46 11 C0 03 20 D0 |: 1 - 128.F... .| 00000920: 43 48 52 2C 58 3B 20 42 49 54 20 49 4E 20 44 52 |CHR,X; BIT IN DR| 00000930: 55 43 4B 45 52 42 59 54 45 20 52 45 49 4E 53 43 |UCKERBYTE REINSC| 00000940: 48 49 45 42 45 4E 00 4C 11 CA 03 B0 00 53 11 D4 |HIEBEN.L.....S..| 00000950: 03 20 EF 00 62 11 DE 03 20 C0 23 38 3B 20 58 3D |. ..b... .#8; X=| 00000960: 38 3F 00 9A 11 E8 03 20 F6 54 55 52 4E 32 3B 20 |8?..... .TURN2; | 00000970: 58 20 3C 3E 20 38 2C 20 42 49 54 4D 41 50 42 59 |X <> 8, BITMAPBY| 00000980: 54 45 20 4E 4F 43 48 20 4E 49 43 48 54 20 41 42 |TE NOCH NICHT AB| 00000990: 47 45 41 52 42 45 49 54 45 54 00 A1 11 F2 03 20 |GEARBEITET..... | 000009A0: ED 00 B0 11 FC 03 20 C1 23 38 3B 20 59 3D 38 3F |...... .#8; Y=8?| 000009B0: 00 E4 11 06 04 20 F6 54 55 52 4E 31 3B 20 59 20 |..... .TURN1; Y | 000009C0: 3C 3E 20 38 2C 20 44 52 55 43 4B 45 52 42 59 54 |<> 8, DRUCKERBYT| 000009D0: 45 53 20 4E 4F 43 48 20 4E 49 43 48 54 20 46 45 |ES NOCH NICHT FE| 000009E0: 52 54 49 47 00 EA 11 10 04 3B 00 0F 12 1A 04 3B |RTIG.....;.....;| 000009F0: 2A 2A 2A 20 42 4C 4F 43 4B 20 41 55 53 44 52 55 |*** BLOCK AUSDRU| 00000A00: 43 4B 45 4E 20 20 20 20 20 20 20 20 2A 2A 2A 00 |CKEN ***.| 00000A10: 15 12 24 04 3B 00 35 12 2E 04 20 C2 23 30 3B 20 |..$.;.5... .#0; | 00000A20: 49 4E 44 45 58 20 41 55 46 20 4E 55 4C 4C 20 53 |INDEX AUF NULL S| 00000A30: 45 54 5A 45 4E 00 5D 12 38 04 50 52 4E 54 20 CA |ETZEN.].8.PRNT .| 00000A40: 43 48 52 2C 58 3B 20 4C 41 44 45 20 58 2D 54 45 |CHR,X; LADE X-TE| 00000A50: 53 20 44 52 55 43 4B 45 52 42 59 54 45 00 77 12 |S DRUCKERBYTE.w.| 00000A60: 42 04 20 D6 50 52 49 4E 54 3B 20 42 59 54 45 20 |B. .PRINT; BYTE | 00000A70: 44 52 55 43 4B 45 4E 00 91 12 4C 04 20 D6 50 52 |DRUCKEN...L. .PR| 00000A80: 49 4E 54 3B 20 42 59 54 45 20 44 52 55 43 4B 45 |INT; BYTE DRUCKE| 00000A90: 4E 00 A3 12 56 04 20 EF 3B 20 45 52 48 4F 45 48 |N...V. .; ERHOEH| 00000AA0: 45 20 58 00 BD 12 60 04 20 C0 23 38 3B 20 49 53 |E X...`. .#8; IS| 00000AB0: 54 20 58 20 53 43 48 4F 4E 20 38 20 3F 00 D6 12 |T X SCHON 8 ?...| 00000AC0: 6A 04 20 F6 50 52 4E 54 3B 20 4E 45 49 4E 2C 20 |j. .PRNT; NEIN, | 00000AD0: 58 20 3C 3E 20 38 00 DC 12 74 04 3B 00 01 13 7E |X <> 8...t.;...~| 00000AE0: 04 3B 2A 2A 2A 20 44 55 4D 4D 59 20 45 52 48 4F |.;*** DUMMY ERHO| 00000AF0: 45 48 45 4E 20 20 20 20 20 20 20 20 20 20 2A 2A |EHEN **| 00000B00: 2A 00 07 13 88 04 3B 00 0E 13 92 04 20 E5 00 21 |*.....;..... ..!| 00000B10: 13 9C 04 20 CA 44 55 4D 4D 59 2B 31 3B 20 4C 53 |... .DUMMY+1; LS| 00000B20: 42 00 2E 13 A6 04 20 C5 23 38 3B 20 2B 38 00 3C |B..... .#8; +8.<| 00000B30: 13 B0 04 20 D2 44 55 4D 4D 59 2B 31 00 59 13 BA |... .DUMMY+1.Y..| 00000B40: 04 20 F4 4E 4F 54 49 4E 43 3B 20 4B 45 49 4E 20 |. .NOTINC; KEIN | 00000B50: 55 45 42 45 52 54 52 41 47 00 6B 13 C4 04 20 C9 |UEBERTRAG.k... .| 00000B60: 44 55 4D 4D 59 2B 32 3B 20 2B 31 00 71 13 CE 04 |DUMMY+2; +1.q...| 00000B70: 3B 00 96 13 D8 04 3B 2A 2A 2A 20 42 4C 4F 43 4B |;.....;*** BLOCK| 00000B80: 20 3D 20 42 4C 4F 43 4B 20 2D 20 31 20 20 20 20 | = BLOCK - 1 | 00000B90: 20 20 20 2A 2A 2A 00 9C 13 E2 04 3B 00 BF 13 EC | ***.....;....| 00000BA0: 04 4E 4F 54 49 4E 43 20 C7 42 4C 4F 43 4B 3B 20 |.NOTINC .BLOCK; | 00000BB0: 42 4C 4F 43 4B 20 3D 20 42 4C 4F 43 4B 2D 31 00 |BLOCK = BLOCK-1.| 00000BC0: C5 13 F6 04 3B 00 EA 13 00 05 3B 2A 2A 2A 20 42 |....;.....;*** B| 00000BD0: 4C 4F 43 4B 20 3D 20 30 20 3F 20 20 20 20 20 20 |LOCK = 0 ? | 00000BE0: 20 20 20 20 20 20 20 2A 2A 2A 00 F0 13 0A 05 3B | ***.....;| 00000BF0: 00 0E 14 14 05 20 F6 42 4B 4C 4F 4F 50 3B 20 57 |..... .BKLOOP; W| 00000C00: 45 4E 4E 20 42 4C 4F 43 4B 20 3C 3E 20 30 00 14 |ENN BLOCK <> 0..| 00000C10: 14 1E 05 3B 00 39 14 28 05 3B 2A 2A 2A 20 43 41 |...;.9.(.;*** CA| 00000C20: 52 52 49 41 47 45 20 52 45 54 55 52 4E 20 53 45 |RRIAGE RETURN SE| 00000C30: 4E 44 45 4E 20 20 2A 2A 2A 00 3F 14 32 05 3B 00 |NDEN ***.?.2.;.| 00000C40: 51 14 3C 05 20 CA 23 3C 28 43 52 29 3B 20 4C 53 |Q.<. .#<(CR); LS| 00000C50: 42 00 63 14 46 05 20 C3 23 3E 28 43 52 29 3B 20 |B.c.F. .#>(CR); | 00000C60: 4D 53 42 00 87 14 50 05 20 D6 53 54 52 4F 55 54 |MSB...P. .STROUT| 00000C70: 3B 20 43 52 20 5A 55 4D 20 44 52 55 43 4B 45 52 |; CR ZUM DRUCKER| 00000C80: 20 53 45 4E 44 45 4E 00 8D 14 5A 05 3B 00 B2 14 | SENDEN...Z.;...| 00000C90: 64 05 3B 2A 2A 2A 20 4C 49 4E 45 20 3D 20 4C 49 |d.;*** LINE = LI| 00000CA0: 4E 45 20 2D 31 20 20 20 20 20 20 20 20 20 20 2A |NE -1 *| 00000CB0: 2A 2A 00 B8 14 6E 05 3B 00 D4 14 78 05 20 C7 4C |**...n.;...x. .L| 00000CC0: 49 4E 45 3B 20 4C 49 4E 45 20 3D 20 4C 49 4E 45 |INE; LINE = LINE| 00000CD0: 20 2D 20 31 00 DA 14 82 05 3B 00 FF 14 8C 05 3B | - 1.....;.....;| 00000CE0: 2A 2A 2A 20 4C 49 4E 45 20 3D 20 30 20 3F 20 20 |*** LINE = 0 ? | 00000CF0: 20 20 20 20 20 20 20 20 20 20 20 20 2A 2A 2A 00 | ***.| 00000D00: 05 15 96 05 3B 00 22 15 A0 05 20 F6 4C 4E 4C 4F |....;."... .LNLO| 00000D10: 4F 50 3B 20 57 45 4E 4E 20 4C 49 4E 45 20 3C 3E |OP; WENN LINE <>| 00000D20: 20 30 00 28 15 AA 05 3B 00 4D 15 B4 05 3B 2A 2A | 0.(...;.M...;**| 00000D30: 2A 20 45 53 43 20 40 20 20 20 20 20 20 20 20 20 |* ESC @ | 00000D40: 20 20 20 20 20 20 20 20 20 20 2A 2A 2A 00 53 15 | ***.S.| 00000D50: BE 05 3B 00 68 15 C8 05 20 CA 23 3C 28 49 4E 49 |..;.h... .#<(INI| 00000D60: 54 32 29 3B 20 4C 53 42 00 7D 15 D2 05 20 C3 23 |T2); LSB.}... .#| 00000D70: 3E 28 49 4E 49 54 32 29 3B 20 4D 53 42 00 AD 15 |>(INIT2); MSB...| 00000D80: DC 05 20 D6 53 54 52 4F 55 54 3B 20 44 52 55 43 |.. .STROUT; DRUC| 00000D90: 4B 45 52 53 45 51 55 45 4E 5A 20 5A 55 4D 20 44 |KERSEQUENZ ZUM D| 00000DA0: 52 55 43 4B 45 52 20 53 45 4E 44 45 4E 00 B3 15 |RUCKER SENDEN...| 00000DB0: E6 05 3B 00 D8 15 F0 05 3B 2A 2A 2A 20 43 4D 44 |..;.....;*** CMD| 00000DC0: 20 34 20 41 55 46 48 45 42 45 4E 20 20 20 20 20 | 4 AUFHEBEN | 00000DD0: 20 20 20 20 20 2A 2A 2A 00 DE 15 FA 05 3B 00 04 | ***.....;..| 00000DE0: 16 04 06 20 D6 43 4C 52 43 48 3B 20 43 4F 4D 4D |... .CLRCH; COMM| 00000DF0: 55 4E 49 43 41 54 49 4F 4E 20 44 49 52 45 43 54 |UNICATION DIRECT| 00000E00: 20 41 55 53 00 0A 16 0E 06 3B 00 2F 16 18 06 3B | AUS.....;./...;| 00000E10: 2A 2A 2A 20 43 4C 4F 53 45 20 34 20 20 20 20 20 |*** CLOSE 4 | 00000E20: 20 20 20 20 20 20 20 20 20 20 20 20 2A 2A 2A 00 | ***.| 00000E30: 35 16 22 06 3B 00 4C 16 2C 06 20 CA 23 24 30 34 |5.".;.L.,. .#$04| 00000E40: 3B 20 4C 4F 47 20 46 49 4C 45 4E 52 00 69 16 36 |; LOG FILENR.i.6| 00000E50: 06 20 D6 43 4C 4F 53 45 3B 20 46 49 4C 45 20 53 |. .CLOSE; FILE S| 00000E60: 43 48 4C 49 45 53 53 45 4E 00 6F 16 40 06 3B 00 |CHLIESSEN.o.@.;.| 00000E70: 94 16 4A 06 3B 2A 2A 2A 20 52 54 53 20 20 20 20 |..J.;*** RTS | 00000E80: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000E90: 20 2A 2A 2A 00 9A 16 54 06 3B 00 A7 16 5E 06 20 | ***...T.;...^. | 00000EA0: E3 3B 20 45 4E 44 45 00 AD 16 68 06 3B 00 D2 16 |.; ENDE...h.;...| 00000EB0: 72 06 3B 2A 2A 2A 20 48 49 4C 46 53 5A 45 4C 4C |r.;*** HILFSZELL| 00000EC0: 45 4E 20 55 2E 20 54 41 42 45 4C 4C 45 4E 20 2A |EN U. TABELLEN *| 00000ED0: 2A 2A 00 D8 16 7C 06 3B 00 F1 16 86 06 43 48 52 |**...|.;.....CHR| 00000EE0: 20 A5 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C | .0,0,0,0,0,0,0,| 00000EF0: 30 00 FE 16 90 06 42 4C 4F 43 4B 20 A5 30 00 0A |0.....BLOCK .0..| 00000F00: 17 9A 06 4C 49 4E 45 20 A5 30 00 10 17 A4 06 3B |...LINE .0.....;| 00000F10: 00 35 17 AE 06 3B 2A 2A 2A 20 44 52 55 43 4B 45 |.5...;*** DRUCKE| 00000F20: 52 53 45 51 55 45 4E 5A 45 4E 20 20 20 20 20 20 |RSEQUENZEN | 00000F30: 20 20 2A 2A 2A 00 3B 17 B8 06 3B 00 5B 17 C2 06 | ***.;...;.[...| 00000F40: 49 4E 49 54 20 A5 24 31 42 2C 24 34 30 3B 20 49 |INIT .$1B,$40; I| 00000F50: 4E 49 54 20 3D 20 45 53 43 20 40 00 88 17 CC 06 |NIT = ESC @.....| 00000F60: 20 A5 24 31 42 2C 24 33 33 2C 24 31 38 3B 20 4C | .$1B,$33,$18; L| 00000F70: 49 4E 45 46 45 45 44 20 3D 20 45 53 43 20 33 20 |INEFEED = ESC 3 | 00000F80: 4E 20 28 4E 3D 32 34 29 00 B8 17 D6 06 20 A5 24 |N (N=24)..... .$| 00000F90: 31 42 2C 24 36 43 2C 24 30 43 3B 20 4C 45 46 54 |1B,$6C,$0C; LEFT| 00000FA0: 20 4D 41 52 47 49 4E 20 3D 20 45 53 43 20 4C 20 | MARGIN = ESC L | 00000FB0: 4E 20 28 4E 3D 31 32 29 00 CC 17 E0 06 43 52 20 |N (N=12).....CR | 00000FC0: A5 24 30 44 2C 24 30 30 3B 20 43 52 00 D2 17 EA |.$0D,$00; CR....| 00000FD0: 06 3B 00 0D 18 F4 06 47 52 41 46 49 4B 20 A5 24 |.;.....GRAFIK .$| 00000FE0: 31 42 2C 24 34 43 2C 24 38 30 2C 24 30 32 2C 24 |1B,$4C,$80,$02,$| 00000FF0: 30 30 3B 20 45 53 43 20 4C 20 4E 31 20 4E 32 20 |00; ESC L N1 N2 | 00001000: 28 4E 31 3D 31 32 38 20 4E 32 3D 32 29 00 13 18 |(N1=128 N2=2)...| 00001010: FE 06 3B 00 36 18 08 07 49 4E 49 54 32 20 A5 24 |..;.6...INIT2 .$| 00001020: 31 42 2C 24 34 30 2C 24 30 30 3B 20 49 4E 49 54 |1B,$40,$00; INIT| 00001030: 20 45 53 43 20 40 00 3C 18 12 07 3B 00 5A 18 1C | ESC @.<...;.Z..| 00001040: 07 B3 3B 20 45 4E 44 45 20 44 45 52 20 41 53 53 |..; ENDE DER ASS| 00001050: 45 4D 42 4C 49 45 52 55 4E 47 00 00 00 |EMBLIERUNG... |
..&.D.;*******************************.K
.N.;*** ***.P.X.
;*** SO WERDEN HARDCOPYS ***.....;**
* ***.....;***
PROGRAMMIERT ***.....;***
***... .;***********
********************.)...;***
***.N...;*** (C) 1987 BY 6
4'ER ***.S...;***
***...H.;***********************
********...R.;***
***.....;*** PROGRAMMIERER: *
**.....;*** ***.
,...;*** THOMAS LIPP ***.Q..
.;*** ***.V...;*
******************************.|...;....
.;*** BASE UND STARTADRESSE ***...".;.
..,..$C000.J.6.."HARDCOPY.OBJ,P,W".P.@.;
...J.;*** LABEL-DEKLARATION ***...
T.;.'.^..BITMAP=$2000; START-ADRESSE DER
BITMAP.J.H..STROUT=$AB1E; STRING AUSGEB
EN.R.R..SETFLS=$FFBA; FILEPARAMETER SETZ
EN...|..OPEN=$FFC0; OPEN FILE......CLOSE
=$FFC3; CLOSE FILE.K....CHKOUT=$FFC9; CM
D-MODUS EIN......CLRCH=$FFCC; CMD-MODUS
AUS......PRINT=$FFD2; PRINT CHARACTER.1.
...NADEL=1; VON O NACH U: 128 - 1.7...;.
\.B.;*** PROGRAMM BEGINN ***.B.L
.;...V.;*** OPEN 4,4,1 : CMD 4 ***.
....;..... J#$04; LOGISCHE FILENUMMER.X.
.. B#$04; GERAETE-ADRESSE 4 FUER DRUCKER
..... C#$01; SEKUNDAER-ADRESSE 1 FUER LI
NEARKANAL.,... VSETFLS; FILEPARAMETER SE
TZEN.E... VOPEN; FILE OEFFNEN.]... B#$04
; LOG. FILENR...&. VCHKOUT; COMMUNICATIO
N DIRECT EIN...0.;...:.;*** ESC @, ESC 3
N, ESC L N ***...D.;.I.N. J#<(INIT); LS
B...X. C#>(INIT); MSB...B. VSTROUT; DRUC
KKERSEQUENZEN AN DRUCKER SENDEN...L.;.:.
V.;*** INITIALISIERUNG ***._...;
*** DUMMY FUELLEN ***.....;***
LINE = 25 ***.....;. ...
J#<(BITMAP); LSB..... RDUMMY+1.D... J#>(
BITMAP); MSB.R... RDUMMY+2.X.F.;...P. J#
25...Z. RLINE.....;.....;*** ESC L N1 N2
***.=...;*** GRAFIKMODUS EI
NSCHALTEN ***.C...;._...LNLOOP J#<(GRAFI
K); LSB.U... C#>(GRAFIK); MSB... . VSTRO
UT; DRUCKERSEQUENZEN AN DRUCKER SENDEN..
.*.;.Q.4.;*** BLOCK = 40 **
*.W.>.;...H. J#40...R. RBLOCK...\.;...F.
;*** EINEN BLOCK SPIEGELN ***...P.;.<
.Z.BKLOOP C#0; BLOCKSCHLEIFE.J...TURN1 B
#0.Q...DUMMY J$FFFF,Y; BITMAPBYTE IN AKK
U.....TURN2 K; BIT AUS BILDSCHIRMBYTE AU
SLESEN.G....NADEL; TRUE = VON O NACH U:
128 - 1..... OCHR,X; BIT IN DRUCKERBYTE
REINSCHIEBEN......; FALSE = VON O NACH U
: 1 - 128.F... PCHR,X; BIT IN DRUCKERBYT
E REINSCHIEBEN.L.J...S.T. ..B... .#8; X=
8?..... .TURN2; X <> 8, BITMAPBYTE NOCH
NICHT ABGEARBEITET..... ...... A#8; Y=8?
..... .TURN1; Y <> 8, DRUCKERBYTES NOCH
NICHT FERTIG.....;.....;*** BLOCK AUSDRU
CKEN ***...$.;.5... B#0; INDEX AU
F NULL SETZEN.].8.PRNT JCHR,X; LADE X-TE
S DRUCKERBYTE.W.B. VPRINT; BYTE DRUCKEN.
..L. VPRINT; BYTE DRUCKEN...V. .; ERHOEH
E X...`. .#8; IST X SCHON 8 ?.V.J. .PRNT
; NEIN, X <> 8...T.;...~.;*** DUMMY ERHO
EHEN ***.....;..... ..!... JDUM
MY+1; LSB..... E#8; +8.<... RDUMMY+1.Y..
. .NOTINC; KEIN UEBERTRAG.K.D. IDUMMY+2;
+1.Q.N.;...X.;*** BLOCK = BLOCK - 1
***.....;.....NOTINC GBLOCK; BLOCK =
BLOCK-1.E...;.....;*** BLOCK = 0 ?
***.....;..... .BKLOOP; WENN BLOC
K <> 0.....;.9.(.;*** CARRIAGE RETURN SE
NDEN ***.?.2.;.Q.<. J#<(CR); LSB.C.F. C
#>(CR); MSB...P. VSTROUT; CR ZUM DRUCKER
SENDEN...Z.;...D.;*** LINE = LINE -1
***...N.;.T.X. GLINE; LINE = LINE
- 1.Z...;.....;*** LINE = 0 ?
***.....;.". . .LNLOOP; WENN LINE <>
0.(...;.M...;*** ESC @
***.S...;.H.H. J#<(INIT2); LSB.}.R. C#
>(INIT2); MSB..... VSTROUT; DRUCKERSEQUE
NZ ZUM DRUCKER SENDEN.....;.X...;*** CMD
4 AUFHEBEN ***.....;..... VCLR
CH; COMMUNICATION DIRECT AUS.....;./...;
*** CLOSE 4 ***.5.".;.L.
,. J#$04; LOG FILENR.I.6. VCLOSE; FILE S
CHLIESSEN.O.@.;...J.;*** RTS
***...T.;...^. .; ENDE...H.;.R.
R.;*** HILFSZELLEN U. TABELLEN ***.X.|.;
.....CHR .0,0,0,0,0,0,0,0.....BLOCK .0..
...LINE .0.....;.5...;*** DRUCKERSEQUENZ
EN ***.;...;.[.B.INIT .$1B,$40; I
NIT = ESC @...L. .$1B,$33,$18; LINEFEED
= ESC 3 N (N=24)...V. .$1B,$6C,$0C; LEFT
MARGIN = ESC L N (N=12).L...CR .$0D,$00
; CR.R...;.....GRAFIK .$1B,$4C,$80,$02,$
00; ESC L N1 N2 (N1=128 N2=2).....;.6...
INIT2 .$1B,$40,$00; INIT ESC @.<...;.Z..
..; ENDE DER ASSEMBLIERUNG...
> CLICK IMAGE PREVIEW FOR FULL MODAL