image of READY prompt

Wang2200.org

Listing of file='BDIAG1' on disk='vmedia/mvp-diag-3.5.wvd.zip'

# Sector sector 528, program filename = 'BDIAG1  '
0010 REM BDIAG1 6/17/76 -- TESTING REM
0020 PRINT AT(1,00);"REM............ <-- TESTING",
100X=1:REM 
 !"#$%&'()*+,-./0123456789;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~TRACE LET FIX(DIM ON STOP END DATA READ INPUT GOSUB RETURN GOTO NEXT FOR IF PRINT LOAD REM RESTORE PLOT SELECT COM PRINTUSING MAT REWIND SKIP BACKSPACE SCRATCH MOVE CONVERT PLOT STEP THEN TO BEG OPEN CI R D CO LGT(OFF DBACKSPACE VERIFY DA BA DC FNABS(SQR(COS(EXP(INT(LOG(SIN(SGN(RND(TAN(ARC#PITAB(DEFFNTAN(SIN(COS(HEX(STR(ATN(LEN(RE#%PBTGVAL(NUM(BIN(POS(LS=ALLPACKCLOSEINITHEXUNPACKBOOLADDROTATE$ERRORERRDAC DSC SUB:X=X+1
0110 REM JDFAKLDFJLKASDJFKLASJDFASKLDFJASKLFJASKLFJASKLFJASKLFAJSDKFLASJKLFAJS
     KLFJAKSLFJKLASFJAKLSDFJKALSFJAKLSFJKLASFJKLASFJKLASFJKLASJFKLASFJKLASDJFK
     LASJFKLASJFKLASJFLKASDJFKLASJDFLASDKLFAASKLDFJAKLSDFJKLASDJFKLASJDFKLAJSF
     KLASJFKLAJSDKLFJAKLSDFJALKSFJKLA
0120 X=X+1
   : REM
   : X=X+1
0130 X=X+1
   : REM LIST CLEAR RUN RENUMBER CONTINUE SAVE LIMITS COPY KEYIN DSKIP AND OR
     XOR TEMPDISK TAPE
   : 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