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›