home *** CD-ROM | disk | FTP | other *** search
/ Commodore Disk User Volume 3 #11 / Commodore_Disk_User_Vol.3_11_1990_-.d64 / b.o.s.s. (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1990-01-01  |  454 b   |  25 lines
  1. 3 poke53280,14:poke646,14:poke53281,6
  2. 5 if a=0thena=1:load"the boss",8,1
  3. 6 if a=1thena=2:load"map1",8,1
  4. 7 sys49152
  5. 8 clr
  6. 10 'cls
  7. 20 'border 10
  8. 30 'back 2
  9. 40 'ink 1
  10. 50 'at 1,5:print"the boss demo......"
  11. 60 'pointer on
  12. 70 'at 12,10:print"this may be moved"
  13. 80 'at 17,10:print"with a joystick port 2"
  14. 90 'pos 158,158
  15. 100 'clkon
  16. 110 ti$="123000"
  17. 120 'at 23,0:print"press a key for the piccy bit...."
  18. 130 geta$:ifa$=""then130
  19. 140 'hires
  20. 150 l=1
  21. 160 'fill l
  22. 170 geta$:ifa$=""then170
  23. 180 'lores
  24. 190 end
  25.