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