image of READY prompt

Wang2200.org

Listing of file='P01D010A' on disk='vmedia/702-0079.wvd.zip'

# Sector 95, program filename = 'P01D010A'
0005 REM % P01D010A      MOD 4/7/80   G. CARRIER
0160 REM THE 2201 PROGRAM
0170 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"
   : READ A$,B$
0180 PRINT HEX(03);"2200 HARDWARE DIAGNOSTICS - 2201 TYPEWRITER --------------
     -------"
   : PRINT HEX(0A0A0A0A0A0A0A0A0A0A0A0A0A0A);"DIAGNOSTIC MENU ; KEY 'RESET' AN
     D SF'31";HEX(01)
0200 PRINT HEX(010A0A0A0A0A);
   : INPUT "SELECT CONTROLLER ADDRESS (204,211,215)",D$
   : PRINT HEX(0A0A0D);
0230 INPUT "NUMBER OF PASSES",M
   : SELECT PRINT <D$>
0250 PRINT HEX(0D0919091909190919091909190919091909190919091909190D);
   : FOR X=1TO 14
   : PRINT TAB(9*X);HEX(1A);
   : NEXT X
   : PRINT HEX(0D);
   : PRINT A$;"     ";A$;"     ";A$;"     ";A$;
0290 FOR X=1TO 119
   : PRINT HEX(08);
   : NEXT X
   : 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);
   : PRINT "AaBbCcDdEeFfGgHhIiJjKkLlMmNnOoPpQqRrSsTtUuVvWwXxYyZz><@2#3$4%5^6&7
     *8(9)0-+=:;/?'";
0350 PRINT HEX(20202020);"ABCDEFGHIJKLMNOPQRSTUVWXYZ@#$%&*()>?+";HEX(0D);
   : PRINT "Now is the time for all good men to come and see the quick brown f
     ox 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
   : PRINT HEX(0D);
   : NEXT Z
0410 M=M-1
   : IF M<>0THEN 250
   : SELECT PRINT 005(64)
   : GOTO 160
0450 M=M-1
   : IF M<>0THEN 290
   : SELECT PRINT 005(64)
   : GOTO 180
0480 DEFFN'31
   : SELECT PRINT 005(64)
   : LOAD DC T"START"