home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / Basic / MAXONB32.DMS / in.adf / Beispiele_1.3 / Examples / GetSizer.bas < prev    next >
Encoding:
BASIC Source File  |  1994-04-14  |  707 b   |  35 lines
  1.  
  2.  
  3. '
  4. ' GET-Sizer (June 20, 1990)
  5. ' Determines the size to dimension an array when using the GET command.
  6. '
  7. ' written by   scott dhomas trenn
  8. '              797 Mitchell Street, Fredericton, NB, E3B 3S8, CANADA
  9. '              INTERNET: wilkie@jupiter.sun.csd.unb.ca
  10. '
  11.  
  12. REM $OPTION Y+,N-,FRAM:GET-Sizer
  13.  
  14.  
  15. DEFINT a-z
  16.  
  17. WINDOW 1," GET-Sizer v90.06.20",(230,0)-(410,85), 2+16+256
  18.  
  19. PRINT
  20. INPUT " # bitplanes : ",bitplanes
  21. INPUT "          x1 : ",x1
  22. INPUT "          y1 : ",y1
  23. INPUT "          x2 : ",x2
  24. INPUT "          y2 : ",y2
  25.  
  26. arraysize = 2 * bitplanes * (y2-y1+1) * ((x2-x1)\16+1) +6
  27.  
  28. PRINT
  29. PRINT " Dimension an INTEGER array with";arraysize/2;"elements."
  30.  
  31. WHILE INKEY$ = "" : SLEEP : WEND
  32.  
  33. WINDOW CLOSE 1
  34. END
  35.