home *** CD-ROM | disk | FTP | other *** search
/ No Fragments Archive 10: Diskmags / nf_archive_10.iso / MAGS / ST_USER / 1990 / USERJA90.MSA / STOS_STOSFORM.BAS (.txt) < prev   
Atari STOS Basic  |  1989-10-26  |  4KB  |  79 lines
  1. 10 REM Disc formatter for STOS
  2. 100 GOSUB
  3. 1000 REM Ask which drive to use
  4. 10000 REM start fromatting the disc
  5. 10001 REM *************************
  6. 1001 REM **********************
  7. 10010 PRINT
  8. 10020 PRINT
  9. 10030 VARNAME
  10. 10040 PEN
  11. 10050 REM try reading from disc to see if parameters are correct
  12. 10051 REM ******************************************************
  13. 10052 RESERVE
  14. 10060 TRAP
  15. 10070 IF
  16. 10080 PRINT
  17. 1010 PRINT
  18. 10100 FOR
  19. 10110 LOCATE
  20. 10120 TRAP
  21. 10125 IF
  22. 10130 NEXT
  23. 1020 GOSUB
  24. 1030 IF
  25. 1040 RETURN
  26. 110 IF
  27. 1100 REM get number of sides
  28. 11000 REM creat boot sector
  29. 11001 REM *****************
  30. 1101 REM *******************
  31. 11010 FOR
  32. 11020 VARNAME
  33. 11025 TRAP
  34. 11030 POKE
  35. 11040 TRAP
  36. 11050 ERASE
  37. 11060 RETURN
  38. 1110 PRINT
  39. 1120 VARNAME
  40. 1130 IF
  41. 1140 RETURN
  42. 120 GOSUB
  43. 1200 REM get number of sectors
  44. 1201 REM *********************
  45. 1210 PRINT
  46. 1220 GOSUB
  47. 1230 IF
  48. 1240 RETURN
  49. 130 STOP
  50. 1300 REM get the disc interleave factor
  51. 1301 REM ******************************
  52. 1310 PRINT
  53. 1320 VARNAME
  54. 1330 PEN
  55. 1340 IF
  56. 1350 RETURN
  57. 1400 REM get the number of tracks
  58. 1401 REM ************************
  59. 1410 INPUT
  60. 1420 VARNAME
  61. 1430 IF
  62. 1440 VARNAME
  63. 20 REM by Phil Lawson for Atari ST User
  64. 2000 REM wait for key press
  65. 2001 REM ******************
  66. 2010 VARNAME
  67. 2020 VARNAME
  68. 30 MODE
  69. 40 PEN
  70. 50 PEN
  71. 60 PEN
  72. 70 ERASE
  73. 80 IF
  74. 90 GOSUB
  75. 9000 REM check if enough memory available
  76. 9001 REM ********************************
  77. 9010 IF
  78. 9020 RETURN
  79.