Listing of file='609EPOS' on disk='vmedia/731-0067F-disk1.wvd.zip'
# Sector 1278, 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