Listing of file='P01D010A' on disk='vmedia/701-2046C.wvd.zip'
# Sector 64, program filename = 'P01D010A' 0010 REM . P01D010A, 00-00 (6/28/75), 12002 0100 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" : SELECT PRINT 005 : PRINT HEX(03);"2200 HARDWARE DIAGNOSTIC - 2201" : PRINT "----------------------------------" : PRINT "EXECUTING PROGRAM" 0170 READ A$,B$ : M=3 : SELECT PRINT 211(255) 0200 PRINT HEX(0D0919091909190919091909190919091909190919091909190D); : FOR X=1TO 14 : PRINT TAB(9*X);HEX(1A); : NEXT X : PRINT HEX(0D); : PRINT A$;" ";A$;" ";A$;" ";A$; : FOR X=1TO 119 : PRINT HEX(08); : NEXT X 0290 PRINT B$;" ";B$;" ";B$;" ";B$; : PRINT HEX(0D); : FOR X=1TO 60 : PRINT HEX(2D5D); : NEXT X : PRINT HEX(0D); : FOR X=1TO 14 : PRINT HEX(0931); : NEXT X : PRINT HEX(0D); 0390 PRINT "AaBbCcDdEeFfGgHhIiJjKkLlMmNnOoPpQqRrSsTtUuVvWwXxYyZz><@2#3$4%5^6&7 *8(9)0-+=:;/?'"; : PRINT HEX(20202020);"ABCDEFGHIJKLMNOPQRSTUVWXYZ@#$%&*()>?+";HEX(0D); 0410 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 : FOR X=1TO 8 : PRINT "12345 67890 "; : NEXT X 0500 PRINT HEX(0D); : NEXT Z : M=M-1 : IF M<>0THEN 200 : SELECT PRINT 005(64) : LOAD DC T#6,"S/START" 0560 DEFFN'15 : COM CLEAR : SELECT PRINT 005(64),CO 005(64) : LOAD DC T#6,"START"