image of READY prompt

Wang2200.org

Listing of file='6B' on disk='vmedia/glbr_22.wvd.zip'

# Sector 892, program filename = '6B'
0010 PRINT
0020 PRINT "FIRST DATE(M,D,Y)?"
0030 INPUT M,D,Y
0040 PRINT "SECOND DATE?"
0050 INPUT M1,D1,Y1
0060 L=0
0070 IF Y<>Y1 THEN 130
0080 IF Y/4<>INT(Y/4) THEN 240
0090 IF M*100+D>229 THEN 240
0100 IF M1*100+D1<=229 THEN 240
0110 L=1
0120 GOTO 240
0130 IF Y/4<>INT(Y/4) THEN 160
0140 IF M*100+D>229 THEN 160
0150 L=1
0160 IF Y1/4<>INT(Y1/4)THEN 190
0170 IF M1*100+D1<=229 THEN 190
0180 L=L+1
0190 IF Y1-Y=1 THEN 240
0200 FOR I=Y+1 TO Y1-1
0210    IF I/4<>INT(I/4) THEN 230
0220    L=L+1
0230 NEXT I
0240 IF M1=M THEN 400
0250 IF M1>=MTHEN 280
0260 M1=12+M1
0270 Y1=Y1-1
0280 FOR I=MTO M1-1
0290 J=I-INT((I-1)/12)*12
0300 IF J=4 THEN 360
0310 IF J=6THEN 360
0320 IF J=9THEN 360
0330 IF J=11THEN 360
0340 IF J=2THEN 380
0350 GOTO 390
0360 L=L-1
0370 GOTO 390
0380 L=L-3
0390 NEXT I
0400 PRINT "NO. OF DAYS=";365*(Y1-Y)+31*(M1-M)+D1-D+L
0410 PRINT
0420 PRINT "MORE INPUT?(1=YES,0=NO)"
0430 INPUT M
0440 IF M=1 THEN 10
0450 END