home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / commodore-scene-files / Coverdisks / CDU / V1D4.D64 / compactor (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  820 b   |  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.