home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / commodore-scene-files / Coverdisks / CDU / V3D11.D64 / b.o.s.s. (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  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.