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