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