Listing of file='609EPOS' on disk='vmedia/731-0067G.wvd.zip'
# Sector 1252, program filename = '609EPOS'
0010 REM 609EPOS *************************************************************
*
1954 DEFFN'48(I8)
: IF D5=1AND D8-J0>79THEN D5=0
: IF J0>80THEN D5=1
: IF D5=0THEN C7=J0-1
: ELSE C7=79-D8+J0
: IF I8=D5OR I8=-1THEN RETURN
: GOSUB '94(D2)
: J1=J2(C1)+J3-1
: I8=J0+C1/100
: GOSUB '91(1,J2(1),0,0)
: GOSUB '35(J1)
: IF 100*MOD(I8,1)-1<>C1OR C1=C2THEN 1992
: C1=C1+1
: J4=0
1992 J3=J4
: J1=0
: GOSUB '96(J2(C1),C1)
: PRINT AT(C1,C7);
: J0=INT(I8)
: RETURN