home *** CD-ROM | disk | FTP | other *** search
/ The Glitch Apple Disk Collection / 2014.glitch.apple.collection.zip / indexed / THEXDER1.DSK / GO2.bas < prev    next >
BASIC Source File  |  2014-09-09  |  430b  |  14 lines
  1. 5  GOSUB 130
  2. 10 D$ =  CHR$(4)
  3. 13  PRINT D$"BLOAD CHARS,A$1000,L$8000"
  4. 18 D$ =  CHR$(4): PRINT D$"BLOAD AMOVE,A$300"
  5. 19  CALL 768
  6. 20  PRINT D$"BLOAD JOYSTICK,A$300"
  7. 30  PRINT D$"bload THEX,a$1000"
  8. 40  PRINT D$;"BLOAD FONT,A$3A00"
  9. 43  PRINT D$;"bload level.1.coco.ra,a$4000,l$5600"
  10. 50  CALL 4096
  11. 130  POKE 49153,0: POKE 49165,0: POKE 49246,0: POKE 49236,0
  12. 140  POKE 49232,0: POKE 49239,0: POKE 49234,0
  13. 145  POKE 49236,0
  14. 150  RETURN