1 'DVORAK.200 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=63580TO63822: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=34996THENRETURN 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 CALL63580,F,A:F=F+1:E=PEEK(63574) 16 IFETHENPRINT"Warning - ";:GOSUB18ELSEPRINT"Loaded "; 17 CALL4556,,63302:PRINT".CO":RETURN 18 PRINT"Bad checksum in ";:BEEP:RETURN 100 'LOADER 101 DATA MGDADCFGPIDCFHPIOFCKGHOPOLONCLCCFKPICBEGPHFHMNNCPICBPLPEMNNCPIOBNFAIMKKLPICDAIMCIJPICKLEOOOFCKPNPEEEENOBAIOFBBPLPEONEEEN 102 DATA OBNJAICCFIPIOLCKPPPEHMLFMKKLPIBJCCPPPEMNGCCMMNKGCLMEMOCKMNGCCMMNGGDAMNKGCLOLMNKBEBCDCDNBMNNFPIDCEMPHMNPHPIJCDCFGPIMJABAG 103 DATA AAMFOFMNPHPIOBHHEHHKNKOLPICLEOOLCKFIPIAJNJOLCDIAAPFHCDMBALHILBMCNFPIMJNFFEMNBEPJPOCKNCAPPJNGCFFHAPAPOGMAFPMNBEPJNGDALDNG 104 DATA GLBINBMJCKFKPIHOLHMKCHPJHOPOCJCDCCFKPIMADODKMJABAFAAAJHONGIDMCEDPJCDLOMKCKPJABFGPIAKLHMKEDPJDKFHPIJGACCDHOMKBIPJLHMCEDPJ 105 DATA MDCHPJ 200 'DVKINS 201 DATA0#_$1#f#d#i#n$AJUq$AJ#U#1hQm-!K&=#SkV#=#W&A|#OZX#=#[&A#<#2&>D#52&)P@@8#)q,#>sPtV#E!0]J,L5!?&)L#<#I&A.y&>0P#># 202 DATA >$Yi$Z5!B&)8V&=L,08E$],|$L5y&>V8!<#\#>#>#=c&@P$;$Dlwks#=e&@#_#hV#=f_t#F#=h_Lt|#_&Aq 203 DATA w8!B#M##>#>$YR$Tin#Y#I7#;kx-"o&;#Y#;RLo|vk#4.m&;$S!R5$2&;8$R$5#87|8b}8"o{i#i5$2&; 204 DATA i$4-#X&;R#<#d&?8!9$B.b}##>#>#>#>G7|$Si 205 DATA o7#9k#>\p-$Z&;L#=qZ#<$a&@!R77|#87|#87|#!J#>`P#Ef_#_#hLPs#=a&@#Ec 209 DATA &@V#E#i&A#4#F8#m&>LEC&<\#W-!P&<\#jqk#Ee&@P`typt#_#h#E!0]8!C$]Ev&>P|$$O 210 DATA \#>!R5#;&=#X#Q$Z.#0&=V,#Ec&@@8#1$^Vqn8,$8#Ea&@#_#h#E#g&At#U!V&@$R#E#e&At#U!W&@a#[$R#E#c&At#U 211 DATA .&@$R#E#a&At#U-&@$R#E#_&At#U*&@Y8$R^#Yl#M#)]#W#MnhL8!Y&=#E#]&A8#9q#<7&@^#1#C#9#C#8-$e&=84$j#0-$c&=P8#D&>L8!9$B#E#[&A# 212 DATA =#OZ#E#W&AdV#SkXl)#Ms+##Ym."o$=#>P|tk#4P|-Y#5`#Y.}\~XNDi4L-F&=#VX~~#5i#G 213 DATA -b&=#Gl!C!7s#Y45m&>#Y.t^|-Y}~D4##E#[&A#=#OZ.$co#U#1hzCP##L48#_&> 214 DATA 3.#G#F|#abqs8!B#M8$=#G.7#FP#5@8!3&><~inE$e&>X#_#h#Ef_#Fs=$d&>#Eh_sE$d&>#Ea&@t#b$W!R5!1&>$X!R5!1&>#U#Y&A!R$S-$d&>D~imE 215 DATA $k&>~LJ=#m&>4L4i#[E!B&>A+=!@&>#Yl41#[$)Qn#b$V!C#)#)#<-&>$)#1k#4$Yrrzzp]!T&>Qn4$8$@$0$@$8$@$0$@$X$@$Q$@$X$@$Q$@`$B$P!J 216 DATA !P$B!P$J$P$B$P$B$P$B$P!Ju#o$C$@$M$@#;$<$M$@#;$N$J$H$@#;#]#\$N$D$>#;$A$D$G$@$N#;$D$I#;$H$@$H$J$M$T#Ixu$2$D$G$G#;$T$J$P 217 DATA #;$=$@#;$@$?$D$O$D$I$B#;$J$M#;$?$@$G$@$O$D$I$B#;$<$I$T#;$J$A#;#;$O$C$@$N$@#;$G$<$O$@$M#;$J$I#Z#;#C$4#J#i#D#;k#o$C$@$T 218 DATA #;$C$<$Q$@#;$O$J#;$=$@#;$M$@$H$J$Q$@$?#;$A$M$J$H#;$H$@$H$J$M$T#;$O$@$H$K$J$M$<$M$D$G$T#I#;#;#k$G$@$<$N$@#;$O$M$T#;$<$ 219 DATA 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$M$@#;$P$N$D$I$B#;$>$P$M$N$J$M#;$F$@$T$N#; 220 DATA $<$I$?#;$N$K$<$>$@#;$=$<$M#I#;#;#k$M$@$N$N#;#`#i#o#`#m#;$R$C$@$I#;$J$F#G#;#;#`#n#^#;$O$J#;$L$P$D$O#Ixu#f$@$T$=$J$<$M$ 221 DATA ?#;$H$J$?$@t#;#U#;xu#n$O$D$>$F$T#;$F$@$T$Nt#;#U#;xu#\$P$O$J#;$M$@$K$@$<$O#;$?$@$G$<$T#U#;xu#\$P$O$J#;$M$@$K$@$<$O#;$M 222 DATA $<$O$@#;#U#;xu#\$P$?$D$=$G$@#;$>$G$D$>$F#;#;#;#;#U#;k#_$Q$J$M$<$Fk#n$C$J$G$@$Nk#n#c#d#a#ok#^#o#m#g#;k#b#m#k#c#;k#^#j# 223 DATA _#`#;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$Okq#i$J$M$Hkw#n$G$J$Rk#j$I#;k#j$A$Akkzkkkkk 224 DATA kk#\$=$J$M$O$@$?k#d$I$N$O$<$G$G$@$?k#m$@$H$J$Q$@$?k#^$<$I$I$J$O#;$M$@$H$J$Q$@k#^$<$I$>$@$G$G$@$?kkkkkkkkk#_$1#j#m#\#f 225 DATA #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$P$G$Gk#^$<$I$I$J$O#;$M$@$H$J$Q$@kkkkkkkkk 226 DATA kkkkkkkkkkkkV 300 'DVORAK 301 DATA1#_$1#j#m#\#f$5Oalkk#=! 302 DATA @O!DQn!I$R8!TFS#W#Yj>!T5!Y$e#<#XQ#U#YQQl#j#UxhQ{!Lyn5@Oyr`#Y$Z#b>!TFS$R#F#F#F#F#F#Yj>!T$Szx] 303 DATA CO\-#MP#U#NQ$R#!TFSyr#b0z!)!A#b$Y#>#J#j$Y#X$)rr$^|#5Q$^#>$)$U9l#X$2#5!!T,$SzEeO#<#5Qyr$Y#># 304 DATA >#>#>#>`x]#RP#