KARAKTERGEN/40
FILE INFORMATION
FILENAME(S): KARAKTERGEN/40
FILE TYPE(S): PRG
FILE SIZE: 1.9K
FIRST SEEN: 2025-11-30 21:11:17
APPEARS ON: 1 disk(s)
FILE HASH
a318c729a67e5aeee4142f4727ae9982038defc80199325b60a9ebfca688590b
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| UTILITIES 128 2 | KARAKTERGEN/40 | PRG | DuncanTwain | 14 | 1 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 2C 38 2C 45 24 AA 22 44 22 AA 45 24 AA 22 44 22 |,8,E$."D".E$."D"| 00000010: 00 02 26 35 02 99 00 59 26 3A 02 99 22 11 22 3A |..&5...Y&:..".":| 00000020: E0 20 31 2C 30 2C 32 31 2C 22 9C 4E 55 20 45 56 |. 1,0,21,".NU EV| 00000030: 2E 50 52 49 4E 54 45 52 20 41 41 4E 5A 45 54 54 |.PRINTER AANZETT| 00000040: 45 4E 20 45 4E 20 4F 50 22 AA 43 52 24 AA 22 27 |EN EN OP".CR$."'| 00000050: 52 45 54 55 52 4E 27 20 44 52 55 4B 4B 45 4E 20 |RETURN' DRUKKEN | 00000060: 20 28 20 45 20 3D 20 45 4E 44 20 29 22 00 77 26 | ( E = END )".w&| 00000070: 44 02 A1 F9 20 59 24 3A 8B 20 59 24 B2 22 45 22 |D... Y$:. Y$."E"| 00000080: 20 A7 20 37 39 30 3A 99 22 93 22 00 B1 26 45 02 | . 790:."."..&E.| 00000090: 99 22 05 22 3A 99 3A 99 3A 99 22 4B 45 55 5A 45 |.".":.:.:."KEUZE| 000000A0: 3A 20 20 50 29 20 50 52 49 4E 54 45 4E 22 3A 99 |: P) PRINTEN":.| 000000B0: 3A 99 22 20 20 20 20 20 20 20 20 53 29 20 53 43 |:." S) SC| 000000C0: 48 45 52 4D 22 00 D5 26 46 02 A1 F9 20 41 24 3A |HERM"..&F... A$:| 000000D0: 8B 20 41 24 B3 B1 22 50 22 20 AF 20 41 24 B3 B1 |. A$.."P" . A$..| 000000E0: 22 53 22 20 A7 20 35 38 32 00 EF 26 47 02 8B 20 |"S" . 582..&G.. | 000000F0: 41 24 B2 22 53 22 20 A7 20 31 36 30 30 3A D5 20 |A$."S" . 1600:. | 00000100: 36 30 30 00 03 27 4E 02 8F 20 53 54 41 52 54 20 |600..'N.. START | 00000110: 50 52 49 4E 54 45 4E 00 32 27 58 02 9F 20 34 2C |PRINTEN.2'X.. 4,| 00000120: 34 3A 98 34 2C 22 20 20 20 20 20 50 52 4F 47 52 |4:.4," PROGR| 00000130: 41 4D 4D 41 4E 41 41 4D 3A 20 20 20 22 46 24 3A |AMMANAAM: "F$:| 00000140: 98 34 2C 54 30 24 00 49 27 62 02 8B 20 53 54 B3 |.4,T0$.I'b.. ST.| 00000150: B1 30 20 A7 20 35 36 30 3A D5 20 98 34 00 59 27 |.0 . 560:. .4.Y'| 00000160: 76 02 98 34 2C 22 20 20 20 20 20 22 3B 00 8C 27 |v..4," ";..'| 00000170: 80 02 8B 20 56 B2 30 20 A7 20 98 34 2C 22 53 59 |... V.0 . .4,"SY| 00000180: 53 54 45 45 4D 2D 56 41 52 49 41 42 45 4C 45 4E |STEEM-VARIABELEN| 00000190: 20 45 4E 20 4B 4F 4E 53 54 41 4E 54 45 4E 22 3B | EN KONSTANTEN";| 000001A0: 00 C2 27 8A 02 8B 20 56 B2 31 20 A7 20 98 34 2C |..'... V.1 . .4,| 000001B0: 22 4E 55 4D 45 52 49 45 4B 45 20 46 4C 4F 41 54 |"NUMERIEKE FLOAT| 000001C0: 49 4E 47 20 4B 4F 4D 4D 41 20 56 41 52 49 41 42 |ING KOMMA VARIAB| 000001D0: 45 4C 45 4E 22 3B 00 E7 27 94 02 8B 20 56 B2 32 |ELEN";..'... V.2| 000001E0: 20 A7 20 98 34 2C 22 49 4E 54 45 47 45 52 20 56 | . .4,"INTEGER V| 000001F0: 41 52 49 41 42 45 4C 45 4E 22 3B 00 0B 28 9E 02 |ARIABELEN";..(..| 00000200: 8B 20 56 B2 33 20 A7 20 98 34 2C 22 53 54 52 49 |. V.3 . .4,"STRI| 00000210: 4E 47 2D 56 41 52 49 41 42 45 4C 45 4E 22 3B 00 |NG-VARIABELEN";.| 00000220: 1E 28 A8 02 98 34 2C 22 20 3A 22 3A 98 34 2C 54 |.(...4," :":.4,T| 00000230: 30 24 00 37 28 B2 02 81 20 49 B2 30 20 A4 20 C3 |0$.7(... I.0 . .| 00000240: 28 54 24 28 56 29 29 AD 35 AB 31 00 5A 28 BC 02 |(T$(V)).5.1.Z(..| 00000250: 59 24 B2 22 FF FF FF FF 22 3A 81 20 59 B2 30 20 |Y$."....":. Y.0 | 00000260: A4 20 C3 28 54 24 28 56 29 29 AD 35 AB 31 00 8F |. .(T$(V)).5.1..| 00000270: 28 C6 02 8B 20 59 24 B1 CA 28 54 24 28 56 29 2C |(... Y$..(T$(V),| 00000280: 59 AC 35 AA 32 2C 34 29 20 A7 20 59 24 B2 CA 28 |Y.5.2,4) . Y$..(| 00000290: 54 24 28 56 29 2C 59 AC 35 AA 32 2C 34 29 3A 59 |T$(V),Y.5.2,4):Y| 000002A0: 25 B2 59 00 BB 28 D0 02 82 20 59 3A CA 28 54 24 |%.Y..(... Y:.(T$| 000002B0: 28 56 29 2C 59 25 AC 35 AA 32 2C 34 29 B2 22 FF |(V),Y%.5.2,4).".| 000002C0: FF FF FF 22 3A 98 34 2C 59 24 22 20 2D 22 3B 00 |...":.4,Y$" -";.| 000002D0: D8 28 DA 02 81 20 4A B2 30 20 A4 20 C3 28 54 41 |.(... J.0 . .(TA| 000002E0: 24 28 59 25 2C 56 29 29 AD 32 AB 31 00 03 29 E4 |$(Y%,V)).2.1..).| 000002F0: 02 8B 20 B5 28 4A AD 31 32 29 B2 4A AD 31 32 20 |.. .(J.12).J.12 | 00000300: AF 20 4A B1 30 20 A7 20 98 34 3A 98 34 2C 22 20 |. J.0 . .4:.4," | 00000310: 20 20 20 20 2D 22 3B 00 4B 29 EE 02 98 34 2C FB | -";.K)...4,.| 00000320: 22 23 23 23 23 23 23 22 3B 28 C6 28 CA 28 54 41 |"######";(.(.(TA| 00000330: 24 28 59 25 2C 56 29 2C 4A AC 32 AA 31 2C 31 29 |$(Y%,V),J.2.1,1)| 00000340: 29 AC 32 35 36 29 AA C6 28 CA 28 54 41 24 28 59 |).256)..(.(TA$(Y| 00000350: 25 2C 56 29 2C 4A AC 32 AA 32 2C 31 29 29 3B 00 |%,V),J.2.2,1));.| 00000360: 59 29 F8 02 82 20 4A 3A 98 34 3A 98 34 00 67 29 |Y)... J:.4:.4.g)| 00000370: 02 03 82 20 49 3A 98 34 3A 98 34 00 73 29 0C 03 |... I:.4:.4.s)..| 00000380: 82 20 56 3A A0 20 34 00 79 29 11 03 99 00 DC 29 |. V:. 4.y).....)| 00000390: 16 03 99 20 43 52 24 22 9C 20 20 20 20 20 47 45 |... CR$". GE| 000003A0: 52 45 45 44 20 21 20 20 20 20 20 20 20 20 20 05 |REED ! .| 000003B0: 27 52 45 54 55 52 4E 27 20 3D 20 45 49 4E 44 45 |'RETURN' = EINDE| 000003C0: 20 20 20 20 20 20 20 20 20 27 52 27 20 3D 20 52 | 'R' = R| 000003D0: 45 2D 53 54 41 52 54 22 3A A1 F9 20 59 24 3A 8B |E-START":.. Y$:.| 000003E0: 20 59 24 B2 22 52 22 20 A7 20 9C 3A 89 20 31 30 | Y$."R" . .:. 10| 000003F0: 00 0A 2A 20 03 46 46 24 B2 22 4D 45 4E 55 22 3A |..* .FF$."MENU":| 00000400: FE 0D 23 32 2C 28 46 46 24 29 3A FE 0F 3A 8B 20 |..#2,(FF$):..:. | 00000410: 44 53 B2 30 20 A7 20 8A 22 4D 45 4E 55 22 00 19 |DS.0 . ."MENU"..| 00000420: 2A 2A 03 99 22 93 22 3B 3A FE 26 3A 80 00 24 2A |**..".";:.&:..$*| 00000430: 34 03 8F 20 46 4F 55 54 00 50 2A 3E 03 99 22 93 |4.. FOUT.P*>..".| 00000440: 9F 3E 20 46 4F 55 54 3A 20 20 22 D3 28 45 52 29 |.> FOUT: ".(ER)| 00000450: 22 20 49 4E 20 52 45 47 45 4C 20 22 45 4C 3B 3A |" IN REGEL "EL;:| 00000460: 99 22 9C 3A 00 58 2A 48 03 EA 3A 99 00 90 2A 52 |.".:.X*H..:...*R| 00000470: 03 99 22 27 52 45 54 55 52 4E 27 20 3D 20 52 45 |.."'RETURN' = RE| 00000480: 54 52 59 20 28 52 45 53 55 4D 45 29 20 2D 20 41 |TRY (RESUME) - A| 00000490: 4E 44 45 52 53 20 42 52 45 41 4B 20 22 3B 3A A1 |NDERS BREAK ";:.| 000004A0: F9 20 59 24 00 AC 2A 5C 03 8B 20 59 24 B2 C7 28 |. Y$..*\.. Y$..(| 000004B0: 31 33 29 20 A7 20 99 22 93 22 3A 89 20 31 31 30 |13) . .".":. 110| 000004C0: 00 C6 2A 40 06 8F 20 53 54 41 52 54 20 53 43 48 |..*@.. START SCH| 000004D0: 45 52 4D 2D 41 46 44 52 55 4B 00 D7 2A 41 06 FE |ERM-AFDRUK..*A..| 000004E0: 1A 20 30 2C 30 2C 37 39 2C 32 34 00 E1 2A 42 06 |. 0,0,79,24..*B.| 000004F0: 99 22 93 99 22 00 0A 2B 45 06 99 22 20 20 20 20 |.".."..+E.." | 00000500: 20 50 52 4F 47 52 41 4D 4D 41 4E 41 41 4D 3A 20 | PROGRAMMANAAM: | 00000510: 05 20 20 22 46 24 3A 99 22 99 22 54 30 24 00 15 |. "F$:."."T0$..| 00000520: 2B 4A 06 99 3A 99 22 9F 22 00 35 2B 54 06 81 20 |+J..:.".".5+T.. | 00000530: 56 B2 30 20 A4 20 33 3A 8B 20 54 24 28 56 29 B2 |V.0 . 3:. T$(V).| 00000540: 22 22 20 A7 20 31 37 38 30 00 43 2B 5E 06 99 22 |"" . 1780.C+^.."| 00000550: 20 20 20 20 20 22 3B 00 74 2B 68 06 8B 20 56 B2 | ";.t+h.. V.| 00000560: 30 20 A7 20 99 22 53 59 53 54 45 45 4D 2D 56 41 |0 . ."SYSTEEM-VA| 00000570: 52 49 41 42 45 4C 45 4E 20 45 4E 20 4B 4F 4E 53 |RIABELEN EN KONS| 00000580: 54 41 4E 54 45 4E 22 3B 00 A8 2B 72 06 8B 20 56 |TANTEN";..+r.. V| 00000590: B2 31 20 A7 20 99 22 4E 55 4D 45 52 49 45 4B 45 |.1 . ."NUMERIEKE| 000005A0: 20 46 4C 4F 41 54 49 4E 47 20 4B 4F 4D 4D 41 20 | FLOATING KOMMA | 000005B0: 56 41 52 49 41 42 45 4C 45 4E 22 3B 00 D5 2B 7C |VARIABELEN";..+|| 000005C0: 06 8B 20 56 B2 32 20 A7 20 99 22 4E 55 4D 45 52 |.. V.2 . ."NUMER| 000005D0: 49 45 4B 45 20 49 4E 54 45 47 45 52 20 56 41 52 |IEKE INTEGER VAR| 000005E0: 49 41 42 45 4C 45 4E 22 3B 00 F7 2B 86 06 8B 20 |IABELEN";..+... | 000005F0: 56 B2 33 20 A7 20 99 22 53 54 52 49 4E 47 2D 56 |V.3 . ."STRING-V| 00000600: 41 52 49 41 42 45 4C 45 4E 22 3B 00 07 2C 90 06 |ARIABELEN";..,..| 00000610: 99 22 20 3A 22 3A 99 20 54 30 24 00 20 2C 9A 06 |." :":. T0$. ,..| 00000620: 81 20 49 B2 30 20 A4 20 C3 28 54 24 28 56 29 29 |. I.0 . .(T$(V))| 00000630: AD 35 AB 31 00 43 2C A4 06 59 24 B2 22 FF FF FF |.5.1.C,..Y$."...| 00000640: FF 22 3A 81 20 59 B2 30 20 A4 20 C3 28 54 24 28 |.":. Y.0 . .(T$(| 00000650: 56 29 29 AD 35 AB 31 00 78 2C AE 06 8B 20 59 24 |V)).5.1.x,... Y$| 00000660: B1 CA 28 54 24 28 56 29 2C 59 AC 35 AA 32 2C 34 |..(T$(V),Y.5.2,4| 00000670: 29 20 A7 20 59 24 B2 CA 28 54 24 28 56 29 2C 59 |) . Y$..(T$(V),Y| 00000680: AC 35 AA 32 2C 34 29 3A 59 25 B2 59 00 A1 2C B8 |.5.2,4):Y%.Y..,.| 00000690: 06 82 3A CA 28 54 24 28 56 29 2C 59 25 AC 35 AA |..:.(T$(V),Y%.5.| 000006A0: 32 2C 34 29 B2 22 FF FF FF FF 22 3A 99 20 59 24 |2,4)."....":. Y$| 000006B0: 22 20 2D 22 3B 00 BE 2C C2 06 81 20 4A B2 30 20 |" -";..,... J.0 | 000006C0: A4 20 C3 28 54 41 24 28 59 25 2C 56 29 29 AD 32 |. .(TA$(Y%,V)).2| 000006D0: AB 31 00 E6 2C CC 06 8B 20 B5 28 4A AD 31 32 29 |.1..,... .(J.12)| 000006E0: B2 4A AD 31 32 20 AF 20 4A B1 30 20 A7 20 99 3A |.J.12 . J.0 . .:| 000006F0: 99 22 20 20 20 20 20 2D 22 3B 00 2D 2D D6 06 99 |." -";.--...| 00000700: 20 FB 22 23 23 23 23 23 23 22 3B 28 C6 28 CA 28 | ."######";(.(.(| 00000710: 54 41 24 28 59 25 2C 56 29 2C 4A AC 32 AA 31 2C |TA$(Y%,V),J.2.1,| 00000720: 31 29 29 AC 32 35 36 29 AA C6 28 CA 28 54 41 24 |1)).256)..(.(TA$| 00000730: 28 59 25 2C 56 29 2C 4A AC 32 AA 32 2C 31 29 29 |(Y%,V),J.2.2,1))| 00000740: 3B 00 39 2D E0 06 82 20 4A 3A 99 3A 99 00 45 2D |;.9-... J:.:..E-| 00000750: EA 06 82 20 49 3A 99 3A 99 00 4D 2D F4 06 82 20 |... I:.:..M-... | 00000760: 56 00 57 2D FE 06 89 20 37 39 30 00 5D 2D 08 07 |V.W-... 790.]-..| 00000770: 80 00 00 00 |.... |
,8,E$."D".E$."D"..&5...Y&:..".":. 1,0,21
,".NU EV.PRINTER AANZETTEN EN OP".CR$."'
RETURN' DRUKKEN ( E = END )".W&D... Y$:
. Y$."E" . 790:."."..&E..".":.:.:."KEUZE
: P) PRINTEN":.:." S) SCHERM".U&
F... A$:. A$.."P" . A$.."S" . 582..&G..
A$."S" . 1600:U 600..'N.. START PRINTEN.
2'X.. 4,4:.4," PROGRAMMANAAM: "F$:
.4,T0$.I'B.. ST..0 . 560:U .4.Y'V..4,"
";..'... V.0 . .4,"SYSTEEM-VARIABELEN
EN KONSTANTEN";.B'... V.1 . .4,"NUMERIE
KE FLOATING KOMMA VARIABELEN";..'... V.2
. .4,"INTEGER VARIABELEN";..(... V.3 .
.4,"STRING-VARIABELEN";..(...4," :":.4,T
0$.7(... I.0 . C(T$(V)).5.1.Z(..Y$."....
":. Y.0 . C(T$(V)).5.1..(F.. Y$.J(T$(V),
Y.5.2,4) . Y$.J(T$(V),Y.5.2,4):Y%.Y..(P.
. Y:J(T$(V),Y%.5.2,4)."....":.4,Y$" -";.
X(Z.. J.0 . C(TA$(Y%,V)).2.1..)... .(J.1
2).J.12 . J.0 . .4:.4," -";.K)...4,.
"######";(F(J(TA$(Y%,V),J.2.1,1)).256).F
(J(TA$(Y%,V),J.2.2,1));.Y)... J:.4:.4.G)
... I:.4:.4.S)... V: 4.Y).....)... CR$"
. GEREED ! .'RETURN' = EINDE
'R' = RE-START":.. Y$:. Y$."R"
. .:. 10..* .FF$."MENU":..#2,(FF$):..:.
DS.0 . ."MENU"..**..".";:.&:..$*4.. FOUT
.P*>.."..> FOUT: "S(ER)" IN REGEL "EL;:
.".:.X*H..:...*R.."'RETURN' = RETRY (RES
UME) - ANDERS BREAK ";:.. Y$..*\.. Y$.G(
13) . .".":. 110.F*@.. START SCHERM-AFDR
UK.W*A... 0,0,79,24..*B..".."..+E.."
PROGRAMMANAAM: . "F$:."."T0$..+J..:.".
".5+T.. V.0 . 3:. T$(V)."" . 1780.C+^.."
";.T+H.. V.0 . ."SYSTEEM-VARIABELEN
EN KONSTANTEN";..+R.. V.1 . ."NUMERIEKE
FLOATING KOMMA VARIABELEN";.U+|.. V.2 .
."NUMERIEKE INTEGER VARIABELEN";..+...
V.3 . ."STRING-VARIABELEN";..,..." :":.
T0$. ,... I.0 . C(T$(V)).5.1.C,..Y$."...
.":. Y.0 . C(T$(V)).5.1.X,... Y$.J(T$(V)
,Y.5.2,4) . Y$.J(T$(V),Y.5.2,4):Y%.Y..,.
..:J(T$(V),Y%.5.2,4)."....":. Y$" -";..,
B.. J.0 . C(TA$(Y%,V)).2.1..,L.. .(J.12)
.J.12 . J.0 . .:." -";.--V.. ."#####
#";(F(J(TA$(Y%,V),J.2.1,1)).256).F(J(TA$
(Y%,V),J.2.2,1));.9-... J:.:..E-... I:.:
..M-... V.W-... 790.]-......
> CLICK IMAGE PREVIEW FOR FULL MODAL