'===========================================================================
' Subject: Base-line Comparison               Date: 10-01-01 (  :  )       
'  Author: Gerald L. Wykoff                   Code: QB, Qbasic, PDS        
'  Origin: wykoff@mbawiz.com                Packet: ALGOR.ABC
'===========================================================================
' Subject: Base Line Comparison                          Date: 10-1-01   
'           Author: Gerald L. Wykoff              Code: QB, QBasic
'           Origin:  wykoff@mbawiz.comCLS
SCREEN 9
COLOR 14, 9
LINE (5, 5)-(630, 5), 12
LINE -(630, 338), 12
LINE -(5, 338), 12
LINE -(5, 5), 12
LINE (4, 4)-(631, 4), 3
LINE -(631, 339), 3
LINE -(4, 339), 3
LINE -(4, 4), 3
LOCATE 10, 15
'GOTO 50
PRINT "This utility will draw your intended baseline and then trace a"
PRINT "line of subsequent results."
locate 15, 15
PRINT "Use only first 3 digits on next two queries."
LOCATE 17, 16
INPUT "        What was the initial investment "; init
dot1 = 290 - (init * .28)
LOCATE , 15
INPUT "         2. What is the portfolio value for Period 2"; now2
nu2 = 290 - (now2 * .28)
LOCATE , 15
INPUT "         3. What is the portfolio value for Period 3"; now3
nu3 = 290 - (now3 * .28)
LOCATE , 15
INPUT "         4. What is the portfolio value for Period 4"; now4
nu4 = 290 - (now4 * .28)
LOCATE , 15
INPUT "         5. What is the portfolio value for Period 5"; now5
nu5 = 290 - (now5 * .28)
LOCATE , 15
INPUT "         6. What is the portfolio value for Period 6"; now6
nu6 = 290 - (now6 * .28)
LOCATE , 15
INPUT "         7. What is the portfolio value for Period 7"; now7
nu7 = 290 - (now7 * .28)
LOCATE , 15
INPUT "         8. What is the portfolio value for Period 8"; now8
nu8 = 290 - (now8 * .28)
LOCATE , 15
INPUT "         9. What is the portfolio value for Period 9"; now9
nu9 = 290 - (now9 * .28)
LOCATE , 15
INPUT "        10. What is the portfolio value for Period 10"; now10
nu10 = 290 - (now10 * .28)
LOCATE , 15
INPUT "        11. What is the portfolio value for Period 11"; now11
nu11 = 290 - (now11 * .28)
LOCATE , 15
INPUT "        12. What is the portfolio value for Period 12"; now12
nu12 = 290 - (now12 * .28)
LOCATE , 15
50
CLS
PRINT
SCREEN 9
COLOR 10, 1

'      LINES ARE X,Y    X-LEFT TO RIGHT  Y-TOP TO BOTTOM
LINE (180, dot1)-(510, dot1)
COLOR 14
LINE (180, dot1)-(210, nu2)                     'to Period 2
LINE (210, nu2)-(240, nu3)              'to Period 3
LINE (240, nu3)-(270, nu4)  'to Period 4
LINE (270, nu4)-(300, nu5)      'to period 4
LINE (300, nu5)-(330, nu6)          'to period 5
LINE (330, nu6)-(360, nu7)             'to period 6
LINE (360, nu7)-(390, nu8)                  'to period 7
LINE (390, nu8)-(420, nu9)             'to period 8
LINE (420, nu9)-(450, nu10)          'to period 9
LINE (450, nu10)-(480, nu11)      'to period 10
LINE (480, nu11)-(510, nu12)   ' to period 11
'LINE (510, nu12)-(540, nu12)      ' to period 12
COLOR 15
LINE (180, 290)-(510, 290), 10
LINE (180, 290)-(180, 25), 10
   '                  these are vertical time period lines
COLOR 15
LINE (210, 290)-(210, 25), 15    '2
LINE (240, 290)-(240, 25), 15     '3     vertical lines are 30 separated, too
LINE (270, 290)-(270, 25), 15       '4
LINE (300, 290)-(300, 25), 15         '5
LINE (330, 290)-(330, 25), 15'....................6 (DIFF IS 40)
LINE (360, 290)-(360, 25), 15             '7
LINE (390, 290)-(390, 25), 15               '8
LINE (420, 290)-(420, 25), 15                 '9
LINE (450, 290)-(450, 25), 15                   '10
LINE (480, 290)-(480, 25), 15                     '11
LINE (510, 289)-(510, 25), 15                      '12
COLOR 15
LOCATE 22, 10
PRINT TAB(23); "1"; TAB(27); "2"; TAB(31); "3"; TAB(34); "4"; TAB(38); "5"; TAB(42); "6"; TAB(46); "7"; TAB(49); "8"; TAB(53); "9"; TAB(56); "10"; TAB(60); "11"; TAB(64); "12"
LOCATE 21, 17: PRINT "0"
LOCATE 19, 17: PRINT "100"
LOCATE 17, 17: PRINT "200"
LOCATE 15, 17: PRINT "300"
LOCATE 13, 17: PRINT "400"
LOCATE 11, 17: PRINT "500"
LOCATE 9, 17: PRINT "600"
LOCATE 7, 17: PRINT "700"
LOCATE 5, 17: PRINT "800"
LOCATE 3, 17: PRINT "900"
LOCATE 24, 30: PRINT "TIME INTERVALS"
LOCATE 11, 4: PRINT "VALUE"
LOCATE , 4: PRINT "CHANGE"
LOCATE 12, 4: PRINT "IN 000's"
   '                            these are test lines on horizontal
'      LINES ARE X,Y    X-LEFT TO RIGHT  Y-TOP TO BOTTOM
'                           y axis
LINE (180, 249)-(510, 249), 3
LINE (180, 219)-(510, 219), 3
LINE (180, 191)-(510, 191), 3   'HORIZONTAL LINES HAVE 30 SEPARATIONS
LINE (180, 162)-(510, 162), 3   ' THUS ALL NUMBERS ARE TIMES .28
LINE (180, 134)-(510, 134), 3  ' AND ARE 251 + (X * .28)
LINE (180, 110)-(510, 110), 3  ' 600      BECAUSE 251 = ZERO (0) BASE LINE
LINE (180, 80)-(510, 80), 3  '700
LINE (180, 51)-(510, 51), 3    '800
LINE (180, 25)-(510, 25), 3         '900

'init will be : input (251 +  )
'inititial value line is
LINE (180, init)-(500, init), 10
' current (NOW) value line is (180,init)-(


'  this bar chart is set up this way
  '     vertical lines are 24 apart at .24,starting at 180
  '     horizotal lines are 28 separates at .28, starting at 251
  '  thus the 100 vallue for vertical lines is .24+ 180
  '  and the 100 value for horizontal lines is .28 - 251(btoom line)
  'to position '328" on a horizontal line would be 328*.24 -251
  COLOR 14