10 REM Stos disc converter
100 DIM
10000 REM set up screen
10001 REM *************
10005 MODE
10010 EXTENSION (Index #0) (Token 0x80)
10020 SCREEN COPY
10025 SCREEN COPY
10030 RETURN
105 GOSUB
110 GOSUB
120 CHANGE MOUSE
130 GOSUB
140 VARNAME
150 WHILE
160 VARNAME
170 IF
180 GOSUB
185 IF
190 WEND
20 REM Converts standard format discs 
200 IF
210 IF
220 IF
30 REM into fast access discs.
40 REM Also removes any virus present 
400 REM tidy things up 
401 REM ************** 
405 FOR
410 ERASE
50 REM by Phil Lawson 
500 REM initialisation 
5000 REM convert the disc 
5001 REM **************** 
501 REM ************** 
5010 GOSUB
5020 VARNAME
5025 LOCATE
5026 LOCATE
5030 ERASE
5040 RESERVE
5050 VARNAME
5070 TRAP
5080 VARNAME
5090 VARNAME
5095 IF
5100 REM Try reading from disc
5110 TRAP
5120 IF
520 RESTORE
5200 REM start converting 
5210 FOR
5220 TRAP
5230 TRAP
5235 IF
5240 TRAP
5245 LOCATE
5250 NEXT
5260 RETURN
530 SET ZONE
540 NEXT
550 VARNAME
5700 REM Cannot convert the disc
5701 REM ***********************
5710 LOCATE
5720 LOCATE
5730 CLEAR KEY
5800 REM wrong format, cannot convert 
5801 REM **************************** 
5810 LOCATE
5820 LOCATE
5830 CLEAR KEY
590 RETURN
60 REM for Atari ST User (C)1989
600 DATA
6000 REM kill any virus on the disc 
6001 REM ************************** 
6005 IF
6010 VARNAME
6020 ERASE
6030 RESERVE
6040 TRAP
605 DATA
6050 VARNAME
6070 DOKE
6080 TRAP
6082 IF
6085 VARNAME
6090 RETURN
610 DATA
615 DATA
70 RESERVE
7000 REM ask which drive
7001 REM ***************
7010 VARNAME
7020 VARNAME
7030 VARNAME
7040 RETURN
7500 REM not enough memory
7501 REM *****************
7510 PEN
7520 LOCATE
7530 LOCATE
7540 CLEAR KEY
8000 REM Really Quit? 
8001 REM ************ 
8010 VARNAME
8020 GOSUB
8030 RETURN
8500 REM Print mess$ on screen
8501 REM *********************
8505 LOCATE
8510 LOCATE
8520 VARNAME
8530 LOCATE
9000 REM Show the set options 
9001 REM ******************** 
9010 FOR
9020 IF
9030 NEXT