Listing of file='36DEDIAG' on disk='vmedia/702-0079.wvd.zip'
# Sector 983, program filename = '36DEDIAG'
0010 REM MASTER
: SELECT PRINT 005(80)
: PRINT HEX(03);
0020 DIM A$1,B$100,C$1,Q5$(4)64,Q3$(4)64,Z$30
: PRINT HEX(06030A020404000E);TAB(3);BOX(1,73);" 2 2 3 6 D E Q . A . / Q
. C . Q U A L I F I C A T I O N T E S T";HEX(0F)
0030 PRINT AT(11,0);"(1) KEYBOARD TEST";AT(13,35);"(2) BURN-IN";AT(11,60);"(3)
PRINTER TEST";AT(15,0);"(4) CRT ALIGNMENT";AT(15,60);"(5) ATTRIBUTE TEST
"
0040 KEYIN C$
: C=NUM(C$)
: IF C<>1 THEN 40
: CONVERT C$ TO C
: ON C GOTO 50,660,730,740,750
: GOTO 40
0050 PRINT HEX(03020402000E);AT(5,0);"Which test would you like (1-7)";HEX(0F)
;AT(9,10);" 1) UPPER CASE";AT(9,44);" 2) LOWER CASE";AT(11,10);" 3) SHIFT
CHARACTERS";AT(11,44);" 4) SPECIAL FUNCTION";AT(13,10);" 5) EDIT FUNCTIO
N";AT(13,44);" 6) ALL TESTS";AT(15,10);" 7) MAIN MEMU"
0060 T=0
: KEYIN C$
: C=NUM(C$)
: IF C<>1 THEN 60
: CONVERT C$ TO C
: ON C GOTO 80,100,120,240,440,70,10
0070 T=1
0080 PRINT HEX(03);AT(1,15);"PLEASE PLACE THE A/a SELECTOR SWITCH INTO THE 'A/
'";AT(2,13);"POSITION, THEN KEYIN THE CHARACTERS THAT YOU SEE BELOW";AT(7
,14);"11223344556677889900--==]]<<PPOOIIUUYYTTRREEWWQQ";AT(13,17);"AASSDD
FFGGHHJJKKLL;;''//..,,MMNNBBVVCCXXZZ"
0090 GOSUB 500
: GOSUB 140
0100 A=0
: PRINT HEX(03);AT(1,15);"PLEASE PLACE THE A/a SELECTOR SWITCH INTO THE '/a
'";AT(2,13);"POSITION, THEN KEYIN THE CHARACTERS THAT YOU SEE BELOW";AT(7
,14);"11223344556677889900--==]]<<ppooiiuuyyttrreewwqq";AT(13,17);"aassdd
ffgghhjjkkll;;''//..,,mmnnbbvvccxxzz"
0110 GOSUB 520
: GOSUB 140
0120 A=0
: PRINT HEX(03);AT(1,15);"PLEASE PLACE THE A/a SELECTOR SWITCH INTO THE 'A/
'";AT(2,13);"POSITION, DEPRESS THE SHIFT LOCK, THEN USING THE UPPER";AT(3
,13);"CASE NUMBERS AND NUMERIC PAD, KEY-IN THE CHARACTERS ";AT(4,13);"AS
YOU SEE THEM BELOW";AT(7,13,60);" "
0130 PRINT AT(7,17);"!!@@##$$%%^^&&**(())--++[[>>::";HEX(2222);"??..,,--//,,";
AT(13,13,60);" "
: PRINT AT(13,17);"99887744556633221100.."
: GOTO 190
0140 FOR X=1 TO 48
: PRINT AT(9,13+X);HEX(A0);
: NEXT X
: FOR X=1 TO 42
: PRINT AT(15,16+X);HEX(A0);
: NEXT X
0150 A=A+1
0160 KEYIN A$,170,160
: GOTO 160
0170 IF A$<>STR(B$,A,1) THEN GOSUB 560
: IF A$<>STR(B$,A,1) THEN 160
: ADD(A$,80)
: IF A>=49 THEN 180
: PRINT AT(9,13+A);HEX(020402000E);A$;HEX(0F)
: GOTO 150
0180 PRINT AT(15,A-32);HEX(020402000E);A$;HEX(0F);
: IF A=90 AND T=1 THEN RETURN
: IF A=90 AND T=0 THEN 50
: GOTO 150
0190 PRINT AT(9,13,60)
: FOR X=1 TO 44
: PRINT AT(9,16+X);HEX(A0);
: NEXT X
: PRINT AT(15,13,60)
: FOR X=1 TO 22
: PRINT AT(15,16+X);HEX(A0);
: NEXT X
: GOSUB 540
0200 A=A+1
0210 KEYIN A$,220,210
: GOTO 210
0220 IF A$<>STR(B$,A,1) THEN GOSUB 560
: IF A$<>STR(B$,A,1) THEN 210
: ADD(A$,80)
: IF A>44 THEN 230
: IF A$=HEX(7F) THEN A$=HEX(AD)
: PRINT AT(9,16+A);HEX(020402000E);A$;HEX(0F)
: GOTO 200
0230 PRINT AT(15,A-28);HEX(020402000E);A$
: IF A=66 AND T=1 THEN 240
: IF A=66 AND T=0 THEN 50
: GOTO 200
0240 PRINT HEX(03);
: A=0
: PRINT AT(2,13);"POSITION, DEPRESS THE SHIFT KEY, THEN USING THE "
0250 PRINT AT(3,13);"SPECIAL FUNCTION KEYS, KEY-IN THE CHARACTERS "
: PRINT HEX(0A);
0260 ON T3GOTO 300
: D1=0
: INIT(20)Q5$()
: PRINT HEX(0A0A0A0A)
: PRINT TAB(48);" DEPRESS SF KEY NO";D1
0270 PRINT AT(9,0,80)
0280 KEYIN Q7$,290,300
: GOTO 280
0290 IF Q7$=HEX(45)THEN 410
: IF Q7$=HEX(4E)THEN 430
0300 PRINT HEX(0A)
: Q=VAL(Q7$)
: IF Q<>32THEN 310
: PRINT "RETURN KEY REPLIED ";
: GOTO 330
0310 IF Q<238THEN 320
: PRINT "FN KEY REPLIED ";
: GOTO 330
0320 PRINT "SPECIAL FUNCION KEY";Q;"REPLIED";
0330 IF Q>200THEN 350
: IF Q>=10THEN 340
: PRINT " ";
: GOTO 350
0340 PRINT " ";
0350 IF D1=QTHEN 370
: IF Q3$(1)<>HEX(20)THEN 370
: GOTO 360
0360 PRINT HEX(020404020F202020200E);"**ERROR**";HEX(0F);
: D1=D1-1
: PRINT HEX(07);
: GOTO 380
0370 PRINT " ";
0380 D1=D1+1
: IF D1=32THEN 390
: IF D1=127THEN 400
: IF D1=128THEN 280
: IF D1>128 THEN 420
: PRINT " DEPRESS SF KEY NO";
: PRINT D1
: PRINT AT(11,0,79);
: GOTO 270
: PRINT " DEPRESS (RETURN) KEY "
: GOTO 270
0390 PRINT " DEPRESS (TAB/FN) KEY "
: D1=125
: GOTO 370
0400 PRINT " DEPRESS (SHIFT THEN TAB/FN)"
: REM IF T=1 THEN 780 IF T=0 THEN 80
0410 REM GOTO 630
0420 IF T=1 THEN 440
: IF T=0 THEN 50
0430 PRINT AT(11,44);
: GOTO 380
0440 FOR X=1 TO 7
: STR(Z$,X,1)="-"
: NEXT X
: C=0
: PRINT HEX(03);AT(5,25);HEX(020402000E);"PLEASE ENTER 7 'A'S.";HEX(0F)
0450 PRINT AT(7,25);"THEN DEPRESS 'SF/14'(1) TIMES";AT(8,38);"'SF/13'(2) TIME"
;AT(9,38);"'SF/12'(1) TIME";AT(10,38);"'SF/11'(1) TIME";AT(12,25);"ENTER
AN ";HEX(020402020E);" X ";HEX(0F);", THEN RETURN"
0460 PRINT AT(14,30);
: LINPUT STR(Z$,1,7)
: IF STR(Z$,7,1)<>"X" THEN 470
: STR(Z$,7,1)="A"
: GOTO 480
0470 PRINT AT(15,36);HEX(020402020E);" ^ ";HEX(020402000E);" the 'x' should ha
ve been here";HEX(0F);
: GOTO 460
0480 PRINT HEX(03);AT(7,15);"1) DEPRESS THE ";HEX(020404000E);"ERASE";HEX(0F);
" KEY TO TEST IT'S FUNCTION";AT(9,15);"2) THE LINE OF 7 A'S SHOULD DISAPP
EAR"
: PRINT AT(11,15);"3) KEY ";HEX(0E);"RETURN";HEX(0F);" TO CONTINUE";AT(14,3
0);
: LINPUT STR(Z$,1,7)
: GOTO 20
0490 GOTO 10
0500 B$=HEX(31313232333334343535363637373838393930302D2D3D3D5D5D3C3C50504F4F49
4955555959545452524545575751514141535344444646474748484A4A4B4B4C4C3B3B272
72F2F2E2E2C2C4D4D4E4E42425656434358585A5A)
0510 RETURN
0520 B$=HEX(31313232333334343535363637373838393930302D2D3D3D5D5D3C3C70706F6F69
6975757979747472726565777771716161737364646666676768686A6A6B6B6C6C3B3B272
72F2F2E2E2C2C6D6D6E6E62627676636378787A7A)
0530 RETURN
0540 B$=HEX(212140402323242425255E5E26262A2A28282929FFFF2B2B5B5B3E3E3A3A22223F
3F2E2E2C2C2D2D2F2F2C2C39393838373734343535363633333232313130302E2E)
0550 RETURN
0560 PRINT HEX(07);
: RETURN
0570 DIM @P$(8),@P(8),@L(8),@T$80
: J=1
: C1=0
0580 FOR I=1 TO 8
: @P$(I)="INACTIVE"
: NEXT I
0590 @P$(#PART)="ACTIVE"
: @P(#PART)=#TERM
: @L(#PART)=1
0600 @T$=" PARTITION STATUS TERMINAL LINES PRINTED"
: PRINT HEX(0306);AT(7,9);BOX(9,65);@T$;HEX(0A)
0610 DEFFN @PART "MONITOR"
0620 FOR I=1 TO 8
: IF @P$(I)="ACTIVE" THEN PRINT HEX(020402020E);
: PRINT AT(7+I,15);I,@P$(I),@P(I),@L(I);HEX(0F)
: NEXT I
: C1=C1+1
: IF C1=100 THEN 660
0630 $RELEASE TERMINAL TO "CRTBACK"
: ERRORGOTO 640
0640 @L(#PART)=@L(#PART)+8
0650 GOTO 620
0660 DIM A$(1)80,A9$1,B$(1)80
: PRINT HEX(03);
: C1=0
0670 A$=HEX(20)
0680 ADD(A$,01)
: A9$=A$
: IF A9$=HEX(90) THEN 570
0690 INIT(A$)B$()
0700 FOR X=1 TO 22
: PRINT B$()
: KEYIN C$,10,710
0710 NEXT X
0720 PRINT AT(22,35);HEX(020402000E);"HEX(";
: HEXPRINT A9$;
: PRINT ")";HEX(0F)
: PRINT HEX(01)
: GOTO 680
0730 SELECT PRINT 204(132)
: B$=ALL("*")
: PRINT B$;STR(B$,1,10)
: PRINT "1234567890-=][<>;:/?., THE QUICK BROWN FOX JUMPS OVER THE LAZY DOG
the quick brown fox jumps over the lazy dog"
: PRINT B$;STR(B$,1,10)
: SELECT PRINT 005(80)
: GOTO 20
0740 PRINT HEX(03);
: FOR X=1 TO 959
: PRINT "HO";
: NEXT X
: SELECT PRINT 205
: PRINT "HO";
0745 KEYIN C$
: IF C$<>HEX(0D) THEN 745
: SELECT PRINT 005
: GOTO 10
0750 PRINT HEX(0306);AT(0,0);BOX(24,79)
: PRINT AT(5,0);HEX(020402000E);BOX(1,21);" THIS IS A LITTLE BOX";AT(5,22);
HEX(020404000E0202020F);HEX(F7FBF7FBF7FBF7FB);AT(0,30);BOX(11,41);AT(1,41
);HEX(020400020E);" THIS IS REVERSE VIDEO "
0760 PRINT AT(3,37);HEX(020402000E);"THIS IS HIGH INTENSITY VIDEO";AT(5,35);HE
X(020404020E);" THIS IS BLINKING REVERSE VIDEO ";AT(7,41);HEX(0F);"THIS I
S NORMAL VIDEO";AT(9,32);HEX(020402020E);" THIS IS HIGH INTENSITY REVERSE
VIDEO "
0770 FOR X=6 TO 17
: PRINT AT(X,10);HEX(020404000E0202020F);HEX(C6C9)
: NEXT X
: PRINT HEX(0F);AT(17,10);HEX(020402000E0202020F);
: FOR X=1 TO 12
: PRINT HEX(F7FB);
: NEXT X
: PRINT HEX(F7);AT(17,41);
: FOR X=1 TO 5
: PRINT HEX(F7FB);
: NEXT X
: PRINT AT(17,10);HEX(020404000E0202020F);
: FOR X=1 TO 6
: PRINT AT(10+X,49);HEX(C6C9)
: NEXT X
0780 PRINT AT(17,32);BOX(2,8);HEX(020404000E);" Graphic";AT(18,33);"Symbols";A
T(19,7);BOX(5,65)
: C$=HEX(BF)
: PRINT AT(20,8);HEX(020402000E0202020F);
: FOR X=1 TO 32
: ADDC(C$,01)
: PRINT C$;" ";
: NEXT X
: PRINT AT(22,8);
: FOR X=1 TO 32
: ADDC(C$,01)
: PRINT C$;" ";
: NEXT X
: PRINT HEX(0202000F)
0790 KEYIN C$
: GOTO 20