home *** CD-ROM | disk | FTP | other *** search
/ ProfitPress Mega CDROM2 …eeware (MSDOS)(1992)(Eng) / ProfitPress-MegaCDROM2.B6I / MAGAZINE / PCMAG / VOL4N03.ZIP / DOORS.BAS < prev    next >
Encoding:
BASIC Source File  |  1984-10-02  |  1.8 KB  |  33 lines
  1. 100 GRAND.TOTAL.# = 0
  2. 110 OPEN "DOORS.COM" AS #1 LEN=1
  3. 120 FIELD #1, 1 AS DOORS.BYTE.$
  4. 130 FOR I.% = 1 TO 178
  5. 140     READ DOORS.DATA.%
  6. 150     GRAND.TOTAL.# = GRAND.TOTAL.# + DOORS.DATA.%
  7. 160     LSET DOORS.BYTE.$ = CHR$(DOORS.DATA.%)
  8. 170     PUT #1
  9. 180     PRINT USING "########"; GRAND.TOTAL.#;
  10. 190 NEXT I.%
  11. 200 READ THE.TOTAL.#
  12. 210 IF THE.TOTAL.# <> GRAND.TOTAL.# THEN PRINT CHR$(7):                                PRINT "***Error - Total Incorrect!" :                                           PRINT "***Check Data Statements and Re-run the program."
  13. 220 CLOSE #1
  14. 230 END
  15. 240 DATA   233,  138,    0,    0,    0,    0,    0,   30,    6,   80
  16. 250 DATA    83,   81,   82,   86,   87,  156,   46,  255,   30,    3
  17. 260 DATA     1,  184,   64,    0,  142,  216,  160,   23,    0,   36
  18. 270 DATA     9,   60,    9,  117,   97,  180,   15,  205,   16,   60
  19. 280 DATA     7,  116,   11,   60,    3,  118,    3,  235,   83,  144
  20. 290 DATA    60,    1,  118,   78,  180,    3,  183,    0,  205,   16
  21. 300 DATA   139,   30,   16,    0,  139,  203,  129,  225,   48,    0
  22. 310 DATA    51,  217,  129,  203,   32,    0,  176,    3,  131,  249
  23. 320 DATA    48,  116,    6,  129,  203,   48,    0,  176,    7,  137
  24. 330 DATA    30,   16,    0,   50,  228,  205,   16,  180,    2,  183
  25. 340 DATA     0,  205,   16,  184,    0,  176,  142,  192,  184,    0
  26. 350 DATA   184,  142,  216,  131,  249,   48,  117,    4,   30,    6
  27. 360 DATA    31,    7,   51,  255,   51,  246,  185,  208,    7,  252
  28. 370 DATA   243,  165,   95,   94,   90,   89,   91,   88,    7,   31
  29. 380 DATA   207,   30,  184,    0,    0,  142,  216,  250,  161,   36
  30. 390 DATA     0,   46,  163,    3,    1,  161,   38,    0,   46,  163
  31. 400 DATA     5,    1,  199,    6,   36,    0,    7,    1,  140,   14
  32. 410 DATA    38,    0,  251,  186,  141,    1,  205,   39, 16143
  33.