0 REM MOZART SAT11DEC93
1 REM LOAD A FILE IN BASIC
2 :
4 IL%=10:A$="":A=0:LO=0
5 DV=PEEK(186):ZE$=CHR$(0):FI$=""
6 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 GOSUB1100:REM INPUT A BYTE
51 LO=A:REM LO BYTE HEADER ADDRESS
52 GOSUB1100
53 LO=LO+(256*A):REM HI BYTE
59 :
60 GOSUB1100
61 POKE LO,A:REM PROCESS BYTE FIRST
62 LO=LO+1
63 IF ST=0 THEN60:REM TEST LATER
69 :
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 :
1100 REM INPUT A BYTE
1110 GET#IL%,A$
1120 A=ASC(A$+ZE$)
1130 RETURN
1199 :