home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er Special 34
/
64er_Magazin_Sonderheft_34_19xx_Markt__Technik_de_Disk_2_of_2_Side_A.d64
/
cat
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
393b
|
16 lines
100 a=a+1:if a=1 then load"cat.assrech",8,1
110 if a=2 then load"cat.kopf",8,1
120 if a=3 then load"cat.korpus",8,1
130 if a=4 then load"cat.spr1",8,1
140 if a=5 then load"cat.dir",8,1
160 poke53280,0:poke53281,0:poke646,0
170 printchr$(147):print:print
180 print"load"chr$(34)"cat.schwaenze"chr$(34)",8,1"
185 print:print:print:print:print"poke44,9:poke9*256,0:new"
190 print:print:print"load"chr$(34)"cat.main"chr$(34)",8"
200 print:print:print:print:print"run"
210 printchr$(19);
220 forx=1to5:poke630+x,13:next
230 poke198,x
240 new