This page (revision-7) was last changed on 03-Feb-2023 15:21 by Gromit 

This page was created on 19-Dec-2010 21:31 by Carsten Strotmann

Only authorized users are allowed to rename pages.

Only authorized users are allowed to delete pages.

Page revision history

Version Date Modified Size Author Changes ... Change note
7 03-Feb-2023 15:21 14 KB Gromit to previous
6 27-May-2011 09:54 13 KB Gromit to previous | to last
5 27-May-2011 09:54 13 KB Gromit to previous | to last
4 27-May-2011 09:47 7 KB Gromit to previous | to last
3 27-May-2011 09:46 7 KB Gromit to previous | to last
2 19-Dec-2010 21:32 150 bytes Carsten Strotmann to previous | to last
1 19-Dec-2010 21:31 108 bytes Carsten Strotmann to last

Page References

Incoming links Outgoing links
SPLASH in ACTION
SPLASH in ACTION

Version management

Difference between version and

At line 19 changed one line
Type in listing 1, check it with TYPO II and SAVE a copy. When you RUN it, use your joystick to choose a point on the GR.8 screen. Pressing the trigger puts a "splash" of lines emanating from this center to all borders. The step size between lines can be changed by simply pressing [5]. The program lets you put as many splashes on the screen as you wish before clearing to start over. It's kind of fun-no violence, no winning score, just pretty.
Type in listing 1, check it with TYPO II and SAVE a copy. When you RUN it, use your joystick to choose a point on the GR.8 screen. Pressing the trigger puts a "splash" of lines emanating from this center to all borders. The step size between lines can be changed by simply pressing [[5]. The program lets you put as many splashes on the screen as you wish before clearing to start over. It's kind of fun-no violence, no winning score, just pretty.
At line 55 changed one line
10 REM SPLASH 1
12 REM BY PAUL CHABOT
14 REM ANTIC MAGAZINE
20 REM MAIN LOOP
22 GOSUB 200
24 GOSUB 100:GOSUB 50
26 POKE 656,3:POKE 657,2
28 ? "[A]-Another [C]-Clear";
30 K=PEEK(764):IF K=255 THEN 30
32 POKE 764,255
34 IF K=18 THEN 20
36 GOTO 24
50 REM SPLASH
52 POKE 712,16*INT(RND(0)*16)+2
60 FOR I=0 TO 319 STEP S
62 PLOT X,Y:DRAWTO I,0:PLOT X,Y
64 DRAWTO I,159:NEXT I
66 FOR I=0 TO 159 STEP S
68 PLOT X,Y:DRAWTO 319,I:PLOT X,Y
70 DRAWTO 0,I:NEXT I
72 RETURN
100 REM JOYSTICK
102 POKE 656,3:POKE 657,2
104 ? "[trigger] - SPLASH ";
110 POKE 656,1:POKE 657,9
112 ? X;" , ";Y;" ";
120 ST=STICK(0):IF STRIG(0)=0 THEN 140
122 IF PEEK(764)<255 THEN POKE 764,255:GOSUB 150
124 IF ST=15 THEN 120
130 IF ST=7 AND X<319 THEN X=X+1
132 IF ST=11 AND X>0 THEN X=X-1
134 IF ST=13 AND Y<159 THEN Y=Y+1
136 IF ST=14 AND Y>0 THEN Y=Y-1
138 GOTO 110
140 RETURN
150 REM INC STEP
152 S=S+1:IF S>16 THEN S=1
154 POKE 656,1:POKE 657,25:? S;" ";
156 POKE 712,16*INT(RND(0)*16)+2
158 RETURN
200 REM SETUP
202 GRAPHICS 8:POKE 710,0:POKE 709,14
204 POKE 712,16*INT(RND(0)*16)+2
206 POKE 752,1:COLOR 1:X=120:Y=60:S=7
210 ? " GR.8 S P L A S H "
212 ? "CENTER 120 , 60 STEP 7 "
214 ? " [joystick] [S] "
222 RETURN
This page (revision-7) was last changed on 03-Feb-2023 15:21 by Gromit  Top