TEXTPRG.HYPRA-AS

FILE INFORMATION

FILENAME(S): TEXTPRG.HYPRA-AS

FILE TYPE(S): PRG

FILE SIZE: 1.8K

FIRST SEEN: 2025-11-30 01:12:53

APPEARS ON: 1 disk(s)

FILE HASH

9371f5011f3bd57cc3be9f7756d3f05be4a05d565fefd6eae068928160bb4855

FOUND ON DISKS (1 DISKS)

DISK TITLE	FILENAME	FILE TYPE	COLLECTION	TRACK	SECTOR	ACTIONS
10809 SEITE A	TEXTPRG.HYPRA-AS	PRG	C64er, DuncanTwain	30	8	DOWNLOAD FILE

FILE CONTENT & ANALYSIS

00000000: 0A 22 18 22 0A 00 2E 42  41 20 34 39 31 35 32 00  |."."...BA 49152.|
00000010: 1E 22 14 00 3B 00 36 22  1E 00 2E 45 51 20 53 43  |."..;.6"...EQ SC|
00000020: 52 45 45 4E 4D 45 4D 20  3D 20 32 35 31 00 4E 22  |REENMEM = 251.N"|
00000030: 28 00 2E 45 51 20 43 4F  4C 4F 55 52 4D 45 4D 20  |(..EQ COLOURMEM |
00000040: 3D 20 32 35 33 00 54 22  32 00 3B 00 6C 22 33 00  |= 253.T"2.;.l"3.|
00000050: 2E 45 51 20 47 45 54 49  4E 20 20 20 3D 20 24 46  |.EQ GETIN   = $F|
00000060: 46 45 34 00 72 22 3C 00  3B 00 97 22 46 00 3B 49  |FE4.r"<.;.."F.;I|
00000070: 4E 49 54 49 49 45 52 45  20 42 49 4C 44 53 43 48  |NITIIERE BILDSCH|
00000080: 49 52 4D 20 55 4E 44 20  46 41 52 42 45 2E 00 9D  |IRM UND FARBE...|
00000090: 22 50 00 3B 00 AE 22 5A  00 20 4C 44 41 23 3C 28  |"P.;.."Z. LDA#<(|
000000A0: 31 30 32 34 29 00 C0 22  64 00 20 53 54 41 53 43  |1024).."d. STASC|
000000B0: 52 45 45 4E 4D 45 4D 00  D1 22 6E 00 20 4C 44 41  |REENMEM.."n. LDA|
000000C0: 23 3E 28 31 30 32 34 29  00 E5 22 78 00 20 53 54  |#>(1024).."x. ST|
000000D0: 41 53 43 52 45 45 4E 4D  45 4D 2B 31 00 EB 22 82  |ASCREENMEM+1..".|
000000E0: 00 3B 00 FD 22 8C 00 20  4C 44 41 23 3C 28 35 35  |.;..".. LDA#<(55|
000000F0: 32 39 36 29 00 0F 23 96  00 20 53 54 41 43 4F 4C  |296)..#.. STACOL|
00000100: 4F 55 52 4D 45 4D 00 21  23 A0 00 20 4C 44 41 23  |OURMEM.!#.. LDA#|
00000110: 3E 28 35 35 32 39 36 29  00 35 23 AA 00 20 53 54  |>(55296).5#.. ST|
00000120: 41 43 4F 4C 4F 55 52 4D  45 4D 2B 31 00 3B 23 B4  |ACOLOURMEM+1.;#.|
00000130: 00 3B 00 56 23 BE 00 3B  4C 45 45 52 45 20 44 45  |.;.V#..;LEERE DE|
00000140: 4E 20 42 49 4C 44 53 43  48 49 52 4D 2E 00 5C 23  |N BILDSCHIRM..\#|
00000150: C8 00 3B 00 6A 23 D2 00  20 4A 53 52 24 45 35 34  |..;.j#.. JSR$E54|
00000160: 34 00 70 23 DC 00 3B 00  9C 23 E6 00 3B 53 43 48  |4.p#..;..#..;SCH|
00000170: 41 4C 54 45 20 47 52 4F  53 53 2D 20 55 4E 44 20  |ALTE GROSS- UND |
00000180: 4B 4C 45 49 4E 53 43 48  52 45 49 42 55 4E 47 20  |KLEINSCHREIBUNG |
00000190: 41 4E 2E 00 A2 23 F0 00  3B 00 AE 23 FA 00 20 4C  |AN...#..;..#.. L|
000001A0: 44 41 23 31 34 00 BC 23  04 01 20 4A 53 52 24 45  |DA#14..#.. JSR$E|
000001B0: 37 31 36 00 C2 23 0E 01  3B 00 DE 23 18 01 3B 57  |716..#..;..#..;W|
000001C0: 41 52 54 45 20 41 55 46  20 54 41 53 54 45 4E 44  |ARTE AUF TASTEND|
000001D0: 52 55 43 4B 2E 00 E4 23  22 01 3B 00 F8 23 2C 01  |RUCK...#".;..#,.|
000001E0: 47 45 54 4B 45 59 20 4A  53 52 47 45 54 49 4E 00  |GETKEY JSRGETIN.|
000001F0: 07 24 36 01 20 42 45 51  47 45 54 4B 45 59 00 0D  |.$6. BEQGETKEY..|
00000200: 24 40 01 3B 00 21 24 4A  01 3B 57 45 4E 4E 20 46  |$@.;.!$J.;WENN F|
00000210: 31 2C 20 45 58 49 54 2E  00 27 24 54 01 3B 00 34  |1, EXIT..'$T.;.4|
00000220: 24 5E 01 20 43 4D 50 23  31 33 33 00 41 24 68 01  |$^. CMP#133.A$h.|
00000230: 20 42 45 51 45 58 49 54  00 47 24 72 01 3B 00 6C  | BEQEXIT.G$r.;.l|
00000240: 24 7C 01 3B 57 45 4E 4E  20 44 45 4C 45 54 45 2D  |$|.;WENN DELETE-|
00000250: 54 41 53 54 45 2C 20 53  50 52 49 4E 47 45 20 56  |TASTE, SPRINGE V|
00000260: 4F 52 2D 00 8C 24 86 01  3B 57 41 45 52 54 53 20  |OR-..$..;WAERTS |
00000270: 5A 55 52 20 4C 4F 45 53  43 48 2D 52 4F 55 54 49  |ZUR LOESCH-ROUTI|
00000280: 4E 45 2E 00 92 24 90 01  3B 00 9E 24 9A 01 20 43  |NE...$..;..$.. C|
00000290: 4D 50 23 32 30 00 AD 24  A4 01 20 42 45 51 44 45  |MP#20..$.. BEQDE|
000002A0: 4C 45 54 45 00 B3 24 AE  01 3B 00 DC 24 B8 01 3B  |LETE..$..;..$..;|
000002B0: 56 45 52 57 41 4E 44 4C  45 20 41 53 43 49 49 20  |VERWANDLE ASCII |
000002C0: 49 4E 20 42 49 4C 44 53  43 48 49 52 4D 2D 43 4F  |IN BILDSCHIRM-CO|
000002D0: 44 45 2E 00 E2 24 CC 01  3B 00 EF 24 D6 01 20 43  |DE...$..;..$.. C|
000002E0: 4D 50 23 31 32 38 00 FC  24 E0 01 20 42 43 43 53  |MP#128..$.. BCCS|
000002F0: 4B 49 50 00 17 25 EA 01  20 53 45 43 3B 47 52 4F  |KIP..%.. SEC;GRO|
00000300: 53 53 45 52 20 42 55 43  48 53 54 41 42 45 00 23  |SSER BUCHSTABE.#|
00000310: 25 F4 01 20 53 42 43 23  36 34 00 45 25 FE 01 53  |%.. SBC#64.E%..S|
00000320: 4B 49 50 20 43 4D 50 23  36 34 3B 4B 4C 45 49 4E  |KIP CMP#64;KLEIN|
00000330: 45 52 20 42 55 43 48 53  54 41 42 45 00 54 25 08  |ER BUCHSTABE.T%.|
00000340: 02 20 42 43 43 44 52 55  43 4B 45 00 5D 25 12 02  |. BCCDRUCKE.]%..|
00000350: 20 53 45 43 00 69 25 1C  02 20 53 42 43 23 36 34  | SEC.i%.. SBC#64|
00000360: 00 6F 25 26 02 3B 00 97  25 30 02 3B 47 45 42 45  |.o%&.;..%0.;GEBE|
00000370: 20 42 55 43 48 53 54 41  42 45 20 5A 55 4D 20 42  | BUCHSTABE ZUM B|
00000380: 49 4C 44 53 43 48 49 52  4D 20 41 55 53 2E 00 9D  |ILDSCHIRM AUS...|
00000390: 25 44 02 3B 00 AE 25 4E  02 44 52 55 43 4B 45 20  |%D.;..%N.DRUCKE |
000003A0: 4C 44 59 23 30 00 C4 25  58 02 20 53 54 41 28 53  |LDY#0..%X. STA(S|
000003B0: 43 52 45 45 4E 4D 45 4D  29 2C 59 00 D0 25 62 02  |CREENMEM),Y..%b.|
000003C0: 20 4C 44 41 23 31 34 00  E6 25 6C 02 20 53 54 41  | LDA#14..%l. STA|
000003D0: 28 43 4F 4C 4F 55 52 4D  45 4D 29 2C 59 00 EC 25  |(COLOURMEM),Y..%|
000003E0: 76 02 3B 00 18 26 80 02  3B 56 4F 52 57 41 45 52  |v.;..&..;VORWAER|
000003F0: 54 53 20 5A 55 52 20 4E  41 45 43 48 53 54 45 4E  |TS ZUR NAECHSTEN|
00000400: 20 44 52 55 43 4B 50 4F  53 49 54 49 4F 4E 2E 00  | DRUCKPOSITION..|
00000410: 1E 26 94 02 3B 00 30 26  9E 02 20 49 4E 43 53 43  |.&..;.0&.. INCSC|
00000420: 52 45 45 4E 4D 45 4D 00  3F 26 A8 02 20 42 4E 45  |REENMEM.?&.. BNE|
00000430: 4E 4F 48 49 47 48 00 53  26 B2 02 20 49 4E 43 53  |NOHIGH.S&.. INCS|
00000440: 43 52 45 45 4E 4D 45 4D  2B 31 00 59 26 BC 02 3B  |CREENMEM+1.Y&..;|
00000450: 00 71 26 C6 02 4E 4F 48  49 47 48 20 49 4E 43 43  |.q&..NOHIGH INCC|
00000460: 4F 4C 4F 55 52 4D 45 4D  00 80 26 D0 02 20 42 4E  |OLOURMEM..&.. BN|
00000470: 45 47 45 54 4B 45 59 00  94 26 DA 02 20 49 4E 43  |EGETKEY..&.. INC|
00000480: 43 4F 4C 4F 55 52 4D 45  4D 2B 31 00 A3 26 E4 02  |COLOURMEM+1..&..|
00000490: 20 42 4E 45 47 45 54 4B  45 59 00 A9 26 EE 02 3B  | BNEGETKEY..&..;|
000004A0: 00 AF 26 F8 02 3B 00 B5  26 02 03 3B 00 C9 26 0C  |..&..;..&..;..&.|
000004B0: 03 3B 4C 4F 45 53 43 48  52 4F 55 54 49 4E 45 3A  |.;LOESCHROUTINE:|
000004C0: 00 CF 26 16 03 3B 00 F4  26 20 03 3B 57 45 4E 4E  |..&..;..& .;WENN|
000004D0: 20 41 4D 20 41 4E 46 41  4E 47 20 44 45 53 20 42  | AM ANFANG DES B|
000004E0: 49 4C 44 53 43 48 49 52  4D 53 2C 00 06 27 2A 03  |ILDSCHIRMS,..'*.|
000004F0: 3B 45 58 49 54 20 53 4F  46 4F 52 54 2E 00 0C 27  |;EXIT SOFORT...'|
00000500: 34 03 3B 00 23 27 3E 03  44 45 4C 45 54 45 20 4C  |4.;.#'>.DELETE L|
00000510: 44 41 23 3C 28 31 30 32  34 29 00 35 27 48 03 20  |DA#<(1024).5'H. |
00000520: 43 4D 50 53 43 52 45 45  4E 4D 45 4D 00 45 27 52  |CMPSCREENMEM.E'R|
00000530: 03 20 42 4E 45 44 45 4C  45 54 45 31 00 56 27 5C  |. BNEDELETE1.V'\|
00000540: 03 20 4C 44 41 23 3E 28  31 30 32 34 29 00 6A 27  |. LDA#>(1024).j'|
00000550: 66 03 20 43 4D 50 53 43  52 45 45 4E 4D 45 4D 2B  |f. CMPSCREENMEM+|
00000560: 31 00 79 27 70 03 20 42  45 51 47 45 54 4B 45 59  |1.y'p. BEQGETKEY|
00000570: 00 7F 27 7A 03 3B 00 9F  27 84 03 3B 45 49 4E 45  |..'z.;..'..;EINE|
00000580: 20 50 4F 53 49 54 49 4F  4E 20 52 55 45 43 4B 57  | POSITION RUECKW|
00000590: 41 45 52 54 53 2E 00 A5  27 8E 03 3B 00 BE 27 98  |AERTS...'..;..'.|
000005A0: 03 44 45 4C 45 54 45 31  20 4C 44 41 53 43 52 45  |.DELETE1 LDASCRE|
000005B0: 45 4E 4D 45 4D 00 CE 27  A2 03 20 42 4E 45 4E 4F  |ENMEM..'.. BNENO|
000005C0: 48 49 47 48 31 00 E2 27  AC 03 20 44 45 43 53 43  |HIGH1..'.. DECSC|
000005D0: 52 45 45 4E 4D 45 4D 2B  31 00 FB 27 B6 03 4E 4F  |REENMEM+1..'..NO|
000005E0: 48 49 47 48 31 20 44 45  43 53 43 52 45 45 4E 4D  |HIGH1 DECSCREENM|
000005F0: 45 4D 00 01 28 C0 03 3B  00 13 28 CA 03 20 4C 44  |EM..(..;..(.. LD|
00000600: 41 43 4F 4C 4F 55 52 4D  45 4D 00 23 28 D4 03 20  |ACOLOURMEM.#(.. |
00000610: 42 4E 45 4E 4F 48 49 47  48 32 00 37 28 DE 03 20  |BNENOHIGH2.7(.. |
00000620: 44 45 43 43 4F 4C 4F 55  52 4D 45 4D 2B 31 00 50  |DECCOLOURMEM+1.P|
00000630: 28 E8 03 4E 4F 48 49 47  48 32 20 44 45 43 43 4F  |(..NOHIGH2 DECCO|
00000640: 4C 4F 55 52 4D 45 4D 00  56 28 F2 03 3B 00 79 28  |LOURMEM.V(..;.y(|
00000650: FC 03 3B 44 52 55 43 4B  45 20 53 50 41 43 45 20  |..;DRUCKE SPACE |
00000660: 55 45 42 45 52 20 42 55  43 48 53 54 41 42 45 2E  |UEBER BUCHSTABE.|
00000670: 00 7F 28 06 04 3B 00 8A  28 10 04 20 4C 44 59 23  |..(..;..(.. LDY#|
00000680: 30 00 96 28 1A 04 20 4C  44 41 23 33 32 00 AC 28  |0..(.. LDA#32..(|
00000690: 24 04 20 53 54 41 28 53  43 52 45 45 4E 4D 45 4D  |$. STA(SCREENMEM|
000006A0: 29 2C 59 00 B7 28 2E 04  20 4C 44 41 23 36 00 CD  |),Y..(.. LDA#6..|
000006B0: 28 38 04 20 53 54 41 28  43 4F 4C 4F 55 52 4D 45  |(8. STA(COLOURME|
000006C0: 4D 29 2C 59 00 D3 28 42  04 3B 00 E2 28 4C 04 20  |M),Y..(B.;..(L. |
000006D0: 4A 4D 50 47 45 54 4B 45  59 00 E8 28 56 04 3B 00  |JMPGETKEY..(V.;.|
000006E0: 06 29 60 04 3B 45 58 49  54 3A 20 5A 55 52 55 45  |.)`.;EXIT: ZURUE|
000006F0: 43 4B 20 5A 55 4D 20 42  41 53 49 43 2E 00 0C 29  |CK ZUM BASIC...)|
00000700: 6A 04 3B 00 19 29 74 04  45 58 49 54 20 52 54 53  |j.;..)t.EXIT RTS|
00000710: 00 00 00                                          |...             |

."."...BA 49152.."..;.6"...EQ SCREENMEM 
= 251.N"(..EQ COLOURMEM = 253.T"2.;.L"3.
.EQ GETIN   = $FFE4.R"<.;.."F.;INITIIERE
 BILDSCHIRM UND FARBE..."P.;.."Z. LDA#<(
1024).."D. STASCREENMEM.Q"N. LDA#>(1024)
.."X. STASCREENMEM+1.."..;..".. LDA#<(55
296)..#.. STACOLOURMEM.!# . LDA#>(55296)
.5#.. STACOLOURMEM+1.;#..;.V#..;LEERE DE
N BILDSCHIRM..\#H.;.J#R. JSR$E544.P#..;.
.#..;SCHALTE GROSS- UND KLEINSCHREIBUNG 
AN...#..;..#.. LDA#14..#.. JSR$E716.B#..
;..#..;WARTE AUF TASTENDRUCK...#".;..#,.
GETKEY JSRGETIN..$6. BEQGETKEY..$@.;.!$J
.;WENN F1, EXIT..'$T.;.4$^. CMP#133.A$H.
 BEQEXIT.G$R.;.L$|.;WENN DELETE-TASTE, S
PRINGE VOR-..$..;WAERTS ZUR LOESCH-ROUTI
NE...$..;..$.. CMP#20..$.. BEQDELETE..$.
.;..$..;VERWANDLE ASCII IN BILDSCHIRM-CO
DE...$L.;..$V. CMP#128..$.. BCCSKIP..%..
 SEC;GROSSER BUCHSTABE.#%.. SBC#64.E%..S
KIP CMP#64;KLEINER BUCHSTABE.T%.. BCCDRU
CKE.]%.. SEC.I%.. SBC#64.O%&.;..%0.;GEBE
 BUCHSTABE ZUM BILDSCHIRM AUS...%D.;..%N
.DRUCKE LDY#0.D%X. STA(SCREENMEM),Y.P%B.
 LDA#14..%L. STA(COLOURMEM),Y..%V.;..&..
;VORWAERTS ZUR NAECHSTEN DRUCKPOSITION..
.&..;.0&.. INCSCREENMEM.?&.. BNENOHIGH.S
&.. INCSCREENMEM+1.Y&..;.Q&F.NOHIGH INCC
OLOURMEM..&P. BNEGETKEY..&Z. INCCOLOURME
M+1..&.. BNEGETKEY..&..;..&..;..&..;.I&.
.;LOESCHROUTINE:.O&..;..& .;WENN AM ANFA
NG DES BILDSCHIRMS,..'*.;EXIT SOFORT...'
4.;.#'>.DELETE LDA#<(1024).5'H. CMPSCREE
NMEM.E'R. BNEDELETE1.V'\. LDA#>(1024).J'
F. CMPSCREENMEM+1.Y'P. BEQGETKEY.'Z.;..
'..;EINE POSITION RUECKWAERTS...'..;..'.
.DELETE1 LDASCREENMEM.N'.. BNENOHIGH1..'
.. DECSCREENMEM+1..'..NOHIGH1 DECSCREENM
EM..(..;..(J. LDACOLOURMEM.#(T. BNENOHIG
H2.7(.. DECCOLOURMEM+1.P(..NOHIGH2 DECCO
LOURMEM.V(..;.Y(..;DRUCKE SPACE UEBER BU
CHSTABE..(..;..(.. LDY#0..(.. LDA#32..(
$. STA(SCREENMEM),Y..(.. LDA#6.M(8. STA(
COLOURMEM),Y.S(B.;..(L. JMPGETKEY..(V.;.
.)`.;EXIT: ZURUECK ZUM BASIC...)J.;..)T.
EXIT RTS...

Visualization:

Width: Skip load address (+2) Invert

> CLICK IMAGE PREVIEW FOR FULL MODAL