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"