1 'TEXTP.100 (c) 1990 by James Yi (2/19/90) 2 'Data file and installer loader for 100/102. 3 'Read TEXTP.DOC 10 CLEAR99:GOSUB20 15 F$="TXPINS.CO":F=0:GOSUB30 16 A=0:GOSUB40 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#o$3#k#d#i#n$SQ$oq$SQ#SkV#=!N&G|#maX#=!P&G##_#hL08!)$F,|!IfXsDL#Qk#Y#;#M$Od##>#>8^&BLo8@#;-!S&B$S!B3#<6&F8$l$2#Y#IR#<#Q&G8$l$286}#E!N&Gd#E!P&G#=#ma4ys$Y 105 DATA #>R$Tin#Y#I7#;kx-`&B.#9ki$c+@0#SqX#>#i#>#a#E$T&Gs,<#Z!)4|!)&D8!N&B#<$f&G8V&A5#U&B@8W#;#=$Q&G##>#=!R& 106 DATA GV#=.&GVt#F#a#F#is#=!T&G##Qj#>#=<&G8^&D8#G&E8$`&E#E)&G#=>&G# 107 DATA E6&G#=8&G#E!V&G#>#=*&G#E!X&G#>#=,&G#E2&G#_#h|!R&GXtD|.&GXtD#UE&G!B-!W&C#E)&Gt#=<&G8^&DE#g&D8!O&D-v&D8#G&E8$`&E#E!X&G# 108 DATA i#>wx5}&D$9#>$1#>P#E6&G#4N$9#>$1#>NP#E8&G#4$U!B#^<-q&D#UB&G!B5r&DXp#UC&G-p&D#UD&G$JDL.?&C#wx5!8&C$9#>$1#>P#E6&G#4$1#>#>#>#=,&G#E8&G#4VLDL.#8&D#E<&Glnk8#a&Bqn8u#j|!5dX#>D#E$Q&GVqv#<$S 110 DATA &G8#]#@#Y#F#M$Od#E>&G#=$Id#>#>#>P|IeXND<#>#7#8#Y$Z-$h&D#Y#G#8$N#>$M#>$R#E$O&GV#-B&D$Yi#Y-B&D$Y#>i$6-O&D#FBC8Tz!B4#E!T&GVX#=2&G$W!P#R3@V 112 DATA #E.&G#4#=0&G<~~X#=4&G~~V#=!V&G8#<&E#=!X&G8#<&E#=!T&G$Y#>!B3#X#>#>#>.#=&E#E<&G#=)&G!J#M@&G#E.&G#_#h#E)&Gs#=6&G#E!R&GV# 113 DATA E4&G#4#FP#5~8$Z&FAnE$)&E`8$4&F5$X&E~\#We$?&E~LJ=#f&E#E!V&G#iV~wx38$4&F~~~~-$K&El\L8$K&F.#Q&E#x-9&E#FV,#E!R&G@8F$F< 115 DATA #E4&G#4@P#5~8$Z&FAnEe&E`8$4&FEc&ED\~#Wej&E~LJ=P&E<#E2&G#4#F#5~!B-#E&FPX$W!@#W-#;&F##=)&G4 117 DATA i#[E$i&FA+=$g&F#Yl41#[@$)Qn#b$V!C#)#)#$O$J$M#;#?#a#\#_#`#;$C$<$N#;$=$@$@$I#;$H$J$?$D$A$D$@$?#V#;$M$@$H$J$Q$<$G#;$D$N#;$P$I$N$<$A$@k#k$M$@$N$N#;$ 120 DATA <$I$T#;$F$@$T#;$O$J#;$@$S$D$O#Irk#K$N#;$P$I$@$G$D$H$D$I$<$O$<$=$G$@k#^$<$I$>$@$G$G$@$?k#^$G$@$<$I#;$P$K#Zkkkkk$ckk#o# 121 DATA `$3#o#F#;#I#I#o$3#k#d#i#n#^#j#o$3#k#_#\#o#^#j#;$H$D$N$N$D$I$Bk#o$3#k#^#a#b#_#j#_$D$M$@$>$O$J$M$T#;$A$P$G$Gkkkkkkkkkkk 122 DATA kkkkkkkkkkkkkkkkkkkkkkkkkkkkkk#h$J$?$P$G$@#;k#;$N$F$D$K$K$@$?k#;$<$O#;k#n$D$U$@#Uk#;#k$<$?$N#Uk#o$J$O$<$G#;$N$D$U$@#U 123 DATA #;kk!9 200 DATA1#o$3#k#_#\#o$SQ$K+#F#P#6#6Xl[$)s+#<-QD8jj8jj#U1R!B+#M+g.jj8#U#)#YuR.Y$88jj 201 DATA .jj#MJa`8W$@8jj\E!WQ#b#U!=j#j#UKai#6$S5#7Ri$Z5DWi#;EgQ-dQ.jj8P$>!B3i#53i$Z3.jj#$YQ$Z!SEjQ!Y/*Q$Sit5dQi{5YQ8jj.p 202 DATA $;i#65$[W8Tz#<#]R8jj8jj8jj8jj8jj8jj8jj8jj.EQ$YYl$RY!4#<+R$RP8!6$@#E#TaN8!I$@L.$W#]LP#U#Ta8$a$D.#D$=8$WR=$MR8#E$=.!;$= 203 DATA #=OaP8$\$D.#D$=P#Yl8#c$ELJ#Z;P8#Y$ELJ4P#E$Bb#_#hLs40PtP#_#h#E$=f#>s#_#hL<8F$FV#F#=$=f#>,.$E$>q$bu$fx$i#0!2#4!5#)kjjkk 204 DATA kjjkki$2+N#$Y#Fiu3\\$R#>.#a$<#U#F 205 DATA S!<#)$S=WR8$e$;8d$E#F.#E$=kjjlki#\+N#<$BS4#U$BS!D#)$S;#<#U$?iz5#eSi#0+#<#i$?N8Y$=8$^$>8#a#<|!@dX#Y#5!Y#>-$5S#FD.!W$?k 206 DATA jjkki#]+L8!6$@8d$EP##O#P#R5$f$@8.$@<@8!6S=$j$@<0$;$D8jj.$_$@@P#E$BbJL5!1$7#6P@#58Tz#j8Sz!T~#>5!CS!B,L 207 DATA 5$E$7$4#k.!7Si#n+L8!6$@8d$EV#EMa$W!P#E$=fV/!F$?#=Wg#=[gV#=Yg!J$B$J#=Sg#=Ug#$Y!B5#YU8!MU#=]g#8!MU#=_g#<+U#UoV8#jU#MoV#<4U#UnV8#jU#MnV#E[g#F#UnV#j#>V#EYg#FJE#3U#U!=j#JQ$\5#3U#<#)b@#5wx-!VU8Tz#b8Sz!S~#>5#fTL 209 DATA !B-#OT#=[g#6#ESg#>#=Sg#UoV!B5!8T@8!AUL#=Ma#=Oa#E[g8jj8!6$@#U#Ta#Mcg#D#E[g|+g,$T#\!B/$D#O#UoV!B5#JTP!J$B$J#=Ma#E[g#Ucg8$a$DL.#JTP#E$=fP#>!J!YEZ"ov$S 211 DATA !L-hT#=$=fVL,Ps#_#hnL.Q$F8$oU#E[gP8#E$=#$@$?#U#;kjj#a$J$P$I$?#U#;kjj#m$@$K$G$<$>$@$H$@$I 214 DATA $O#Ukjj#m$@$K$G$<$>$@#Zkjjkv#U!=j#)=l$@8$j$=8#a#<8d$E#=OaP#_#h#=Ma#E!@d!J!Y#>5#=V#F|li@PsN#j#b$Y}A#55#ZV#>~w-#LVo!L5$ 215 DATA 4V#=!@d#F#o$8s$T,`8Q$F,#><8$D#O.#4V\\8#E$F.jji#^+L#<6V$Y`8jj\#<#Xa!A3.!C#]#U6V#<#Xa!A3#O8d$EP#E#TaP#Q)R#FROReQWRWQ#0S#IR#HS#2R#PS#LR$DS#OR,S!XQpV#RR$W$hR$gWlkBWkk#;k#;klDW#3$