ataricode.com/layouts/partials/welcome.html

80 lines
2.4 KiB
HTML
Raw Normal View History

<div>
<h1>Welcome!</h1>
<p>
Well, hello there, Atari friends! Thanks for dropping by! This site is a
working record of my attempt to re-educate myself on the Atari 8-Bit
computer, and mainly on its programming languages and capabilities. But,
along the way, I'll be playing games and experimenting with applications,
and looking at other people's projects. So, you may find this interesting,
too! I hope you do.
</p>
<p class="p2">Some small text</p>
<p class="p3">Some very tiny text</p>
</div>
<div style="display: flex">
<div class="shadowbox" style="float: left">
<h3>Attention!</h3>
<p class="p4">Hello, this is a highlighted notice!</p>
</div>
<div>
<h2>H2 Test Text</h2>
<p>Some standard text.</p>
<p class="p2">Some small text</p>
<p class="p3">Some very tiny text</p>
</div>
</div>
<h3>H3 Test Text</h3>
<p>Some standard text.</p>
<p class="p2">Some small text</p>
<p class="p3">Some very tiny text</p>
<h4>H4 Test Text</h4>
<p>Here is a code block:</p>
<pre>
100 REM PLAYER/MISSILE EXAMPLE
110 DIM A$(512),B$(20)
120 X=X+1:READ A:IF A<>-1 THEN B$(X,X)=CHR$(A):GOTO 120
130 DATA 0,255,129,129,129,129,129,129,129,129,255,0,-1
2000 POKE 559,62:POKE 704,88
2020 I=PEEK(106)-16:POKE 54279,I
2030 POKE 53277,3:POKE 710,224
2040 VTAB=PEEK(134)+PEEK(135)*256
2050 ATAB=PEEK(140)+PEEK(141)*256
2060 OFFS=I*256+1024-ATAB
2070 HI=INT(OFFS/256):LO=OFFS-HI*256
2090 POKE VTAB+2,LO:POKE VTAB+3,HI
3000 Y=60:Z=100:V=1:H=1
4000 A$(Y,Y+11)=B$:POKE 53248,Z
4010 Y=Y+V:Z=Z+H
4020 IF Y>213 OR Y<33 THEN V=-V
4030 IF Z>206 OR Z<49 THEN H=-H
4420 GOTO 4000
</pre>
<p>
Here is a code printout!
</p>
<div class="printout">
100 REM PLAYER/MISSILE EXAMPLE<br/>
110 DIM A$(512),B$(20)<br/>
120 X=X+1:READ A:IF A<>-1 THEN B$(X,X)=CHR$(A):GOTO 120<br/>
130 DATA 0,255,129,129,129,129,129,129,129,129,255,0,-1<br/>
2000 POKE 559,62:POKE 704,88<br/>
2020 I=PEEK(106)-16:POKE 54279,I<br/>
2030 POKE 53277,3:POKE 710,224<br/>
2040 VTAB=PEEK(134)+PEEK(135)*256<br/>
2050 ATAB=PEEK(140)+PEEK(141)*256<br/>
2060 OFFS=I*256+1024-ATAB<br/>
2070 HI=INT(OFFS/256):LO=OFFS-HI*256<br/>
2090 POKE VTAB+2,LO:POKE VTAB+3,HI<br/>
3000 Y=60:Z=100:V=1:H=1<br/>
4000 A$(Y,Y+11)=B$:POKE 53248,Z<br/>
4010 Y=Y+V:Z=Z+H<br/>
4020 IF Y>213 OR Y<33 THEN V=-V<br/>
4030 IF Z>206 OR Z<49 THEN H=-H<br/>
4420 GOTO 4000<br/>
</div>