home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1992 November / 1992-11.d64 / prg1 (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1992-01-01  |  517 b   |  19 lines
  1. 10 rem copyright 1992
  2. 15 rem compute publications intl ltd
  3. 20 rem all rights reserved
  4. 25 x=x+1:ifx=1thenload"program2",8,1
  5. 30 ifx=2thenload"bamov",8,1
  6. 35 print"[147]":poke53280,0:poke53281,0
  7. 40 print"[154]this is program one of the bamov demo."
  8. 45 print"program two is under basic's rom."
  9. 50 print"it will clear the screen and"
  10. 55 print"change the screen and border colors"
  11. 60 print"while displaying a message."
  12. 65 fort=1to5000:nextt
  13. 70 gosub50000
  14. 75 poke53280,0:poke53281,0:print"[147][154]back at program one now!"
  15. 80 end
  16. 50000 gosub50005
  17. 50001 sys53090:return
  18. 50005 sys53090:goto10
  19.