1 'CASUTL.200 [7/12/89] 2 'Cassette file saver/loader. 3 'Copyright (c)1989 by James Yi [73327,1653] 4 'Basic loader to create CASUTL.CO 5 'See CASUTL.DOC for documentation. 10 CLEAR99:GOSUB20 15 F$="CASUTL.CO":F=0:GOSUB30 19 END 20 PRINT"11 seconds..":FORN=63580TO63822: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=34996THENRETURN 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 CALL63580,F,A:F=F+1:E=PEEK(63574):IFETHENPRINT"Warning - ";:GOSUB45ELSEPRINT"Loaded "; 44 CALL4556,,63302:PRINT".CO":RETURN 45 PRINT"Bad checksum on ";:BEEP:RETURN 50 DATA MGDADCFGPIDCFHPIOFCKGHOPOLONCLCCFKPICBEGPHFHMNNCPICBPLPEMNNCPIOBNFAIMKKLPICDAIMCIJPICKLEOOOFCKPNPEEEENOBAIOFBBPLPEONEEEN 55 DATA OBNJAICCFIPIOLCKPPPEHMLFMKKLPIBJCCPPPEMNGCCMMNKGCLMEMOCKMNGCCMMNGGDAMNKGCLOLMNKBEBCDCDNBMNNFPIDCEMPHMNPHPIJCDCFGPIMJABAG 60 DATA AAMFOFMNPHPIOBHHEHHKNKOLPICLEOOLCKFIPIAJNJOLCDIAAPFHCDMBALHILBMCNFPIMJNFFEMNBEPJPOCKNCAPPJNGCFFHAPAPOGMAFPMNBEPJNGDALDNG 65 DATA GLBINBMJCKFKPIHOLHMKCHPJHOPOCJCDCCFKPIMADODKMJABAFAAAJHONGIDMCEDPJCDLOMKCKPJABFGPIAKLHMKEDPJDKFHPIJGACCDHOMKBIPJLHMCEDPJ 70 DATA MDCHPJ 100 DATA0#^#\#n$0#o#g$GSip$GS.$S&C#>VX#=$A&I.!8&C#SkV#=$6&I|#OZX#=$C&I#<$H&ED#&D#U#abi#V5$;&D#&I#U$8&Ii#E-#0&D8+#0#Yq8"o$=#E$> 102 DATA &I8]#F5#n&D#=$>&I#>#>#>qs|#ab@8!B#ML|#j&Iys8|$I5\&C87#F7#`#j58&CVi$[5!>&Di!;5$W&Di+-\&CP8$C$],0s#=h_#Y!78#`&HLP8#_#3L 103 DATA yk$Yi#55!5&D#>x-#`&D.#Y&D!J#M$8&I#<#V#V#=#ab.$C&D8+#0#Yw8"o$=##=h_V##>P@#Y; 104 DATA 8#`&H8!H#N8#`&H.$m&D#E$A&I$W!P#F-4&D#&D8$=#G8*&Fi>5y&Fi!75#h&Fi;5#6&E`#&E#U$8&Ii#V#Eh_|kkV5#m&E#U$ 106 DATA @&I!R5#m&EVPlqkt#=$9&I#E$>a#=$;&I#Y!;8S&EV#=$>aqq|f_8!U#\&E$Vi#T#<#R&I5!Q&Ei# 107 DATA R#&I$Y`#Qk#E$9&I#_#h#E$;&I08E$],\i!;|$>a5!F&E#6#6XslXtD!J#M$=&IL.!U&E!J#M$8&IV#E$A&I 108 DATA $W!P-!D#0V8!9$B8#`#j#E$6&Id#V#V.D&E#&IP#E$9&I#_#h#E$;&I8!C$]P##>P#=$9&I#E!0]#=$;&I#Y$[8S&E,#E$n$S!R5$[&F$S!L<5 111 DATA >&EV#U$@&I!R5!L&F8!C$]Eg&EV#<$GZ8$0#WVp5$;&F.>&E#5Y&F#<#o#^i$k5W&F#<#_#ji!75Y&F#Hi;5Y&Fi$h 112 DATA 5*&F#E#gbl#Y;#=$0b`#<#jb|mqyk83#0$R#>#0-e&F#p-$A&G#<[&H8$i&G8 114 DATA *#H#U$@&I!R/7#F/$a&G\4Q[8#H#F.$=#G8$c#jl$h#j08!9$Bl#jbui#V##P#Y#IR#1m8#>#P#Y#;R#Eh_8z#b##0-!4&H#$O$J$M$T#;$A$P$G$Gk#d#j#;#`$M$M$J$Mk#^#\#n$0#o#g#^#jkkkkkkkkkkkkkkkkkkk#Z