mirror of
https://github.com/gungwald/maze.git
synced 2024-09-29 02:55:10 +00:00
64 lines
1.1 KiB
Plaintext
64 lines
1.1 KiB
Plaintext
|
REM
|
||
|
REM cxxxxxx|/////////////////////////>
|
||
|
REM
|
||
|
REM COLORS - DRAWS Colors
|
||
|
REM AUTHOR - BILL CHATFIELD
|
||
|
REM
|
||
|
REM cxxxxxx|/////////////////////////>
|
||
|
REM
|
||
|
|
||
|
let d$ = chr$(4)
|
||
|
let ret$ = chr$(13)
|
||
|
let esc$ = chr$(27)
|
||
|
LET SW = 140 : SH = 192: REM SCREEN WIDTH AND HEIGHT
|
||
|
LET KBD = -16384: REM Addr of byte that is neg if key pressed
|
||
|
LET RL = 78 : RH = 79: REM RNDL AND RNDH
|
||
|
LET SEED = PEEK (RL) + PEEK (RH) * 256: REM GET RND SEED
|
||
|
LET NA = RND ( - SEED): REM SEED RANDOM NUM GENERATOR
|
||
|
print d$;"-dhgr" : rem Load Double Hi-res driver
|
||
|
|
||
|
dim c(15)
|
||
|
data 15,10,5,13,8,14,12,4,9,1,11,3,7,6,2
|
||
|
for i = 1 to 15
|
||
|
read c(i)
|
||
|
next
|
||
|
|
||
|
&HGR2 : REM FULL SCREEN DOUBLE HIGH RES
|
||
|
&MODE(2) : REM 16-color mode
|
||
|
|
||
|
{ Clear screen to black }
|
||
|
&BCOLOR=0
|
||
|
&CLEAR
|
||
|
|
||
|
mx = sw - 1
|
||
|
my = sh - 1
|
||
|
|
||
|
cc = 0
|
||
|
ci = 1
|
||
|
|
||
|
for x = 0 to mx
|
||
|
if cc < 8 then cc=cc+1:goto @setColor
|
||
|
cc = 0
|
||
|
ci = ci + 1
|
||
|
if ci > 15 then @checkKeypress
|
||
|
£setColor
|
||
|
&hcolor = c(ci)
|
||
|
&hplot x,0 to x,my
|
||
|
next
|
||
|
|
||
|
£checkKeypress
|
||
|
if peek(kbd) <= 127 then @checkKeypress
|
||
|
get k$
|
||
|
|
||
|
£exit
|
||
|
&TEXT
|
||
|
print "Colors terminated"
|
||
|
print "Run -FP before running it again to clear memory";
|
||
|
END
|
||
|
|
||
|
{ re = p1 mod p2 }
|
||
|
£modulus
|
||
|
let re = p1 - int(p1 / p2) * p2
|
||
|
return
|
||
|
|