image of READY prompt

Wang2200.org

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)