home *** CD-ROM | disk | FTP | other *** search
/ TCE Demo 2 / TCE_DEMO_CD2.iso / demo_cd_.2 / mags / stosser / stoser01.arj / stoser01.msa / STOS_ACB / DEREM.ACB (.txt) < prev    next >
Atari STOS Basic  |  1987-04-22  |  2KB  |  46 lines
  1. 100 REM ~~~~~~~~~~~~~~~~~~~~ REM Remover ~~~~~~~~~~~~~~~~~~~~
  2. 110 CLW
  3. 120 LOCATE
  4. 130 GOSUB
  5. 140 GOSUB
  6. 150 CURS
  7. 160 LOCATE
  8. 170 LOCATE
  9. 180 GOSUB
  10. 190 LOCATE
  11. 200 LOCATE
  12. 210 CURS
  13. 220 END
  14. 230 REM ~~~~~~~~~~~~~~~~~~~~ DE-REM Routine ~~~~~~~~~~~~~~~~~~~~
  15. 240 OPEN IN
  16. 250 REPEAT
  17. 260 IF
  18. 270 LINE INPUT
  19. 280 VARNAME
  20. 290 VARNAME
  21. 300 IF
  22. 310 REPEAT
  23. 320 VARNAME
  24. 330 IF
  25. 340 IF
  26. 350 UNTIL
  27. 360 IF
  28. 370 IF
  29. 380 UNTIL
  30. 390 VARNAME
  31. 400 CLOSE
  32. 410 RETURN
  33. 420 REM ~~~~~~~~~~~~~~~~~~~~ Select Source program ~~~~~~~~~~~~~~~~~~~~
  34. 430 VARNAME
  35. 440 IF
  36. 450 VARNAME
  37. 460 IF
  38. 470 OPEN IN
  39. 480 RETURN
  40. 490 REM ~~~~~~~~~~~~~~~~~~~~ Select Destination program ~~~~~~~~~~~~~~~~~~~~
  41. 500 VARNAME
  42. 510 IF
  43. 520 VARNAME
  44. 530 IF
  45. 540 RETURN
  46.