home *** CD-ROM | disk | FTP | other *** search
/ No Fragments Archive 10: Diskmags / nf_archive_10.iso / MAGS / ST_USER / 1990 / USERJA90.MSA / STOS_STOSCONV.BAS (.txt) < prev    next >
Atari STOS Basic  |  1989-10-26  |  13KB  |  121 lines
  1. 10 REM Stos disc converter
  2. 100 DIM
  3. 10000 REM set up screen
  4. 10001 REM *************
  5. 10005 MODE
  6. 10010 EXTENSION (Index #0) (Token 0x80)
  7. 10020 SCREEN COPY
  8. 10025 SCREEN COPY
  9. 10030 RETURN
  10. 105 GOSUB
  11. 110 GOSUB
  12. 120 CHANGE MOUSE
  13. 130 GOSUB
  14. 140 VARNAME
  15. 150 WHILE
  16. 160 VARNAME
  17. 170 IF
  18. 180 GOSUB
  19. 185 IF
  20. 190 WEND
  21. 20 REM Converts standard format discs
  22. 200 IF
  23. 210 IF
  24. 220 IF
  25. 30 REM into fast access discs.
  26. 40 REM Also removes any virus present
  27. 400 REM tidy things up
  28. 401 REM **************
  29. 405 FOR
  30. 410 ERASE
  31. 50 REM by Phil Lawson
  32. 500 REM initialisation
  33. 5000 REM convert the disc
  34. 5001 REM ****************
  35. 501 REM **************
  36. 5010 GOSUB
  37. 5020 VARNAME
  38. 5025 LOCATE
  39. 5026 LOCATE
  40. 5030 ERASE
  41. 5040 RESERVE
  42. 5050 VARNAME
  43. 5070 TRAP
  44. 5080 VARNAME
  45. 5090 VARNAME
  46. 5095 IF
  47. 5100 REM Try reading from disc
  48. 5110 TRAP
  49. 5120 IF
  50. 520 RESTORE
  51. 5200 REM start converting
  52. 5210 FOR
  53. 5220 TRAP
  54. 5230 TRAP
  55. 5235 IF
  56. 5240 TRAP
  57. 5245 LOCATE
  58. 5250 NEXT
  59. 5260 RETURN
  60. 530 SET ZONE
  61. 540 NEXT
  62. 550 VARNAME
  63. 5700 REM Cannot convert the disc
  64. 5701 REM ***********************
  65. 5710 LOCATE
  66. 5720 LOCATE
  67. 5730 CLEAR KEY
  68. 5800 REM wrong format, cannot convert
  69. 5801 REM ****************************
  70. 5810 LOCATE
  71. 5820 LOCATE
  72. 5830 CLEAR KEY
  73. 590 RETURN
  74. 60 REM for Atari ST User (C)1989
  75. 600 DATA
  76. 6000 REM kill any virus on the disc
  77. 6001 REM **************************
  78. 6005 IF
  79. 6010 VARNAME
  80. 6020 ERASE
  81. 6030 RESERVE
  82. 6040 TRAP
  83. 605 DATA
  84. 6050 VARNAME
  85. 6070 DOKE
  86. 6080 TRAP
  87. 6082 IF
  88. 6085 VARNAME
  89. 6090 RETURN
  90. 610 DATA
  91. 615 DATA
  92. 70 RESERVE
  93. 7000 REM ask which drive
  94. 7001 REM ***************
  95. 7010 VARNAME
  96. 7020 VARNAME
  97. 7030 VARNAME
  98. 7040 RETURN
  99. 7500 REM not enough memory
  100. 7501 REM *****************
  101. 7510 PEN
  102. 7520 LOCATE
  103. 7530 LOCATE
  104. 7540 CLEAR KEY
  105. 8000 REM Really Quit?
  106. 8001 REM ************
  107. 8010 VARNAME
  108. 8020 GOSUB
  109. 8030 RETURN
  110. 8500 REM Print mess$ on screen
  111. 8501 REM *********************
  112. 8505 LOCATE
  113. 8510 LOCATE
  114. 8520 VARNAME
  115. 8530 LOCATE
  116. 9000 REM Show the set options
  117. 9001 REM ********************
  118. 9010 FOR
  119. 9020 IF
  120. 9030 NEXT
  121.