home *** CD-ROM | disk | FTP | other *** search
/ The Devil's Doorknob BBS Capture (1996-2003) / devilsdoorknobbbscapture1996-2003.iso / Dloads / 100UTILI / LRNBAS-3.ZIP / ADVR_EX / COM1_EX.BAS < prev    next >
BASIC Source File  |  1988-11-08  |  632b  |  25 lines
  1. ' *** COM1_EX.BAS - COMMON statement programming example ***
  2. ' This program uses COMMON to pass a series of input numbers
  3. ' to another program, COM2_EX.BAS, which computes and prints
  4. ' their average.
  5. '
  6. DIM Values(1 TO 50)
  7. COMMON Values(), NumValues
  8.  
  9. CLS    ' Clear screen
  10. PRINT "Enter values one per line. Type 'END' to quit."
  11. NumValues = 0
  12. DO
  13.    INPUT "-> ", N$
  14.    IF I >= 50 OR UCASE$(N$) = "END" THEN EXIT DO
  15.    NumValues = NumValues + 1
  16.    Values(NumValues) = VAL(N$)
  17. LOOP
  18. PRINT "Leaving COM1_EX.BAS to chain to COM2_EX.BAS"
  19. PRINT "Press any key to chain... "
  20. DO WHILE INKEY$ = ""
  21. LOOP
  22.  
  23. CHAIN "COM2_EX"
  24.  
  25.