home *** CD-ROM | disk | FTP | other *** search
/ Vectronix 1 / VECTRONIX1.iso / area.4 / 849.lzh / 849.MSA / JEGA_DEM.LST < prev    next >
File List  |  1988-01-12  |  255b  |  18 lines
  1. INPUT a%
  2. DIM a$(a%)
  3. FOR i%=1 TO a%
  4.   CLS
  5.   FOR x%=i% TO 640 STEP a%
  6.     LINE x%,0,640-x%,400
  7.   NEXT x%
  8.   FOR y%=i% TO 400 STEP a%
  9.     LINE 0,400-y%,640,y%
  10.   NEXT y%
  11.   SGET a$(i%)
  12. NEXT i%
  13. DO
  14.   FOR i%=1 TO a%
  15.     SPUT a$(i%)
  16.   NEXT i%
  17. LOOP
  18.