ZEICHENGENERATOR

FILE INFORMATION

FILENAME(S): ZEICHENGENERATOR

FILE TYPE(S): PRG

FILE SIZE: 1.6K

FIRST SEEN: 2025-11-30 16:18:12

APPEARS ON: 1 disk(s)

FILE HASH

b6d28dc4b9f08750e8ce060bfff2d0b5f940d784f7edf50ee2ab40505e3e0453

FOUND ON DISKS (1 DISKS)

DISK TITLE	FILENAME	FILE TYPE	COLLECTION	TRACK	SECTOR	ACTIONS
BASIC HELPS	ZEICHENGENERATOR	PRG	BrainSkull, Leopold Zyka	11	2	DOWNLOAD FILE

FILE CONTENT & ANALYSIS

> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)

00000000: 01 08 1C 08 00 00 41 B2  31 3A 42 B2 31 30 31 30  |......A.1:B.1010|
00000010: 3A 97 36 35 30 2C 31 32  38 3A 89 35 00 47 08 01  |:.650,128:.5.G..|
00000020: 00 5A 31 24 B2 22 40 41  42 43 44 45 46 47 48 49  |.Z1$."@ABCDEFGHI|
00000030: 4A 4B 4C 4D 4E 4F 50 51  52 53 54 55 56 57 58 59  |JKLMNOPQRSTUVWXY|
00000040: 5A 5B 5C 5D 5E 5F 22 00  7A 08 02 00 5A 32 24 B2  |Z[\]^_".z...Z2$.|
00000050: 22 20 21 22 AA C7 28 33  34 29 AA 22 23 24 25 26  |" !"..(34)."#$%&|
00000060: 27 28 29 2A 2B 2C 2D 2E  2F 30 31 32 33 34 35 36  |'()*+,-./0123456|
00000070: 37 38 39 3A 3B 3C 3D 3E  3F 22 00 A5 08 03 00 5A  |789:;<=>?".....Z|
00000080: 33 24 B2 22 C0 C1 C2 C3  C4 C5 C6 C7 C8 C9 CA CB  |3$."............|
00000090: CC CD CE CF D0 D1 D2 D3  D4 D5 D6 D7 D8 D9 DA DB  |................|
000000A0: DC DD FF DF 22 00 D2 08  04 00 5A 34 24 B2 22 20  |....".....Z4$." |
000000B0: A1 A2 A3 A4 A5 A6 A7 A8  A9 AA AB AC AD AE AF B0  |................|
000000C0: B1 B2 B3 B4 B5 B6 B7 B8  B9 BA BB BC BD BE BF 22  |..............."|
000000D0: 3A 8E 00 15 09 05 00 97  35 33 32 38 31 2C 36 3A  |:.......53281,6:|
000000E0: 99 C7 28 31 34 32 29 3B  22 93 9E 53 20 20 49 20  |..(142);"..S  I |
000000F0: 20 4D 20 20 4F 20 20 4E  20 20 27 20 20 53 20 20  | M  O  N  '  S  |
00000100: 20 2D 20 20 20 20 42 20  20 41 20 20 53 20 20 49  | -    B  A  S  I|
00000110: 20 20 43 22 3B 00 57 09  06 00 81 49 B2 31 A4 34  |  C";.W....I.1.4|
00000120: 30 3A 99 22 A4 22 3B 3A  82 49 3A 99 22 12 5A 20  |0:.".";:.I:.".Z |
00000130: 45 20 49 20 43 20 48 20  45 20 4E 20 53 20 41 20  |E I C H E N S A |
00000140: 54 20 5A 20 20 47 20 45  20 4E 20 45 20 52 20 41  |T Z  G E N E R A|
00000150: 20 54 20 4F 20 52 22 00  93 09 07 00 99 22 11 11  | T O R"......"..|
00000160: 11 9E 57 41 45 48 4C 45  20 20 3A 20 20 9F 31 2E  |..WAEHLE  :  .1.|
00000170: 20 20 5A 45 49 43 48 45  4E 53 41 54 5A 20 45 52  |  ZEICHENSATZ ER|
00000180: 53 54 45 4C 4C 45 4E 22  3A 99 22 11 22 3B A6 31  |STELLEN":.".";.1|
00000190: 31 29 3B 00 CE 09 08 00  99 22 32 2E 20 20 42 45  |1);......"2.  BE|
000001A0: 53 54 49 4D 4D 54 45 53  20 5A 45 49 43 48 45 4E  |STIMMTES ZEICHEN|
000001B0: 22 3A 99 22 11 22 3B A6  31 31 29 3B 22 33 2E 20  |":.".";.11);"3. |
000001C0: 20 44 55 52 43 48 46 55  45 48 52 45 4E 22 00 EC  | DURCHFUEHREN"..|
000001D0: 09 09 00 99 22 11 22 3B  A6 31 31 29 3B 22 34 2E  |....".";.11);"4.|
000001E0: 20 20 53 50 45 49 43 48  45 52 4E 22 00 1A 0A 0A  |  SPEICHERN"....|
000001F0: 00 A1 20 41 24 3A 8B 41  24 B3 B1 22 31 22 AF 41  |.. A$:.A$.."1".A|
00000200: 24 B3 B1 22 32 22 AF 41  24 B3 B1 22 33 22 AF 41  |$.."2".A$.."3".A|
00000210: 24 B3 B1 22 34 22 A7 20  31 30 00 3A 0A 0B 00 53  |$.."4". 10.:...S|
00000220: B2 C5 28 41 24 29 3A 91  20 53 20 89 20 31 39 2C  |..(A$):. S . 19,|
00000230: 31 32 2C 31 30 30 30 2C  32 35 00 6C 0A 0C 00 99  |12,1000,25.l....|
00000240: 22 11 11 9E 20 20 20 44  52 55 45 43 4B 45 20 44  |"...   DRUECKE D|
00000250: 41 53 20 47 45 57 55 45  4E 53 43 48 54 45 20 5A  |AS GEWUENSCHTE Z|
00000260: 45 49 43 48 45 4E 20 21  22 3A 8D 31 00 7F 0A 0D  |EICHEN !":.1....|
00000270: 00 A1 20 41 24 3A 8B 41  24 B2 22 22 A7 31 33 00  |.. A$:.A$."".13.|
00000280: A4 0A 0E 00 81 49 B2 31  A4 33 32 3A 8B 41 24 B2  |.....I.1.32:.A$.|
00000290: CA 28 5A 31 24 2C 49 2C  31 29 A7 41 B2 49 AB 31  |.(Z1$,I,1).A.I.1|
000002A0: 3A 89 31 39 00 C2 0A 0F  00 8B 41 24 B2 CA 28 5A  |:.19......A$..(Z|
000002B0: 32 24 2C 49 2C 31 29 A7  41 B2 49 AA 33 31 3A 89  |2$,I,1).A.I.31:.|
000002C0: 31 39 00 E0 0A 10 00 8B  41 24 B2 CA 28 5A 33 24  |19......A$..(Z3$|
000002D0: 2C 49 2C 31 29 A7 41 B2  49 AA 36 33 3A 89 31 39  |,I,1).A.I.63:.19|
000002E0: 00 FE 0A 11 00 8B 41 24  B2 CA 28 5A 34 24 2C 49  |......A$..(Z4$,I|
000002F0: 2C 31 29 A7 41 B2 49 AA  39 35 3A 89 31 39 00 31  |,1).A.I.95:.19.1|
00000300: 0B 12 00 82 49 3A 99 22  93 05 55 4E 45 52 4C 41  |....I:."..UNERLA|
00000310: 55 42 54 45 20 45 49 4E  47 41 42 45 20 21 20 57  |UBTE EINGABE ! W|
00000320: 41 45 48 4C 45 20 4E 4F  43 48 4D 41 4C 53 22 3A  |AEHLE NOCHMALS":|
00000330: 80 00 71 0B 13 00 99 22  93 1F 52 45 4D 9F 45 52  |..q...."..REM.ER|
00000340: 53 54 45 4C 4C 45 20 5A  45 49 43 48 45 4E 20 20  |STELLE ZEICHEN  |
00000350: 20 2C 20 50 4F 4B 45 20  43 4F 44 45 05 22 3B 41  | , POKE CODE.";A|
00000360: 3A 97 31 30 34 34 2C 41  3A 97 35 35 33 31 36 2C  |:.1044,A:.55316,|
00000370: 31 00 B3 0B 14 00 99 22  20 20 20 46 55 45 47 45  |1......"   FUEGE|
00000380: 20 27 42 27 20 45 49 4E  22 3A 99 22 11 12 05 20  | 'B' EIN":."... |
00000390: 92 22 3A 99 22 1F 20 20  20 22 3B 42 3B 22 20 44  |.":.".   ";B;" D|
000003A0: 45 53 49 47 4E 20 32 2C  24 45 30 30 30 2B 38 2A  |ESIGN 2,$E000+8*|
000003B0: 22 3B 41 00 F2 0B 15 00  81 49 B2 31 30 A4 38 30  |";A......I.10.80|
000003C0: A9 31 30 3A 99 22 20 20  20 20 20 20 20 22 3B 42  |.10:."       ";B|
000003D0: AA 49 3B 22 20 40 05 2E  2E 2E 2E 2E 2E 2E 2E 1F  |.I;" @..........|
000003E0: 22 3A 82 49 3A 99 22 20  42 20 3D 22 3B 42 AA 39  |":.I:." B =";B.9|
000003F0: 30 3B 00 39 0C 16 00 99  22 3A 41 20 3D 22 41 AA  |0;.9....":A ="A.|
00000400: 31 22 3A 47 4F 54 4F 35  22 3A 99 22 11 11 1D 1D  |1":GOTO5":."....|
00000410: 1D 1D 1D 1D 9F 4E 41 43  48 20 20 46 45 52 54 49  |.....NACH  FERTI|
00000420: 47 53 54 45 4C 4C 55 4E  47 20 53 54 45 4C 4C 45  |GSTELLUNG STELLE|
00000430: 22 A6 31 33 29 22 43 22  3B 00 83 0C 17 00 99 22  |".13)"C";......"|
00000440: 55 52 53 4F 52 20 41 55  46 20 57 45 49 53 53 45  |URSOR AUF WEISSE|
00000450: 53 20 46 45 4C 44 20 55  4E 44 22 3A 99 22 1F 52  |S FELD UND":.".R|
00000460: 45 4D 20 20 20 9F 48 41  4C 54 45 20 52 45 54 55  |EM   .HALTE RETU|
00000470: 52 4E 54 41 53 54 45 20  47 45 44 52 55 45 43 4B  |RNTASTE GEDRUECK|
00000480: 54 1F 22 00 C0 0C 18 00  99 22 11 11 20 50 52 49  |T."......".. PRI|
00000490: 4E 54 20 43 48 52 24 28  31 39 29 22 3A 99 22 11  |NT CHR$(19)":.".|
000004A0: 11 20 50 52 49 4E 54 20  43 48 52 24 28 31 39 29  |. PRINT CHR$(19)|
000004B0: 91 91 91 91 91 91 91 91  91 91 91 91 05 22 3A 80  |.............":.|
000004C0: 00 EC 0C 19 00 99 22 93  11 11 11 1F 22 3B 3A 81  |......".....";:.|
000004D0: 49 B2 30 A4 31 36 3A 99  22 20 22 3B 49 3A 82 49  |I.0.16:." ";I:.I|
000004E0: 3A 99 22 20 20 47 4F 54  4F 32 37 22 00 1A 0D 1A  |:."  GOTO27"....|
000004F0: 00 99 22 9E 20 20 20 48  41 4C 54 45 20 27 52 45  |..".   HALTE 'RE|
00000500: 54 55 52 4E 27 2D 54 41  53 54 45 20 47 45 44 52  |TURN'-TASTE GEDR|
00000510: 55 45 43 4B 54 1F 13 22  3A 80 00 56 0D 1B 00 99  |UECKT..":..V....|
00000520: 22 93 12 9F 54 92 41 50  45 20 4F 44 45 52 20 12  |"...T.APE ODER .|
00000530: 44 92 49 53 43 20 3F 22  3A 42 24 B2 22 22 3A A1  |D.ISC ?":B$."":.|
00000540: 41 24 3A 8B 41 24 B3 B1  22 44 22 AF 41 24 B3 B1  |A$:.A$.."D".A$..|
00000550: 22 54 22 A7 32 37 00 75  0D 1C 00 8B 41 24 B2 22  |"T".27.u....A$."|
00000560: 44 22 A7 42 24 B2 22 2C  38 22 3A 99 22 9A 22 3A  |D".B$.",8":.".":|
00000570: 64 4A 22 24 22 00 A5 0D  1D 00 99 3A 85 22 11 11  |dJ"$"......:."..|
00000580: 9F 46 49 4C 45 20 4E 41  4D 45 20 9E 22 3B 43 24  |.FILE NAME .";C$|
00000590: 3A 8B 43 24 B2 22 22 A7  43 24 B2 22 43 48 41 52  |:.C$."".C$."CHAR|
000005A0: 2E 53 45 54 22 00 C6 0D  1E 00 99 22 93 11 11 11  |.SET"......"....|
000005B0: 1F 22 3B 3A 81 49 B2 31  37 A4 33 33 3A 99 22 20  |.";:.I.17.33:." |
000005C0: 22 3B 49 3A 82 49 00 01  0E 1F 00 99 22 1F 53 41  |";I:.I......".SA|
000005D0: 56 45 22 3B C7 28 33 34  29 3B 22 40 30 3A 22 3B  |VE";.(34);"@0:";|
000005E0: 43 24 3B C7 28 33 34 29  3B 42 24 3B 22 3A 50 52  |C$;.(34);B$;":PR|
000005F0: 49 4E 54 43 48 52 24 28  31 35 39 29 3A 4E 45 57  |INTCHR$(159):NEW|
00000600: 22 00 2F 0E 20 00 99 22  9E 20 20 20 48 41 4C 54  |"./. ..".   HALT|
00000610: 45 20 27 52 45 54 55 52  4E 27 2D 54 41 53 54 45  |E 'RETURN'-TASTE|
00000620: 20 47 45 44 52 55 45 43  4B 54 1F 13 22 3A 80 00  | GEDRUECKT..":..|
00000630: 36 0E E8 03 64 7A 00 00  00 FF                    |6...dz....      |

