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