thanks. i've implemented the suggested changes. left in the overwriting of display - the chr$ 137s depend on the randomly generated landscape so i'd have to introduce another if-clause. now i'm thinking i should combine the ifs in line 170/200 into a single line but i'm not quite sure how to make use of AND. maybe someone could give an example?
also another question, is it faster to use chr$ codes or the actual graphic symbols?
and... i still need to get the code from zx81mi into the program!!!
Code: Select all
1 FAST
2 LET A=16
3 DIM S(66)
4 CLS
5 PRINT AT 4,0;"ŸŸŸŸŸŸŸŸŸŸŸŸŸŸŸŸŸŸŸŸŸŸŸŸŸŸŸŸŸŸŸŸ³³³³³³³³³³³³³³³³³³³³³³³³³³³³³³³³³³³³³³³³³³³³³³³³³³³³³³³³³³³³³³³³ŸŸŸŸŸŸŸŸŸŸŸŸŸŸŸŸŸŸŸŸŸŸŸŸŸŸŸŸŸŸŸŸ¿¿¿¿¿¿¿¿¿¿¿¿¿¿¿¿¿¿¿¿¿¿¿¿¿¿¿¿¿¿¿¿³³³³³³³³³³³³³³³³³³³³³³³³³³³³³³³³ŸŸŸŸŸŸŸŸŸŸŸŸŸŸŸŸŸŸŸŸŸŸŸŸŸŸŸŸŸŸŸŸŸŸŸŸŸŸŸŸŸŸŸŸŸŸŸŸŸŸŸŸŸŸŸŸŸŸŸŸŸŸŸŸ ¿¿¿¿¿¿¿¿¿¿¿¿¿¿¿¿¿¿¿¿¿¿¿¿¿¿¿¿¿¿¿¿ŸŸŸŸŸŸŸŸŸŸŸŸŸŸŸŸŸŸŸŸŸŸŸŸŸŸŸŸŸŸŸŸ ŸŸŸŸŸŸŸŸŸŸŸŸŸŸŸŸŸŸŸŸŸŸŸŸŸŸŸŸŸŸŸŸ"
10 FOR N=0 TO 63
20 LET B=INT (10*RND)-4
30 IF A+B>0 THEN LET A=A+B
40 IF A>20 THEN LET A=A-10
70 FOR C=8 TO A
80 PLOT N,C
90 NEXT C
100 LET S(N+1)=A
110 NEXT N
120 LET S(66)=S(64)
130 PRINT AT 18,0;"žžžžžžžžžžžžžžžžžžžžžžžžžžžžžžžžžžžžžžžžžžžžžžžžžžžžžžžžžžžžžžžž®®®®®®®®®®®®®®®®®®®®®®®®®®®®®®®®"
160 FOR I=1 TO 32
170 IF S(I*2)>7 THEN PRINT AT 18,I-1;CHR$ 137
200 IF S((I*2)+2)>12 THEN PRINT AT 19,I-1;CHR$ 137
210 NEXT I
220 PRINT AT 0,0;CHR$ 5+CHR$ 5+CHR$ 132+CHR$ 1+CHR$ 3+CHR$ 5+CHR$ 132+CHR$ 1+CHR$ 6+CHR$ 4+CHR$ 7+CHR$ 4+CHR$ 7+CHR$ 1+CHR$ 7+CHR$ 5+CHR$ 132+CHR$ 0+CHR$ 0
230 PRINT CHR$ 5+CHR$ 5+CHR$ 133+CHR$ 0+CHR$ 6+CHR$ 0+CHR$ 133+CHR$ 0+CHR$ 7+CHR$ 5+CHR$ 7+CHR$ 0+CHR$ 7+CHR$ 0+CHR$ 6+CHR$ 4+CHR$ 133+CHR$ 0+CHR$ 0
240 PRINT CHR$ 3+CHR$ 1+CHR$ 2+CHR$ 0+CHR$ 3+CHR$ 1+CHR$ 2+CHR$ 0+CHR$ 1+CHR$ 1+CHR$ 1+CHR$ 0+CHR$ 3+CHR$ 1+CHR$ 3+CHR$ 1+CHR$ 2+CHR$ 0+CHR$ 0
250 PRINT "BY IRRLICHT PROJECT"
255 PRINT AT 21,0;"««««««««««««««««««««««««««««««««"
260 SLOW
270 PAUSE 20
280 LET A$="«««««««««««««««««««««««««««««««lets«see«if«this«routine«can«be«used«as«a«scroll«effect"
290 LET A$=A$(2 TO )+A$(1)
300 PRINT AT 21,1;A$(1 TO 30)
310 GOTO 290
@XavSnap asm scolling would be nice of course! on the other hand zx81jens' routine (280-310) seems to do the job, as long as the string doesn't get too long - but that can be probably solved by splitting it up in parts.
