0 '"PRNKYO.BA" -- Loader for KC-85 version of PRN100 by Jim Irwin. KC-85 translation by Phil Wheeler - 71266,125 2 GOSUB99 3 PRINT@42,"Enter end address";:PRINT@82," for just below current HIMEM" 4 Y="":PRINT@122,SPACE$(30);:PRINT@122,;:INPUTY:IFY=""THENB=HIMEM-E-1ELSEB=VAL(Y)-E 5 IFB>=MAXRAM-ETHENBEEP:GOTO4ELSECLEAR256,B:B=HIMEM:GOSUB99 6 CLS:A=B:C=B+E:D=D+B:S=99:M=99:PRINT@48,"Line";:PRINT@88,"Address"; 7 GOSUB60:IFO=0THENPOKEA,K:A=A+1:GOTO7 8 P=K:GOSUB60:G=P+256*K+B:P=INT(G/256):Q=G-P*256 9 POKEA,Q:A=A+1:POKEA,P:A=A+1:GOTO7 40 SAVEM"PRNKYO",B,C,D:MENU 50 U=INSTR(1,Z,MID$(Y,M,1)):IFU=0THEN55 51 IFU>16THENU=U-16:O=1ELSEO=0 52 V=INSTR(1,Z,MID$(Y,M+1,1)):IFV=0ORV>16THEN55 53 K=(U-1)*16+V-1:RETURN 55 BEEP:PRINT@165,"Bad character";:END 60 IFMRTHENBEEP:PRINT@165,"Checksum fail";END 62 READY:M=1:GOSUB50:IFK=0THEN40 63 S=S+1:PRINT@70,S;:PRINT@110,A;:N=K:M=3:GOSUB50:M=5:L=K:GOSUB50:L=K*256+L:R=0 70 M=M+2:GOSUB50:R=R+K:RETURN 99 DEFINTI-X:DEFSTRY-Z:Z="0123456789ABCDEFGHIJKLMNOPQRSTUV":CLS:E=3059:D=603:RETURN 100 DATA38FE0201FFFFFF00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 101 DATA38DE080000000001FFFF000000000000000000000000000000000000000000000000000000000000000000000000003AT40BB7C0CDD412FE1BC0C3 102 DATA386017HE03F57E233CC2N3007E233CC2N9007E3CCAO600F1C9F1F12AR107C3MA07F132R70B32S90B2ASC0B2B237EFE0DC2Q800237EFE0ACAP9002B 103 DATA38031822SC0BC9CDAD39CDFE41C9D5AF5F47041C1AFE20CAR700D1053AT60BB8F07832T60BC9231C1AB7C2SB001D2BAF12C3K20BCDRC0A3AG3063D 104 DATA389E1632TD0B21H901CD63573ATD0B3C32TD0B6FAF67CDQC001E3F1631D5CDU5081DF2VB00D121V9057E2386238682003C57CDU5081DF2GF01C3PE 105 DATA38AE14080C506167652000CASE08C3U300CDF26EC00000DBBBE606FE02CAJE0121QC01CD6357C3I60121MB01CD63573AG10621JC00BECALC014623 106 DATA386A1204C2KE014604CAG807C3KA01F5237E3CCAR7073DCDRE07C3LD01001B59262B5072696E74696E67202D205573652045534320746F2041626F 107 DATA38A8187274008257C3QD08DBBBE606FE02C2RF07F1CD354BF53AG206FE59C2Q90132B3FAF1C9001B59262B5072696E746572204E6F742052656164 108 DATA382B1479003AT40BB73AS90BCAK408E10021TC01CD6357C93E0BE7C3HB02001B592229496E76616C696420537461727420506167652E00CDLE08CD 109 DATA389E14T900C3H502CDLE08CDVC08C3H502CDM108CDIC01C3T501CDLE08CDR309CDG403CD0D422AT00B22SC0BC3NB040000362F23362F2B34D664D2 110 DATA388416IC02C6642334D60AD2J502C63A23772B2B7EFE30C03620237EFE30C03620C93AVB0532TC0BC3TD05CD0D4221J903CD6357CDU10721U60BCD 111 DATA38091B6357CD254221UA0BCDG403FE0DCATB02E5F521I703CD6357F1E1FE21DAP302E7777DFEEFC2P202AF772B23CDG403FE0DCARA02FE08C2R202 112 DATA3844174F3A41F6FE0A79DAP302E72B3E20E73E08E7FE20DAP302C3O702AF7721UA0B06067EFE2ECAT002B7CAT0022305C2S102362E23364423364F 113 DATA38DA1923360011UA0B3E0ACDB657C2VE0221MF03CD635721UA0BCD635721E159CD635721UA0BC3N802CDEE57C3N504E5D5CDF26ED1E1CAG403DAH9 114 DATA38381003CDF00FFE03C03E07FE073E00C0E1CD326FC9C90000001B5927282020202020202020201B592728001B5921271B70204D6F64656C203130 115 DATA38D9103020546578742050726F636573736F72201B711B59272053656C6563743A1B5927434D656E75001B5921291B6C46696C6520004C65667420 116 DATA38A4104D617267696E202020203130005269676874204D617267696E20202031300043686172205072696E7465642020203630004A757374696679 117 DATA3821102052696768742020204E00546F70204D617267696E2020202020203600426F74746F6D204D617267696E202020380050616765204C656E67 118 DATA38BC0E746820202020363600446F75626C65205370616365202020204E00466F6E7420436F6465202020202020203100416464204C696E65204665 119 DATA38371165642020204E0053746172742040205061676520202020310057616974204274776E20506167657320590001FF0C21NB033E5BE77EE73E5D 120 DATA381016E723CD6357230CC2N0043E20E7E70D0D05C2L904C922SC0BCD0D42CDL3043E0AE7CD454221UA0BCD6357CD4A4221P604CD6357C3R8041B59 121 DATA381A14272A46696C652047727068205042726B20446973702050726E74204D656E7500210701CD584221LF030607CDM808CDF26ECAS604D2UE04FE 122 DATA38001902CAL802FE03CAV401FE04CAVD01FE05CAGF02FE06CAG602FE07C2S604C9CDF00FFE58D2S60411V90501120021NB03E521UC05BECAK905F6 123 DATA38711980BECAHE05E67FF57EB7CAU305F1E309E31323C3G305E1FEC6CAJ5051AFE59CAJ0053E5912C3PF053E4EC3IC051AFE30CAK305FE32CAK205 124 DATA38E0133E2D3C3C3CC32EEF00210701CD5842E1060ECDA91B21U8050603CDG403FE08C2N60578FE03CALA05042B3E08E73E20E73E08E7C3LA05FE0D 125 DATA383816CAP205FE30DALA05FE3BD2LA054F78B7CALA0579C3L708000000360021U805D5CDF208EBD17D123E1BE73E6CE711UC0501120021O903E521 126 DATA38B31DV9051AB7C2RB05E1C3KF02FE80DASE057E23E3E5232377E109E313C3R2057E23E3E5C5CDI602C1E1C3S805ADFF3E0BE7C3NB04E1E1C3S604 127 DATA38A307380000004C5243CA544250C446C153D7000A0A3C4E0608424E014E0159000000000000000000000000000000000000000000000000000000 128 DATA3800000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 129 DATA3800000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 130 DATA3800000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 131 DATA3800000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 132 DATA384E110000000000000000CDRC0A3AVD05473E0ACDM207CDS509473AV90580473AU40B80473E20CDM207CDMA073AG006FE59C2J90706013E0ACDM2 133 DATA381615073AT40BB7CAK407CDL707C93AS90B3D32S90BC2H407CDL707CDG70AC3GB073E0CCDRE07C3T50700000005F8CDRE07C3M2077E23FE0ACAO1 134 DATA38B71707FE0DCANB07FE20DAO907CDRE07C3MA07CDRE07AF32T50BC9462322R10721JC00BEC4N200C2P10778FE2BCAQ407237E3CC2PE07237E3CCA 135 DATA384516O8003DCDRE07C3Q40774000DC3I10BF1C3G807000000F5CDV208CAP001FE1BC4D412FE1BC2P001F1C3SC0800003AG406FE4EC8C3M4000000 136 DATA38F31200210401CD584221A0F9010B00097E3CC8C3I10800573AU40B8257AF32T50BC3P8083AG006FE59C2GB081C3AS90BC3T2083AG006FE59C2I0 137 DATA387513073E01CDOD07C3I007FEC1C2UD07E52323233E20E7C3N10800CDG70A3AG3063DCAG70A32L30BCDS509C3S2013D32S90BC2JE08CDG70A3AL3 138 DATA3888140BC3J70800000077E72305C3LA05CD0D422ASC0B22T00BC9CDA91BCD3942C900001E067EE7231DC2N3083E20E7E1C3UD0700D53AT60B5F1C 139 DATA38521B1AFE20C2P208D1C3LE0BB7C2O708D1C93AV905C3OB013AVD055FD5CDS509D1163282C3V5077EFE0DCAS308FE20CARE08DAP309CDU5081423 140 DATA38071DC3QD081C3AT40BB7CAG208C9E1E1E1C3H8023D32S90BC2Q208CDG70ACDD412FE1BC3I00100D5E5CDFA70E1D1C93ATB0B3CC9E5D5CDF26ED1 141 DATA388F19E1C90000CDRC0A0000003AT40BB7C0CDS509F53AR70B473AS90BB8C2I309F1CDU009CDQ80ACDV509C3G209FE01CAIC09F1C3HA09F1CDU009 142 DATA382012C3HA0900000000000000000006283EF1E705C2K009C9FE10C2H00B3E0132S90BC9CDM4093AG006FE59C2LF093E0AE7AF32T50BC93AU40B47 143 DATA386D133E2005FAN409E7C3MA0900237E23B7C8FE0DC2O509E7C3N40900000000FE0ACAND09FE20DAN309E7C3N4092323C3QD080000000000000000 144 DATA384C0E00000000000000000000000000000000000000CDRC0ACDS509CDU009CDQ80ACDV509C3R609CDV00A22SC0B3E0D121C3E0A121CAF1221G506 145 DATA38761C3AT50BB7C8791FC9473E2005FAUB09E7C3U309CDL1093AT40BB7C8F1C9CDF26EC8FE1BCASD08CDD412FE1BCASD08C921VD057E2346238047 146 DATA389C157E90473AG006FE5978C2OF001FC3OF00007E32U40BC3VE0AFE0DC2JA0A00233AT90B32T60BAF120000C9FE1AC2K30A32T40BC9FE03C2KF0A 147 DATA38191432T50B00C3H00BFE09C2M30A0006083E20121C0D05C2L90AC3H00BFE17C2N50AAF32TA0B32T90B32T60BC3KB0AFE18C2O50AAF32TA0BCDUD 148 DATA3856160891C3MC0AFE19C2P60ACDUD08914779984F78C3M90AFE10C2Q10A3E0132S90BC9121C0CC3H00B003AS90B3D32S90BC0CDG70ACDJC09C3VE 149 DATA38331409000000AF21S90B77237723773E09856F0607AF772305C2SC0AC3J1081C1AFE20C2MB0BC3T50A041AFE20C2NF0B1DC3U00AC5462C70C1C9 150 DATA38B71021T90B3AT60BB7CAI10AAFC3I20A2346804723237E902B774F0C2ASC0B11G5067E23FE20DAI80A121C0DC2H00BAF120C0C1D3AT60BBB0000 151 DATA386815CASC002B1AFE20DAR307C2I00B0D0C1D1AFE20CAJ60B0D1CAF122B237EFE20CAK30BCDR80BAF32T60BC9000132T60B1AB7C81CC3L70BCDR3 152 DATA38D81800473AT70BB7C2NC0B581C1AB7CAM90BFE20C2MA0BCDP20B1CC3T50A43581D3AT60BBBCAND0B1AFE20C2NE0BCDP20BC3TF0AE5D5E12C7EB7 153 DATA386015C2P50B7BCDUA0A2DBDCAQ80B2DC3PC0BE10DC0F13AT70B2F32T70BAFC3L40B340DC83AVC05FE59C0C3O2080000000000002D000028B82020 154 DATA24B90528B835381A000A00000A003C3C010C420606594E00001B592728544553542E444F000000 155 DATA00