0 'SORTHI.200 -- Creates SORTHI.CO for the Tandy 200. Based on Rick Perry's SORT program, this one runs in ALT LCD buffer 1 'Source is SORTHI.SRC. Phil Wheeler -- 71266,125 [1/3/88] 2 GOSUB99 3 B=63574 6 CLS:PRINT" Creating SORTHI.CO";:A=B:C=B+E:D=D+B:S=99:M=99:PRINT@88,"Line";:PRINT@128,"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"SORTHI",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@205,"Bad character";:END 60 IFMRTHENBEEP:PRINT@205,"Checksum fail";END 62 READY:M=1:GOSUB50:IFK=0THEN40 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 70 M=M+2:GOSUB50:R=R+K:RETURN 99 DEFINTI-X:DEFSTRY-Z:Z="0123456789ABCDEFGHIJKLMNOPQRSTUV":CLS:E=284:D=0:RETURN 100 DATA38141DCD4D4FCD2A2ACD3E4F2154F9CD9E67CDF654D7CA3DF92170EFE52B23CD131077FE2ECA7FF8B7C271F81150F90604CDBA41D13E0ACD4F6ECA 101 DATA3897272BF9CD8C6E226FF9AF326EF92A6FF9E5CDFAF82271F9E1EB482A71F9E5CDFAF82271F9E178B7CAC6F8C5D5E5CDEDF8E1D1C1DCD0F8C3A5F8 102 DATA38101F3A6EF9B7C296F8C356F8C5E51170EFCDA732D1EB0CCD603C1170EFC104CDBD41413EFF326EF9C9EB1ABEC01305C8230DC2EEF8C906007EFE 103 DATA38041C1AC82304CA11F9FE0DC2FCF87EFE0AC02304C0CD4D4FD1E106647EE72305C218F9C322F92163F9CD9E67C331F921166FCD9E67CD454F2140 104 DATA38EF14F9CD9E67CDE572C3A467507265737320537061636520426172002E444F0046696C6520746F20736F72743F20004C6F6E67204C696E652100 105 DATA0500000000000000 106 DATA00