Send me a message
Find content
Male
Display name history
rdea6.
Thanks for the help. I think it's suppose to go across the whole screen though. When I run the original version it fills across the screen like the pic below and then it stops with an error.
10 REM Zigzag 20 REM a mode 10 demo 50 GRAPHICS 10 60 FOR R=704 TO 712:READ C:POKE R,C:NEXT R 70 DATA 0,148,182,216,30,58,74,68,100 80 DIM S$(16):I=-33 90 FOR B=1 TO 3 100 S$="ABCDEFGHABCDEFGH":T=1:I=I+32:GOSUB 160 110 S$="HGFEDCBAHGFEDCBA":T=2:I=I+32:GOSUB 160 120 NEXT B 130 X=PEEK(712) 140 FOR R=1 TO 8:Y=PEEK(704+R):POKE 704+R,X:X=Y:NEXT R:IF PEEK(53279)=6 THEN END 150 GOTO 140 160 FOR Y=1 TO 16 170 POSITION 0,I+Y 180 FOR X=1 TO 10 190 ON T GOSUB 280,290 200 NEXT X:NEXT Y 210 FOR Y2=16 TO 1 STEP -1 220 POSITION 0,I+16+Y2 230 FOR X=1 TO 10 240 Y=17-Y2 250 ON T GOSUB 280,290 260 NEXT X:NEXT Y2 270 RETURN 280 ? #6;S$(9-(Y-(INT((Y-1)/8)*8)),16-(Y-(INT((Y-1)/8)*8)));:RETURN 290 ? #6;S$(9-(Y-(INT((Y-1)/8)*8)),8+(Y-(INT((Y-1)/8)*8)));:RETURN
Dan,
Thanks. That fixed part of the problem. As you can see in the other pic there still is a problem. It defintely is a mis-print in the book. I just need to find the second problem.
Allan
