5 D=PEEK(186):IFD<8THEND=8
10 GOSUB60008:IFN$="DOT"THEN13000
11 P$=N$+".DOT":N$=N$+".MED"
12 OPEN1,D,15,"R0:"+N$+"="+N$:INPUT#1,EN:CLOSE1
14 IFEN<>63THEN11000
16 OPEN1,D,15,"R0:"+P$+"="+P$:INPUT#1,EN:CLOSE1
18 IFEN<>63THEN12000
19 GOSUB41000:N$=N$+".MED"
20 PRINT"[144]LOADP$,D":PRINT"RUN"
30 SYS57812"MOUSE2.1 7K 2400",D,0:POKE780,0:POKE781,0:POKE782,036:SYS65493
40 SYS57812N$,D,0:POKE780,0:POKE781,0:POKE782,224:SYS65493
42 SYS57812"DF.ML",D,0:POKE780,0:POKE781,0:POKE782,18:SYS65493
50 Q=64:POKE44,Q:POKEQ*256,0
55 POKE788,49:REM 49-STOP/52-STOP OFF
60 POKE631,13:POKE632,13:POKE198,2:END
10999 END
11000 PRINT"THE FILE <"N$"> IS NOT ON THIS DISK"
11010 PRINT"USE MR.MEDIC TO CREAT <"N$">"
11020 PRINT"BEFORE RUNNING THIS PROGRAM":END
12000 L$="DOT.DOT":PRINT"[147]LOADL$,D"
12005 GOSUB60008
12010 PRINT"60008 N$="CHR$(34)N$CHR$(34)
12020 PRINT"GOTO60000"
12030 PRINT"LOAD"CHR$(34)"B."N$CHR$(34)","D
12040 PRINT"P[207]646,1:RUN"
12050 FORX=1TO5:POKE630+X,13:NEXT:POKE198,5
12099 END
13000 PRINT"YOU MUST USE A PROGRAM NAME OTHER
13010 [153]"THAN <DOT>.":[128]
41000 [151]53280,0:[151]53281,0:[151]53272,22:[153]"LOAD"
41002 [151]214,14:[153]
41004 [153][163]1)"LIST                                     "
41005 [129]X[178]1[164]6
41006 [153][163]1)"PRINT#                                     "
41007 [130]
41013 [153][163]1)"POKE                                     "
41015 [141]60008:[151]214,16:[153]
41016 N1$[178]"":[129]X[178]1[164][195](N$):N1$[178]N1$[170][199](128[170][198]([202](N$,X))):[130]
41019 [153][163]19[171][195](N$)[173]2)"PRINT#"N1$
41020 [129]X[178]2[164]4:[135]A$:[151]214,15[170]X:[153]
41022 [153][163]19[171][195](A$)[173]2)"PRINT#"A$
41024 [130]
41030 T[178]TI[170]60
41031 [139]T[177]TI[167]41031
41032 [153]"":[142]
41051 [131]"BY STR$AVE (null)OORMAN
41052 DATA"(C) 2004 BY [202] & [198] [208]UBLISHING, [201]NC.
41053 [131]"WWW.ELOADSTAR.COM
60000 D=PEEK(186):GOSUB60008
60001 OPEN1,D,15,"I0":PRINT#1,"S0:B."+N$:CLOSE1:SAVE"B."+N$,D:END
60008 N$="DOTBASIC"
60009 RETURN