home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Commodore Disc 30
/
Commodore_Disc_30_19xx_-_de.d64
/
lader.basic
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
780b
|
36 lines
0 if a=1 then goto 150
1 poke53280,15:poke53281,15:print"";
5 poke 56,128:clr:rem speichergrenze!
6 a=1
10 poke 56578,peek(56578)or3:rem ausgabe
20 def fn vb (x)=((peek(56576)and 252)or(3-x)):rem videobank nr x
30 def fn bs (x)=(peek(53272) and 15)or(16*x):rem bildschirm x
40 def fn cr (x)=(peek(53272)and 240)or(2*x):rem chracter-ram
50 input"name";g$
60 if g$="" then end
70 :
100 poke 56576, fn vb(2): rem v-bank 2
110 poke 53272, fn bs(1): rem bildsch 1
120 poke 53272, fn cr(1): rem ch-ram 1
130 load g$,8,1
140 :
150 poke 648,132:rem betr-system video
160 :
170 for i=0 to 4
180 poke 53280+i,peek(33780+i)
190 next
191 :
195 poke 53270,peek(33786)
196 poke 53265,peek(33787)
199 :
200 for i=0 to 499
210 poke 55296+2*i,peek(33280+i)/16
220 poke 55296+2*i+1,peek(33280+i)
230 next
235 :
240 wait 198,15
250 poke 56576, fn vb(0)
260 poke 53272, fn bs(1): rem alter
270 poke 53272, fn cr(2): rem bildschirm
280 poke 648,4