image of READY prompt

Wang2200.org

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

# Sector 792, program filename = '1B'
0010 PRINT "FIRST DATE?"
0020 INPUT M,D,Y
0030 PRINT "SECOND DATE?"
0040 INPUT M1,D1,Y1
0050 PRINT
0060 M=(30*(M1-M)+D1-D+360*(Y1-Y))/180
0070 PRINT "SEMI-ANNUAL PERIODS=";M
0080 PRINT
0090 PRINT "MORE INPUT? (1=YES,0=NO)"
0100 INPUT D
0110 PRINT
0120 IF D=1 THEN 10
0130 END