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:Big Letters
-
Category:Graphics
-
Publisher/Developer:Antic - The Atari Resource
-
Year:1989
Listing 1
10 REM --------------------- 20 REM PODLE OL.ZPRAV. 3-4/89 30 REM 40 REM big letters 50 REM BY DORIAN GARSON 60 REM (C) 1985 ANTIC 70 REM 1987 80 REM gia software 100 REM DEMO #1 110 POKE 622,255:GRAPHICS 0 120 POKE 82,0:POKE 710,0:POKE 752,1 130 ?:? " PLEASE WAIT..." 140 POSITION 6,6:? "" 150 POSITION 6,7:? "abcdefghijklmnopqrstuvwxyz" 160 POSITION 6,10:? "" 170 POSITION 6,11:? "" 180 POSITION 6,20:? "it took 30 seconds" 500 REM MAIN PROGRAM 510 CHBAS=57344:CH=38912:CAPS=256:TOP=208 520 POKE 756,CH/256 530 FOR X=CHBAS TO CHBAS+1024:POKE CH+X-CHBAS,PEEK(X):NEXT X 540 FOR X=CHBAS+CAPS TO CHBAS+CAPS+TOP STEP 8 550 FOR L=0 TO 4:FOR T=0 TO 1 560 POKE CH+(X-CHBAS+CAPS)+(L*2)+T,PEEK(X+L) 570 NEXT T:NEXT L:NEXT X 580 FOR X=CHBAS+CAPS TO CHBAS+CAPS+TOP STEP 8 590 FOR L=4 TO 8:FOR T=0 TO 1 600 POKE CH+CAPS+(X-CHBAS+CAPS)+(L-4)*2+T,PEEK(X+L) 610 NEXT T:NEXT L:NEXT X 1000 REM DEMO #2 1010 ? "":?:?:?:POKE 82,5 1020 LIST 10,80 1030 FOR TIME=1 TO 800:NEXT TIME 1040 ? "":POKE 82,0 1045 FOR I=1 TO 90 1050 ? "" 1060 ? "" 1070 ? "" 1080 NEXT I 1100 DOS
Listing downloads
Copyright holder