10 REM Disc formatter for STOS
100 GOSUB
1000 REM Ask which drive to use 
10000 REM start fromatting the disc
10001 REM *************************
1001 REM ********************** 
10010 PRINT
10020 PRINT
10030 VARNAME
10040 PEN
10050 REM try reading from disc to see if parameters are correct 
10051 REM ****************************************************** 
10052 RESERVE
10060 TRAP
10070 IF
10080 PRINT
1010 PRINT
10100 FOR
10110 LOCATE
10120 TRAP
10125 IF
10130 NEXT
1020 GOSUB
1030 IF
1040 RETURN
110 IF
1100 REM get number of sides
11000 REM creat boot sector
11001 REM *****************
1101 REM *******************
11010 FOR
11020 VARNAME
11025 TRAP
11030 POKE
11040 TRAP
11050 ERASE
11060 RETURN
1110 PRINT
1120 VARNAME
1130 IF
1140 RETURN
120 GOSUB
1200 REM get number of sectors
1201 REM *********************
1210 PRINT
1220 GOSUB
1230 IF
1240 RETURN
130 STOP
1300 REM get the disc interleave factor 
1301 REM ****************************** 
1310 PRINT
1320 VARNAME
1330 PEN
1340 IF
1350 RETURN
1400 REM get the number of tracks 
1401 REM ************************ 
1410 INPUT
1420 VARNAME
1430 IF
1440 VARNAME
20 REM by Phil Lawson for Atari ST User 
2000 REM wait for key press 
2001 REM ****************** 
2010 VARNAME
2020 VARNAME
30 MODE
40 PEN
50 PEN
60 PEN
70 ERASE
80 IF
90 GOSUB
9000 REM check if enough memory available 
9001 REM ******************************** 
9010 IF
9020 RETURN