HARDCOPY40.SRC
FILE INFORMATION
FILENAME(S): HARDCOPY40.SRC
FILE TYPE(S): PRG
FILE SIZE: 1.9K
FIRST SEEN: 2025-11-02 16:39:38
APPEARS ON: 1 disk(s)
FILE HASH
a8689bf2fc6d5a25e536869cab6f80bfa722321696bddcd3f772a49f583ffd2a
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| 128 | HARDCOPY40.SRC | PRG | Treasure Chest - Plattfuss | 31 | 14 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 61 5C 8A 5C 64 00 2E 90 24 31 33 30 30 3B 20 4F |a\.\d...$1300; O|
00000010: 42 4A 45 4B 54 43 4F 44 45 20 41 42 20 24 31 33 |BJEKTCODE AB $13|
00000020: 30 30 20 41 42 4C 45 47 45 4E 00 90 5C 6E 00 3B |00 ABLEGEN..\n.;|
00000030: 00 BE 5C 78 00 3B 20 2A 2A 2A 2A 2A 2A 2A 2A 2A |..\x.; *********|
00000040: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000050: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 EC |**************..|
00000060: 5C 82 00 3B 20 2A 20 20 20 20 20 20 20 20 20 20 |\..; * |
00000070: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000080: 20 20 20 20 20 20 20 20 20 20 20 2A 00 1A 5D 8C | *..].|
00000090: 00 3B 20 2A 20 20 20 48 20 41 20 52 20 44 20 43 |.; * H A R D C|
000000A0: 20 4F 20 50 20 59 20 2D 20 52 20 4F 20 55 20 54 | O P Y - R O U T|
000000B0: 20 49 20 4E 20 45 20 20 20 2A 00 48 5D 96 00 3B | I N E *.H]..;|
000000C0: 20 2A 20 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 20 20 20 20 | |
000000E0: 20 20 20 20 20 20 20 2A 00 76 5D A0 00 3B 20 2A | *.v]..; *|
000000F0: 20 20 20 20 56 4F 4D 20 34 30 2D 5A 45 49 43 48 | VOM 40-ZEICH|
00000100: 45 4E 2D 54 45 58 54 42 49 4C 44 53 43 48 49 52 |EN-TEXTBILDSCHIR|
00000110: 4D 20 20 20 20 2A 00 A4 5D AA 00 3B 20 2A 20 20 |M *..]..; * |
00000120: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000130: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000140: 20 20 20 2A 00 D2 5D B4 00 3B 20 2A 2A 2A 2A 2A | *..]..; *****|
00000150: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000160: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000170: 2A 2A 00 00 5E BE 00 3B 20 2A 20 20 20 20 20 20 |**..^..; * |
00000180: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000190: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2A | *|
000001A0: 00 2E 5E C8 00 3B 20 2A 20 20 50 52 4F 47 52 41 |..^..; * PROGRA|
000001B0: 4D 4D 49 45 52 54 20 56 4F 4E 3A 20 46 4C 4F 52 |MMIERT VON: FLOR|
000001C0: 49 41 4E 20 4D 55 45 4C 4C 45 52 20 20 2A 00 5C |IAN MUELLER *.\|
000001D0: 5E D2 00 3B 20 2A 20 20 20 20 20 20 20 20 20 20 |^..; * |
000001E0: 20 20 20 20 20 4D 49 54 3A 20 54 4F 50 2D 41 53 | MIT: TOP-AS|
000001F0: 53 20 20 20 20 20 20 20 20 20 20 2A 00 8A 5E DC |S *..^.|
00000200: 00 3B 20 2A 20 20 20 20 20 20 20 20 20 20 20 20 |.; * |
00000210: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000220: 20 20 20 20 20 20 20 20 20 2A 00 B8 5E E6 00 3B | *..^..;|
00000230: 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A | ***************|
00000240: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000250: 2A 2A 2A 2A 2A 2A 2A 2A 00 BE 5E F0 00 3B 00 D8 |********..^..;..|
00000260: 5E FA 00 3B 20 53 59 4D 42 4F 4C 44 45 46 49 4E |^..; SYMBOLDEFIN|
00000270: 49 54 49 4F 4E 45 4E 3A 00 DE 5E 04 01 3B 00 07 |ITIONEN:..^..;..|
00000280: 5F 0E 01 2E 8F 53 45 54 50 41 52 3D 24 46 46 42 |_....SETPAR=$FFB|
00000290: 41 3B 20 46 49 4C 45 50 41 52 41 4D 45 54 45 52 |A; FILEPARAMETER|
000002A0: 20 53 45 54 5A 45 4E 00 2C 5F 18 01 2E 8F 53 45 | SETZEN.,_....SE|
000002B0: 54 4E 41 4D 3D 24 46 46 42 44 3B 20 46 49 4C 45 |TNAM=$FFBD; FILE|
000002C0: 4E 41 4D 45 4E 20 53 45 54 5A 45 4E 00 4B 5F 22 |NAMEN SETZEN.K_"|
000002D0: 01 2E 8F 4F 50 45 4E 3D 24 46 46 43 30 3B 20 46 |...OPEN=$FFC0; F|
000002E0: 49 4C 45 20 4F 45 46 46 4E 45 4E 00 6E 5F 2C 01 |ILE OEFFNEN.n_,.|
000002F0: 2E 8F 43 4C 4F 53 45 3D 24 46 46 43 33 3B 20 46 |..CLOSE=$FFC3; F|
00000300: 49 4C 45 20 53 43 48 4C 49 45 53 53 45 4E 00 93 |ILE SCHLIESSEN..|
00000310: 5F 36 01 2E 8F 42 41 53 4F 55 54 3D 24 46 46 44 |_6...BASOUT=$FFD|
00000320: 32 3B 20 5A 45 49 43 48 45 4E 20 41 55 53 47 45 |2; ZEICHEN AUSGE|
00000330: 42 45 4E 00 C0 5F 40 01 2E 8F 43 4B 4F 55 54 3D |BEN.._@...CKOUT=|
00000340: 24 46 46 43 39 3B 20 41 55 53 47 41 42 45 20 41 |$FFC9; AUSGABE A|
00000350: 55 46 20 46 49 4C 45 20 55 4D 4C 45 4E 4B 45 4E |UF FILE UMLENKEN|
00000360: 00 E9 5F 4A 01 2E 8F 43 4C 52 43 48 3D 24 46 46 |.._J...CLRCH=$FF|
00000370: 43 43 3B 20 41 55 53 47 41 42 45 20 57 49 45 44 |CC; AUSGABE WIED|
00000380: 45 52 20 4E 4F 52 4D 41 4C 00 EF 5F 54 01 3B 00 |ER NORMAL.._T.;.|
00000390: F5 5F 5E 01 3B 00 1B 60 68 01 2E 8F 5A 45 49 47 |._^.;..`h...ZEIG|
000003A0: 45 52 3D 24 46 42 3B 20 5A 45 49 47 45 52 20 41 |ER=$FB; ZEIGER A|
000003B0: 55 46 20 41 4B 54 55 45 4C 4C 45 00 3F 60 72 01 |UF AKTUELLE.?`r.|
000003C0: 2E 8F 5A 45 49 47 45 52 4C 4F 57 3D 5A 45 49 47 |..ZEIGERLOW=ZEIG|
000003D0: 45 52 3B 20 50 4F 53 49 54 49 4F 4E 20 49 4D 00 |ER; POSITION IM.|
000003E0: 62 60 7C 01 2E 8F 5A 45 49 47 45 52 48 49 47 48 |b`|...ZEIGERHIGH|
000003F0: 3D 5A 45 49 47 45 52 2B 31 3B 20 56 44 43 2D 52 |=ZEIGER+1; VDC-R|
00000400: 41 4D 00 72 60 86 01 2E 8F 5A 45 49 4C 45 3D 24 |AM.r`....ZEILE=$|
00000410: 46 44 00 83 60 90 01 2E 8F 53 50 41 4C 54 45 3D |FD..`....SPALTE=|
00000420: 24 46 45 00 89 60 9A 01 3B 00 8F 60 A4 01 3B 00 |$FE..`..;..`..;.|
00000430: 9E 60 AE 01 20 81 23 3C 28 31 30 32 34 29 00 AE |.`.. .#<(1024)..|
00000440: 60 B8 01 20 82 5A 45 49 47 45 52 4C 4F 57 00 BD |`.. .ZEIGERLOW..|
00000450: 60 C2 01 20 81 23 3E 28 31 30 32 34 29 00 CE 60 |`.. .#>(1024)..`|
00000460: CC 01 20 82 5A 45 49 47 45 52 48 49 47 48 00 D4 |.. .ZEIGERHIGH..|
00000470: 60 D6 01 3B 00 DD 60 E0 01 20 81 23 30 00 E9 60 |`..;..`.. .#0..`|
00000480: EA 01 20 82 5A 45 49 4C 45 00 F6 60 F4 01 20 82 |.. .ZEILE..`.. .|
00000490: 53 50 41 4C 54 45 00 FC 60 FE 01 3B 00 05 61 08 |SPALTE..`..;..a.|
000004A0: 02 20 81 23 34 00 0C 61 12 02 20 99 00 15 61 1C |. .#4..a.. ...a.|
000004B0: 02 20 84 23 30 00 22 61 26 02 20 97 53 45 54 50 |. .#0."a&. .SETP|
000004C0: 41 52 00 2B 61 30 02 20 81 23 30 00 38 61 3A 02 |AR.+a0. .#0.8a:.|
000004D0: 20 97 53 45 54 4E 41 4D 00 43 61 44 02 20 97 4F | .SETNAM.CaD. .O|
000004E0: 50 45 4E 00 4C 61 4E 02 20 83 23 34 00 58 61 58 |PEN.LaN. .#4.XaX|
000004F0: 02 20 97 43 4B 4F 55 54 00 5E 61 62 02 3B 00 64 |. .CKOUT.^ab.;.d|
00000500: 61 6C 02 3B 00 75 61 76 02 53 43 48 4C 45 49 46 |al.;.uav.SCHLEIF|
00000510: 45 20 84 23 30 00 7B 61 80 02 3B 00 88 61 8A 02 |E .#0.{a..;..a..|
00000520: 20 81 53 50 41 4C 54 45 00 96 61 94 02 20 B7 57 | .SPALTE..a.. .W|
00000530: 45 49 54 45 52 31 00 A0 61 9E 02 20 81 23 31 33 |EITER1..a.. .#13|
00000540: 00 AD 61 A8 02 20 97 42 41 53 4F 55 54 00 B3 61 |..a.. .BASOUT..a|
00000550: B2 02 3B 00 CB 61 BC 02 57 45 49 54 45 52 31 20 |..;..a..WEITER1 |
00000560: 81 28 5A 45 49 47 45 52 29 2C 59 00 D1 61 C6 02 |.(ZEIGER),Y..a..|
00000570: 3B 00 EC 61 D0 02 55 4D 57 41 4E 44 4C 55 4E 47 |;..a..UMWANDLUNG|
00000580: 20 87 23 25 30 31 31 31 31 31 31 31 00 F3 61 DA | .#%01111111..a.|
00000590: 02 20 99 00 F9 61 E4 02 3B 00 00 62 EE 02 20 A6 |. ...a..;..b.. .|
000005A0: 00 0A 62 F8 02 20 86 23 36 34 00 10 62 02 03 3B |..b.. .#64..b..;|
000005B0: 00 1B 62 0C 03 20 85 23 31 32 38 00 2D 62 16 03 |..b.. .#128.-b..|
000005C0: 20 B6 55 4D 57 41 4E 44 4C 55 4E 47 31 00 37 62 | .UMWANDLUNG1.7b|
000005D0: 20 03 20 85 23 39 36 00 49 62 2A 03 20 B5 55 4D | . .#96.Ib*. .UM|
000005E0: 57 41 4E 44 4C 55 4E 47 31 00 53 62 34 03 20 92 |WANDLUNG1.Sb4. .|
000005F0: 23 36 34 00 59 62 3E 03 3B 00 6E 62 48 03 55 4D |#64.Yb>.;.nbH.UM|
00000600: 57 41 4E 44 4C 55 4E 47 31 20 8B 23 39 36 00 7C |WANDLUNG1 .#96.||
00000610: 62 52 03 20 B6 41 55 53 47 41 42 45 00 86 62 5C |bR. .AUSGABE..b\|
00000620: 03 20 8B 23 36 34 00 94 62 66 03 20 B5 41 55 53 |. .#64..bf. .AUS|
00000630: 47 41 42 45 00 9E 62 70 03 20 92 23 33 32 00 A4 |GABE..bp. .#32..|
00000640: 62 7A 03 3B 00 B8 62 84 03 41 55 53 47 41 42 45 |bz.;..b..AUSGABE|
00000650: 20 97 42 41 53 4F 55 54 00 BE 62 8E 03 3B 00 C9 | .BASOUT..b..;..|
00000660: 62 98 03 20 B6 45 4E 44 45 00 CF 62 A2 03 3B 00 |b.. .ENDE..b..;.|
00000670: DF 62 AC 03 20 8A 5A 45 49 47 45 52 4C 4F 57 00 |.b.. .ZEIGERLOW.|
00000680: ED 62 B6 03 20 B7 57 45 49 54 45 52 32 00 FE 62 |.b.. .WEITER2..b|
00000690: C0 03 20 8A 5A 45 49 47 45 52 48 49 47 48 00 04 |.. .ZEIGERHIGH..|
000006A0: 63 CA 03 3B 00 18 63 D4 03 57 45 49 54 45 52 32 |c..;..c..WEITER2|
000006B0: 20 8A 53 50 41 4C 54 45 00 25 63 DE 03 20 81 53 | .SPALTE.%c.. .S|
000006C0: 50 41 4C 54 45 00 2F 63 E8 03 20 85 23 34 30 00 |PALTE./c.. .#40.|
000006D0: 3E 63 F2 03 20 B7 53 43 48 4C 45 49 46 45 00 47 |>c.. .SCHLEIFE.G|
000006E0: 63 FC 03 20 81 23 30 00 54 63 06 04 20 82 53 50 |c.. .#0.Tc.. .SP|
000006F0: 41 4C 54 45 00 60 63 10 04 20 8A 5A 45 49 4C 45 |ALTE.`c.. .ZEILE|
00000700: 00 6C 63 1A 04 20 81 5A 45 49 4C 45 00 76 63 24 |.lc.. .ZEILE.vc$|
00000710: 04 20 85 23 32 35 00 85 63 2E 04 20 B7 53 43 48 |. .#25..c.. .SCH|
00000720: 4C 45 49 46 45 00 8B 63 38 04 3B 00 99 63 42 04 |LEIFE..c8.;..cB.|
00000730: 45 4E 44 45 20 81 23 31 33 00 A6 63 4C 04 20 97 |ENDE .#13..cL. .|
00000740: 42 41 53 4F 55 54 00 AC 63 56 04 3B 00 B5 63 60 |BASOUT..cV.;..c`|
00000750: 04 20 81 23 34 00 C1 63 6A 04 20 97 43 4C 4F 53 |. .#4..cj. .CLOS|
00000760: 45 00 C7 63 74 04 3B 00 D3 63 7E 04 20 97 43 4C |E..ct.;..c~. .CL|
00000770: 52 43 48 00 D9 63 88 04 3B 00 E0 63 92 04 20 A4 |RCH..c..;..c.. .|
00000780: 00 00 00 |... |
A\.\D...$1300; OBJEKTCODE AB $1300 ABLEG
EN..\N.;..\X.; *************************
**************..\..; *
*..]..; * H A R D C
O P Y - R O U T I N E *.H]..; *
*.V] .; *
VOM 40-ZEICHEN-TEXTBILDSCHIRM *..
]..; *
*.R]..; *****************************
**********..^..; *
*..^H.; * PROGRAMMIERT V
ON: FLORIAN MUELLER *.\^R.; *
MIT: TOP-ASS *..^..; *
*..^..;
***************************************
..^..;.X^..; SYMBOLDEFINITIONEN:..^..;..
_....SETPAR=$FFBA; FILEPARAMETER SETZEN.
,_....SETNAM=$FFBD; FILENAMEN SETZEN.K_"
...OPEN=$FFC0; FILE OEFFNEN.N_,...CLOSE=
$FFC3; FILE SCHLIESSEN.._6...BASOUT=$FFD
2; ZEICHEN AUSGEBEN.._@...CKOUT=$FFC9; A
USGABE AUF FILE UMLENKEN.._J...CLRCH=$FF
CC; AUSGABE WIEDER NORMAL.._T.;.._^.;..`
H...ZEIGER=$FB; ZEIGER AUF AKTUELLE.?`R.
..ZEIGERLOW=ZEIGER; POSITION IM.B`|...ZE
IGERHIGH=ZEIGER+1; VDC-RAM.R`....ZEILE=$
FD..`....SPALTE=$FE..`..;..`..;..`.. .#<
(1024)..`.. .ZEIGERLOW..`B. .#>(1024).N`
L. .ZEIGERHIGH.T`V.;..`.. .#0..`.. .ZEIL
E..`.. .SPALTE..`..;..A.. .#4..A.. ...A.
. .#0."A&. .SETPAR.+A0. .#0.8A:. .SETNAM
.CAD. .OPEN.LAN. .#4.XAX. .CKOUT.^AB.;.D
AL.;.UAV.SCHLEIFE .#0.{A..;..A.. .SPALTE
..A.. .WEITER1. A.. .#13..A.. .BASOUT..A
..;.KA..WEITER1 .(ZEIGER),Y.QAF.;..AP.UM
WANDLUNG .#%01111111..AZ. ...A..;..B.. .
..B.. .#64..B..;..B.. .#128.-B.. .UMWAND
LUNG1.7B . .#96.IB*. .UMWANDLUNG1.SB4. .
#64.YB>.;.NBH.UMWANDLUNG1 .#96.|BR. .AUS
GABE..B\. .#64..BF. .AUSGABE..BP. .#32..
BZ.;..B..AUSGABE .BASOUT..B..;.IB.. .END
E.OB..;..B.. .ZEIGERLOW..B.. .WEITER2..B
.. .ZEIGERHIGH..CJ.;..CT.WEITER2 .SPALTE
.%C.. .SPALTE./C.. .#40.>C.. .SCHLEIFE.G
C.. .#0.TC.. .SPALTE.`C.. .ZEILE.LC.. .Z
EILE.VC$. .#25..C.. .SCHLEIFE..C8.;..CB.
ENDE .#13..CL. .BASOUT..CV.;..C`. .#4.AC
J. .CLOSE.GCT.;.SC~. .CLRCH.YC..;..C.. .
...
> CLICK IMAGE PREVIEW FOR FULL MODAL