Listing of file='P61D010A' on disk='vmedia/wcs_diags.wvd.zip'
# Sector 615, program filename = 'P61D010A' 0010 REM P61D010A 00-00 (6/25/75) 12002 : DIM A$58 : A$="ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789-=+<>;:',.?/!@#$%^&*()" : Z=131 0020 SELECT PRINT 005 : PRINT HEX(03);"WCS SYSTEM DIAGNOSTIC - 2261" : PRINT "-----------------------------------" : PRINT "EXECUTING PROGRAM" 0050 SELECT PRINT 005 : PRINT "*** TURN PRINTER ON ***" : INPUT "KEY EXEC TO RESUME",Z 0060 SELECT PRINT 215(132) : PRINT HEX(0C);"FORM FEED" : FOR X=1TO 4 : PRINT HEX(0B);"VERTICAL TAB" : PRINT HEX(0A0A0A0A0A);"LINE FEED 5 LINES" : NEXT X : FOR X=1TO 4 : PRINT HEX(0D);"CARRIAGE RETURN ,LINE FEED" 0130 PRINT TAB(20);"TAB 20";TAB(40);"TAB 40";TAB(60);"TAB 60"; : PRINT TAB(80);"TAB 80";TAB(100);"TAB 100";TAB(120);"TAB 120"; : PRINT : NEXT X : FOR X=1TO 58 0210 FOR Y=1TO Z-1 : PRINT STR(A$,X,1); : NEXT Y : PRINT STR(A$,X,1) : NEXT X : PRINT HEX(0C); : FOR X=1TO 58 : GOTO 360 0320 PRINT HEX(0E);STR(A$,X,1) : NEXT X : PRINT HEX(0C) : SELECT PRINT 005(64) : GOTO 20 0360 FOR Y=1TO 33 : PRINT HEX(0E);STR(A$,X,1); : NEXT Y : PRINT HEX(0E);TAB(66); : FOR Y=1TO 32 : PRINT HEX(0E);STR(A$,X,1); : NEXT Y : GOTO 320 0440 DEFFN'15 : SELECT PRINT 005(64),CO 005(64) : LOAD DC T"START"50