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"