home *** CD-ROM | disk | FTP | other *** search
/ ftp.whtech.com / ftp.whtech.com.tar / ftp.whtech.com / club100 / prg / reseq.200 < prev    next >
Text File  |  2006-10-19  |  2KB  |  34 lines
  1. 0 'Club 100 Library, Modem 415-939-1246
  2. 1 'RESEQ.200 by James Yi, loader added by Robert Benson
  3. 10 'Program to build: RENUM.CO
  4. 11 X=99:AA=63574
  5. 12 DEFINTI-N:H$="0123456789ABCDEF"
  6. 13 PRINT@59,"Data line"
  7. 14 PRINT@99,"File address"
  8. 15 READA$:X=X+1:PRINT@72,X
  9. 16 B$=MID$(A$,1,2):GOSUB810:N=K
  10. 17 IFK=0GOTO800
  11. 18 B$=MID$(A$,3,2):GOSUB810:L=K
  12. 19 B$=MID$(A$,5,2):GOSUB810:L=K*256+L:L1=0
  13. 20 FORI=1TON:J=I*2+5
  14. 21 B$=MID$(A$,J,2):GOSUB810:POKEAA,K
  15. 22 PRINT@112,AA:L1=L1+K:AA=AA+1
  16. 23 NEXTI
  17. 24 IFL<>L1THENBEEP:PRINT@165,"Checksum error":END
  18. 25 GOTO15
  19. 100 DATA 38FD1E22FEFF444DB7C86F260022FCFFAF32F9FF2A67EFEB21050009DA82F8ED7CB5CA87F8EB2AFCFF09444DD26BF81E05C388042A67EFEB3AF9FF
  20. 101 DATA 3893203C32F9FFFE03CABEF92AFAFF2425FAAFF823444DEBCDA8821E07DA8804CDDA82EB21FFFF22FAFFCDC98FED7CB5CA87F81313ED2252F61313
  21. 102 DATA 3871251A13B7CAB5F8FE88CA05F9FE8CCA05F9FECDCA05F9FE95CA05F9FE8BCA05F9FE89CA05F9FEA5CA05F9FEA6CA05F9FE93CA05F9FE3AC2C6F8
  22. 103 DATA 38561F1AFE91C2C6F8131BEB237EFE20CA07F92BD7DA17F9EBC3C6F822F5FF2BCD1709EB22F3FF2AFEFF444D2A67EFEBED7CB56B1E08CAF6045D13
  23. 104 DATA 38D91D13EDD5EB2AF3FFDFD1CA50F91313CDE6F92AFCFF09444DC32BF96069CD0B473E0DE7010600219BF60D237EFE20CA5EF922F1FFC52AF5FF0D
  24. 105 DATA 386222D7DA6DF92AFAFF0979B7F27EF908050922FAFFD13AF9FF3DCAAEF92A61F6092261F62AF5FFD5DA9DF9CDA882C3A6F979EEFF4F0403CDDA82
  25. 106 DATA 383D20C1EB2AF1FFCD553C2AF5FFD7DAB1F9EBFE2CCA06F9C3C6F82A67EFEB2AFEFF444DED7CB5CA622CD513137912137812132AFCFF09444DCDE6
  26. 107 DATA 0FB309F9E1732372C3C7F91A13B7C2E6F9C9
  27. 108 DATA 000000
  28. 800 SAVEM"RENUM",63574,63980,63574:BEEP:MENU
  29. 810 B1$=LEFT$(B$,1):K1=INSTR(1,H$,B1$):IF K1=0GOTO840
  30. 820 B1$=RIGHT$(B$,1):K2=INSTR(1,H$,B1$):IF K2=0GOTO840
  31. 830 K=(K1-1)*16+K2-1:RETURN
  32. 840 BEEP:PRINT@165,"Non HEX Character in DATA"
  33. 850 END
  34.