image of READY prompt

Wang2200.org

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