image of READY prompt

Wang2200.org

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

# Sector 65, program filename = 'T27D020B'
0010 REM .    T27D020B,    00-00 (08/19/75),    12002
   : SELECT PRINT 005,INPUT 001
   : PRINT HEX(03);"PERIPHERAL DIAGNOSTIC - WYLBER ON LINE TEST"
   : PRINT HEX(0A)
   : PRINT "              300BAUD,7DATABITS,EVEN PARITY"
0140 PRINT "                    SWITCH  ADDRESS        "
0150 PRINT "              RCV-------------------219"
   : PRINT "              XMT-------------------21D"
   : PRINT "              EOM--------------------11"
   : PRINT HEX(0A0A);
0190 PRINT "    SF. 1   - TO START THE PROGRAM"
   : PRINT "    SF. 31   - MENU"
   : STOP
0220 DEFFN'00
   : DIM A$64
   : B$=HEX(3F)
0240 PRINT "          READY TO ENTER SIGN-ON COMMAND"
   : SELECT INPUT 001
   : INPUT C$
   : SELECT PRINT 21D
   : FOR K=1TO 3
   : PRINT STR(C$,K,1);
   : GOSUB 420
   : NEXT K
   : PRINT STR(C$,4,1)
0330 SELECT INPUT 019
   : A$=" "
   : INPUT A$
   : IF STR(A$,LEN(A$),1)<>B$THEN 330
   : GOSUB 440
0360 DEFFN'03
   : SELECT INPUT 001
   : A$=" "
   : INPUT A$
   : PRINT A$
   : FOR T=1TO 10
   : NEXT T
   : GOTO 330
0420 FOR Z=1TO 100
   : NEXT Z
   : RETURN
0440 SELECT PRINT 21D
   : RETURN
0450 STOP
0460 DEFFN'01
   : PRINT "           ON LINE TEST USING 2200B"
   : PRINT "KEYBOARD BUSY LIGHT WILL BE ON ALL THE TIME,BUT ENTRY FROM KEYBOAR
     D CAN BE MADE.(CPU IS IN KEYIN MODE)"
0490 DIM T$1,K$1
   : SELECT PRINT 005(64)
0500 SELECT INPUT 001
   : KEYIN K$,530,530
   : SELECT INPUT 019
   : KEYIN T$,560,570
   : GOTO 500
0530 PRINT K$;
   : SELECT PRINT 21D
0540 PRINT K$;
   : SELECT PRINT 005
   : GOTO 500
0560 PRINT T$;
   : GOTO 500
0570 HEXPRINT T$;
   : PRINT "  PARITY/FRAMING ERROR"
   : GOTO 500
0590 DEFFN'31
   : LOAD DC T"START"