home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Nibble Magazine
/
nib30b.dsk
/
DEMO.2.bas
< prev
next >
Wrap
BASIC Source File
|
2023-02-26
|
874b
|
21 lines
1 REM **********************
2 REM * DEMO.2 *
3 REM * BY MARK CRAVEN *
4 REM * COPYRIGHT (C) 1986 *
5 REM * BY MICROSPARC, INC *
6 REM * CONCORD, MA 01742 *
7 REM **********************
10 HOME
20 A$ = "THIS WILL DEMONSTRATE A NORMAL 'HGR'": GOSUB 140: GOSUB 130
30 POKE 230,32: HCOLOR= 3: GOSUB 110: REM PLOT ON PAGE 1
40 HGR
50 HOME : TEXT : FOR I = 1 TO 1000: NEXT
60 A$ = "THIS WILL DEMONSTRATE A 'CLEAN' HGR": GOSUB 140: GOSUB 130
70 GOSUB 110: REM DRAW FIGURE AGAIN
80 CALL 62450: REM CLEAR HI-RES SCREEN TO BLACK
90 HGR
100 FOR I = 1 TO 1000: NEXT : HOME : TEXT : END
110 HCOLOR= 3: HPLOT 0,0 TO 279,0 TO 279,159 TO 0,159 TO 0,0
120 FOR I = 0 TO 279 STEP 10: HPLOT I,0 TO I,191: NEXT : RETURN
130 VTAB 24: HTAB 1: PRINT "PRESS <RETURN> TO CONTINUE..";: POKE -16368,0: GET X$: RETURN
140 VTAB 10: HTAB 1: PRINT A$: RETURN