home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib28b.dsk / PAGE.TWO.TEXT.bas < prev    next >
BASIC Source File  |  2023-02-26  |  894b  |  21 lines
  1. 10  REM **********************
  2. 20  REM *   PAGE.TWO.TEXT    *
  3. 30  REM *  BY CLARK BURDMAN  *
  4. 40  REM * COPYRIGHT (C) 1986 *
  5. 50  REM * BY MICROSPARC, INC *
  6. 60  REM * CONCORD, MA  01742 *
  7. 70  REM **********************
  8. 80  IF  PEEK(104) < >96  THEN  POKE 104,96: POKE 103,1: POKE 24576,0: PRINT  CHR$(4)"RUN PAGE.TWO.TEXT"
  9. 90  REM  :CLEAR HI-RES PAGE 1 AND 2
  10. 100  HOME : HGR2 : HCOLOR= 6: HPLOT 0,0: CALL 62454
  11. 110  HGR : HCOLOR= 3: HPLOT 0,0: CALL 62454
  12. 120  REM CLEAR TEXT WINDOW PAGE 2
  13. 130  FOR I = 20 TO 24
  14. 140  POKE 36,0: VTAB I: POKE 41, PEEK(41) +4: PRINT  SPC( 40): NEXT 
  15. 150  REM PRINT IN TEXT WINDOW PAGE 1 AND PAGE 2
  16. 160 P1$ = "PAGE 1 - PRESS <RETURN> FOR PAGE 2 ":P2$ = "PAGE 2 - PRESS <RETURN> FOR PAGE 1 "
  17. 170  VTAB 22: HTAB 1: PRINT P1$;: GET G$
  18. 180  POKE  -16301,0: POKE  -16299,0
  19. 190  POKE 36,0: VTAB 22: POKE 41, PEEK(41) +4: PRINT P2$;: GET G$
  20. 200  POKE  -16300,0
  21. 210  GOTO 170