This is non-commercial site, its content is based on Atari 8-bit home computer contents and references.
If you feel your rights are violated by showing/using any part of contents of your product represented on this page,
please contact me immediatelly so I can remove it!








Listing 1
1 REM 3-D GRAPHICS GENERATOR 2 REM BY **** ***** 3 DIM IN$(16),OUT$(16),I$(2),O$(2):GOTO 800 5 GRAPHICS 9:X=40:Y=0:TYPE=0:DIR=0:SHADE=8:SIZE=10:TINT=0:GOSUB 60 10 TRAP 10:GOSUB 550 15 IF STRIG(1)=0 THEN GOSUB 500 20 IF STICK(1)<>15 THEN GOSUB 60 25 IF STRIG(0)=0 THEN 80 30 COLOR 15:PLOT X,Y:COLOR 0:PLOT X,Y 32 IF PEEK(53279)<>7 THEN GOSUB 1000 35 IF STICK(0)=15 THEN 15 40 GOSUB 40+STICK(0):GOTO 15 45 Y=Y+1:GOTO 47 46 Y=Y-1:GOTO 47 47 X=X+1:RETURN 49 Y=Y+1:GOTO 51 50 Y=Y-1:GOTO 51 51 X=X-1:RETURN 53 Y=Y+1:RETURN 54 Y=Y-1:RETURN 55 RETURN 60 SOUND 0,50,10,8:GOSUB 60+STICK(1):SOUND 0,0,0,0:RETURN 65 TYPE=1:RETURN 66 DIR=1:RETURN 67 SIZE=SIZE+1:GOTO 75 69 TYPE=0:RETURN 70 DIR=0:RETURN 71 SIZE=SIZE-1:GOTO 75 73 SHADE=SHADE-1:GOTO 75 74 SHADE=SHADE+1 75 IF SHADE>15 THEN SHADE=15 76 IF SHADE<0 THEN SHADE=0 77 IF SIZE>79 THEN SIZE=79 78 IF SIZE<1 THEN SIZE=1 79 COLOR 0:PLOT 0,0:DRAWTO 79,0:COLOR SHADE:PLOT 40-(SIZE/4),0:DRAWTO 40+(SIZE/4),0:RETURN 80 COL=SHADE 90 POKE 77,1:TRAP 10 100 IF TYPE<>0 OR DIR<>0 THEN 200 105 COL=-15 110 FOR A=Y-SIZE TO Y+SIZE STEP SIZE/30 120 COLOR 15-ABS(COL):COL=COL+0.5 130 PLOT X,A 140 NEXT A:GOTO 40 200 IF TYPE<>0 OR DIR<>1 THEN 300 205 COL=-15:SIZE=SIZE/4 210 FOR A=X-SIZE TO X+SIZE STEP SIZE/30 220 COLOR 15-ABS(COL):COL=COL+0.5 230 PLOT A,Y 240 NEXT A:SIZE=SIZE*4:GOTO 40 300 IF TYPE<>1 OR DIR<>0 THEN 400 310 COLOR COL 320 PLOT X,Y-SIZE:DRAWTO X,Y+SIZE 330 GOTO 40 400 IF TYPE<>1 OR DIR<>1 THEN 40 410 COLOR COL:SIZE=SIZE/4 420 PLOT X-SIZE,Y:DRAWTO X+SIZE,Y 430 SIZE=SIZE*4:GOTO 40 500 TINT=TINT+1:IF TINT>15 THEN TINT=0 510 SETCOLOR 4,TINT,0 520 IF STRIG(1)=0 THEN 520 530 RETURN 550 IF X>79 THEN X=79 560 IF X<0 THEN X=0 570 IF Y>191 THEN Y=191 580 IF Y<0 THEN Y=0 590 RETURN 600 OPEN #1,4,0,IN$ 610 B=PEEK(106)*256-160 620 FOR D=B-7680 TO B:GET #1,A:POKE D,A:NEXT D:CLOSE #1 630 RETURN 700 OPEN #1,8,0,OUT$ 710 B=PEEK(106)*256-160 720 FOR D=B-7680 TO B:A=PEEK(D):PUT #1,A:NEXT D:CLOSE #1 730 RETURN 800 GRAPHICS 0:PRINT " ":PRINT:PRINT 810 PRINT "REMEMBER THESE FUNCTIONS!":PRINT:PRINT "CURSOR/STICK 1 DEFINITIONS ARE:":PRINT 820 PRINT "VERTICAL HORIZONTAL" 830 PRINT " NULL " 840 PRINT "ROUND SQUARE":PRINT 850 PRINT "STICK 0 CONTROLS CURSOR POSISTION" 860 PRINT "STICK 1 CONTROLS CURSOR FORMAT":PRINT 870 PRINT "FIRE BUTTON 1 DRAWS LINES" 880 PRINT "FIRE BUTTON 2 SEQUENCES COLORS":PRINT 890 PRINT " KEY SAVES PICTURE" 900 PRINT " KEY LOADS PICTURE":PRINT 910 PRINT "ENTER PICTURE LOAD LETTER (A-Z)";:INPUT I$ 920 PRINT "ENTER PICTURE SAVE LETTER (A-Z)";:INPUT O$ 930 IN$="D:PICTUREX.GRA" 940 IN$(10,10)=I$(1,1) 950 OUT$="D:PICTUREX.GRA" 960 OUT$(10,10)=O$(1,1) 970 GOTO 5 1000 IF PEEK(53279)=6 THEN GOTO 600 1010 IF PEEK(53279)=5 THEN GOTO 700 1020 RETURN
References
Listing downloads
Copyright holder