image of READY prompt

Wang2200.org

Listing of file='36ptrloc' on disk='vmedia/mvp-diag-2.6.2.wvd.zip'

# Sector 3715, program filename = '36ptrloc'
0030 SELECT PRINT 005(80)
   : PRINT HEX(0306);
   : A1=#PART
   : A$="T#  DIAG"
   : CONVERT A1TO STR(A$,3,2),(##)
   : DEFFN@PARTA$
0040 DIM A1$1,R$10,B$80
0054 PRINT AT(3,25);BOX(1,30);"  TERMINAL LOCAL PRINTER TEST"
0055 PRINT AT(8,29);"LINES BELOW WERE SENT"
0060 B$=ALL("*")
   : GOSUB 70
   : B$="** 1234567890-=][<>;:/?., THE QUICK BROWN FOX JUMPS OVER THE LAZY DOG
     'S BACK. **"
   : GOSUB 70
   : B$="*** !@#$%^&*()1234567890 the quick brown fox jumps over the lazy dog'
     s back. ***"
   : GOSUB 70
   : B$=ALL("*")
   : GOSUB 70
   : GOTO 130
0070 $GIO/204(0100020F03001222A000400D,R$)B$
   : STR(R$,8,1)=AND HEX(10)
   : IF STR(R$,8,1)=HEX(10)THEN 80
   : PRINT B$;HEX(0D)
   : RETURN
0080 PRINT AT(17,16);BOX(3,45);AT(18,18);BOX(1,41);" TIME OUT WAITING FOR PRIN
     TER ACKNOWLEDGE"
0130 PRINT AT(21,27);"KEY 'RUN' TO REPEAT TEST";AT(22,28);"KEY 'RETURN' TO CAN
     CEL"
0135 KEYIN A1$
   : IF A1$=HEX(82)THEN 30
   : IF A1$<>HEX(0D)THEN 135
0136 LOAD T"TERMINAL"