home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1993 December / 1993-12.d64 / chain.boot (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  590b  |  23 lines
  1. 5 rem copyright 1993 - compute publications intl ltd - all rights reserved
  2. 10 b=b+1
  3. 20 ifb=1thenfort=0to7:poke32768+t,0
  4. 30 ifb=1thenload"chain.chars",8,1
  5. 40 ifb=2thenload"chain.ml",8,1
  6. 50 poke53281,0:poke53280,15:print"[144][147]";
  7. 60 poke52,128:poke56,128:clr
  8. 70 poke56576,(peek(56576) and 252) or 1
  9. 80 poke53272,32
  10. 90 poke648,136
  11. 100 poke56334,peek(56334) and 254
  12. 110 poke1,peek(1) and 251
  13. 120 fort=8to512:poke32768+t,peek(53248+t):nextt
  14. 130 poke1,peek(1) or 4
  15. 140 poke56334,peek(56334) or 1
  16. 150 poke53270,peek(53270)or 16
  17. 160 print"[147]loading [159]chain reaction"
  18. 170 a$=chr$(34):print"[144]new"
  19. 180 a$=chr$(34):print"load";a$;"chain.bas";a$;",8"
  20. 190 print"run[145][145][145][145][145][145][145]";:poke198,0
  21. 200 fort=631to633:poket,13:nextt
  22. 210 poke198,3
  23.