home *** CD-ROM | disk | FTP | other *** search
/ No Fragments Archive 10: Diskmags / nf_archive_10.iso / MAGS / STOSSER / STOSSE13.MSA / COMPRESS / SQSH_100.BAS (.txt) next >
Encoding:
Atari STOS Basic  |  1987-04-22  |  1.5 KB  |  33 lines
  1. 1 REM *************************************
  2. 10 MODE
  3. 100 VARNAME
  4. 105 PRINT
  5. 110 BSAVE
  6. 115 NEXT
  7. 120 PRINT
  8. 15 DIM
  9. 2 REM *                                   *
  10. 20 ERASE
  11. 25 CHANGE MOUSE
  12. 3 REM * Program to squash 100 MBK screens *
  13. 30 FOR
  14. 35 VARNAME
  15. 4 REM *                                   *
  16. 40 VARNAME
  17. 45 IF
  18. 5 REM * Squasher extension located at EXE *
  19. 50 IF
  20. 55 NEXT
  21. 6 REM *                                   *
  22. 60 HIDE
  23. 65 OPEN IN
  24. 7 REM *      By  SCOTT KING   3-1-94      *
  25. 70 LOAD
  26. 75 PRINT
  27. 8 REM *                                   *
  28. 80 TIME$
  29. 85 VARNAME
  30. 9 REM *************************************
  31. 90 PRINT
  32. 95 PRINT
  33.