......A.1:B.1010:.650,128:.5.G...Z1$."@A
BCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_".Z...Z2$.
" !".G(34)."#$%&'()*+,-./0123456789:;<=>
?".....Z3$.".ABCDEFGHIJKLMNOPQRSTUVWXYZ.
....".R...Z4$." ........................
.......":.......53281,6:.G(142);"..S  I 
 M  O  N  '  S   -    B  A  S  I  C";.W.
...I.1.40:.".";:.I:.".Z E I C H E N S A 
T Z  G E N E R A T O R"......"....WAEHLE
  :  .1.  ZEICHENSATZ ERSTELLEN":.".";.1
1);.N...."2.  BESTIMMTES ZEICHEN":.".";.
11);"3.  DURCHFUEHREN"......".";.11);"4.
  SPEICHERN"...... A$:.A$.."1".A$.."2".A
$.."3".A$.."4". 10.:...S.E(A$):. S . 19,
12,1000,25.L...."...   DRUECKE DAS GEWUE
NSCHTE ZEICHEN !":.1..... A$:.A$."".13.
.....I.1.32:.A$.J(Z1$,I,1).A.I.1:.19.B..
..A$.J(Z2$,I,1).A.I.31:.19......A$.J(Z3$
,I,1).A.I.63:.19......A$.J(Z4$,I,1).A.I.
95:.19.1....I:."..UNERLAUBTE EINGABE ! W
AEHLE NOCHMALS":..Q...."..REM.ERSTELLE Z
EICHEN   , POKE CODE.";A:.1044,A:.55316,
1......"   FUEGE 'B' EIN":."... .":.".  
 ";B;" DESIGN 2,$E000+8*";A......I.10.80
.10:."       ";B.I;" @..........":.I:." 
B =";B.90;.9....":A ="A.1":GOTO5":."....
.....NACH  FERTIGSTELLUNG STELLE".13)"C"
;......"URSOR AUF WEISSES FELD UND":.".R
EM   .HALTE RETURNTASTE GEDRUECKT.".....
.".. PRINT CHR$(19)":.".. PRINT CHR$(19)
.............":.......".....";:.I.0.16:.
" ";I:.I:."  GOTO27"......".   HALTE 'RE
TURN'-TASTE GEDRUECKT..":..V...."...T.AP
E ODER .D.ISC ?":B$."":.A$:.A$.."D".A$..
"T".27.U....A$."D".B$.",8":.".":DJ"$"...
...:."...FILE NAME .";C$:.C$."".C$."CHAR
.SET".F....".....";:.I.17.33:." ";I:.I..
....".SAVE";G(34);"@0:";C$;G(34);B$;":PR
INTCHR$(159):NEW"./. ..".   HALTE 'RETUR
N'-TASTE GEDRUECKT..":..6...DZ....

Visualization:

Width: Skip load address (+2) Invert

> CLICK IMAGE PREVIEW FOR FULL MODAL