home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tiger Disk 56
/
Tiger_Disk_056_19xx_Tiger-Crew-Disk_de_Side_B.d64
/
apfel-konverter
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2023-02-26
|
636b
|
26 lines
100 poke 52,63:poke 56,63:poke 157,128
110 :
120 input"[147] name (ohne 'ap.')";na$
130 sys 57812"ap."+na$,8
140 poke 780,0:poke 781,221:poke 782,63
150 sys 65493
160 en=peek(174)+256*peek(175)-2
170 c1=peek(16380):c2=peek(16381)
180 :
190 for i=0 to 2
200 : poke en+3*i,194:poke en+3*i+1,255:poke en+3*i+2,c1
203 : poke en+3*i+12,194:poke en+3*i+13,255:poke en+3*i+14,c2
206 next i
207 :
208 poke en+9,194:poke en+10,235:poke en+11,c1
211 poke en+21,194:poke en+22,235:poke en+23,c2
214 poke en+24,peek(16382)
215 poke en+25,194:poke en+26,255:poke en+27,0:poke en+28,0
216 poke en+29,194:poke en+30,0
217 :
218 sys 57812"[b]"+na$,8
219 hi=int((en+31)/256):lo=(en+31)-256*hi
220 poke 780,251:poke 7)1,lo:poke 782,hi
230 poke 251,0:poke 252,64
240 sys 65496