home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er Special 4
/
64er_Magazin_Sonderheft_04_86-04_1986_Markt__Technik_de_Disk_1_of_2_Side_A.d64
/
zeichens.-editor
(
.txt
)
< prev
Wrap
Commodore BASIC
|
2022-10-26
|
4KB
|
144 lines
0 rem *****************************
1 rem zeichensatz-editor (c) 1985
2 rem *****************************
3 ifi=1then100
4 video=52223:rem start bildschirm
5 poke53280,0:poke53281,0:print"[158]"
10 rem modifizierte peek-funktion ------
11 fori=704to751:readx:pokei,x:next:poke785,192:poke786,2:rem usr-vektor
12 data165,20,72,165,21,72,32,247,183,165,1,72,165,21,201,208,144,7,201,224
13 data176,3,169,49,44,169,52,120,133,1,160,0,177,20,168,104,133,1,88,104,133
14 data21,104,133,20,76,162,179
30 rem menue ---------------------------
31 print"[147]zeichensatz-editor i[146]"
32 print"von michael nickles.
34 [153]" nwaiteuen zeichensatz erstellen"
35 [153]" awaitlten zeichensatz aendern "
36 [153]" dwaiteutschen zeichensatz generieren "
37 [161]i$:[139]i$[179][177]"n"[175]i$[179][177]"a"[175]i$[179][177]"d"[167]37
38 [139]i$[178]"n"[167]50
39 [139]i$[178]"d"[167]50
40 [143] deutschen zeichensatz laden -----
41 [133]"filename ";i$
42 [139]i[179][177]1[167]i[178]1:[147]i$,8,1
44 [151]648,204:[151]53272,56:[151]56576,0:[153]"load"
50 [143] z.s. vom rom ins ram ab 57344 ---
51 [153]"bitte warten!"
53 [151]56334,[194](56334)[175]254:[151]1,[194](1)[175]251: [143] interrupt aus
55 iz[178]57344
60 [129]i[178]53248[164]57344
62 :[151]iz,[194](i)
64 :iz[178]iz[170]1
66 [130]i
70 [151]1,[194](1)[176]4:[151]56334,[194](56334)[176]1
80 [139]i$[178]"d"[167]3000
100 [143] start --------------------------
105 [151]648,204:[151]53272,56:[151]56576,0:[153]"load";
106 [153]"bitte waehlen sie:
110 print" gross-grafik z.satz 1[146]"
115 print" gross-klein z.satz 2[146]"
116 print" z.satz abspeichern 3[146]
118 [153]" crazy characters 4wait
120 geti$:ifi$<>"1"andi$<>"2"andi$<>"3"andi$<>"4"then120
122 ifi$="1"then an=57344 :printchr$(142)
124 ifi$="2"then an=57344+256*8:printchr$(14)
125 ifi$="3"then 1000
127 ifi$="4"then 2000
130 print"welches zeichen wollen sie aendern?"
131 print"angabe bitte im bildschirmcode!
132 [133]"zeichen ";nr:z[178]nr
200 [143] maske ausgeben -----------------
201 video[178]52223
205 [153]"loadzeichen: ":[151]vi[170]10,z
210 z[178]an[170]z[172]8
229 [153]" ";
230 [129]i1[178]z[164]z[170]7
235 [153]i1;" ";
240 :b[178][183](i1)
245 : [129]i2[178]7[164]0[169][171]1
250 : [139] b[175]2[174]i2 [167][153]"*";:[137]260
255 : [153]".";
260 : [130]i2
270 :[153]" "b:[153]" ";
275 [130]i1
300 [143] editor-programm ----------------
310 xx[178]vi[170]135:xp[178][194](xx):[151]xx,32
330 joy[178]56320:[143] port 2
331 ta[178]203:t1[178]653
335 [139][194](joy)[178]127[175][194](ta)[178]64[167]w[178]0
340 [139][194](joy)[178]126[176][194](ta)[178]7[175][194](t1)[178]1[167]w[178][171]40
342 [139][194](joy)[178]125[176][194](ta)[178]7[175][194](t1)[178]0[167]w[178][170]40
344 [139][194](joy)[178]123[176][194](ta)[178]2[175][194](t1)[178]1[167]w[178][171]1
346 [139][194](joy)[178]119[176][194](ta)[178]2[175][194](t1)[178]0[167]w[178][170]1
350 [139][194](joy)[177]111[175][194](ta)[179][177]60[167]360
352 [139]xp[178]46[167]xp[178]42:[137]355
354 [139]xp[178]42[167]xp[178]46:[137]355
355 [151]xx,xp:[139][194](joy)[179][178]111[176][194](ta)[178]60[167]355
360 :[139][194](ta)[178]1[167][151]xx,xp:[137]400
370 [151]xx,xp
375 xx[178]xx[170]w:[139][194](xx)[178]32[167]xx[178]xx[171]w
380 xp[178][194](xx):[151]xx,32
390 [137]330
400 [143] neues zeichen berechnen
405 [153]"bitte warten!"
410 xx[178]vi[170]135
430 [129] i1[178]xx [164] xx[170]7[172]40[169]40
435 :im[178]0:iz[178]7
445 : [129] i2[178]i1 [164] i1[170]7
450 : [139]rv[178]0[167][139][194](i2)[178]42[167]im[178]im[170]2[174]iz
451 : [139]rv[178]1[167][139][194](i2)[178]46[167]im[178]im[170]2[174]iz
455 : iz[178]iz[171]1
460 : [130]i2
470 :[151]z,im:z[178]z[170]1
475 [130]i1
476 [139]rv[178]1[167]rv[178]0:[137]100
479 [139]nr[177]127[167]100
480 [153]"revers-aenderung erwuenscht? (j/n)
482 geti$:ifi$<>"j"andi$<>"n"then482
484 ifi$="n"then100
485 z=an+(nr+128)*8:rv=1:goto400
490 goto100
1000 rem z.satz abspeichern ------------
1000 rem speichern auf disk -----------
1005 print"[147]zeichensatz auf disk speichern[146]":poke198,0
1006 input"filename";i$
1010 print"bitte diskette einlegen!
1020 [153]"[return]":[151]198,0:[146]198,1
1030 aa[178]57344
1040 ea[178]61439
1050 [159]1,8,1,i$
1060 hb[178][181](aa[173]256):lb[178]aa[171]hb[172]256
1070 [152]1,[199](lb);[199](hb);
1080 [129]i[178]aa[164]ea
1090 :[152]1,[199]([183](i));
1100 [130]i
1110 [160]1
1120 [153]"*** fertig ***":[138]
2000 [143] crazy characters --------------
2010 [129]i[178]57344[164]61439
2020 :x[178][183](i):m[178]0
2030 : [129] i1[178]0 [164] 7
2040 : [139] x[175]2[174]i1 [167] m[178]m[170]2[174](7[171]i1)
2050 : [130]i1
2060 :[151]i,m
2070 :[130]i
2080 [137]100
3000 [143] deutschen zeichensatz automatisch generieren --------------------------
3010 [131]60264,102,24,60,102,126,102,102,0 :[143] grosses ae
3015 [131]60336,102,60,102,102,102,102,60,0 :[143] grosses oe
3020 [131]60328,102,0,102,102,102,102,60,0 :[143] grosses ue
3025 [131]60288,102,0,60,6,62,102,62,0 :[143] kleines ae
3030 [131]60360,0,102,0,60,102,102,60,0 :[143] kleines oe
3035 [131]60352,0,102,0,102,102,102,62,0 :[143] kleines ue
3040 [131]60272,60,102,102,108,110,102,108,96:[143] scharfes s
3045 [131]59392,102,102,102,0,0,0,0,0 :[143] anfuehrungszeichen
3050 [131]59640,0,0,0,0,0,24,24,48 :[143] komma
3055 [131]59632,0,0,24,0,0,24,0,0 :[143] doppelpunkt
3060 [131]-1
3100 [135]x:[139]x[178][171]1[167]100
3110 [129]i[178]x[164]x[170]7
3120 : [135]a:[151]i,a :[143] normal
3130 : [151]i[170]2048,a:[143] revers
3140 [130]i
3150 [137]3100