Listing of file='BDIAG1' on disk='vmedia/mvp-diag-2.6.2.wvd.zip'
# Sector 2871, program filename = 'BDIAG1' 0010 REM BDIAG1 6/17/76 -- TESTING REM 0020 PRINT AT(1,00);"REM............ <-- TESTING", 100X=1:REM !"#$%&'()*+,-./0123456789;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~\90\91\92\93\94\95\96\97\98\99\9A\9B\9C\9D\9E\9F\A0\A1\A2\A3\A4\A5\A6\A7\A8\A9\AA\AB\AC\AD\AE\AF\B0\B1\B2\B3\B4\B5\B6\B7\B8\B9\BA\BB\BC\BD\BE\BF\C0\C1\C2\C3\C4\C5\C6\C7\C8\C9\CA\CB\CC\CD\CE\CF\D0\D1\D2\D3\D4\D5\D6\D7\D8\D9\DA\DB\DC\DD\DE\DF\E0\E1\E2\E3\E4\E5\E6\E7\E8\E9\EA\EB\EC\ED\EE\EF:X=X+1 0110 REM JDFAKLDFJLKASDJFKLASJDFASKLDFJASKLFJASKLFJASKLFJASKLFAJSDKFLASJKLFAJS KLFJAKSLFJKLASFJAKLSDFJKALSFJAKLSFJKLASFJKLASFJKLASFJKLASJFKLASFJKLASDJFK LASJFKLASJFKLASJFLKASDJFKLASJDFLASDKLFAASKLDFJAKLSDFJKLASDJFKLASJDFKLAJSF KLASJFKLAJSDKLFJAKLSDFJALKSFJKLA 0120 X=X+1 : REM : X=X+1 0130 X=X+1 : REM \80\81\82\83\84\85\86\87\88\89\8A\8B\8C\8D\8E\8F : X=X+1 0150 REM : X=X+1 : REM : X=X+1 0160 IF X<>8THEN E(1)=E(1)+1 0900 DEFFN'0HEX(000102030405060708090A0B0C0E0F101112131415161718191A1B1C1D1E1F 202122232425262728292A2B2C2D2E2F) 0901 DEFFN'1HEX(5B5C5D5E5F606162636465666768696A6B6C6D6E6F70717273747576777879 7A7B7C7D7E7F909192939495969798999A9B9C9D9E9FA0A1A2A3A4A5A6A7A8A9AAABACADA EAFB0B1B2B3B4B5B6B7B8B9BABBBCBDBEBFC0C1C2C3C4C5C6C7C8C9CACBCCCDCECF) 0902 DEFFN'2HEX(D0D1D2D3D4D5D6D7D8D9DADBDCDDDEDFE0E1E2E3E4E5E6E7E8E9EAEBECEDEE EFF0F1F2F3F4F5F6F7) 0903 DEFFN'3HEX(808182838485868788898A8B8C8D8E8F) 9000 PRINT AT(1,16,16); : IF E(1)=0THEN PRINT "OK" : ELSE PRINT E(1);"ERRORS" 9010 LOAD DC T"BDIAG2" 9999 REM