home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1990 April / 1990-04.d64 / splitsrc.p1 (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  516b  |  12 lines
  1. 0 rem
  2. 10 ' copyright 1990 compute! publications, inc. - all rights reserved
  3. 20 'split source part one
  4. 30 poke45,0:poke46,135:clr:'reserve space
  5. 40 (NULL) $a000,$bfff:(NULL)usr 1,0:(NULL) "split,p,w":(NULL)rnd $c000:(NULL) 1:(NULL)set (NULL)cmd #0
  6. 50 (NULL)^ $d021:(NULL)save:(NULL)^ $d020:(NULL)cmd #3:(NULL)nextnum (NULL)clr (NULL)end,x:(NULL)/ $22,x:(NULL)save
  7. 60 (NULL)let (NULL)nextnum:(NULL)sys #0:(NULL)wait (NULL)cmd #1:(NULL)wait1 (NULL)on 653:(NULL)read (NULL)wait1
  8. 70 (NULL)print (NULL)clr ($22),y:(NULL)input# (NULL)jump:(NULL)list $ffd2:(NULL)print:(NULL)read (NULL)pr1:(NULL)poke $23
  9. 80 (NULL)pr1 (NULL)stop#" ":(NULL)read (NULL)print:(NULL)wait2 (NULL)cmd 653:(NULL)read (NULL)wait2:(NULL)input# (NULL)wait
  10. 90 (NULL)jump (NULL)cont ($24):(NULL)end (NULL) 2
  11. 100 load"splitsrc.p2",8:'load and run next part
  12.