CD Example
10 ! Comments: MASS STORAGE IS, MSI, CD work good. Both MSI
20 ! and CD convert to MASS STORAGE IS.
30 ON ERROR CALL Testerror
40 CLEAR SCREEN
50 PRINT "*** CD or MSI TEST ****"
60 PRINT "Current directory is: ";SYSTEM$("MSI")
70 PRINT "Changing directory to C:\"
80 MASS STORAGE IS "C:\"
90 PRINT "MSI: ",SYSTEM$("MSI")
100 PRINT "Changing directory to D:\"
110 MASS STORAGE IS "D:\"
120 PRINT "MSI: ",SYSTEM$("MSI")
130 PRINT "Test passed."
140 END
150 SUB Testerror ! Error Handler for
160 PRINT "* Error: ";ERRN ! unexpected test program errors.
170 STOP
180 SUBEND
