image of READY prompt

Wang2200.org

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