image of READY prompt

Wang2200.org

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