home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 9 / 09.iso / l / l190 / 5.ddi / ADVR_EX / COM1_EX.BAS < prev    next >
Encoding:
BASIC Source File  |  1988-09-17  |  465 b   |  21 lines
  1. '
  2. ' *** COM1_EX.BAS - COMMON statement programming example
  3. '
  4. DIM Values(1 TO 50)
  5. COMMON Values(), NumValues
  6.  
  7. PRINT "Enter values one per line. Type 'END' to quit."
  8. NumValues = 0
  9. DO
  10.    INPUT "-> ", N$
  11.    IF I >= 50 OR UCASE$(N$) = "END" THEN EXIT DO
  12.    NumValues = NumValues + 1
  13.    Values(NumValues) = VAL(N$)
  14. LOOP
  15. PRINT "Leaving COM1_EX.BAS to chain to COM2_EX.BAS"
  16. PRINT "Press any key to chain... "
  17. DO WHILE INKEY$ = ""
  18. LOOP
  19.  
  20. CHAIN "com2_ex"
  21.