home *** CD-ROM | disk | FTP | other *** search
/ ftp.whtech.com / ftp.whtech.com.tar / ftp.whtech.com / club100 / txt / uc2mix.ba < prev    next >
Text File  |  2006-10-19  |  1KB  |  26 lines

  1. 1 'UC2MIX.100 by Phil Wheeler 8/2/87
  2. 2 'Loader to create UC2MIX.CO, a short machine language program which runs in
  3. 3 'the Alt LCD buffer to convert all Upper Case text files to a mixed format.
  4. 10 GOSUB26:B=64704:A=B:C=B+E:D=D+B:S=99:M=99
  5. 11 CLS:PRINT@10,"Creating UC2MIX.CO";:PRINT@130,"Line";:PRINT@170,"Address";
  6. 12 GOSUB21:IFO=0THENPOKEA,K:A=A+1:GOTO12
  7. 13 P=K:GOSUB21:G=P+256*K+B:P=INT(G/256):Q=G-P*256
  8. 14 POKEA,Q:A=A+1:POKEA,P:A=A+1:GOTO12
  9. 15 SAVEM"UC2MIX",B,C,D:MENU
  10. 16 U=INSTR(1,Z,MID$(Y,M,1)):IFU=0THEN20
  11. 17 IFU>16THENU=U-16:O=1ELSEO=0
  12. 18 V=INSTR(1,Z,MID$(Y,M+1,1)):IFV=0ORV>16THEN20
  13. 19 K=(U-1)*16+V-1:RETURN
  14. 20 BEEP:PRINT@210,"Bad character":END
  15. 21 IFM<N*2+5THEN25
  16. 22 IFL<>RTHENBEEP:PRINT@210,"Checksum failed":END
  17. 23 READY:M=1:GOSUB16:IFK=0THEN15
  18. 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
  19. 25 M=M+2:GOSUB16:R=R+K:RETURN
  20. 26 DEFINTI-X:DEFSTRY-Z:Z="0123456789ABCDEFGHIJKLMNOPQRSTUV":E=209:D=0:RETURN
  21. 100 DATA38F81DCD3142CD3A1FCD22422170FDCD9157CD4446D7CA51FD2185F6E52B23CDE80F77FE2ECAE9FCB7C2DBFC116CFD0604CD6934D13E0ACDAB5ACA
  22. 101 DATA382A223FFDCDE35A06017EFE1ACAC0FCFE2ECA39FDFE3FCA39FDFE3ACA39FDFE21CA39FDFE5BD23BFDFE41DA3BFDF578FE01C230FDF10600C33BFD
  23. 102 DATA381A19F1C620770600C33BFD060123C3FFFC2182FDCD9157CD62762154FDCD9157CD2F5FC3975750726573732053706163652042617220746F2045
  24. 103 DATA2A250D786974002E444F0046696C6520746F2050726F636573733F200046696C65206E6F7420466F756E642100
  25. 104 DATA00
  26.