home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er
/
64ER_CD.iso
/
sh1x
/
sh18b.d64
/
umlaut.gen
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
1995-03-30
|
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