QRJ • TOP1¤BOT1¤TOP¤BOT¤COL¤SÔÙROÔSANDÙÒÃX°Y°ËØÉZ¸LOOÐX¸Y¸ÔT±T²PR¤ÐPHÉPLÏCHÉCLÏPXHÉPXLÏ€€€€€ € ""NOTE: THE ROUTINE FROM 10000› TO END CAN BE USED FOR DLI›IN ANY PROGRAM.›(SEE CREATIVE COMPUTING›2!!DECEMBER '81 FOR MORE INFO.›<!!***************************›d*** SUNSET›n ***›x*** DAVE SMALL›‚ ***›Œ€;A(,;A(,–‚;A(,ƒ;A(, „;AU,¾ APÒ Aæ B%%6…-F:A`,%AV$F:Aa,…A%A(''…%@@%@d%A("''†-@@%@–@,…%†@%A(6 †T‡-A@^6ˆ-h6ƒ.„7@<A%,r6‚.„7A&<AP,†6€.‚7@<A ,6‚.‚7A!<A%,š6‚7@,.€¤6‚7@<@,.>:‡,ª/‡!AU/6‚7@<@,.>:,¸6.ƒ7@<@,Â6ƒ.ƒ7@,Ì6ƒ7A!,.à6„7@<A%,.ƒê6„7A&,.‚ô ‡þ A@&* +@#*0@@@00@:0@@D0@@N%6‰-@ @%6Š-@X6‹-@y6Œ-@Gl-@@v"6Ž-‹%‰$E:A`,6†-Œ",Ž†€''-@$A`@uŠ6Ž-‹%‰$E:,6†-Œ%‰$G:,” /Ž†ž' 6‰-‰%@#6Š-Š%@'Š¨ ²6-@¼‘-@@PÆÐ%%6’-P:H:,$AY,%@Ú%%6“-P:H:,$@G,%@ä ,’“î)6-%@"@)6-@ø ‘$ ”-@AU@*6„7”<”,.>:”,46•-”%@€>6–-”%A`H•!AU6•-•&AVR–!AU6–-–&AV\!!6„7”%@<”%@,.>:•,f!!6„7”%@<”%@,.>:–,p''6„7”%@<”%@,.>:,z''6„7”%@<”%@,.>:,„ ”Ž$'*************************›'* DLI DRIVER/DAVE SMALL *›$'* YOU MUST DIM AND FILL *›.'* COL$ PRIOR TO GOSUB *›8'*************************›B'›L'—;@P,`'* READ PROGRAM INTO PR$ *›~'"Žˆ'Ž"AUB’'6—7B:—,%@,.>:Ž,œ' B°'* PROGRAM AS BYTES *›Ä'72,138,72,152,72›Î'162,0,173,11,212,201,7›Ø'240,3,174,1,2›â' 160,0›ì' 189,3,4›ö'153,22,208›(232,200,192,5,208,244› ( 142,5,6›(104,168,104,170,104,64›(0,1,2,3,4,5›(( 255›<(* LINK COL$ TO PR$ *›P( 6˜-C:—,Z(6™-P:˜'AV,d(6š-+˜&™$AV,x( 6Š-C:„,‚(6›-P:Š'AV,Œ(6œ-P:Š&›$AV, (* POKE IN COL$ ADDRESS *›´(6—7@!<@!,.>:œ,¾(6—7@"<@",.>:›,Ò(* POKE PRGM LOAD ADDR *›æ(6-P:+˜%@A,'AV,ð(6ž-+˜%@A,&+$AV,ú(6—7@<@,.>:ž,)6—7@<@,.>:,)6—7@3<@3,.>:ž,)6—7@4<@4,.>:,,)* POKE INTERRUPT ADDR *›@)AšJ)A™^)* ENABLE INTERRUPTS *›r)BB†A(%@d†)* ALL SET! RETURN. *›š)$¤)*************************›€ D:SUNSET.BAS