Listing of file='P61D010A' on disk='vmedia/701-2046C.wvd.zip'
# Sector 638, program filename = 'P61D010A' 0010 REM . P61D010A, 00-00 (6/28/75), 12002 0100 DIM A$58 : A$="ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789-=+<>;:',.?/!@#$%^&*()" : Z=131 : SELECT PRINT 005 : PRINT HEX(03);"2200 HARDWARE DIAGNOSTIC - 2261" : PRINT "-----------------------------------" 0160 PRINT "EXECUTING PROGRAM" 0170 SELECT PRINT 215(132) : 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"; 0320 PRINT TAB(80);"TAB 80";TAB(100);"TAB 100";TAB(120);"TAB 120"; : PRINT : NEXT X : 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 : GOTO 490 0440 PRINT HEX(0E);STR(A$,X,1) : NEXT X : PRINT HEX(0C) : SELECT PRINT 005(64) : LOAD DC T#6,"S/START" 0490 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 440 0570 DEFFN'15 : COM CLEAR : SELECT PRINT 005(64),CO 005(64) : LOAD DC T#6,"START"