1 'CASUTL.100 by James Yi (1/12/89) 10 CLEAR50:GOSUB29 11 PRINT@41,"Input END address?":PRINT@121,"ENTER alone to put it just below HIMEM" 12 Y="":PRINT@60,;:LINEINPUTY:IFY=""THENB=HIMEM-E-1ELSEB=VAL(Y)-E 13 IFB>=MAXRAM-ETHENBEEP:GOTO12ELSECLEAR256,B:B=HIMEM:GOSUB29 14 CLS:A=B:C=B+E:D=D+B:S=99:M=99:PRINT@64,"Line";:PRINT@104,"Address"; 15 GOSUB24:IFO=0THENPOKEA,K:A=A+1:GOTO15 16 P=K:GOSUB24:G=P+256*K+B:P=INT(G/256):Q=G-P*256 17 POKEA,Q:A=A+1:POKEA,P:A=A+1:GOTO15 18 SAVEM"CASUTL",B,C,D:MENU 19 U=INSTR(1,Z,MID$(Y,M,1)):IFU=0THEN23 20 IFU>16THENU=U-16:O=1ELSEO=0 21 V=INSTR(1,Z,MID$(Y,M+1,1)):IFV=0ORV>16THEN23 22 K=(U-1)*16+V-1:RETURN 23 BEEP:PRINT@134,"Bad character":END 24 IFMRTHENBEEP:PRINT@133,"Checksum failed":END 26 READY:M=1:GOSUB19:IFK=0THEN18 27 S=S+1:PRINT@72,S;:PRINT@112,A;:N=K:M=3:GOSUB19:M=5:L=K:GOSUB19:L=K*256+L:R=0 28 M=M+2:GOSUB19:R=R+K:RETURN 29 DEFINTI-X:DEFSTRY-Z:Z="0123456789ABCDEFGHIJKLMNOPQRSTUV":CLS:E=1130:D=0:RETURN 100 DATA38A8183800EB22M00421U1012252F6CDAA1421HD04CD915721GC00E5CDCB12E7CDE90FFE4CCALD01FE53CAK600FE56CAQ902FE46CAK000D60DC2H9 101 DATA38271D00676F2252F6E1C9CDB84BC33A1FCD4621CDBDF2C4D0F22A99FC22D4FA3A93FCFE3BCAU50021AFF922M8043AM204FE2AC21BF2CDA8143E06 102 DATA381818CD16532AM804CDD520CAT80022M8042323230608481193FCD5CD4225E111L804CD6D5ACAN300CDAF20F5CC2942F1CAK900EBF5E521L004CD 103 DATA387D1A91572193FCCD4DF5E1F1E6F0FE80CAI601FEA0CAG101E5CD0E26E1E5CD1617E10E007EFE1ACAHD01230DC2SA00C3S300AF32M204213B3B22 104 DATA38251D93FCC372F2CDA8143E0CCD165321000022D2FA2322D0FAEB21FFFF22CEFAC395F2E511CEFACD4025E1CD503450592323E5D5CD1126CD4826 105 DATA384E1DD1E1CDV1033AE7F5FE2AC0C3M300E5CDF3052BC10822D0FAC5E5CD0B26C3H50121H304CD9157CD3E46D7C1C8C532M204FE2AC9CDFA21CD0B 106 DATA38731B4C1199FC1AFE20C021434FD9C9CDJ801CAMD01FE3FCAP002FE2EC4KB01CD4621CDB84BCDG203FED3CAM502FE9CCAPD02FED0CAP601F521G1 107 DATA38F41504CD9157F16F2600CDD439C3J2023AM204FE3B2AD0FA110000EBCAS601EBE50106000922M3042AB0FB22M5043EA0CDJF02EB22B0FB060611 108 DATA38081CCEFACD6934D1E5D5CD8A14CDB014D1E1FE8DC2UA01CD1324C2UA0132M704C3J2027BFE3921J904CAA7F321K8043AECF5B7CAI602E52AM804 109 DATA38B7177EF536002AM304444D2AM504C5CD9F6BC1F1FEA011B0FBCAH7021B1BED0801ED09D9AF32M704E1C3I602AF32M204CD9157CD29422AM004F9 110 DATA3882173B3BCD9F72D83AM204FE2AK501F2K404CDEC2022M804E52AM304444D2AM504CD6D6BE521B160DAI202D1E1F132M7041BCD392213C92AD0FA 111 DATA3875152323E522M3042A9AF922M5043E80CDJF02C12AAEFB0922AEFBEB0B0936002B36000B085059C3S601D7C2P70221J604CDFA21CD0B4CCDB84B 112 DATA3867192193FCCD0622CD2D6B32MA04E5CD8A14CDB014FE8DC2UA012181F6110001E5CD1324C2UA01E10100007EFE1ACAT702E7230378B7CAS90278 113 DATA38F31AB1D1CAJ202EB3AMA04FE56CAV402CD6D6BDAL302EB2181F6CDDD2EEB05CAQC02C3J202210526CDS203F1CD8A14CDB014214241FED3CAJ103 114 DATA387517215443FE90CAIF0321444FFE9CCAJ1032DFED0CAJ103FE8DCAG2032A99FC013ED022A2FCF5219CFC1102060E00CDB014772315C2JD0321CE 115 DATA38591DFA160A1DC2JD03CDB01479A7C2G10311D4FA1AD641FE1AD2M603ED22A2FC219CFC3AE7F5FE3BC2NA037EFE3BCAQ903C380F4FE2ACA09F5FE 116 DATA3864192EC2P9037EFE3BC2Q9033A9DFC96C2VB0232M204C1C1C3PB011193FC06081ABEC2VB02132305C2PE0321FE26CDS203CD4C22CDAF20C4RA03 117 DATA38301BF1C9E6F0CDTE03C34621CD9157219CFC3E20E7060878FE023E2ECC20007EE72305C2SD03C97E235E23562B2BFEC0CABF1FFE80CA1720C3D9 118 DATA380C131F0E007ECDC114231B7AB3C2V303C3352643616E6E6F74206C6F61642074797065200046696C65206E616D65000A4629696C65204C296F61 119 DATA38E81164205329617665205629696577203F20004469726563746F72792066756C6C0041626F7274656400536176696E673A0043415355544C434F 120 DATA0B00000000000000000000000000 121 DATA00