5 D=PEEK(186):IFD<8THENSTOP
6 POKE1023,D
10 GOSUB60008:F$=N$+".DBS"
11 IFN$="DOT+"THEN500
12 OPEN1,D,15,"R0:"+F$+"="+F$
13 INPUT#1,EN:CLOSE1
14 IFEN<>63THEN200
20 DF$=N$+".DML"
21 OPEN1,D,15,"R0:"+DF$+"="+DF$
22 INPUT#1,EN:CLOSE1
23 IFEN<>63THENGOSUB300
30 SYS57812"MOUSE2.1 7K 1000",D,0:POKE780,0:POKE781,0:POKE782,16:SYS65493
31 SYS57812DF$,D,0:POKE780,0:POKE781,0:POKE782,56:SYS65493
32 Q=PEEK(782)+1:POKE44,Q:POKEQ*256,0
33 PRINT"[147]L[207]F$,D":PRINT"RUN"
34 POKE198,2:POKE631,13:POKE632,13:END
200 Q$=CHR$(34):A$="DOT+.DBS"
202 PRINT"[147]L[207]A$,D"
204 PRINT"60008N$="Q$N$Q$
206 PRINT"GOTO60000"
208 PRINT"L[207]"Q$"B."N$Q$","D
210 PRINT"RUN"
212 POKE198,5:FORX=1TO5:POKE630+X,13:NEXT:END
299 END
300 OPEN1,D,15,"C0:"+DF$+"=DD.ML"
306 CLOSE1:RETURN
399 END
500 PRINT"CHANGE N$ TO YOUR PROGRAM NAME"
501 PRINT"AND PRESS <RETURN> TWICE"
502 PRINT"GOTO60000[145][145][145]":LIST60008
59999 END
60000 GOSUB60008:N$="B."+N$
60001 OPEN1,8,15,"S0:"+N$:CLOSE1:SAVEN$,8:END
60008 N$="DOTBASIC
60009 [142]