home *** CD-ROM | disk | FTP | other *** search
/ The Programmer Disk / The Programmer Disk (Microforum).iso / xpro / basic3 / pro5 / rainbow.bas (.txt) < prev    next >
Encoding:
GW-BASIC  |  1980-01-01  |  230 b   |  9 lines
  1. 100  REM CONVERSION TABLES FOR SQUARE MEASURES
  2. 105  WIDTH 80
  3. 110  REM IBM BASIC 
  4. 120  GOTO 170
  5. 130  PRINT STRING$(80,45):RETURN
  6. 140  CLS:FOR X=1 TO 10:PRINT:NEXT X:RETURN
  7. 150  PRINT:INPUT "Press >RETURN< (Q to quit) ",R$:IF R$="Q" OR R$="q" THEN 160 ELSE RETURN
  8. 160  GOSUB 140:GOSUB 130:PRINT TAB(38)"End.":GOSUB 130:RUN"
  9.