home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Nibble Magazine
/
nib41b.dsk
/
LPLOT.DEMO1.bas
< prev
next >
Wrap
BASIC Source File
|
2023-02-26
|
569b
|
18 lines
10 REM *********************
20 REM * LPLOT.DEMO1 *
30 REM * BY DAVID HARRIS *
40 REM * COPYRIGHT 1991 BY *
50 REM * MINDCRAFT PUBL. *
60 REM * LINCOLN, MA 01773 *
70 REM *********************
80 FOR LOOP = 0 TO 26
90 READ V: POKE 16384 +LOOP,V
100 NEXT LOOP
110 PRINT CHR$(4);"BLOAD LPLOT,A$300"
120 HGR : HCOLOR= 3
130 POKE 7,64
140 POKE 6,0
150 CALL 768: VTAB 22: PRINT "PRESS ANY KEY TO EXIT ": GET B$: PRINT : TEXT : HOME : END
160 DATA 128,0,0,1,4,0,1,4,100,0,0,100,0,0,0
170 DATA 1,4,100,129,4,0,0,0,100
180 DATA 128,128,0