1 'DVORAK.100 by James Yi 5/14/89
2 'Creates DVKINS.CO and DVORAK.CO
3 'Run DVKINS.CO to install DVORAK.SYS
10 CLEAR50:F$="DVKINS.CO":GOSUB11:F=0:GOSUB14:A=0:GOSUB15:END
11 PRINT"12 seconds...":FORN=64710TO64994:P=P+2:IFP>LEN(D$)THENREADD$:P=1
12 D=(ASC(MID$(D$,P,1))-65)*16+ASC(MID$(D$,P+1,1))-65:POKEN,D:C=C+D:NEXT:IFC=41383THENRETURN
13 GOSUB18:PRINT"LOADER, can't continue.":END
14 A=-1:CLS:PRINT"End address for ";F$;:INPUT", simply press ENTER for just below HIMEM";A
15 CALL64710,F,A:F=F+1:E=PEEK(64704)
16 IFETHENPRINT"Warning - ";:GOSUB18ELSEPRINT"Loaded ";
17 CALL4514,,64659:PRINT".CO":RETURN
18 PRINT"Bad checksum in ";:BEEP:RETURN
100 'LOADER
101 DATA MGDADCMAPMDCMBPMOFCKHMPGOLONCLCCMEPMCBJDPMFHMNDMPNCBMOPKMNDMPNOBNFAIMKBFPNCDAIMCPDPMCKPEPFOFCKNAPKEEENOBAIOFBBMOPKONEEEN
102 DATA OBNJAICCMCPMOLCKNCPKHMLFMKBFPNBJCCNCPKMNEGCBMNIJCAMENJBPMNEGCBMNLJPNMNIJCAOLMNFADECDCDNBMNDPPNDCJJPMMNGBPNJCDCMAPMMJABAG
103 DATA AAMFOFMNGBPNOBHHEHHKNKFFPNCLEOOLCKMCPMAJNJOLCDIAAPFHCDMBALHILBMCDPPNMJNFFEMNHOPNPOCKNCHJPNNGCFFHAPAPOGMAFPMNHOPNNGDALDNG
104 DATA GLBINBMJCKMEPMHOLHMKJBPNHOPOCJCDCCMEPMMADODKMJABAFAAAJHONGIDMCKNPNCDLOMKJEPNABMAPMAKLHMKKNPNDKMBPMJGACCDHOMKICPNLHMCKNPN
105 DATA MDJBPNMNOMCAOFCKNAPKABAGAAAJEEENCKLCPLNEGNGLNKCCDPOLCKLAPLAICCLAPLDOKAOBMNDJCCCBMOPKMDEACF
200 'DVKINS
201 DATA0#_$1#f#d#i#n$0Jfq$0J#U!=jQm-!)&=#SkV#=#W&A|#maX#=#[&A#<q&>D#<i&@8#_&>5!Q&)P@@8_p,#>sPtV#E!5dJ,L5$n&)L#<#I&A.h&=0P#>#>
202 DATA $Yi$Z5!1&)8E&=L,08!)$F,|!IfXsDL#Qk#<A&@.$O&=8#g#=#<y&AP8#_&>L5h&=V8#k#O#>#>#=c&@P$;$Dlwks#=e&@#_#hV#=9et#F#=;eLt|#_&A
203 DATA qw8#]#@#<0dqk$Y#W5#9&;#XQ[i$[-#2&;Pys#>#>#>$YR$Tin#Y#I7#;kx-n&;#Y#;RLo|vk#4.\&)$S!R5#a&;8!S#f#<M&>8!=|86}8Tzi#i5#a&;i
204 DATA $4-#G&;R#<#d&?8$l$2.6}#<!@&?8!=|qk#U!V&@#j#<o~#=#Ta#<$5&@t8!=|#<p~#=#TaP#<$C&@qo#U!W&@z`E$[&;P#<$[&@8!=|L#>#>#>#>#>G!
205 DATA =|$Sio7#9k#>\p-$I&;L#=#Ta#<$a&@!R7!=|#<q~#=#Ta#U!X&@#<$g&@#jrrr$l#jt$Y#M.&@#>8!=|#<r~#=#Ta#U!Y&@#<!<&@r#jr$\#jt$Y#M-&
206 DATA @#>8!=|#<s~#=#Ta#U*&@#j#<!N&@t8!=|#E+&@P$X1o$J$Wrr$_il#Z9~$B#=#TaL86}i#65$a&<ix5$a&<A#75$)&<#X5#o&<#X5$J&<#X5$T&<#X-a
207 DATA &;l#g&;0$X!R|!V&@5#^&<#H~5#c&<#H~5#T&<~#H5#T&<~#5Yo}4#5#WinE#\&<!J}4#5Yr}4#Y$[#@r]#e&<#j#5!D}4#@]$4&<#?#=+&@.K&;#H-K&
208 DATA ;#G#?$WioE$4&<#@.$4&<#Ak#H]$4&<#G.$4&<#Ak#G$XipE$4&<#H.$4&<i#6#<s#C#=#Ta#</&@5$d&=8W#;#=g&@#Yl#M#Y&A#E!5d#>!J#>`P#E9e
209 DATA #_#hLPs#=a&@#Ec&@V#E#i&A#4#F8#m&>LE2&<\#W-!?&<\#jqk#Ee&@P`typt#_#h#E!5d8$H$FEe&=P|!IfXtD|c&@XtD8#g#=#Y$c<#Eg&@0#68#T#
210 DATA =~,V#=#]&A$P#>$O\#>!R5z&=#X#Q$Z.o&=V,#Ec&@@8F$FVqn8v#j<!J#M#Y&A@#E#i&A#4#F8#m&>#Ea&@#_#h#E#g&At#U!V&@$R#E#e&At#U!W&@a
211 DATA #[$R#E#c&At#U.&@$R#E#a&At#U-&@$R#E#_&At#U*&@Y8$R^#Yl#M#Jd#W#M$jjL8!H&=#E#]&A8^p#<7&@^#1#C#9#C#8-$T&=8$Q$Q#0-$R&=P8#3&
212 DATA >L8$l$2#E#[&A#=#ma#E#W&AdV#SkXl$K#@s+#<W&@/$l$2/#3&>#Ym.#1#n#>P|tk#4P|j`#5`#Y.}\~XNDi4L-5&=#<^$Z<#G#H#Y$Z-@&=#Y#G#HD~
213 DATA ~}4#>VX~~#5i#G-Q&=#Gl^$Zs#Y45\&=#Y.t^|j`}~D4#<!L$;8$l$28#D#].$g&=$Vi#T#<#)&A5h&=#E#[&A#=#ma.$8o#U!=jzCP#<y&A8#G&>#<q&
214 DATA A8#G&>L48#_&>3$Y#>$9#>$1#F#Fi+5*#)i$[5#2#;.D#)|$ngqs8#]#@8#a#<.!J#;P#5@8!3&><~inE$e&>X#_#h#E9e#Fs=$d&>#E;esE$d&>#Ea&@
215 DATA t#b$W!R5!1&>$X!R5!1&>#U#Y&A!R$S-$d&>D~imE$k&>~LJ=#m&>4L4i#[E!B&>A+=!@&>#Yl41#[$)Qn#b$V!C#)#)#<-&>$)#1k#4$Yrrzzp]!T&>Q
216 DATA n4$8$@$0$@$8$@$0$@$X$@$Q$@$X$@$Q$@`$B$P!J!P$B!P$J$P$B$P$B$P$B$P!Ju#o$C$@$M$@#;$<$M$@#;$N$J$H$@#;#]#\$N$D$>#;$A$D$G$@$
217 DATA N#;$D$I#;$H$@$H$J$M$T#Ixu$2$D$G$G#;$T$J$P#;$=$@#;$@$?$D$O$D$I$B#;$J$M#;$?$@$G$@$O$D$I$B#;$<$I$T#;$J$A#;#;$O$C$@$N$@#;
218 DATA $G$<$O$@$M#;$J$I#Z#;#C$4#J#i#D#;k#o$C$@$T#;$C$<$Q$@#;$O$J#;$=$@#;$M$@$H$J$Q$@$?#;$A$M$J$H#;$H$@$H$J$M$T#;$O$@$H$K$J$M
219 DATA $<$M$D$G$T#I#;#;#k$G$@$<$N$@#;$O$M$T#;$<$B$<$D$I#Ixu#k$M$@$N$N#;$<$I$T#;$F$@$T#;$O$J#;$@$S$D$O#Ikw#m$@$>$J$I$A$D$B$P$
220 DATA M$@#;$P$N$D$I$B#;$>$P$M$N$J$M#;$F$@$T$N#;$<$I$?#;$N$K$<$>$@#;$=$<$M#I#;#;#k$M$@$N$N#;#`#i#o#`#m#;$R$C$@$I#;$J$F#G#;#;
221 DATA #`#n#^#;$O$J#;$L$P$D$O#Ixu#f$@$T$=$J$<$M$?#;$H$J$?$@t#;#U#;xu#n$O$D$>$F$T#;$F$@$T$Nt#;#U#;xu#\$P$O$J#;$M$@$K$@$<$O#;$
222 DATA ?$@$G$<$T#U#;xu#\$P$O$J#;$M$@$K$@$<$O#;$M$<$O$@#;#U#;xu#\$P$?$D$=$G$@#;$>$G$D$>$F#;#;#;#;#U#;k#_$Q$J$M$<$Fk#n$C$J$G$@
223 DATA $Nk#n#c#d#a#ok#^#o#m#g#;k#b#m#k#c#;k#^#j#_#`#;k#;#;#;#;#;k#i$J$I$@#;k{#n$C$J$M$Ok#o#i$J$M$H#;k!3#g$J$I$B#;kn#a$<$N$Ok
224 DATA q#i$J$M$Hkw#n$G$J$Rk#j$I#;k#j$A$Akkzkkkkkkk#\$=$J$M$O$@$?k#d$I$N$O$<$G$G$@$?k#m$@$H$J$Q$@$?k#^$<$I$I$J$O#;$M$@$H$J$Q$
225 DATA @k#^$<$I$>$@$G$G$@$?kkkkkkkkk#_$1#j#m#\#f#I#I#_$1#f#d#i#n#^#j#_$1#j#m#\#f#^#j#;$H$D$N$N$D$I$Bk#_$D$M$@$>$O$J$M$T#;$A$
226 DATA P$G$Gk#^$<$I$I$J$O#;$M$@$H$J$Q$@kkkkkkkkkkkkkkkkkkkkk"o
300 'DVORAK
301 DATA1#_$1#j#m#\#f$8O^lkk#<ll$Zt\,<N4N@0`l#P#6s-$<O#Yx#Kf#<#Jd#P5#_#68$7$Q8!3$N#<_$LP#<$jj#P+#Qn8!L$M#J#j#<#]Q$Y$L!T#>=!@O!
302 DATA DQn!I$R8<P$Y!L#<!4j|!=j!Y$R7$cP!J>!TFS#W#Yj>!T5h$L#<#XQ#U#YQQl#j#U!4jQ{!Lyn5@Oyr`#Y$Z#b>!TFS$R#F#F#F#F#F#Yj>!T$Szx]CO
303 DATA \-#MP#U#NQ$R#<BP#Yb#b0>!TFSyr#b0z!)!A#b$Y#>#J#j$Y#X$)rr$^|#5Q$^#>$)$U9l#X$2#5!<!K},$Szx]mP#Yj>!T,$SzEeO#<#5Qyr$Y#>#>#
304 DATA >#>#>`x]#RP#<!4j|!=jyr#F#6\#J!Y$R-$3P#5!Y/0$Kx]#eP#F#Qm#<!@j#P5*P#Oc#U!Bj#E!Cj!A3#U!Ejim;#<!?j#P+#Qq8<P#Yl#M^j.#=$L#5
305 DATA #b$Y}r;$SrCqlp#k$Y#JQnz$S#M#^Q5!FP#</$LN#Yn;#Y~4,$YQs-!QP#<#YQ#O#<<Pz!I$R.^$L#F#Q#o#F#U!=j$R8<P!J#M#^Q.#=$L8$Q$Q.$Q$Q
306 DATA sn$[l$[ommoqmnslll{o#;o#[omo#;nsm{mollmloon#[n$[nom#;m{nsoln#[m$[mml{l#[l#;lkjjkkkjjkkkjjkkkjjkkkjjkkkjjkkkjjkkkjjkkk
307 DATA jjkk<P$WP,P!)O#YQ$Ul$<