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!
Atari 8-bit Source code
|
|
-
Entry name:Text - Graphics 8
-
Category:Graphics
-
Publisher/Developer:Flop 3, Tips & Tricks fuer ATARI
-
Year:1987
Listing 1
10 REM TEXT - GRAPHICS 8 20 REM pro vsechna ATARI XL/XE 30 REM demo program 110-160 40 REM main program 1000-1060 50 REM 1987 by Dittrich Clausdorff 60 REM Tips & Tricks fuer ATARI 100 REM demo 110 IF PEEK(1536)<>62 THEN GOSUB 1000 120 GRAPHICS 8+16:COLOR 1 130 OPEN #1,8,0,"G:" 140 PLOT 90,80:DRAWTO 230,80:DRAWTO 230,110:DRAWTO 90,110:DRAWTO 90,80 150 PLOT 100,90:? #1;"TEXT V GRAFICE 8" 160 GOTO 160 1000 REM Main routine 1010 FOR I=1536 TO 1642:READ A:POKE I,A:NEXT I:POKE 1535,104:X=USR(1535):RETURN 1020 DATA 162,0,189,26,3,240,5,232,232,232,208,246,169,71,157,26,3,169,28,157,27,3,169,6,157,28 1030 DATA 3,96,103,6,103,6,103,6,39,6,103,6,103,6,201,155,240,60,56,233,32,133,216,169,0,6 1040 DATA 216,42,6,216,42,6,216,42,9,224,133,217,165,100,133,218,165,101,133,219,162,0,160,0,177,216 1050 DATA 129,218,165,218,24,105,40,133,218,165,219,105,0,133,219,200,192,8,208,234,230,100,208,2,230,101 1060 DATA 160,1,96
References
Listing downloads
Copyright holder