image of READY prompt

Wang2200.org

Listing of file='P01D010A' on disk='vmedia/wcs_diags.wvd.zip'

# Sector 285, program filename = 'P01D010A'
0010 REM P01D010A    00-00     6/25/75      12002
   : DIM A$26,B$26
   : DATA "a c e g i k m o q s u w yz"
   : DATA " b d f h j l n p r t v x"
0020 SELECT PRINT 005
   : PRINT HEX(03);"WCS SYSTEM DIAGNOSTIC - 2201"
0030 PRINT "----------------------------------"
   : PRINT "EXECUTING PROGRAM"
0050 READ A$,B$
   : M=3
   : SELECT PRINT 211(255)
0100 PRINT HEX(0D0919091909190919091909190919091909190919091909190D);
   : FOR X=1TO 14
   : PRINT TAB(9*X);HEX(1A);
   : NEXT X
0120 PRINT HEX(0D);
   : PRINT A$;"     ";A$;"     ";A$;"     ";A$;
   : FOR X=1TO 119
   : PRINT HEX(08);
   : NEXT X
   : PRINT B$;"       ";B$;"       ";B$;"       ";B$;
   : PRINT HEX(0D);
   : FOR X=1TO 60
   : PRINT HEX(2D5D);
   : NEXT X
   : PRINT HEX(0D);
0180 FOR X=1TO 14
   : PRINT HEX(0931);
   : NEXT X
   : PRINT HEX(0D);
0190 PRINT "AaBbCcDdEeFfGgHhIiJjKkLlMmNnOoPpQqRrSsTtUuVvWwXxYyZz><@2#3$4%5^6&7
     *8(9)0-+=:;/?'";
   : PRINT HEX(20202020);"ABCDEFGHIJKLMNOPQRSTUVWXYZ@#$%&*()>?+";HEX(0D);
0210 PRINT "Now is the time for all good men to come and see the the quick bro
     wn fox jump over the lazy dog";HEX(0D);
   : FOR X=1TO 14
   : PRINT "9>67z-gq;";
   : NEXT X
   : PRINT HEX(0D);
   : FOR Z=1TO 3
0240 FOR X=1TO 8
   : PRINT "12345   67890   ";
   : NEXT X
   : PRINT HEX(0D);
   : NEXT Z
   : M=M-1
   : IF M<>0THEN 100
   : SELECT PRINT 005(64)
   : RESTORE
   : GOTO 20
0290 DEFFN'15
   : SELECT PRINT 005(64),CO 005(64)
   : LOAD DC T"START"50