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"