Listing of file='SUB-009A' on disk='vmedia/701-2047D.wvd.zip'
# Sector 458, program filename = 'SUB-009A' 0010 REM SUB-009A,00-00(02/18/76),12003A - COPYRIGHT WANG LABS. INC., 1976 0050 GOSUB '99 3030 DIM U9$8,U8$64 7028 DEFFN'220(U8$) 7032 GOSUB '243(U8$,8) : GOSUB '221(Q6$) : IF Q6$="E"THEN 7032 : GOSUB '223(U9) : GOSUB '248(1,0,3) : PRINT "IS DATE OK? (Y/N)",U9$,U9 7056 GOSUB '244(1) : IF Q6$="N"THEN 7028 : IF Q6$<>"Y"THEN 7056 : RETURN 7076 DEFFN'221(Q6$) : U9$=Q6$ : IF Q6$=" "THEN 7212 : IF NUM(Q6$)=0THEN 7212 : IF POS(Q6$="/")-1<>NUM(Q6$)THEN 7212 : CONVERT STR(Q6$,1,NUM(Q6$))TO U8 : IF U8<1THEN 7212 : IF U8>12THEN 7212 : STR(Q6$,1)=STR(Q6$,POS(Q6$="/")+1) : IF NUM(Q6$)=0THEN 7212 : IF POS(Q6$="/")-1<>NUM(Q6$)THEN 7212 7116 CONVERT STR(Q6$,1,NUM(Q6$))TO U6 : IF U6<1THEN 7212 : IF U6>31THEN 7212 : STR(Q6$,1)=STR(Q6$,POS(Q6$="/")+1) : IF NUM(Q6$)<>64THEN 7212 : CONVERT Q6$TO U0 : IF U0>99THEN 7212 : U7=(1-SGN(U0-INT(U0/4)*4))*SGN((U8-1)*(U8-2)) 7148 ON U8GOTO 7200,7192,7188,7184,7180,7176,7172,7168,7164,7160,7156,7152 7152 U7=U7+30 7156 U7=U7+31 7160 U7=U7+30 7164 U7=U7+31 7168 U7=U7+31 7172 U7=U7+30 7176 U7=U7+31 7180 U7=U7+30 7184 U7=U7+31 7188 U7=U7+28 7192 U7=U7+31 7200 U9=U7+U6+U0*1000 : RETURN 7212 Q6$="E" : RETURN 7224 DEFFN'222(U8$) : GOSUB '245(U8$,5,0) : GOSUB '224(Q9) : GOSUB '223(Q9) : GOSUB '221(U9$) : GOSUB '248(1,0,3) : PRINT "IS DATE OK? (Y/N)",U9$,U9 7248 GOSUB '244(1) : IF Q6$="N"THEN 7224 : IF Q6$<>"Y"THEN 7248 : RETURN 7268 DEFFN'223(U9) : U1=INT(U9/1E3) : U2=U9-U1*1E3 : U3=1-SGN(U1-INT(U1/4)*4) : IF U2<=334+U3THEN 7316 : U4=U2-334-U3 : U5=12 : GOTO 7528 7316 IF U2<=304+U3THEN 7336 : U4=U2-304-U3 : U5=11 : GOTO 7528 7336 IF U2<=273+U3THEN 7356 : U4=U2-273-U3 : U5=10 : GOTO 7528 7356 IF U2<=243+U3THEN 7376 : U4=U2-243-U3 : U5=9 : GOTO 7528 7376 IF U2<=212+U3THEN 7396 : U4=U2-212-U3 : U5=8 : GOTO 7528 7396 IF U2<=181+U3THEN 7416 : U4=U2-181-U3 : U5=7 : GOTO 7528 7416 IF U2<=151+U3THEN 7436 : U4=U2-151-U3 : U5=6 : GOTO 7528 7436 IF U2<=120+U3THEN 7456 : U4=U2-120-U3 : U5=5 : GOTO 7528 7456 IF U2<=90+U3THEN 7476 : U4=U2-90-U3 : U5=4 : GOTO 7528 7476 IF U2<=59+U3THEN 7496 : U4=U2-59-U3 : U5=3 : GOTO 7528 7496 IF U2<=31THEN 7516 : U4=U2-31 : U5=2 : GOTO 7528 7516 U4=U2 : U5=1 7528 CONVERT U5TO STR(U9$,1,2),(##) : CONVERT U4TO STR(U9$,4,2),(##) : CONVERT U1TO STR(U9$,7,2),(##) : STR(U9$,3,1),STR(U9$,6,1)="/" : RETURN 7552 DEFFN'224(Q9) : U2=INT(365.25*(INT(Q9/1E3)-1))+Q9-INT(Q9/1E3)*1E3 : Q9=INT((U2)/365.25) : Q9=Q9-(1-SGN(Q9/4-INT(Q9/4)))*(1-SGN(U2-INT(365.25*Q9))) : Q9=Q9*1E3+(U2-INT(365.25*Q9))+1E3 : RETURN 7576 DEFFN'225(U1,U2) : U3=INT(365.25*(INT(U2/1E3)-1))+U2-INT(U2/1E3)*1E3 : U3=U3-(INT(365.25*(INT(U1/1E3)-1))+U1-INT(U1/1E3)*1E3) : RETURN