home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1990 April / 1990-04.d64 / splitsrc.p2 (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  723b  |  16 lines
  1. 0 rem
  2. 10 ' copyright 1990 compute! publications, inc. - all rights reserved
  3. 20 'split source part two
  4. 30 (NULL)rnd peek($fb)+256*peek($fc):'bas before write. bas point to the last byte
  5. 40 (NULL) "split,p,a":'append to original object code
  6. 50 (NULL) 1:(NULL)fre (NULL)text,(NULL)colors
  7. 60 (NULL)colors (NULL)list (NULL)prmsg:(NULL)*:(NULL)loop fori=0to16:(NULL)clr #i:(NULL)/ $d020:next
  8. 70 'repetitive instructions made easy with for-next looping
  9. 80 fori=1to33:(NULL)close:next:(NULL)cont (NULL)leap:(NULL)leap (NULL)clr $dc01:(NULL)stop #239:(NULL)read (NULL)loop:(NULL)return:(NULL)not
  10. 90 (NULL)prmsg (NULL)cmd #0:(NULL)lp1 (NULL)clr (NULL)msg,x:(NULL)input# (NULL)ret:(NULL)list $ffd2:(NULL)print#:(NULL)read (NULL)lp1:(NULL)ret (NULL)not
  11. 100 (NULL)msg (NULL)abs 13,"[158]press space",13,0
  12. 110 (NULL)text (NULL)abs 13,13,"[154]this is an example of a program made of two parts. "
  13. 120 (NULL)abs "you can do this with programs that won't fit in memory in one part."
  14. 130 (NULL)abs 13," .....ok? ",0
  15. 140 (NULL) 2
  16.