home *** CD-ROM | disk | FTP | other *** search
/ ftp.whtech.com / ftp.whtech.com.tar / ftp.whtech.com / club100 / txt / sorthi.200 < prev    next >
Text File  |  2006-10-19  |  2KB  |  28 lines
  1. 0 'SORTHI.200 -- Creates SORTHI.CO for the Tandy 200.  Based on Rick Perry's SORT program, this one runs in ALT LCD buffer
  2. 1 'Source is SORTHI.SRC. Phil Wheeler -- 71266,125 [1/3/88]
  3. 2 GOSUB99
  4. 3 B=63574
  5. 6 CLS:PRINT"        Creating SORTHI.CO";:A=B:C=B+E:D=D+B:S=99:M=99:PRINT@88,"Line";:PRINT@128,"Address";
  6. 7 GOSUB60:IFO=0THENPOKEA,K:A=A+1:GOTO7
  7. 8 P=K:GOSUB60:G=P+256*K+B:P=INT(G/256):Q=G-P*256
  8. 9 POKEA,Q:A=A+1:POKEA,P:A=A+1:GOTO7
  9. 40 SAVEM"SORTHI",B,C,D:MENU
  10. 50 U=INSTR(1,Z,MID$(Y,M,1)):IFU=0THEN55
  11. 51 IFU>16THENU=U-16:O=1ELSEO=0
  12. 52 V=INSTR(1,Z,MID$(Y,M+1,1)):IFV=0ORV>16THEN55
  13. 53 K=(U-1)*16+V-1:RETURN
  14. 55 BEEP:PRINT@205,"Bad character";:END
  15. 60 IFM<N*2+5THEN70
  16. 61 IFL<>RTHENBEEP:PRINT@205,"Checksum fail";END
  17. 62 READY:M=1:GOSUB50:IFK=0THEN40
  18. 63 S=S+1:PRINT@110,S;:PRINT@150,A;:N=K:M=3:GOSUB50:M=5:L=K:GOSUB50:L=K*256+L:R=0
  19. 70 M=M+2:GOSUB50:R=R+K:RETURN
  20. 99 DEFINTI-X:DEFSTRY-Z:Z="0123456789ABCDEFGHIJKLMNOPQRSTUV":CLS:E=284:D=0:RETURN
  21. 100 DATA38141DCD4D4FCD2A2ACD3E4F2154F9CD9E67CDF654D7CA3DF92170EFE52B23CD131077FE2ECA7FF8B7C271F81150F90604CDBA41D13E0ACD4F6ECA
  22. 101 DATA3897272BF9CD8C6E226FF9AF326EF92A6FF9E5CDFAF82271F9E1EB482A71F9E5CDFAF82271F9E178B7CAC6F8C5D5E5CDEDF8E1D1C1DCD0F8C3A5F8
  23. 102 DATA38101F3A6EF9B7C296F8C356F8C5E51170EFCDA732D1EB0CCD603C1170EFC104CDBD41413EFF326EF9C9EB1ABEC01305C8230DC2EEF8C906007EFE
  24. 103 DATA38041C1AC82304CA11F9FE0DC2FCF87EFE0AC02304C0CD4D4FD1E106647EE72305C218F9C322F92163F9CD9E67C331F921166FCD9E67CD454F2140
  25. 104 DATA38EF14F9CD9E67CDE572C3A467507265737320537061636520426172002E444F0046696C6520746F20736F72743F20004C6F6E67204C696E652100
  26. 105 DATA0500000000000000
  27. 106 DATA00
  28.