home *** CD-ROM | disk | FTP | other *** search
/ ftp.whtech.com / ftp.whtech.com.tar / ftp.whtech.com / club100 / utl / casutl.100 < prev    next >
Text File  |  2006-10-19  |  4KB  |  44 lines
  1. 1 'CASUTL.100 by James Yi (1/12/89)
  2. 10 CLEAR50:GOSUB29
  3. 11 PRINT@41,"Input END address?":PRINT@121,"ENTER alone to put it just below HIMEM"
  4. 12 Y="":PRINT@60,;:LINEINPUTY:IFY=""THENB=HIMEM-E-1ELSEB=VAL(Y)-E
  5. 13 IFB>=MAXRAM-ETHENBEEP:GOTO12ELSECLEAR256,B:B=HIMEM:GOSUB29
  6. 14 CLS:A=B:C=B+E:D=D+B:S=99:M=99:PRINT@64,"Line";:PRINT@104,"Address";
  7. 15 GOSUB24:IFO=0THENPOKEA,K:A=A+1:GOTO15
  8. 16 P=K:GOSUB24:G=P+256*K+B:P=INT(G/256):Q=G-P*256
  9. 17 POKEA,Q:A=A+1:POKEA,P:A=A+1:GOTO15
  10. 18 SAVEM"CASUTL",B,C,D:MENU
  11. 19 U=INSTR(1,Z,MID$(Y,M,1)):IFU=0THEN23
  12. 20 IFU>16THENU=U-16:O=1ELSEO=0
  13. 21 V=INSTR(1,Z,MID$(Y,M+1,1)):IFV=0ORV>16THEN23
  14. 22 K=(U-1)*16+V-1:RETURN
  15. 23 BEEP:PRINT@134,"Bad character":END
  16. 24 IFM<N*2+5THEN28
  17. 25 IFL<>RTHENBEEP:PRINT@133,"Checksum failed":END
  18. 26 READY:M=1:GOSUB19:IFK=0THEN18
  19. 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
  20. 28 M=M+2:GOSUB19:R=R+K:RETURN
  21. 29 DEFINTI-X:DEFSTRY-Z:Z="0123456789ABCDEFGHIJKLMNOPQRSTUV":CLS:E=1130:D=0:RETURN
  22. 100 DATA38A8183800EB22M00421U1012252F6CDAA1421HD04CD915721GC00E5CDCB12E7CDE90FFE4CCALD01FE53CAK600FE56CAQ902FE46CAK000D60DC2H9
  23. 101 DATA38271D00676F2252F6E1C9CDB84BC33A1FCD4621CDBDF2C4D0F22A99FC22D4FA3A93FCFE3BCAU50021AFF922M8043AM204FE2AC21BF2CDA8143E06
  24. 102 DATA381818CD16532AM804CDD520CAT80022M8042323230608481193FCD5CD4225E111L804CD6D5ACAN300CDAF20F5CC2942F1CAK900EBF5E521L004CD
  25. 103 DATA387D1A91572193FCCD4DF5E1F1E6F0FE80CAI601FEA0CAG101E5CD0E26E1E5CD1617E10E007EFE1ACAHD01230DC2SA00C3S300AF32M204213B3B22
  26. 104 DATA38251D93FCC372F2CDA8143E0CCD165321000022D2FA2322D0FAEB21FFFF22CEFAC395F2E511CEFACD4025E1CD503450592323E5D5CD1126CD4826
  27. 105 DATA384E1DD1E1CDV1033AE7F5FE2AC0C3M300E5CDF3052BC10822D0FAC5E5CD0B26C3H50121H304CD9157CD3E46D7C1C8C532M204FE2AC9CDFA21CD0B
  28. 106 DATA38731B4C1199FC1AFE20C021434FD9C9CDJ801CAMD01FE3FCAP002FE2EC4KB01CD4621CDB84BCDG203FED3CAM502FE9CCAPD02FED0CAP601F521G1
  29. 107 DATA38F41504CD9157F16F2600CDD439C3J2023AM204FE3B2AD0FA110000EBCAS601EBE50106000922M3042AB0FB22M5043EA0CDJF02EB22B0FB060611
  30. 108 DATA38081CCEFACD6934D1E5D5CD8A14CDB014D1E1FE8DC2UA01CD1324C2UA0132M704C3J2027BFE3921J904CAA7F321K8043AECF5B7CAI602E52AM804
  31. 109 DATA38B7177EF536002AM304444D2AM504C5CD9F6BC1F1FEA011B0FBCAH7021B1BED0801ED09D9AF32M704E1C3I602AF32M204CD9157CD29422AM004F9
  32. 110 DATA3882173B3BCD9F72D83AM204FE2AK501F2K404CDEC2022M804E52AM304444D2AM504CD6D6BE521B160DAI202D1E1F132M7041BCD392213C92AD0FA
  33. 111 DATA3875152323E522M3042A9AF922M5043E80CDJF02C12AAEFB0922AEFBEB0B0936002B36000B085059C3S601D7C2P70221J604CDFA21CD0B4CCDB84B
  34. 112 DATA3867192193FCCD0622CD2D6B32MA04E5CD8A14CDB014FE8DC2UA012181F6110001E5CD1324C2UA01E10100007EFE1ACAT702E7230378B7CAS90278
  35. 113 DATA38F31AB1D1CAJ202EB3AMA04FE56CAV402CD6D6BDAL302EB2181F6CDDD2EEB05CAQC02C3J202210526CDS203F1CD8A14CDB014214241FED3CAJ103
  36. 114 DATA387517215443FE90CAIF0321444FFE9CCAJ1032DFED0CAJ103FE8DCAG2032A99FC013ED022A2FCF5219CFC1102060E00CDB014772315C2JD0321CE
  37. 115 DATA38591DFA160A1DC2JD03CDB01479A7C2G10311D4FA1AD641FE1AD2M603ED22A2FC219CFC3AE7F5FE3BC2NA037EFE3BCAQ903C380F4FE2ACA09F5FE
  38. 116 DATA3864192EC2P9037EFE3BC2Q9033A9DFC96C2VB0232M204C1C1C3PB011193FC06081ABEC2VB02132305C2PE0321FE26CDS203CD4C22CDAF20C4RA03
  39. 117 DATA38301BF1C9E6F0CDTE03C34621CD9157219CFC3E20E7060878FE023E2ECC20007EE72305C2SD03C97E235E23562B2BFEC0CABF1FFE80CA1720C3D9
  40. 118 DATA380C131F0E007ECDC114231B7AB3C2V303C3352643616E6E6F74206C6F61642074797065200046696C65206E616D65000A4629696C65204C296F61
  41. 119 DATA38E81164205329617665205629696577203F20004469726563746F72792066756C6C0041626F7274656400536176696E673A0043415355544C434F
  42. 120 DATA0B00000000000000000000000000
  43. 121 DATA00
  44.