Listing of file='LPFORMAT' on disk='vmedia/701-2721C.wvd.zip'
# Sector 242, program filename = 'LPFORMAT'
2500 REM % FORMAT SCREEN SUBROUTINE ('47)
2550 DEFFN'47(I4)
: IF I4=0THEN I5=L5
: ELSE I5=G5
: S4=1
: IF I5>3THEN GOTO 2610
: S2=I5
: S3=80/I5
: GOTO 2670
2610 IF I5>72THEN GOTO 2650
: S2=4
: S3=20
: GOTO 2670
2650 S2=8
: S3=10
2670 S5(1)=-4
: T5(1)=1
: S3(1)=I5
: S1$="O"
: FOR I=1TO I5STEP 1
: IF I4=0THEN T1$(I)=STR(L3$(I),1,8)
: ELSE T1$(I)=STR(G3$(I),1,8)
: NEXT I
: RETURN
9000 DEFFN'0"SCRATCH T ";HEX(22);"LPFORMAT";HEX(22)
9010 DEFFN'1"SAVE T () ";HEX(22);"LPFORMAT";HEX(22)