0 REM MOZART TUE14DEC93 ML FILE LOAD
1 REM BASIC OPENS AND CLOSES FILES
2 REM AND CHECKS FOR I/O ERRORS
3 :
6 IL%=10:A$="":A=0:LO=0
7 DV=PEEK(186):ZE$=CHR$(0):FI$=""
8 EN=0:EM$="":ET=0:ES=0
9 :
10 CLOSE15:OPEN15,DV,15:CLOSE15
11 IF ST=0 THEN20
12 PRINT"[150][196]EVICE NOT PRESENT"
13 GOTO90
19 :
20 OPEN15,DV,15:REM COMMAND CHANNEL
29 :
30 INPUT"[159][198]ILENAME TO LOAD[158]";FI$
31 IF LEN(FI$)<1 THEN30
32 FI$=FI$+",P"
39 :
40 OPEN IL%,DV,0,FI$:REM INPUT CHANNEL
41 GOSUB1000:REM CHECK DRIVE CHANNEL
42 IF EN>19 AND EN<>73 THEN90
43 :
44 PRINT"[159][204]OADING FILE ... [158]";FI$;"[159]"
49 :
50 SYS2762:REM EXECUTE LOADER ML
59 :
90 PRINT"[159]":CLOSE IL%:CLOSE 15
91 CLR:END:REM EXIT
99 :
1000 REM DRIVE CHANNEL I/O CHECK
1010 INPUT#15,EN,EM$,ET,ES
1020 IF EN<20 OR EN=73 THEN RETURN
1030 PRINT"[150]";EN;EM$;ET;ES
1040 RETURN
1099 :