home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er Special 18
/
64er_Magazin_Sonderheft_18_19xx_Markt__Technik_de_Side_B.d64
/
umlaut.gen
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
1KB
|
56 lines
10 printchr$(14):poke657,212:rem kleinschrift
15 poke53281,0:poke53280,11:poke646,7
50 print"[147][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]";
53 print"[221] [214] [201] [218] [193] - [213] [205] [204] [193] [213] [212] - [199] [197] [206] [146][158][221]";
55 print"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]"
56 print" (w) 1987 by [204]udger [211]piekermann"
60 :
61 rem
100 :
110 :
111 rem einlesen der umlaute
112 data"klein oe","gross [207][197]","klein ae","gross [193][197]","klein ue","gross [213][197]"
114 data"sz "
120 :
121 rem eingabe der ascii-codes
122 print"";
123 restore
124 fora=1to7
125 read c$
126 print"[195]ode fuer ";c$;" : ";
127 poke19,1:input u(a):poke19,0:print
128 nexta
130 :
131 rem einlesen der datazeilen
133 fora=23996to24046:rem 5dbc to 5dea
134 readb
135 pokea,b
136 nexta
140 :
141 rem einsetzen der neuen werte
143 forz=1to7
144 poke23996+z*5,u(z)
145 nextz
150 :
151 rem bild und frage
153 print"[194]itte [196]isk einlegen ![146]"
155 poke198,0
157 wait198,1
160 :
161 rem absaven
162 n$="viza-umlaute":rem file-name
163 sys(57812)n$,8
165 poke193,188:poke194,93:rem start
166 poke174,238:poke175,93:rem ende
168 sys62957
180 :
181 rem datas maschinencode
190 data 83,255,0,0,169,188,141
191 data 176,117,169,220,141,177
192 data 117,169,187,141,178
200 data 117,169,219,141,179
201 data 117,169,189,141,180
202 data 117,169,221,141,181,117,169
300 data 190,141,182,117,32,82,35
301 data 162,3,32,73,8,76,58,8,0