Listing of file='LPPRTABS' on disk='vmedia/701-2721C.wvd.zip'
# Sector 488, program filename = 'LPPRTABS'
2500 REM % DISPLAY TRANSLATE TABLE SUBROUTINE ('45)
2540 DEFFN'45(T)
: DIM T1$80
: PRINT HEX(03)
: IF T=1THEN T1$="Complete Word Exception Table"
: ELSE T1$="Partial Word Exception Table"
: PRINT HEX(020402000E);AT(0,40-LEN(T1$)/2);T1$;HEX(0F);
: PRINT AT(1,0);BOX(0,80);AT(20,0);BOX(0,80)
: T6=3
: Y=0
: FOR I=1TO 64STEP 1
2650 IF T=1THEN T1$=STR(L5$(I,1),1,8)&HEX(80)&STR(L5$(I,2),1,8)&HEX(80)
: ELSE T1$=STR(L6$(I,1),1,8)&HEX(80)&STR(L6$(I,2),1,8)&HEX(80)
: IF STR(T1$,1,1)=HEX(00)THEN GOTO 2730
: IF Y=60THEN GOTO 2680
: PRINT AT(T6,Y);T1$;BOX(1,0);
: GOTO 2690
2680 PRINT AT(T6,Y);T1$;
2690 Y=Y+20
: IF Y<80THEN GOTO 2730
: T6=T6+1
: Y=0
2730 NEXT I
: RETURN
9000 DEFFN'0"SCRATCH T";HEX(22);"LPPRTABS";HEX(22);
9010 DEFFN'1"SAVE T () ";HEX(22);"LPPRTABS";HEX(22);