<div dir="ltr"><div class="gmail_extra"><pre class="" style="font-family:Consolas,'Liberation Mono',Courier,monospace;font-size:12px;line-height:16px;width:744px;margin-top:0px;margin-bottom:0px;padding:0px;color:rgb(0,0,0)">

<div class="" id="file-hotairballoon-LC1">10 REM SPRITE EXAMPLE 1...</div><div class="" id="file-hotairballoon-LC2">20 REM THE HOT AIR BALLOON</div><div class="" id="file-hotairballoon-LC3">30 VIC=13*4096:REM THIS IS WHERE THE VIC REGISTERS BEGIN</div>

<div class="" id="file-hotairballoon-LC4">35 POKEVIC+21,1:REM ENABLE SPRITE 0</div><div class="" id="file-hotairballoon-LC5">36 POKEVIC+33,14:REM SET BACKGROUND COLOR TO LIGHT BLUE</div><div class="" id="file-hotairballoon-LC6">

37 POKEVIC+23,1:REM EXPAND SPRITE 0 IN Y</div><div class="" id="file-hotairballoon-LC7">38 POKEVIC+29,1:REM EXPAND SPRITE 0 IN X</div><div class="" id="file-hotairballoon-LC8">40 POKE2040,192:REM SET SPRITE 0'S POINTER</div>

<div class="" id="file-hotairballoon-LC9">180 POKEVIC+0,100:REM SET SPRITE 0'S X POSITION</div><div class="" id="file-hotairballoon-LC10">190 POKEVIC+l, 100:REM SET SPRITE 0'S Y POSITION</div><div class="" id="file-hotairballoon-LC11">

220 POKEVIC+39,1:REM SET SPRITE 0'S COLOR</div><div class="" id="file-hotairballoon-LC12">250 FORY=0T063:REM BYTE COUNTER WITH SPRITE LOOP</div><div class="" id="file-hotairballoon-LC13">300 READA:REM READ IN A BYTE</div>

<div class="" id="file-hotairballoon-LC14">310 POKE192*64+Y,A:REM STORE THE DATA IN SPRITE AREA</div><div class="" id="file-hotairballoon-LC15">320 NEXTY:REM CLOSE LOOP</div><div class="" id="file-hotairballoon-LC16">330 DX=l:DY=l</div>

<div class="" id="file-hotairballoon-LC17">340 X=PEEK(VIC):REM LOOK AT SPRITE 0'S X POSITION</div><div class="" id="file-hotairballoon-LC18">350 Y=PEEK(VIC+l):REM LOOK AT SPRITE 0'S Y POSITION</div><div class="" id="file-hotairballoon-LC19">

360 IFY=500RY=208THENDY=-DY:REM IF Y IS ON THE EDGE OF THE....</div><div class="" id="file-hotairballoon-LC20">370 REM SCREEN, THEN REVERSE DELTA Y</div><div class="" id="file-hotairballoon-LC21">380 IFX=24AND(PEEK(VIC+16)AND1)=0THENDX=-DX:REM IF SPRITE IS....</div>

<div class="" id="file-hotairballoon-LC22">390 REM TOUCHING THE LEFT EDGE (X=24 AND THE MSB FOR SPRITE 0 IS 0), REVERSE IT</div><div class="" id="file-hotairballoon-LC23">400 IFX=40AND(PEEK(VIC+16)AND1)=lTHENDX=-DX:REM IF SPRITE IS....</div>

<div class="" id="file-hotairballoon-LC24">410 REM TOUCHING THE RIGHT EDGE (X=40 AND THE MSB FOR SPRITE 0 IS 1), REVERSE IT</div><div class="" id="file-hotairballoon-LC25">420 IFX=255ANDDX=lTHENX=-1:SIDE=1</div><div class="" id="file-hotairballoon-LC26">

430 REM SWITCH TO OTHER SIDE OF THE SCREEN</div><div class="" id="file-hotairballoon-LC27">440 IFX=0ANDDX=-lTHENX=256:SIDE=0</div><div class="" id="file-hotairballoon-LC28">450 REM SWITCH TO OTHER SIDE OF THE SCREEN</div>

<div class="" id="file-hotairballoon-LC29">460 X=X+DX:REM ADD DELTA X TO X</div><div class="" id="file-hotairballoon-LC30">470 X=XAND255:REM MAKE SURE X IS IN ALLOWED RANGE</div><div class="" id="file-hotairballoon-LC31">

480 Y=Y+DY:REM ADD DELTA Y TO Y</div><div class="" id="file-hotairballoon-LC32">485 POKEVIC+16,SIDE</div><div class="" id="file-hotairballoon-LC33">490 POKEVIC,X:REM PUT NEW X VALUE INTO SPRITE 0'S X POSITION</div><div class="" id="file-hotairballoon-LC34">

510 POKEVIC+1,Y:REM PUT NEW Y VALUE INTO SPRITE 0'S Y POSITION</div><div class="" id="file-hotairballoon-LC35">530 GOTO340</div><div class="" id="file-hotairballoon-LC36">600 REM ***** SPRITE DATA *****</div><div class="" id="file-hotairballoon-LC37">

610 DATA0,127,0,1,255,192,3,255,224,3,231,224</div><div class="" id="file-hotairballoon-LC38">620 DATA7,217,240,7,223,240,7,217,240,3,231,224</div><div class="" id="file-hotairballoon-LC39">630 DATA3,255,224,3,255,224,2,255,160,1,127,64</div>

<div class="" id="file-hotairballoon-LC40">640 DATAl,62,64,0,156,128,0,156,128,0,73,0,0,73,0</div><div class="" id="file-hotairballoon-LC41">650 DATA0,62,0,0,62,0,0,62,0,0,28,0,0</div></pre></div></div>