home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Nibble Magazine
/
nib41b.dsk
/
LPLOT.DEMO2.bas
< prev
next >
Wrap
BASIC Source File
|
2023-02-26
|
784b
|
25 lines
10 REM *********************
20 REM * LPLOT.DEMO2 *
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 HGR : HCOLOR= 3
120 LOOP = 0
130 XH = PEEK(16384 +LOOP)
140 IF XH >127 THEN GOTO 180
150 HPLOT TO XH *256 + PEEK(16385 +LOOP), PEEK(16386 +LOOP)
160 LOOP = LOOP +3
170 GOTO 130
180 XL = PEEK(16385 +LOOP)
190 IF XL >127 THEN VTAB 22: PRINT "PRESS ANY KEY TO EXIT ": GET B$: PRINT : TEXT : HOME : END
200 XH = XH -128
210 HPLOT XH *256 +XL, PEEK(16386 +LOOP)
220 GOTO 160
230 DATA 128,0,0,1,4,0,1,4,100,0,0,100,0,0,0
240 DATA 1,4,100,129,4,0,0,0,100
250 DATA 128,128,0