Listing of file='36caling' on disk='vmedia/mvp-diag-2.6.2.wvd.zip'
# Sector 3655, program filename = '36caling'
0040 SELECT PRINT 005(80)
: PRINT HEX(0306)
: A1=#PART
: A$="T# DIAG"
: CONVERT A1TO STR(A$,3,2),(##)
: DEFFN@PARTA$
0050 DIM A1,B$5,C,C$1,I,L,L$1,M$81,N$1,R,R$5,X
0070 PRINT HEX(0306020402000E);AT(1,33);"CRT ALIGNMENTS"
: $PSTAT="CRTAMENU"
0080 PRINT AT(5,0);"Which test would you like (1-3)";HEX(0F);AT(10,25);" 1) NO
RMAL ALIGNMENT PATTERN";AT(13,25);" 2) WORSE CASE PATTERN";AT(16,25);" 3)
MAIN MENU"
0090 KEYIN C$
: C=NUM(C$)
: IF C<>1THEN 90
: CONVERT C$TO C
: ON CGOSUB 110,140,2020
: GOTO 70
0110 $PSTAT="CRTANORM"
: PRINT HEX(03);
: FOR I=1TO 80STEP 2
: STR(M$,I,2)="HO"
: NEXT I
: STR(M$,81,1)=HEX(01)
: FOR I=0TO 24
: PRINT AT(I,0);
: $GIO/005(A000)M$
: NEXT I
: PRINT AT(22,27);"- KEY 'RETURN' TO CANCEL -"
0120 KEYIN C$
: IF C$<>HEX(0D)THEN 120
: SELECT PRINT 005
: RETURN
0140 $PSTAT="CRTAWOST"
0500 PRINT HEX(0306)
0540 B$=HEX(020404000E)
: R$=HEX(020404020E)
: N$=HEX(0F)
0580 PRINT AT(2,4);BOX(20,70);AT(3,6);BOX(18,66)
0590 PRINT AT(6,14);BOX(12,51);AT(7,16);BOX(10,47)
0600 PRINT AT(0,0);R$;" --------------------- Worst Case CRT Alignment Patter
n --------------------- "
0620 FOR R=1TO 3
: PRINT AT(R,0);" ";AT(R,78);" ";
: NEXT R
0640 PRINT AT(4,0);" ";AT(4,10);"
";AT(4,78);" "
0660 FOR R=5TO 7
: PRINT AT(R,0);" ";AT(R,10);" ";AT(R,68);" ";AT(R,78);" ";
: NEXT R
0680 PRINT AT(8,0);" ";AT(8,10);" ";AT(8,20);"
";AT(8,68);" ";AT(8,78);" ";
0700 FOR R=9TO 14
: PRINT AT(R,0);" ";AT(R,10);" ";AT(R,20);" ";AT(R,58);" ";AT(R,68);"
";AT(R,78);" "
: NEXT R
0720 PRINT AT(15,0);" ";AT(15,10);" ";AT(15,20);"
";AT(15,68);" ";AT(15,78);" ";
0740 FOR R=16TO 18
: PRINT AT(R,0);" ";AT(R,10);" ";AT(R,68);" ";AT(R,78);" "
: NEXT R
0760 PRINT AT(19,0);" ";AT(19,10);"
";AT(19,78);" "
0780 FOR R=20TO 22
: PRINT AT(R,0);" ";AT(R,78);" ";
: NEXT R
0800 INIT(20)M$
: STR(M$,81,1)=HEX(01)
: PRINT AT(23,0)
: $GIO/005(A0004001)M$
0810 PRINT AT(9,24);BOX(3,31)
0820 M$=" Check distortion and shift "
: R=9
: GOSUB 890
0830 M$=" at various contrast settings."
: R=10
: GOSUB 890
0840 M$="Alternate Characters Blinking!"
: R=11
: GOSUB 890
0850 M$=" This line is Reverse Blink !"
: PRINT R$;AT(12,25);M$
0860 M$="This line is Normal Video !"
: PRINT N$;AT(13,28);M$
0870 M$="This line is Blinking !"
: PRINT B$;AT(14,28);M$;AT(21,28);"KEY 'RETURN'TO CANCEL"
0875 INIT(20)M$
0880 KEYIN M$
0885 RETURN
0890 PRINT AT(R,25);
: FOR I=1TO 30STEP 2
: PRINT N$;STR(M$,I,1);B$;STR(M$,I+1,1);
: NEXT I
: RETURN
2000 KEYIN C$
: IF C$<>HEX(0D)THEN 120
: SELECT PRINT 005
: PRINT HEX(020400000E03)
: RETURN
2010 DEFFN'104
: PRINT AT(12,40-L/2);STR(M$,1,L)
: RETURN
2020 LOAD T"TERMINAL"