@L}5 _$% l0$)$$Hȱ$ UhL" `e$$%`$%`  R@W!( L(1   Y I`  d  Ld M * @  $ % CC$$)%1 Udߥ$9%: !0 S$% DD˙`  }J)Lr fffffff>`<|fl0fF68of;p88pf<6v6 0>>  <66f<08  8 6ccc>~ 66>ccc>>ccc6 00 0 ~~`0 0`<}f 66~6666|flfccf|0000xlfffflx>0>000>00<00000`fff6666~6666 p0000000<<666666}666cffff<> 0>@`0 xx6}c6>8pp8? }ww<~~~<x`x`~<~~< }0~0 ~ <~~<66~6666|flfccf|0000xlfffflx|`|```0>00<0000`l666~6666 p0000000< }xlllllll 0><~~< }~x|nf8x8$ȱ$@+[_#{ 8  Խut! ai 8   E I   ] C}}?}?<??<??<<<<3<<}<<<<<3<<<<<<<3<<<<<<<<<}<<<<<<<<<<?<<<}?}@}Lx+, 0 ^, 1 y0 , ,0,0 ,L+ ,I0 ,Vǭ0B}C}D}  DD E} @ DD  F} DG *""" ?? : v} w} x} y} z} {} |} }} ~} } } } } } } } } } } } } } } } } } } } } } } } } } } } } } } } } } } } } } } } } } }D:SPRBITDS.LSTG$G( D:SPRCHRDS.LSTD@@D:SPRCHRDS.LSTG }}}??????<<<<<<<<<<3}<<<<<<<<<<<<<<<3<<<<<<<<<<<<<<<3<<<<<<<<<<<<}<<<<<<<<<<<<<<<<<?<f```fff|>}``<}}x08l|fff`ff}ff<0fffff|F}}}}}}}}}}}}}}}}}f88}f88`|<<~<`|<<~<}x8ffx8ff`f>f>}`f>f>`ffff`ffff}<<<><<<<><}}}}},*@ +C@@+@@.(@ARCR}<<}<??<??<??}<??<?  ??<? @??<}? " @3?<?!@@3?<?@3?<?} @0????@ 0???? 0????}P@ 0???0?  0???0? P@0???0? }@*0??@@0??@(0??}AD "'UP% }P#UV}<T<X<5P}??<3??`??<3????<3??}?3?T?3??3?t}?3???3?X"?3?1? 3?}0 0? 3?0 ? 3?03?}>3?3?}}}}}}}}}}}}}}}}}}}}}}}}}}}} } } } } }}}} 7@,$(%%( 1-LEFT 2-RIGHT&6-F:Ad,&"AUA dA}}}}~~}88Z88Z><<<|<|<|f<~<}|><<<|<|<|f<~<|8``fffff`f>ff8ff8``fffff`f>ff8ff}<`~>f~ff<ff`>ff<`~>f~ff<ff`>ff``ff`ffZff`kfff}``ff`ffZff`kfff<|<<<<>f<<>|~f<<`c><f<<>|~f<<`c><f<><>0fffff`!}0>fff>f~<6ff>ff>`~>f>><|"}||#}$}%}&}ff<>>~<|<<>'}|f`8`f`f`x~<<>f`~<l`ff``(}<|<|>f<<|)}*}+},}f-}f<~<<~<|fff`8fff~~`ff.}f```ff<<<<~<|fffff4}08`ffff~~f0<~ff<`k`f6`f<<|f`7}8`8ff8|<fffxffkf8}0<|<x8f>|f`ffffff``ff~``~fff`<`ff`;}```fff`|<<`<<<`|<}~Z=}fff|~<>ff88f`ff~<>}Zkkff`~cc>f<<<|?}@}A}B}C}D}@@ `hhhhhLI@hhh@`h ҝ@`XԥYՠF}G}H}I}J}K}L}M}N}O}P}Q}R}S}T}U}V}W}X}Y}Z}[}\}]}^}_}`}a}b}c}d}e}f}g}q}=B ARTDECO FNTB4 BACK1 NSTB4ABACK2 NSTB4uBACK3 NSTB4BACK4 NSTB4BACK5 NSTB4BACK6 NSTB4EBACK7 NSTB4BACK8 NSTB(BOX4 PICBCHRFLP ASMBCHRFLP BASB CURSIVE FNTBINTRO TXTBMUSICBOXRUNB"$MUSICBX MUSBFNEWLINESLSTB [OUTLINE FNTBdREAD ME B README B TIM FNTr}s}t}u}v}w}x}y}z}{}|}}}~}}}}ui;AP,!6-C:,%APD6-+P:'A$,%@,$A$X;&,;A$,i6-C:,'AV!}!}!}!}0~0~!}x8Zx8Z~<|<|<|f<~>88fff>ff8ff>>88fff>ff8ff!}ffff>ff`>ffffff>ff`>fffffffZff`kfff!}fffffZff`kfff>><<<~f<<`c><><<<~f<<`c><:AT%,"6.+67,.467,.7$!-&@ ( !$*@A ( SU_ DG}UVjfeU_wvfFdfeU HTUUU} UR)UYR " "%}UPU DOUjeU_wfefUHXU@UPUW =UZ*U~UQ&"""""b%}UW DGUW{}U}W~wvffdUIHTU_ U^/U}U_݁Ue!b!" "!"" "bVU@%}U_ DU[U_wvfdFeUDUHHXTUT U} UVoUWUa"!"&"!"!"U U| DG%}UWU_U_wfFfeUDUEHD U_ ?UnU_U~݃UU%!&"!" " ""R%}WUW D}U{UW~wvfdfVUEDEDEEU U^U_ّ݂UU%!&"""|WU_ D%}OU[UwvfdfjfVDUDUHƂ_UW =UVoUWY U%", ""#,1%}D|WU| DG}UWU_wvfF fVUD_U_ U^UW~YUU%"""-0 %}D DOU{UW~wvfjfFdfdfFfVU T DF =U^U_݁YUUWUU%"#%} "0 DGU[U_UwvfdfFdfjfgwkdVU_}UDDFeX UVo_UW ݞY%}UUU!"= VXDUU_wvfdfFfFfgw{DdV_u]UDUDDVUUUW~%}݂YU}u_ U!"U DOUWUW~wvfFfFdfgwvoDjUUDUDDdX=U_%}U_݁ ۽?U U%!iYV D}UZPUU~wvfFdffgw{DUEU_WUDU=K H%}URQPU_ٙ޿UUW= 5   DOUZf %U_wvfD fdgw{DTUu]MW U-H%}=UViUW~݁UWQUQU}]UU5 GDG}UfdWUWwvfjfFdfdfFfgwvo DUQ%}UTUum[W TD4UZWU_ UTUuUյmYWVUU5  UOGDOUUUU~wv f%}dfFDFfgw DUQUuUEUTUoUDU=UUՅ_ ޽ RUT U U)WU}UW{WU_%}wvfdfFfFffgw{ DJhUUEUWUD UU^WUW~݂݁ UUWUWUU%}@XU[UՇWwtdfFf`@`fFdfcEZFDFDJdUEUEU]UMQU]UQU|^TDT`VUVUU_%}*UUEQEU_] UxWUw g@**jhjfgE *jJ@DDHUQUQUWUWTGg~U%}DU^VnU_݁** * "UTUTUWS_ U|WUWowgf@*Vjj%}*@DUQUQUW\|xJTUDU _UW= ZjjZ "UEU]UU_]}ڪ* U |U%}wgFfdf  OUTEUU]UVf DTFUW Uݝ Z %}UZ QYQS |WUwgfFGfdf* JBjEHD UVZj* JBdVUW} _Uݝ*JR%}Z"UQYUVj* YU_U\U{wgfjfvwODZEUQEW\D G}UWpWUݝ%}Y݂=/UWUWq UW\UVںzjfFfdfvwOGDVUUDOU pWVZ%}Y݂=jUj=U wWfF fFfvwGDZ\txDGOUW}  %}_]YY ݁Z]}qQ=U_u W}}wgfFfjfDfvwGDDG}U}UW}U ~U}Uݝ%} ݂U}U_UzWUovwgfFfd fDfvwODG}U_UZ^Uݝ ݂=UW}UVi%}~WUowgfFfdfD fvwODOU}UW]UZU_Uսݝ݂==U}U_}UViU~}%}Uwg fFfdffvwGDOUW}UVi_}Uݝ ݂=U_UZ_U{wgffFfFf%}dfvwG DG}U}U_UViUzWUݝ݁ U}UW}UZU _Uս{wgfFfFfvwODG}%}UW]UZe ~WUݝ ݂=U_}UVie _սwgfFfDfvwODOuUWUW}UZ U ~W_%}Uݝ ݁==UWU_UVi U WU}wgfdffDfoU_UVi ej UݝU}%}UZ efiWUovwgfFfd fFfg}UW_UVi UVZU_Uݝ UW}UZ UViUWUovwg%}fFfdfdFfjkuUWUZ efiU__սݝUU_UVi ejUW^WUowgfjfF%}DFdfouU_}UZ UZUW_UսݝUWUVi UViU_~_U{wgfdfoUUW_UVi%} efiUW_~WUݝUUW}UZ ejeUW~Uս{wgfDfgoUW}UVi UZiU_~U%}ݝU_UVZ UVYUW^_Uս{wg}_U_UZ UW ~WUݝ_UW}UVi U_~ %}W_ս}UWUZ UViU_ U_UU_UVi UZUW~ cancelledL A V APC6-&+!,!@:$J;chrflp;;flips between multiple char;sets, variable speed;;bill aycock 76703,4061;for gil villarreal 72637,2532;;usr )}parameters:;; flip speed; chset1 address; chset2 address; chset3 addr if used; ...etc.; note: ONLY PASS)} HIGH BYTE; OF CHAR SET ADDRESSES!!!;;;-------------------------; equates;-------------------------;CHBAS )} = $02F4CDTMV2 = $021ACDTMA2 = $0228SETVBV = $E45C;;;routine address...; *= $0600;;;------)}-------------------; clear timer counter;-------------------------;CLRCOUNT LDA #0 STA CDTMV2 )} STA CDTMV2+1 RTS ;;-------------------------; setup routine;-------------------------;SETUP PLA)} TAX BEQ SETOKPULLAGAIN PLA PLA DEX BNE PULLAGAINSETOK )}JSR CLRCOUNT LDX # >DOTIMER LDY # DOTIMER STA CDTMA2+1 RTS ;;---------------------; init/run routine;----)}-----------------;INITRUN PLA STA NARGS BNE SAVARGS JSR CLRCOUNT RTS SAVARGS)} TAX LDY #0GETAGAIN PLA PLA STA WAIT,Y INY DEX )}BNE GETAGAINSETSETS LDA #1 STA NEXTSET LDA NARGS STA NSETS LDA #0 STA )}CDTMV2+1 LDA WAIT STA CDTMV2 RTS ;;;-------------------------; timer routine;------------)}-------------;DOTIMER LDA WAIT STA CDTMV2 LDX NEXTSET LDA WAIT,X STA CHBAS )} INX CPX NARGS BEQ STARTOVER STX NEXTSET RTS STARTOVER LDA #1 ST)}A NEXTSET RTS ;;;------------------------; working storage;------------------------;NARGS .BYTE 2NSETS )} .BYTE 2NEXTSET .BYTE 1WAIT .BYTE 255SET1 .BYTE 224SET2 .BYTE 226; .END @FMB2w@(f./RAMTOSETSETSETSETFONTSTARCHRFLSETUADADAHARAV B6A-}Aw Aw A& AE CHRFLP - char set flipper %%by bill aycock [76703,4061] %%for gil villarreal [-}72637,2532] &&========= test program =========##The first step is to load our""ML code into page 6 fro-}m the DATA stmts at line 1000...(LOADING CHRFLP CODE...(7 #A!-A"%"3A6%-}7 2&6-Aw&address for USR call<#6-AE#setup USR addresscd%%setup fonts--------------------e##-}Find memhi, reserve space forf$$new char sets. Save addresses.gLoad charsets into ram.h""Remember, sets MUST start-} onian EVEN page boundary!j$$Lines 110 & 140 close and openk##E: to keep it out of the way.mn@x-}Z;@ ,6-F:A,:6-@$+P:'@,,H6-&@Zroom for 4 sets?A6-#6-%@16-}-%@?6-%@##@@E:/6. D:ARTDECO.FNT%6-$AV/ A/6. D:CURSIV-}E.FNT%6-$AV/ A/6. D:OUTLINE.FNT%6-$AV/ A+6. D:TIM.FNT!6-$AV+ A-}%%prepare for routine------------ print a screen, call setup9 6-?:,((('@@9@-}@5&#( CHRFLP FONT FLIPPER&()Af@)disable edit chrs)-A'(>:,# &(-})(((( To quit early, press BREAK and''( then type in 'X=USR(CHRFLP)'.Af((+,%%start-}up-------------------------call chrflp with params:.""- speed (1-255 or 0 to stop)/##- set1 addr - HIGH BYTE ONLY!-}0##- set2 addr - HIGH BYTE ONLY!1- more set addrs, if used56##( starting to flip fonts...@&6-?:<@P-}<<<<,& A %%new order----------------------""call chrflp with same params##but change order of ch-}ar sets%%( changing order of fonts...&6-?:<@P<<<<,& A %%new speed----------------.}------ call again to change speed$$( start flipping faster...&6-?:<@ <<<<,& A W.}X%%two fonts only-----------------Ychange to ONLY TWO fontsab&&( use only two fonts now...l"6-?:<@ .}<<," A %%quit--------------------------- call chrflp with NO PARAMS$$to stop flipping, BUT FLI.}P 'EMFAST AWHILE FIRST! ( ( ALL DONE!.$6-?:<@<A$<<<<,. A  6-?:,.}>AVA$>switch back to the normal ROM char set*@'@@9* %%load a ch.}r set-----------------!$$set up with FONT$=name of font"""file, START=address to start#""(This is a S-L-O-W routine!.})$*( LOADING FONT ...45 A@@5@@>*-%A# )@&.}* H@$%%simple delay -------------------@A $//This is the code of the.} CHRFLP routine...BB169,0,141,26,2,141,27,2,96,104,170,240,5,104,104,202,208,251??32,0,6,162,6,160,86,169,2,32,92,228. },169,86,141,40,2,169,6AA141,41,2,96,104,141,117,6,208,4,32,0,6,96,170,160,0,104,104AA153,120,6,200,202,208,247,169,1,. }141,119,6,173,117,6,141,118CC6,169,0,141,27,2,173,120,6,141,26,2,96,173,120,6,141,26,2,174@@119,6,189,120,6,141,244,2. },232,236,117,6,240,4,142,119,6,96--169,1,141,119,6,96,2,2,1,255,224,226,-1 D:TEST.BAS@9AY,afffffff>`<|fl0fF68of;p88pf< 80 0 ~~`0 0`<2}f 7ggo;3s~s3``p?cccccs6<gn||lopp``cccwkc|vvvvw2}6cc633>006cco><66>333`>?ll 3333c>ccc6<cckwccf<6ccc6 ?f 3~@`0 xx62}c6>8pp8?2}ww<~~~<x`x`~<~~<2}0~0 ~ <~~<6vv``|ffff6680>{2rއ<```|f~6<32}|fffff~`~ff3c ? s333c66cck3~n۱6f[ۃ><~~<2}~p|nf8x8-@# @,@/@5 A@6-0!Opof!sfbmj{fe!jo!uiptf!mbuufs!zfbst!pg!uif!31ui!dfouvsz!uif!fwjm!uibu!xbt!!!!!!pctfswjoh!nbo!gspn!vqdmptf/!!Ops!ibe!!!!uifz!6}dpvoufe!po!b!ifsp!bsjtjoh!up!!!!!!!dibmmfohf!uif!ijefpvt!gpf"!!Uif!csbwf!!!fohjoffst!xip!efwfmpqfe!uif!Bubsj!ibe!!!xspvhiu!f6}wfo!cfuufs!uibo!uifz!lofx-!gps!jo!uibu!nbtt!pg!djsdvjusz!mbz!b!gpsdf!!!ZPV!xjui!zpvs!bewbodfe!efhsff!gspn!!!!!!Dpnqvufs!Qpmzu6}fdiojd!Vojwfstjuz!ibe!!!!!nbobhfe!up!dbmm!gpsui"!!!!!!!!!!!!!!!!!!Opx-!zpv!ibwf!bopuifs!jefoujuz...!!!!!!!!!!!!!!!!!DBQUBJO!6}BUBSJ!+un+!!!!!!!!!!!!boe!pomz!uibu!ujsfmftt!dsvtbefs!dbo!!!!!tbwf!vt!gspn!uif!fwjm!qmpu!pg..!!!!!!!!!!!!!!!!!!!LPN!P(EPSF!)d6}*29:3!!!!!!!!!!!!Uif!wjsvt!qsphsbn!if(t!efwfmpqfe!xjmm!!!eftuspz!Bubsj!dpnqvujoh!gps!bmm!ujnf"!!!Dbo!zpv!tupq!Lpn!'!ijt!ifod6}info@!!!!!!!!!!!!!!!!!!Xf!qsbz!gps!zpv///!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!A"4y  -MAINMODE ;AB,;@a,". PAGE SIX.$&GG162,16,169,:}1,157,72,3,169,0,157,73,3,32,86,228,48,1,96,104,104,96(! #A!-A6AV* " , .GG6.=h01:}eeAO ݩ֩N`0@@6.6hBDEHI  <2OO67:}@U,.<    ĩ4OO67A,.:AU,:!}:QQ67A),.>`RɥPee`/ee<GG67A,.4(ee:"}eeB+@%@D!6-?:C:,,!@eF++@@ D:BOX4.PICH:#}6-?:C:,,J@L% D:MUSICBX.MUS D:MUSICBOX OR YOU...4 ( ( ($+8D().CMSPPAUDLANOMOTMOTMOTMOTZ>%} -@@+-@@M2@@@@>&}@o2@s -@AP  !!*** >'} Tom Arena* and* Jonathan Gilbert* * Ђ =;@ ,;@,=2>(} A6.hˢhh`#)6-@v56-AiA6-@2 @`٠>)}̛""6-?:C:,<<,6-?:C:,<<<<,6-?:C:,<<<<<<,6-?:C:,<<<<<<<<,>*} @v;Ƞӂ<+-@@+-A#?##ĠϮƠӠĠق@ 4+>+} @ A" %@pFSO6-?:C:,<<<<<<<<,S GK"G6-?>,}:C:,<<<<<<<<,K HA "=6-?:C:,<<<<<<<<,A>-} I7 "36-?:C:,<<<<<<<<,7 J) ")6-?:C:,<<<<<<<<,KנϠӂL>.}"P9-@ +!A*"@96-%@PT  # U ԠӬΠƂXaO6-?:C:,<>/}<<@<Ap<<<<,aB7h@%[G-@A@ G6-?:C:,<>0}<<<,\ %D:LcӠłd>>1,121,*,1,96,*,1,81,*,1,96,*,1,60,*,1,81,*,1,96,*,1,81,*e>1}>>1,121,*,1,96,*,1,81,*,1,96,*,1,60,*,1,81,*,1,96,*,1,81,*f>>1,121,*,1,96,*,1,81,*,1,96,*,1,60,*,1,81,*,1,96,*,1,81,*gA>2}A1,121,*,1,96,*,1,81,*,1,96,*,1,60,*,1,81,*,1,96,*,2,81,60,*hjj2,60,121,*,2,81,96,*,2,60,81,*,2,40,60,*,2,60,96,*,2,47,81>3},*,2,40,60,*,2,60,81,*,2,29,91,*,2,31,72,*igg2,35,60,*,2,40,47,*,2,40,121,*,2,40,96,*,1,81,*,1,60,*,2,40,162,*,2,45,128,*,>4}2,53,108,*,2,64,81,*jmm2,81,128,*,2,64,108,*,2,53,81,*,2,45,108,*,2,47,121,*,2,60,96,*,2,35,60,*,2,40,81,*,2,40,96,*,2,40,>5}81,*k1,60,*,2,60,81,*ljj2,60,121,*,2,81,96,*,2,60,81,*,2,40,60,*,2,60,96,*,2,47,81,*,2,40,60,*,2,60,81,*,2,29,91,*,2,>6}31,72,*mgg2,35,60,*,2,40,47,*,2,40,121,*,2,40,96,*,1,81,*,1,60,*,2,40,162,*,2,45,128,*,2,53,108,*,2,64,81,*nmm2,81,128,>7}*,2,64,108,*,2,53,81,*,2,45,108,*,2,47,121,*,2,60,96,*,2,35,60,*,2,40,81,*,2,40,96,*,2,40,81,*o1,60,*,2,60,162,*sii1,>8}60,*,2,81,162,*,3,60,96,121,*,3,47,96,121,*,2,60,162,*,2,47,162,*,3,40,96,121,*,2,60,243,*,1,29,*tSS2,31,182,*,3,35,121,14>9}4,*,2,40,162,*,2,40,243,*,2,40,162,*,2,96,121,*,1,217,*unn1,40,*,2,45,162,*,4,53,91,108,128,*,4,64,91,108,128,*,2,81,162,*>:},2,64,162,*,4,53,91,108,128,*,2,45,162,*v__1,47,*,2,60,162,*,3,35,96,121,*,3,40,96,121,*,2,40,162,*,2,40,162,*,2,96,121,*,>;}2,60,162,*wii1,60,*,2,81,162,*,3,60,96,121,*,3,47,96,121,*,2,60,162,*,2,47,162,*,3,40,96,121,*,2,60,243,*,1,29,*xSS2,31><},182,*,3,35,121,144,*,2,40,162,*,2,40,243,*,2,40,162,*,2,96,121,*,1,217,*ycc1,40,*,2,45,162,*,4,53,91,108,128,*,4,64,91,10>=}8,128,*,2,81,162,*,2,64,162,*,4,53,91,108,128,*zmm2,64,162,*,1,60,*,2,81,162,*,3,47,96,121,*,3,60,96,121,*,2,60,162,*,2,60>>},162,*,3,60,96,121,*,2,60,162,+ll4,60,45,35,29,*,2,35,182,*,4,45,91,121,144,*,4,60,91,121,144,*,2,72,182,*,2,60,182,*,4,4>?}5,91,121,144,*kk2,35,162,*,1,40,*,2,60,162,*,3,35,96,121,*,3,40,96,121,*,2,40,162,*,2,40,162,*,2,96,121,*,2,162,217,+i>@}i4,81,64,53,40,*,2,45,162,*,4,53,91,108,128,*,4,64,91,108,128,*,2,81,162,*,2,64,128,*,3,53,108,128,*hh2,45,162,*,1,47,*,>A}2,60,121,*,4,35,60,81,96,*,4,40,60,81,96,*,2,40,121,*,2,47,121,*,4,47,60,81,96,*3,47,182,243,+ll4,60,45,35,29,*,2,3>B}5,182,*,4,45,91,121,144,*,4,60,91,121,144,*,2,72,182,*,2,60,182,*,4,45,91,121,144,*mm2,35,162,*,1,40,*,2,60,162,*,3,35,96>C},121,*,3,40,96,121,*,2,40,162,*,2,60,162,*,3,60,96,121,*,2,60,162,+ll4,81,64,53,40,*,2,45,162,*,4,53,91,108,128,*,4,64,91>D},108,128,*,2,81,162,*,2,64,162,*,4,53,91,108,128,*__2,64,162,*,1,60,*,2,81,162,*,3,47,96,121,*,2,60,162,*,3,60,96,121,*,3>E},60,96,121,*,0,*,0,* REDO D:MUSICBX.MUS FADER II'spausing rate. Self prompting. BASIC.(Patrick Dell'Era, ANTIC<565 IF K=5 THEN POKE 84,22:K=155:POKE 764,12:A=B+120:GOTO 95120 IF A CREATE NEW JACKET,-> EDIT,-> SAVE JACKET,-> LOAD JACKET,-> PRINT JACKET,-> LOAD FOBL}NT,-> QUIT3040 POSITION 13,7:? JKT$:POSITION 2,20:? "ŭ";:GET #2,K:IF K=96 THEN I=USR(MV,57344,CHSET,1024)3100 BM}IF K=67 THEN I=5:GOSUB 4400:GOSUB 4000:JKT$="JACKET":GOSUB 500:GOTO 153310 I=9:GOSUB 4400:EXT$="JKT":GOSUB 4100:TRAP 3000:GOBN}SUB 4300:OPEN #1,8,0,F$:? #1;"JACKET"3320 I=USR(CIO,16,11,ADR(A$),1140):I=USR(CIO,16,11,ADR(B$),1140):CLOSE #1:JKT$=F$(4):GOBO}TO 30003410 I=11:GOSUB 4400:EXT$="JKT":GOSUB 4000:GOSUB 4100:GOSUB 4300:TRAP 3000:OPEN #1,4,0,F$:? "";3430 GOSUB 500BP}:I=USR(CIO,16,7,ADR(A$),1140):I=USR(CIO,16,7,ADR(B$),1140):JKT$=F$(4):E$=A$:GOTO 153500 IF K=80 THEN I=13:GOSUB 4400:GOTO 10BQ}003600 IF K<>70 THEN GOTO 37003610 I=15:GOSUB 4400:EXT$="FNT":GOSUB 4100:F$(LEN(F$)+1)=".FNT":OPEN #1,4,0,F$:POKE 756,CHSETBR}/2563620 I=USR(CIO,16,7,CHSET,1024):CLOSE #1:GOTO 30003700 IF K<>81 THEN GOSUB 320:GOTO 30403710 I=17:GOSUB 4400:POSITION BS}5,20:? "堨ٯΩ";3720 GET #2,K:IF K>127 THEN K=K-1283730 IF K>96 THEN K=K-323740 IF K<>89 THEN 30003BT}750 IF NOT LEN(E$) THEN 38103760 ? "";:POSITION 12,20:? "Data in memory!!!":POSITION 10,21:? "ӽ堠ν"3770 GBU}ET #2,K:IF K=155 THEN 38103780 IF K>127 THEN K=K-1283790 ? "":I=9:GOSUB 4400:EXT$="JKT":GOSUB 3840:TRAP 3810:GOSUB 4300:BV}OPEN #1,8,0,F$:? #1;"JACKET"3800 I=USR(CIO,16,11,ADR(A$),1140):I=USR(CIO,16,11,ADR(B$),1140):CLOSE #13810 TRAP 3830:GRAPHICBW}S 0:POKE 82,2:POKE 731,03820 RUN "D1:MENU.BAS"3830 END 3840 POSITION 2,20:? "νԠ٠":? "ҠBX}ŭ";3850 INPUT #3;PBF$:IF PBF$="" THEN 38103860 IF PBF$>"0" AND PBF$<":" THEN GOSUB 4200:GOTO 38403870 FOR I=1 TO LEN(PBBY}F$):IF PBF$(I,I)=":" THEN F$=PBF$:POP :GOTO 38903880 NEXT I:F$="D1:":F$(4)=PBF$3890 RETURN 4200 POKE 82,0:? "}";:F$="D":F$BZ}(2)=PBF$:F$(3)=":*.":F$(LEN(F$)+1)=EXT$:? F$(1,3)4205 TRAP 4230:CLOSE #1:OPEN #1,6,0,F$:TRAP 4220@cpPPPPpPp|TT||ււ|8n®$Hpبު~8((8$HPPH$pH$$Hpƒƪ8((88(X`pPp (PF\}|Ʋ|8hHh(lD|$^$: $T|$\|(((8|ƺD||ƺtpPppPppPppP(PP(`P((P`|F]}|ƺ~|ƺ|ƺ||ƺ||ƺ|ƾ|(( |檴ࠠF^}|ƺ||ƺ|~¾z((((8|T(ƪT((TT(((8(^|D\PP\D|P( |DttD|(TF_}6>8pp8?F`}ww<~~~<x`x`~bނPPp~ý}C𰾃8(xHhlD|࠼xHh((lD|Fb}~ý~}8nBn(.2祥祥f<|lֺ祥{Ffρ<~~<Fc}8x8D WYSIWYG (What You See Is What You Get) Cassette Jacket Printer Antic Magazine November, 19Je}87 Patch by John Castravet This patch is for the WYSIWYGprogram published in the November1987 issue of Antic MaJf}gazine. One major problem that I foundwith the program is the jacketlength. The article mentions a jacketlength of 4 1Jg}/8 inches. However thisis true for the older cassette boxes.The new ones are 3 3/4 inches, so thebottom edge had to be movJh}ed up bythree lines. This leaves a total of24 lines pre side instead of theoriginal 27, but I do not believethat this is Ji}a problem. Second, when loading and savingjacket files, the extension does nothave to be entered. A default of .JKTis Jj}added to the filename. This is anice feature, but when loading fontsthe extension had to be entered. Thispatch provides a Jk}default of .FNT forthe font files. So make sure that allthe font files on the disk have thisextension. Third, in severJl}al places in theprogram you have the capability ofgetting a disk directory. This listedall the files on your disk, creatinJm}ga cluttered display. Now, when askingfor a directory from the save andload sections only the files thathave the .JKT extJn}ension will belisted. When asking for a directoryfrom the font section, naturally onlythe .FNT files will be listed. FJo}ourth, the program did notprovide a graceful exit. This patchprovides this exit as follows: 1. Choose Q from the Main MeJp}nu.You will be asked to confirm. If"YES", the program executes aGRAPHICS 0 command, which clears thescreen, resets the coJq}lors andcharacter set and enables the breakkey. A "0" is POKEd in location 731to restore the keyboard click. Nextan attemJr}pt to load and run the fileMENU.BAS from D1: is made. This couldbe a menu program that you use foryour utilities. If MENU.Js}BAS is notfound the computer returns toimmediate mode with the WYSIWYGprogram still in memory. 2. However, if at the poJt}int wherethe Quit option is confirmed, thereis data in memory you are given awarning and a chance to save thisdata. Just Ju}follow the points on thescreen. The only difference from thesave option is that the RETURN keywill not return you to the mJv}enu, butwill force the exit instead. One feature that I would like tosee implemented is the check made toinsure that jJw}acket files are notoverwritten by mistake. I will writea patch for this as soon as possible. Since the length of the jaJx}cket isless the dimensions of E$, A$ and B$were reduced by 160. This will resultin somewhat less space being occupiedon yJy}our disk. To update your WYSIWYG program,load it in memory. Insert the diskwith NEWLINES.LST in the disk driveand merJz}ge the two programs by typingENTER "D:NEWLINES.LST". Several linesin the original programs have beenmodified, and several J{}new lines areadded. This merging will provide allthe changes and additions to theprogram. With the program still inmemoryJ|}, type SAVE "D:WYSIWYG.BAS".Make sure that you do not save overthe old version, just in case. If you have any old jackeJ}}t files,print them before updating theprogram, since the files are notcompatible anymore. This is becauseof the change inJ~} length of the jacketcontents. Enjoy, John CastravetHYIf you are a frequent D&D player, you know how messy your character sheets can get after a few dungeons. With these New StatN}ion templates, you can print out a fresh new sheet each time you go up a level up experience.The page setup is as follows;N} ONE TWO THREE FOUR FIVE SIX SEVEN EIGHTThis is for the front paN}ge for a fighter, magic-user or druid. For a cleric or thief/assassin simply subsitute CLERIC8 or THIEF8 for EIGHT.For the N}back page the setup is; BACK1 BACK2 BACK3 BACK4 BACK5 BACK6 BACK7 BAN}CK8There is space enough for most fill in areas that you can use News Station to fill in your sheet in the font/fonts of yoN}ur choice instead of using a pencil or pen. Feel free to change it around anyway you want. You may or may not like the Print N}Shop Icons I used to decorate the sheets with. Some of the more obscure or trivial items from the offical AD&D sheets were leN}ft out. If you do use them in your campaign, there should be room for them somewhere.If anyone out there has any other NewsN} Station templates or ideas for using it creatively, I like to see them. You can contact me on CompuServe (PIN 71777,743) or N}here:Kenneth J. Leap Jr.740 Horner St.Johnstown, PA 15902(814) 539-4488 after 6pm on weekdays.Ld<<<<wwffffff>`>~fn8vf68on; p88pf<gowg><<>>~w8Og6f`~g>?q~ss>cg<g>gg>>ww?g> 8p8~~~p88p~fR}ggg~gfg~~g`g>~oggo~cxxcc`|pppc`og>ggggg?n~<gn||~ogppppscwkcwgwogR}>wwww><~ww~xx>www>~ww~|ow?c|g>]>ooooogggg~<8wckwcff<<~ffggw>>N8q@`0 xxx6R}c6>8pp8?R}ww<~~~<||p|p<~~n>pp~ww~>vpp>?ww?>wp??ww?~pp~www<>nn<ppw~vw<>nR}kc`~ssss>ooo>`~ss~pp>ff>`~wppp>x<|8~88>ggg?ggg>ck~vg>>gwww?~8<~~<R}~x~nn8x8P