home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 70 / 070.d81 / corsair (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  766b  |  18 lines
  1. 100 ifi=.thenpoke52,90:poke56,90:clr:gosub180:i=1:load"c.ml1",8,1
  2. 110 ifi=1theni=2:load"c.ml2",8,1
  3. 120 ifi=2theni=3:load"c.pix",8,1
  4. 130 sys33792,57344,23552:i=peek(249)+256*peek(250)+6:sys33792,i,24576
  5. 140 i=peek(249)+256*peek(250)+6:sys33792,i,32768:sys34035:poke24568,109
  6. 150 fori=24569to24573:pokei,111:next
  7. 160 print"[144]load"chr$(34)"c.main"chr$(34)",8":print"run[145][145][145][145][145][145][145][145]"
  8. 170 poke631,13:poke632,13:poke633,13:poke198,3:new
  9. 180 poke53280,0:poke53281,0
  10. 190 printchr$(14)"[147]  [155][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184]"
  11. 200 fori=1to7:print"  [152]                                    ":next
  12. 210 print"  [151][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185]";
  13. 220 printtab(13)"[152][195] [207] [210][160][211] [193] [201] [210]":printtab(12)"[194]y  [202]on [205]attson"
  14. 230 printtab(7)"[208]ublished on  [204][207][193][196][211][212][193][210] #70"
  15. 240 printtab(6)"[211]ubscriptions 1-800-831-2694"
  16. 250 printtab(6)"[195]opyright 1990 [211]oftdisk, [201]nc."
  17. 260 printtab(15)"[154][204]oading...":return
  18.