home *** CD-ROM | disk | FTP | other *** search
/ RBBS in a Box Volume 1 #3.1 / RBBSIABOX31.cdr / dosc / doors.bas (.txt) < prev    next >
Encoding:
GW-BASIC  |  1985-01-12  |  1.4 KB  |  37 lines
  1. 10  'A RESIDENT DISPLAY SWAPPER FROM PC MAG--FEB 5,1985
  2. 20  'AFTER LOADING FROM DOS, INVOKE OR TOGGLE SCREENS AT ANY TIME BY
  3. 30  'HITTING ALT-R.SHFT.
  4. 40  'THIS UTILITY IS HANDY FOR PUTTING HELP SCREENS ETC ON ANOTHER DISPLAY.
  5. 100  GRAND.TOTAL.#=0
  6. 110  OPEN "doors.com" AS #1 LEN=1
  7. 120  FIELD #1, 1 AS DOORS.BYTE.$
  8. 130  FOR I.%=1 TO 178
  9. 140  READ DOORS.DATA.%
  10. 150  GRAND.TOTAL.#=GRAND.TOTAL.#+DOORS.DATA.%
  11. 160  LSET DOORS.BYTE.$=CHR$(DOORS.DATA.%)
  12. 170  PUT #1
  13. 180  PRINT USING "########";GRAND.TOTAL.#;
  14. 190  NEXT I.%
  15. 200  READ THE.TOTAL.#
  16. 210  IF THE.TOTAL.#<>GRAND.TOTAL.# THEN PRINT CHR$(7):PRINT "***error - total incorrect!":PRINT"***check data statements and re-run the program."
  17. 220  CLOSE #1
  18. 230  END
  19. 240  DATA 233,138,0,0,0,0,0,30,6,80
  20. 250  DATA 83,81,82,86,87,156,46,255,30,3
  21. 260  DATA 1,184,64,0,142,216,160,23,0,36
  22. 270  DATA 9,60,9,117,97,180,15,205,16,60
  23. 280  DATA 7,116,11,60,3,118,3,235,83,144
  24. 290  DATA 60,1,118,78,180,3,183,0,205,16
  25. 300  DATA 139,30,16,0,139,203,129,225,48,0
  26. 310  DATA 51,217,129,203,32,0,176,3,131,249
  27. 320  DATA 48,116,6,129,203,48,0,176,7,137
  28. 330  DATA 30,16,0,50,228,205,16,180,2,183
  29. 340  DATA 0,205,16,184,0,176,142,192,184,0
  30. 350  DATA 184,142,216,131,249,48,117,4,30,6
  31. 360  DATA 31,7,51,255,51,246,185,208,7,252
  32. 370  DATA 243,165,95,94,90,89,91,88,7,31
  33. 380  DATA 207,30,184,0,0,142,216,250,161,36
  34. 390  DATA 0,46,163,3,1,161,38,0,46,163
  35. 400  DATA 5,1,199,6,36,0,7,1,140,14
  36. 410  DATA 38,0,251,186,141,1,205,39,16143
  37.