home *** CD-ROM | disk | FTP | other *** search
/ ftp.whtech.com / ftp.whtech.com.tar / ftp.whtech.com / club100 / utl / qkrchk.ba < prev    next >
Text File  |  2006-10-19  |  2KB  |  28 lines
  1. 0 'QKRCHK.100  Phil Wheeler                [71266,125] [8/3/87]
  2. 1 'CLUB 100 Library - 415/939-1246 BBS,    937-5039 NEWSLETTER, 932-8856 VOICE
  3. 2 'Creates QKRCHK.CO, a machine language checksum program for the Model 100/102 which runs in the alternate LCD buffer. Based on Jim Moore's programs QIKCHK & CHECK.ASM
  4. 3 GOSUB99
  5. 4 B=64704
  6. 6 CLS:PRINT"        Creating QKRCHK.CO";:A=B:C=B+E:D=D+B:S=99:M=99:PRINT@88,"Line";:PRINT@128,"Address";
  7. 7 GOSUB60:IFO=0THENPOKEA,K:A=A+1:GOTO7
  8. 8 P=K:GOSUB60:G=P+256*K+B:P=INT(G/256):Q=G-P*256
  9. 9 POKEA,Q:A=A+1:POKEA,P:A=A+1:GOTO7
  10. 40 SAVEM"QKRCHK",B,C,D:MENU
  11. 50 U=INSTR(1,Z,MID$(Y,M,1)):IFU=0THEN55
  12. 51 IFU>16THENU=U-16:O=1ELSEO=0
  13. 52 V=INSTR(1,Z,MID$(Y,M+1,1)):IFV=0ORV>16THEN55
  14. 53 K=(U-1)*16+V-1:RETURN
  15. 55 BEEP:PRINT@205,"Bad character";:END
  16. 60 IFM<N*2+5THEN70
  17. 61 IFL<>RTHENBEEP:PRINT@205,"Checksum fail";END
  18. 62 READY:M=1:GOSUB50:IFK=0THEN40
  19. 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
  20. 70 M=M+2:GOSUB50:R=R+K:RETURN
  21. 99 DEFINTI-X:DEFSTRY-Z:Z="0123456789ABCDEFGHIJKLMNOPQRSTUV":CLS:E=279:D=0:RETURN
  22. 100 DATA384D1FCD3142CD3A1F21C0FDCD9157CD4446D7CA97572185F6E52B23CDE80F77FE2ECAE6FCB7C2D8FC11BCFD0604CD6934D13E0ACDAB5ACA82FDCD
  23. 101 DATA389E1FE35AEBAF6F674F1A13FE0DCAFFFCFE0ACAFFFCFE1ACA1BFDD55FAF5719894FD1C3FFFC11D5FDEB732372237101CCFD2197FD3E3002E511D5
  24. 102 DATA387613FD1A961213231A9E1213231A9E12E10A3C02D22DFD3D0211D5FD1A861213231A8E1213231A8E120323AFBEC22AFD16043E3021CCFDBEC270
  25. 103 DATA38161EFD36202315C265FD21C7FDCD915721B0FDCD9157CD2F5FC3C0FC21D65CCD9157CD627621B0FDCD9157CD2F5FC3C0FC80969840420FA08601
  26. 104 DATA380F09102700E803006400000A0000010000005461702053504320426172002E444F0046696C653F2000436B73203D000000000000000000000000
  27. 105 DATA00
  28.