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