home *** CD-ROM | disk | FTP | other *** search
/ ftp.whtech.com / ftp.whtech.com.tar / ftp.whtech.com / club100 / txt / sorthi.100 < prev    next >
Text File  |  2006-10-19  |  2KB  |  25 lines
  1. 1 'SORTHI.BA by Phil Wheeler - Creates a self-contained version of Rick Perry's SORT.CO which runs in the Alt LCD buffer
  2. 10 GOSUB26:B=64704:A=B:C=B+E:D=D+B:S=99:M=99
  3. 11 CLS:PRINT@10,"Creating SORTHI.CO";:PRINT@130,"Line";:PRINT@170,"Address";
  4. 12 GOSUB21:IFO=0THENPOKEA,K:A=A+1:GOTO12
  5. 13 P=K:GOSUB21:G=P+256*K+B:P=INT(G/256):Q=G-P*256
  6. 14 POKEA,Q:A=A+1:POKEA,P:A=A+1:GOTO12
  7. 15 SAVEM"SORTHI",B,C,D:MENU
  8. 16 U=INSTR(1,Z,MID$(Y,M,1)):IFU=0THEN20
  9. 17 IFU>16THENU=U-16:O=1ELSEO=0
  10. 18 V=INSTR(1,Z,MID$(Y,M+1,1)):IFV=0ORV>16THEN20
  11. 19 K=(U-1)*16+V-1:RETURN
  12. 20 BEEP:PRINT@210,"Bad character":END
  13. 21 IFM<N*2+5THEN25
  14. 22 IFL<>RTHENBEEP:PRINT@210,"Checksum failed":END
  15. 23 READY:M=1:GOSUB16:IFK=0THEN15
  16. 24 S=S+1:PRINT@142,S;:PRINT@182,A;:N=K:M=3:GOSUB16:M=5:L=K:GOSUB16:L=K*256+L:R=0
  17. 25 M=M+2:GOSUB16:R=R+K:RETURN
  18. 26 DEFINTI-X:DEFSTRY-Z:Z="0123456789ABCDEFGHIJKLMNOPQRSTUV":CLS:E=284:D=0:RETURN
  19. 100 DATA38EA1ECD3142CD3A1FCD224221BEFDCD9157CD4446D7CAA7FD2185F6E52B23CDE80F77FE2ECAE9FCB7C2DBFC11BAFD0604CD6934D13E0ACDAB5ACA
  20. 101 DATA38762795FDCDE35A22D9FDAF32D8FD2AD9FDE5CD64FD22DBFDE1EB482ADBFDE5CD64FD22DBFDE178B7CA30FDC5D5E5CD57FDE1D1C1DC3AFDC30FFD
  21. 102 DATA381A1F3AD8FDB7C200FDC3C0FCC5E51185F6CD4225D1EB0CCDE82E1185F6C104CD6C34413EFF32D8FDC9EB1ABEC01305C8230DC258FDC906007EFE
  22. 103 DATA38911E1AC82304CA7BFDFE0DC266FD7EFE0AC02304C0CD3142D1E106647EE72305C282FDC38CFD21CDFDCD9157C39BFD21D65CCD9157CD627621AA
  23. 104 DATA38F013FDCD9157CD2F5FC39757507265737320537061636520426172002E444F0046696C6520746F20736F72743F20004C6F6E67204C696E652100
  24. 105 DATA0500000000000000
  25.