home *** CD-ROM | disk | FTP | other *** search
/ ftp.whtech.com / ftp.whtech.com.tar / ftp.whtech.com / club100 / utl / hide.200 < prev    next >
Text File  |  2006-10-19  |  1KB  |  25 lines
  1. 1 'HIDE.200 by Harvey Chrisley (4/3/92)
  2. 10 CLS:CLEAR50:X=99:AA=63574
  3. 11 DEFINTI-N:H$="0123456789ABCDEF"
  4. 12 PRINT@59,"Data line"
  5. 13 PRINT@99,"File address"
  6. 14 READA$:X=X+1:PRINT@72,X
  7. 15 B$=MID$(A$,1,2):GOSUB25:N=K
  8. 16 IFK=0THENSAVEM"HIDE",63574,63708,63574:END
  9. 17 B$=MID$(A$,3,2):GOSUB25:L=K
  10. 18 B$=MID$(A$,5,2):GOSUB25:L=K*256+L:L1=0
  11. 19 FORI=1TON
  12. 20 J=I*2+5:B$=MID$(A$,J,2):GOSUB25
  13. 21 POKEAA,K:PRINT@112,AA:AA=AA+1:L1=L1+K
  14. 22 NEXTI
  15. 23 IFL<>L1THENBEEP:PRINT@165,"Checksum error":END
  16. 24 GOTO14
  17. 25 B1$=LEFT$(B$,1):K1=INSTR(1,H$,B1$):IF K1=0GOTO28
  18. 26 B1$=RIGHT$(B$,1):K2=INSTR(1,H$,B1$):IF K2=0GOTO28
  19. 27 K=(K1-1)*16+K2-1:RETURN
  20. 28 BEEP:PRINT@165,"Non HEX Character in DATA":END
  21. 100 DATA 38231CCD4D4F0152F20AFEFFCA98F8E680CA8DF80AE60ACA70F8CD884F03030360690606CDC6263E2EE70602CDC626CD8D4F3EF5E7444DC35CF879
  22. 101 DATA 38041ECE0BD294F8044FC35CF8CD3E4FCD3E4F21D1F8CDF66DCDF654EB133E092133F8CD066E3E00771133F81AFE00CACEF8CD556ECACEF8EB1AEE
  23. 102 DATA 1724090A12CD494FC359F8C3A46746696C656E616D653A1B4B00
  24. 103 DATA 000000
  25.