80 lines
2.4 KiB
HTML
80 lines
2.4 KiB
HTML
|
<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>
|