SezCTRΜΑLINΕΒΓINΓA€B€€€ SCREEN CUSTOMIZER›BY JAMES HAGUE› (c) 1986, ANTIC PUBLISHING›d BAR@i!€!A @n"A"(>:A%,s,-@@,(GRAPHICS MODE ZEROx,-@@,(SCREEN CUSTOMIZER}3-@@3(programmed by James Hague‚#-@@#( MAIN MENU‡.-@ @.(±ˆ View/Edit ScreenŒ/-@ @/(²ˆ Create Subroutine‘*-@ @*(³ˆ Exit Program–<-@@<("press the number of your selection› A ">:,41 A" A₯">:,42 A " Aͺ1>:,43+.(Your computer is1―J -@6@<2A@@@ J AUσRETURN KEYPRESS IN (A)›τ5AdAU5@@K:ω)@@$ηEDIT/VIEW SCREEN›θ(>:A%,ν4-@@4(THE FOLLOWING CONTROLS AREς2-@@2(AVAILABLE DURING EDITINGχ3-@@ 3(select line with JOYSTICKό6-@@6(OPTION - character luminance1-@@1(SELECT - line luminance--@@-(START - line color 7-@@7(press TRIGGER to stop editing6-@@6(press any key to continue... A(>:A%,%€@6‚-@% A0#-@@##-@%$:P:'@,"'@0( ΑΒΓαβγ ABCabc: Ap)(ABCabc ΑΒΓαβγ .@# 3 8-@‚(->=6-R:,B)"@*‚6-‚&@) AG1"@*‚@#'6-‚%@1 AL AQ1-@‚( #-@+(->16‚-V&6-F:B2y,&@A%[@ ] F:@ ,@A…`(T:,$b Ae@AEj6ƒ-F:A`%‚,%@oƒ"@6ƒ-tA`%‚ƒ Ay6ƒ-P:F:A6%‚,'@,~6„-F:A6%‚,&@$ƒƒ@Apˆ)6ƒ-ƒ%@ƒ!@)6ƒ- A€’@A—)6„-„%@„!@)6„-œA6%‚ƒ$@%„‘ AΟCREATE SUBROUTINE›Π(>:A%,ΥA-@,(SUBROUTINE CREATOR/(AARΪKK(CEnter the line number that you would like the routine to start at.ί/ A ‚/‚ )‚!B'A δ+(+( Enter the line number increment.ι6 A %…6… @)…P:…,)…!AA %ξS(S(HEnter the filename to save the sub- routine as. The 'D:' is optional.σ††4A 5ψ;;†7@<@,4:*†7@<@,0DA 5ύQ3†7@<@,0:*†7@<@,0:96‡.†B6†.D:Q6†7@,.‡"AR@"(>:A%,g-@@5(Insert a FORMATTED disketteG-@@g(press any key to write file $ A A%$(>:A%,8@+@@†8(>:A%,&-@@&( writing filePH(@‚)IF PEEK(1584)=104 AND PEEK(1585)=173 THEN‚%@$…P6‚-‚%… [S(@‚RESTORE‚%@$…*:FOR A=0 TO 47:READ B:POKE 1536+A,B:NEXT A[6‚-‚%…%E=(@‚*FOR A=0 TO 106:READ B:POKE 1584+A,B:NEXT AE6‚-‚%…*6.(@‚A=USR(1584):CTRL=205:RETURN66‚-‚%…/##(@‚DATAF:A6,4K-@@#4(@,F:A6%,8 C(@K6‚-‚%…9##(@‚DATAF:A`,>K-@@#4(@,F:A`%,8 C(@K6‚-‚%…C-@H--(@‚DATAF:A„%@$,MYƒ-@@>(@,F:A„%@$%ƒ,B ƒM(@U6‚-‚%…Y R(@‚ DATA 104,64W@$Γ ERROR HANDLER›Δ  A%@Ι (>:A%,Ξ /-@@/( I/O ERROR F:A•,Σ 5-@@5(press any key for main menuΨ  A$Έ 6-@6(Β 6-@@6(|OPTION=Character Luminence|Μ 6-@@6(|SELECT=Line Luminence |Φ 6-@@6(|START= Line Color |ΰ 6-@@6(|TRIGGER= Main Menu |κ 6-@@6(τ $'INITIALIZATION›'C-@#+A6%?A`%@C ' #B'--A"ƒ)A„%ƒ- '66€-A6-?:A„,6†;@ ,‡;@ ,$'$t'104,173,48,2,133,203,173›y'49,2,133,204,160,3,177›~'203,9,128,145,203,160,6›ƒ' 169,130,145,203,200,192,29›ˆ'208,249,169,129,141,0,2›'169,6,141,1,2,160,99›’'162,6,169,7,133,205,76›—'92,228,162,64,165,205,240›œ'18,173,24,6,141,197,2›‘'173,0,6,141,198,2,169›¦'1,133,206,162,192,142,14›«'212,76,98,228,72,138,72›°'166,206,189,24,6,141,10›΅'212,141,23,208,189,0,6›Ί' 141,24,208,230,206,104,170›Ώ' 104,64›€ D1:SCREEN.BAS