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);