10 REM ENTER THIS SUBROUTINE
20 REM TO YOUR PROGRAM AND
30 REM CHANGE FN$ ON LINE 30040 TO
40 REM YOUR MICROPAINTER FILENAME
30000 CAPS=708:LOWC=709:INVC=710:INLC=711:BRDR=712:ANTIC=559
30010 TRAP 30240
30020 DIM FN$(20),LDR$(32)
30030 FOR I=1 TO 32:READ A:LDR$(I)=CHR$(A):NEXT I:REM INSTALL M.L. LOADER
30040 FN$="D:TEST1"
30050 GRAPHICS 10:POKE ANTIC,0:POKE 623,0
30060 DL=PEEK(560)+256*PEEK(561)
30070 POKE DL+3,78
30080 FOR I=DL+6 TO DL+200
30090 A=PEEK(I):IF A=15 THEN POKE I,14
30100 IF A=79 THEN POKE I,78
30110 NEXT I
30120 POKE ANTIC,34
30130 OPEN #3,4,0,FN$:GOSUB 30190
30140 TRAP 30240
30150 X=USR(ADR(LDR$))
30160 GET #3,J1:GET #3,J2:GET #3,J3:GET #3,J4
30170 POKE BRDR,J1:POKE CAPS,J2:POKE LOWC,J3:POKE INVC,J4
30180 RETURN 
30190 NOTE #3,SEC,BYT:SECT=SEC+61:BYTE=55:POINT #3,SECT,BYTE
30210 GET #3,J1:GET #3,J2:GET #3,J3:GET #3,J4
30220 POKE BRDR,J1:POKE CAPS,J2:POKE LOWC,J3:POKE INVC,J4
30230 POINT #3,SEC,BYT:RETURN 
30240 IF PEEK(195)=164 THEN 30230
30250 ? "ERROR # ";PEEK(195):FOR T=0 TO 200:NEXT T:RUN 
31000 DATA 104,162,48,169,7,157,66
31010 DATA 3,165,88,157,68,3,165
31020 DATA 89,157,69,3,169,0,157
31030 DATA 72,3,169,30,157,73,3
31040 DATA 32,86,228,96

---

Back to previous page