Listing of file='P31D010A' on disk='vmedia/701-2046C.wvd.zip'
# Sector 178, program filename = 'P31D010A' 0010 REM . P31D010A, 00-00 (6/28/75), 12002 0100 DIM A$58 : A$="ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789-=+<>;:',.?/!@#$%^&*()" : Z=80 : SELECT PRINT 005 : PRINT HEX(03);"2200 HARDWARE DIAGNOSTIC - 2231" : PRINT "----------------------------------------" 0160 PRINT "EXECUTING PROGRAM" 0170 SELECT PRINT 215(80) : PRINT " "; : $IF ON /215,240 : SELECT PRINT 005 : PRINT "*** TURN PRINTER ON ***" : INPUT "KEY EXEC TO RESUME",Z : GOTO 170 0240 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" : PRINT TAB(20);"TAB 20";TAB(40);"TAB 40";TAB(60);"TAB 60"; : PRINT : NEXT X 0340 FOR X=1TO 58 : 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 : FOR Y=1TO (Z-2)/2 : PRINT HEX(0E);STR(A$,X,1); : NEXT Y : PRINT HEX(0E);STR(A$,X,1) : NEXT X : PRINT HEX(0C) : SELECT PRINT 005(64) : LOAD DC T#6,"S/START" 0500 DEFFN'15 : COM CLEAR : SELECT PRINT 005(64),CO 005(64) : LOAD DC T#6,"START"