home *** CD-ROM | disk | FTP | other *** search
/ ftp.whtech.com / ftp.whtech.com.tar / ftp.whtech.com / club100 / txt / view80.200 < prev    next >
Text File  |  2006-10-19  |  3KB  |  44 lines
  1. 1 'VIEW80.200 by James Yi, loader added by Robert Benson
  2. 2 'VIEW80 pauses after one full screen.
  3. 3 'Press any key except S to continue.
  4. 4 'Press "S" for continuous scrolling.
  5. 5 'Press any other key to pause.
  6. 6 'Press "S" again for paging.
  7. 7 'Press [ESC] to quit.
  8. 10 CLS:CLEAR50,60242:X=99:AA=60242
  9. 11 DEFINTI-N:H$="0123456789ABCDEF"
  10. 12 PRINT@59,"Data line"
  11. 13 PRINT@99,"File address"
  12. 14 READA$:X=X+1:PRINT@72,X
  13. 15 B$=MID$(A$,1,2):GOSUB25:N=K
  14. 16 IFK=0THENSAVEM"VIEW80",60242,61099,60242:END
  15. 17 B$=MID$(A$,3,2):GOSUB25:L=K
  16. 18 B$=MID$(A$,5,2):GOSUB25:L=K*256+L:L1=0
  17. 19 FORI=1TON
  18. 20 J=I*2+5:B$=MID$(A$,J,2):GOSUB25
  19. 21 POKEAA,K:PRINT@112,AA:AA=AA+1:L1=L1+K
  20. 22 NEXTI
  21. 23 IFL<>L1THENBEEP:PRINT@165,"Checksum error":END
  22. 24 GOTO14
  23. 25 B1$=LEFT$(B$,1):K1=INSTR(1,H$,B1$):IF K1=0GOTO28
  24. 26 B1$=RIGHT$(B$,1):K2=INSTR(1,H$,B1$):IF K2=0GOTO28
  25. 27 K=(K1-1)*16+K2-1:RETURN
  26. 28 BEEP:PRINT@165,"Non HEX Character in DATA":END
  27. 100 DATA 382321C358EBC3DCEBCD4D4FCD2A2A219FEECD9E67CDF054D7C8CD432DCDCA5ACDBD2BCA5EEBCD7FEC210128CD9B4FEB7EFE1AC28BEBCDF712C358
  28. 101 DATA 383822EBE5CDDCEBE123CD0414C2B6EB3AABEEB711AAEECAA6EBAF12C37FEB1AD618C27FEB12CDF712CD1410C3C8EBCDF712CD1410F5FE53CAC7EB
  29. 102 DATA 380B22FE1BC4F712F1FE1BCA58EBFE53C27FEB11ABEE1AEE0112C37FEB4F11A9EE1AB7CAF6EBAF1279FE71CAF2EBFE70C03E80329EEEC979FE20D2
  30. 103 DATA 380B239AEC210AEC5F1600191919E52AFEFFC9C36AECC36AECC36AECC36AECC36AECC36AECC36AECC3454FC36FECC38CECC3A9ECC382ECC37FECC3
  31. 104 DATA 3829277AECC36AECC36AECC36AECC36AECC36AECC36AECC36AECC36AECC36AECC36AECC36AECC36AECC36AECC36BECC36AECC36AECC36AECC36AEC
  32. 105 DATA 381C21C932A9EEC925F2D6EC264F2DF2D6EC2C2600C3D6ECCD4D4F210000AF32AAEEC3D6EC3E20CD9AEC3AFFFFE607C28CECC9CDDAEC2AFEFF247C
  33. 106 DATA 38821CFE50DAD6EC26002C11AAEE1A3C127DFE19DAD6EC2E18E5210014CDB38E0140013E0CD3FFAFD3FE0B78B1C2C6EC21C800CD038FE122FEFFC9
  34. 107 DATA 384E1BCDFFECCD64EDCD3BEDCD86EDC93AFEFF01C8002138FF093DF2F0ECB73AFFFF1F5F160019C9E67F1F060FDA09ED06786F26005D5429291911
  35. 108 DATA 38331854ED191194EE3E05F57E23A04F3A9EEEB779F228EDA84F781F79DA33ED0F0F0F0F1213F13DC21AEDC906383AFFFF1FD246ED06070E051194
  36. 109 DATA 38091DEE2199EE7EA07778FE381A13CA5CED070707B677230DC24EEDC9CDE7EC0128001199EE3E05F5CDB38E3E0DD3FFDBFEF5F1DBFE121309F13D
  37. 110 DATA 381B16C26FEDC9CDE7EC0128001199EE3E05F5CDB38E3E0CD3FF1A13D3FE09F13DC291EDC902020200022027050700226372362222512050702214
  38. 111 DATA 38DE0A1414220072277200000047402004020262612253725227235446247347517344436714325222225526542300220022014027102740132442
  39. 112 DATA 38C30D2012324577557532553155323751535137761135151257527252577525232535151717157532555555523255351712365132545375252525
  40. 113 DATA 382A0B2755555757255555275252764222127613222222432050000007204006050600103651360040675563622576242312103252522105232535
  41. 114 DATA 3865083020232725000032555200365536140000563213207025254600005557270005562453027241127222220422224572150205000000000000
  42. 115 DATA 122103000000000046696C65204E616D6500000000
  43. 116 DATA 000000
  44.