image of READY prompt

Wang2200.org

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"