home *** CD-ROM | disk | FTP | other *** search
/ Commodore Disk User Volume 1 #4 / Commodore_Disk_User_Vol.1_4_1988_-.d64 / compactor (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  820b  |  21 lines
  1. 10 rem********************************
  2. 20 rem*  test program to illustrate  *
  3. 30 rem*  compactor's capabilities    *
  4. 40 rem********************************
  5. 50 rem
  6. 55 print "[147][158]";:print "       basic compactor":print
  7. 60 print       "compactor removes all unnecessary spaces - those not in quotes"
  8. 70 print : print "it also takes out all rems including";
  9. 80 print " those at the end of lines.":rem just like this one
  10. 90 print:print"it removes all code that will never be used by the program...":goto 200
  11. 100 print "like this line"
  12. 200 print:print "...and it can combine many lines";
  13. 210 print " into one,";
  14. 220 print " saving space used on line numbers etc."
  15. 230 print:print "you don't need this demo to load the program."
  16. 240 print:print"it can be done by typing load 'comp.mc',8,1 followed by";
  17. 250 print " sys 49152[158]"
  18. 260 print:print "loading compactor..."
  19. 300 if a=0 then a=1:load "comp.mc",8,1
  20. 310 sys 49152
  21.