1 'D.100 and WEENY.100 by Ron Wiesen
2 'Disk file transfer utilities:        D.CO     756 bytes HIMEM, batch capable WEENY.CO 737 bytes HIMEM
10 CLEAR99:GOSUB20
12 PRINT"0 for D.CO     - DOS w/batch capability"TAB(40)"1 for WEENY.CO - World's teeniest DOS"TAB(40);:F$=INPUT$(1):F=ASC(F$)-48:IFF<0ORF>1THEN12ELSEF$="D.CO":IFFTHENF$="WEENY.CO"
15 GOSUB30
19 END
20 PRINT"12 seconds..":FORN=64710TO64994:P=P+2:IFP>LEN(D$)THENREADD$:P=1
24 D=(ASC(MID$(D$,P,1))-65)*16+ASC(MID$(D$,P+1,1))-65:POKEN,D:C=C+D:NEXT:IFC=41383THENRETURN
28 GOSUB45:PRINT"loader.  Can't continue.":END
30 PRINT"End address for ";F$;:A=-1:INPUT" (Press ENTER for just below HIMEM)";A
40 CALL64710,F,A:F=F+1:E=PEEK(64704):IFETHENPRINT"Warning - ";:GOSUB45ELSEPRINT"Loaded ";
44 CALL4514,,64659:PRINT".CO":RETURN
45 PRINT"Bad checksum on ";:BEEP:RETURN
50 DATA MGDADCMAPMDCMBPMOFCKHMPGOLONCLCCMEPMCBJDPMFHMNDMPNCBMOPKMNDMPNOBNFAIMKBFPNCDAIMCPDPMCKPEPFOFCKNAPKEEENOBAIOFBBMOPKONEEEN
55 DATA OBNJAICCMCPMOLCKNCPKHMLFMKBFPNBJCCNCPKMNEGCBMNIJCAMENJBPMNEGCBMNLJPNMNIJCAOLMNFADECDCDNBMNDPPNDCJJPMMNGBPNJCDCMAPMMJABAG
60 DATA AAMFOFMNGBPNOBHHEHHKNKFFPNCLEOOLCKMCPMAJNJOLCDIAAPFHCDMBALHILBMCDPPNMJNFFEMNHOPNPOCKNCHJPNNGCFFHAPAPOGMAFPMNHOPNNGDALDNG
65 DATA GLBINBMJCKMEPMHOLHMKJBPNHOPOCJCDCCMEPMMADODKMJABAFAAAJHONGIDMCKNPNCDLOMKJEPNABMAPMAKLHMKKNPNDKMBPMJGACCDHOMKICPNLHMCKNPN
70 DATA MDJBPNMNOMCAOFCKNAPKABAGAAAJEEENCKLCPLNEGNGLNKCCDPOLCKLAPLAICCLAPLDOKAOBMNDJCCCBMOPKMDEACF
100 DATA0#_#;#;#;#;#;g]_mg]#<kk#T#=uhVX#=mhV#>#>#=kh#<$5$5#=yh#Euhd!J#Mwh#<"o&NP#<;&P8!=|8#_#a#<$H&N#=#ma#<$aa#Q#=8z#g8#a#<#U$`ai#l5!K&Pi#n5#c&P`8#)
101 DATA &O5$6&N\A#f5x&O#X5$S&O#9kl#9ml#9ql#9sl#9{l#9}l#9"ol#9#1#Uwh!R5$^&N@#Eqh#_#h#Eoh8!)$F<#<!S&P#1k#4$YRBR#<O&P8!=|."o&N#1#I#6$U!N-!3&N4#<{h$R#>#Qk4F!VQ#;3#9o.$J&N#<{h$Y#>$a$2$Y$)#b#>
102 DATA !R$U52&N$a#>#8-,&N#J$R#Yp$[#b#<yh$Y8#M$IE$<&N8!B&N#>p-;&N#<{h8$7$Q8i&N8i&N#jw8i&Nx-X&N!J#K#<|h#i#>$Y!R48!B&N8$Y$HE$<&N-$9&N$R#>4#Yp8!)&N8!L&N3Q[#)#)#)$).$J&N86$I8!1&N#<V&P#R8Q#2#Yr8z&O!J8!)&N#Q#5#>
103 DATA |$baqt8$D#Oqz#Q#;#>p-#]&O#Q#a#>$K8!L&N#b#U{hi}5#1&O$S!R4#9l#Yl8!)&N$R#>$N.}&O<#Yo8!)&N$L#>#\8$D#O.}&O8!J#;-$?&N#<$E&N#=#ma8O#;P8#Z&P#E#Fh#`#g$D$;#=shv$)#Wn#X-!3&O$2#<w&P#4#4#4#4#4$Y`|#P&P@#>
104 DATA $9#>$1@#>$9#>$A$F$9#>$1$;$D#=qhV#=ohP8$H$FE$B&N#<wh#O8_&O#EshVL#U{h#jqk$U!N$T#M{h3!Rgd&O#6P#<}ht$YL$R#>w.F&O#9n8$9&OP@#Yn8!)&N8#h&O!J#b#j#M{h<L4!;#I&P!Kf+#6&P!If$[#9&P!5d#Q#54!J$R#>
105 DATA $R#EqhV#E!If#4#=!If4#Eoh#=!Kf4\#EohV#6L.#T#=#U!4gA#^[#Ym48#)&O-$?&N#U!4gi#]E$H&Ni#`=$H&N8!J#;5$6&N8#Z&P#j#Ym$l0@V8!8#<<$X$n$J$W!5$B,w#>#Fx-$S&P$X!O3@P8$7&O<L8$j&P#Ym.z&OPP#<$[kJ=!F&P#h#_LtNVl$[jtP8$E&O<
106 DATA L.$j&P#fL.$D&O#Ekhd#EmhT#n#i#a#a#i#m#^#h#d#j$2#k#_#a#i#_#\#`#j#h#a#g#i#h#Z#;#a#a#a#a#a#a#I$3$3#;#Z#X#g#f#n#lxk#;#`$M$Mxuk#T#S#i#L#_`
200 DATA1$2#`#`#i$4#;z^Lmz^#<kk#T#=qh#<$5$5#=uh#Eqhd!J#Msh#<#7&NP#<;&P8!=|8#_#a#<$P&N#=#ma#<$aa#Q#=8z#g8#a#<#U$`ai#l5!2$2i#n5#k&P`8#B&O5$>&N\A#f5#0&O#X5$[
201 DATA &O#9kl#9ml#9ql#9sl#9{l#9}l#9"ol#9#1#Ush!R5$f&N@#Emh#_#h#Ekh8!)$F<#<!S&P#1k#4$YRBR#<O&P8!=|.#7&N#1#I#6$U!N-!;&N4#<wh$R#>#Qk4F!VQ#;3#9o.$R&N#<wh$Y#>$a$2$Y$)#b#>!R$U5)&N$a#>#8-4&N#J$R#Yp$[
202 DATA #b#<uh$Y8#M$IE$D&N8!J&N#>p-C&N#<wh8$7$Q8q&O8q&O#jw8q&Ox-`&N!J#K#<xh#i#>$Y!R48!J&N8$Y$HE$D&N-$A&N$R#>4#Yp8!B&N8!T&N3Q[#)#)#)$).$R&N86$I8!9&N#<V&P#R8Q#2#Yr8#2&O!J8!B&N#Q#5#>|$baqt8$D#Oqz#Q#;#>p-#e&O#Q#a#>
203 DATA $K8!T&N#b#Uwhi}5#9&O$S!R4#9l#Yl8!B&N$R#>$N.#5&O<#Yo8!B&N$L#>#\8$D#O.#5&O8!J#;-$G&N#<$M&N#=#ma8O#;P8#b&P#E#Bh#`#g$D$;#=ohv$)#Wn#X-!;&O$2#<"o&P#4#4#4#4#4$Y`|#X&P@#>$9#>$1@#>$9#>$A$F$9#>
204 DATA $1$;$D#=mhV#=khP8$H$FE$J&N#<sh#O8g&O#EohVL#Uwh#jqk$U!N$T#Mwh3!Rgl&P#6P#<yht$YL$R#>w.N&O#9n8$A&OP@#Yn8!B&N8$0&O!J#b#j#Mwh<L4!;#Q&P!Kf+#>&P!If$[#A&P!5d#Q#54!J$R#>
205 DATA $R#EmhV#E!If#4#=!If4#Ekh#=!Kf4\#EkhV#6L.#T#=#U!4gA#^[#Ym48#B&O-$G&N#U!4gi#]E$P&Ni#`=$P&N8!J#;5$>&N8#b&P#j#Ym$l0@V8!8#<<$X$n$J$W!5$B,w#>#Fx-$[&P$X!O3@P8$?&O<L8!2&P#Ym.#2&OPP#<$[kJ=!N&P#h#_LtNVl$[jtP8$M&O<
206 DATA L.!2&P#fL.$L&O#n#i#a#a#i#m#^#h#d#j$2#k#_#a#i#_#\#`#j#h#a#g#i#h#Z#;#a#a#a#a#a#a#I$3$3#;#Z#X#g#f#n#lxk#;#`$M$Mxuk#T#S#i#L#_#9