home *** CD-ROM | disk | FTP | other *** search
/ ProfitPress Mega CDROM2 …eeware (MSDOS)(1992)(Eng) / ProfitPress-MegaCDROM2.B6I / MAGAZINE / MISC / QBNWS201.ZIP / SMALLEXE.ZIP / LARGEEXE.BAS next >
Encoding:
BASIC Source File  |  1991-01-26  |  1.6 KB  |  92 lines
  1.     REM $TITLE: 'LARGEEXE'
  2.  
  3.     ' How to create a LARGE QB EXEcutable
  4.     ' T. G. Muench January 1991
  5.  
  6.     REM $INCLUDE: 'C:\QBASIC\QB.BI'
  7.  
  8.     DEFINT A-Z
  9.  
  10.     ' Constants
  11.  
  12.     CONST FALSE = 0
  13.     CONST TRUE = NOT FALSE
  14.  
  15. Initialization:
  16.  
  17.     ON ERROR GOTO ErrorTrap
  18.  
  19.     ' Data for BASIC READ
  20.  
  21.     DATA 1,2,3,4,5,6,7,8,9,10
  22.     DATA Now,is,the,time,for,all,good,persons,to,come
  23.  
  24.     ' I/O channel
  25.  
  26.     CHAN = 1
  27.  
  28.     REM $PAGE
  29.  
  30. StartProgram:
  31.  
  32.     PRINT : PRINT "Integers"
  33.     START! = TIMER
  34.     FOR I = 1 TO 10
  35.         READ DATA$
  36.         PRINT I, VAL(DATA$)
  37.     NEXT I
  38.     PRINT "Ticks = "; 18.2 * (TIMER - START!)
  39.     INPUT "Press Enter to continue: ", ENTRY$
  40.  
  41.     PRINT : PRINT "Strings"
  42.     START! = TIMER
  43.     FOR I = 11 TO 20
  44.         READ DATA$
  45.         PRINT I, DATA$
  46.     NEXT I
  47.     PRINT "Ticks = "; 18.2 * (TIMER - START!)
  48.     INPUT "Press Enter to continue: ", ENTRY$
  49.  
  50.     PRINT : PRINT "Read ASCII file:"
  51.     INPUT "File to read? ", FILE$
  52.     IF FILE$ = "" THEN
  53.         BEEP : PRINT "No file specified"
  54.     ELSE
  55.         INPUT "Display lines (Y,N)? ", ENTRY$
  56.         IF UCASE$(ENTRY$) = "Y" THEN
  57.         DISPLAY = TRUE
  58.         ELSE
  59.         DISPLAY = FALSE
  60.         END IF
  61.         START! = TIMER
  62.         OPEN FILE$ FOR INPUT AS #CHAN
  63.         DO UNTIL EOF(CHAN)
  64.         LINE INPUT #CHAN, LINE$
  65.         COUNT = COUNT + 1
  66.         IF DISPLAY THEN
  67.             PRINT LINE$
  68.         END IF
  69.         LOOP
  70.         CLOSE #CHAN
  71.         PRINT : PRINT "Read"; COUNT; "lines"
  72.         PRINT "Ticks = "; 18.2 * (TIMER - START!)
  73.     END IF
  74.  
  75.     GOTO EndProgram
  76.  
  77.     REM $PAGE
  78.  
  79. ErrorTrap:
  80.  
  81.     IF ERR = 53 THEN
  82.         BEEP : PRINT "File not found"
  83.         RESUME EndProgram
  84.     ELSE
  85.         BEEP : PRINT "Unexpected error "; ERR
  86.         RESUME EndProgram
  87.     END IF
  88.  
  89. EndProgram:
  90.  
  91.     END
  92.