@L}5 _$% l0$)$$Hȱ$ UhL" `e$$%`$%`  R@P!( L(1   Y I`  d  Ld M * @  $ % CC$$)%1 Udߥ$9%: !0 S$% DD˙`  }J)Lr d M * @  $ % CC$$)%1 Udߥ$9%: !0 S$%} DD˙`  }J)Lr J  ((  p L ()   J}L= ( L 0q A    IB JC;? D W } LL  ` W )LA!  ߰")-݆ p" } $G@LL 08`Q")<2Q0 -G$Ș݆ UL# ; p8(()(0ʥ)NQ` }$GȘ݆LU )L ݆ L GȘ ݆LL )W>Z   HH)H }p h  hyhy D L> L JJ    ! LA*` BF }7'8  M HN H` 8 Z  \LdJJ!"! GFE@F (!L }EE !E^ ^ E E7EȩEdE/EȩE  D } .L }  ;F d  ;?F7F? ( .   Z D LL d } . D  L    p  E` , d)  D L) 0BM݊L݉} ML  N݆ L NLML [ TEqEHȱEqEh 0Gȹ G} HLL GɛL  LFREE SECTORS G) *Gȩ GȽG GȌ*jj >G} C8jJ3j2CD( C202C ԠBX` N 1? l LlD:RAMDISK}.COMLu L1 L ;LHL  T`  `1  ɐ     `TU  } L ? .  t`GBJ ~DEHI B V0dV!}QDEHI VF9 ,0 ,0 s0hhL  L` H hDHEh"}DEL8HI4 0 HI,0 0  9 .G VLO#},0 L4*IJ`llD1:AUTORUN.SYSNEED MEM.SAV TO LOAD THIS FILE.D1:MEM.SAV J y08 B|DEHI$} V0 0`B;DEL`?<0LV`@ʆ v s? F0Ξ05: [ BDEHI%} VY8 B V  @  /DE `E:D1:DUP.SYSERROR-SAVING USER MEMORY ON DISKTYPE Y TO &}STILL RUN DOS B;DE J  (` 9 V⪍ ઍ  -'}LLu ÝDEHILV 9 .l 9 .l  `` s$B BH(}I|DE V BLV nB,DE JLV B V BLVDEIʩ BꭝLu  } 3E:}DISK OPERATING SYSTEM II VERSION COPYRIGHT 1984 ATARI CORP.A. DISK DIRECTORY I. FORMAT DISKB. RUN CARTRIDG*}E J. DUPLICATE DISKC. COPY FILE K. BINARY SAVED. DELETE FILE(S) L. BINARY LOADE. RENAME FILE M. RUN AT ADDRES+}SF. LOCK FILE N. CREATE MEM.SAVG. UNLOCK FILE O. DUPLICATE FILEH. WRITE DOS FILES P. FORMAT SINGLEL !N',}#"&))9(&*)/h)''-&؆莟R'S  vL/ˢ L }Insert DOS 2.0s, type Y Λx -}DEfHI 1莏#q! @ y0ɛ8A0,' ȅ 1 1ild! 1L!NO SUCH ITEMSELECT.} ITEM OR FOR MENU! 0 .z:*{}.|{ 1 0 0JB 18L%|DL/}%DIRECTORY--SEARCH SPEC,LIST FILE?[# 0 0 &|D3" 1L!NOT A DISK FILEN !B 1L!E# 1 !BD0}ED:}:1BJ|DE 1DEBHI 1 h0ߢ 0.1}  0?詛 1 y0YЛ 1 ;#L" ;#L! BL1TYPE "Y" TO DELETE...DELETE FILE SPEC2}COPY--FROM, TO?OPTION NOT ALLOWED736 FREE SECTORS COPYING---D1:DIRECK.COMl# 0|D .L/%#3}##JB|DE 1BHID#E 1#0: B 1L!#͑### B 1#c$0SY4}S1}:## # # .#Ƚ# # 𩛙## 1,#PD#ELJ- <.BJD#E 5}1 1HH 0hh|DL%1}:̳# L% #D#EL% 1 0 . .0O% 1L!WILD CARDS NOT A6}LLOWED IN DESTINATION 0 <.|K}N 2 FORMAT. t* 5) 1L!`) 0NΞ 0 L1) 1 L!BAD LOAD FILELOAD FROM WHAT FILE?) 0 ?}0#B 1L!WHAT FILE TO LOCK?) 0 0$B 1L!WHAT FILE TO UNLOCK?DUP DISK-SOURCE,DEST DRIVES?TYPE "Y" IF OK TO US@}E PROGRAM AREACAUTION: A "Y" INVALIDATES MEM.SAV.FE! +L1   `*  70 2 2A} 0.* 1 y0 0)INSERT BOTH DISKS, TYPE RETURN^, 1 y038逍 N, 1L! ,B}C, t*  Lx+, 0 ^, 1 y0 , ,0,0 ,L+ ,I0 ,Vǭ0C}Ξ, 0 }, 1 y0C,ШC, 0K'!" H H 'h h Lx+!EF 5L1L!D,I,HhD}` NOT ENOUGH ROOMINSERT SOURCE DISK,TYPE RETURNINSERT DESTINATION DISK,TYPE RETURNE}`  `8 rL1`-* 1P* 1 y0Y`hhL!NAME OF FILE TO MOVE?- 0 0|DL% <.F},^ 1 70 0 .@L# .BJ 1  DEHIB V L1 ,} 1 70,L.  G}JB|,#P#DE 1 HI BDEHHII 1 B 1 ,^ 1 70,0La- B V,#PH},^ 1 70 0L#L!-* 1P* 1 y0Yj383}mm ݭI}}`8}``|* ? ɛ,`|:-)| / 1L!`DESTINATION CANT BE DOJ}S.SYS0 0H{ 24Δ 28/L!/) 2 Π 2 0 ξK}hAΞB,0 J 1 BDEHI,HÝDE 1HIHIDELSAVE-GIVE L}FILE,START,END(,INIT,RUN)O S0 1`BDEPHI V` S0H 1 L!M}0 0 1L~0`PLEASE TYPE 1 LETTER,0`hhL! 70 1L0L<1 ,;ɛ7,"ɛ:ݦ1ݥN}A"D|ݤD|ȩ:|ȩ|ɛ,,(/+.ީ1 1,ɛ`轤{NAMEO} TOO LONG B VL!` L1I H1EΝDL1|mDiE` V0`8d/8 i:222 1 LP}!ERROR- 138ɛ+,' 20*.. өr2 1``2TOO MANY DIGITSINVALID HEXAQ}DECIMAL PARAMETER800 0 8 00`,0'D800 H,ɛh`2L1NEED D1 THRU D8uR} ECIMAL PARAMETER800 0 8 00`,0'D800 H,ɛh`2L1NEED D1 THRU D8uCREATIONT}U}V}%%,%%%%%%%%%%%%%%%%%%%%%%%#%#%%,%ᤤ#%%%##%%%%%%%%%%%%%%##%#%%%%%%%%ᤤW}i%%%%%%%%%#%#%#%#%######%%%%ᤤ%%%%%%#%%####%%%#%%###%%%%ᤤX}ᤤ%%%%###%%%#####%%%###%%%%%ᤤ%%%%%%%%%%%#########Y}##%%#%ᤤ%%᤯%%##%###%%%#%#%%%%%g᤯%%Z}%%%###%h%##%#%##%%%ᤤ%%,᤯%%%####%#%#%%%%%%ᤤᤤ%%%᤯[}%%%#####%%%#%%%%#ᤤᤤ%%%%%%%#######%%%%%%%ᤤ\}%%%##%%#%#%%%ᤤ%%%%%%%%%%%ᤤ]}%%#%%%%%ᤤ%%%%%%ᤤ^}⤤⤤%%##%%%%%%%%#%%%ᤤ⤤%%##%%_}%#%%%%%#%%%ᤤ⤤%%#%%%#%%%%%%%%%%%%#%%`}%ᤤ%%#%%⤤%%%%#%%#%%%%%%%%ᤤ%%%%⤤⤤ᤤa}g%%%#%%%%%%#%%%ᤤ%#h⤤g%%%%%%%#%%%#%%ᤤ%%b}%%%%%%%#%%ᤤ⤤%%###,gh,#%%%%c}%%%####,%##%%ᤤ%%d}#######%%%#%%ᤤ%%#######%#%%%%ᤤ⤤⤤%%e}%%%%#%%%%#%%#%%%ᤤ⤤%%%%%##%#%%##%%ᤤf}%%#####%#%%%%#%ᤤ%%###%%%#%%%%%%ᤤg}%%%#%%%###%#%#%%ᤤ%%#%#####%%h}#%%%ᤤ%g%#%%#%##%%%%%%ᤤ⤤⤤⤤%gi}##%#%%%,%##%%ᤤ⤤%%%##%%%####%%%%ᤤ⤤%%%%j}%%%%%%ᤤ⤤%%%%%%#%%%#%%%#ᤤk}%#%%%%%#%%%#%%%ᤤ%##%%%%#%%#%%%ᤤl}⤤%%%%%%#%%%%%ᤤ⤤%%%%%#m}#%%ᤤ%%%%######%%ᤤ%#%n}%%##gg#%%%ᤤ⤤⤤%#%%%#gg#%%%ᤤ%###%o}%#%#%%ᤤ⤤%%#%%%#%%%%%ᤤ⤤p}%ᤤ%%%#%%#%%%ᤤ%%%%%#%%%#%%ᤤq}⤤%##%%%%#%%%%%ᤤ⤤%%r}%%%%%ᤤ%#%%,%##%%ᤤ⤤⤤%%s}%%#%#%ᤤ⤤%ᤤ%%%%%%ᤤ⤤%t}%#%%%#ᤤ⤤%#%%%%#%%ᤤu}⤤%%g%#%%%ᤤ⤤⤤%%#%%#ᤤv}%%%#%#ᤤ%%ᤤ%w}%,%%ᤤ⤤%%%%%%%%%%%%%%%%%%%%%%%%#%%ᤤ⤤%ggg%x}%#%ᤤ⤤%#ggggg%%#%ᤤ%y}%%%%ᤤ%ᦦᤤ%%%%%%#%%%%%ᤤ%z}ᦦ%%%%%%%%ᤤ%ᦦ#ᤤ%%##%#{}#%ᤤ%%%%%%,%%%%ᤤ⤤%%#%|}%%%#%##%%⤤%%%%#%%%%%%%%%%⤤%#%#%}}%%#%%%#%%%g%%j%%%%#%%%%ᤤ%%`%~}%%%#%%%%%%%%#%g#%%%#%##%ᤤ}%%%%%#%%%%%%ᤤ%##%%%%##%}ᤤ%j%%%%#%%%ᤤ%ᦦ%}%%%#%%ᤤ%ᤤᤤ%ᤤ⤤%#%ᤤ}%ᤤ⤤%ᤤ#%ᤤ⤤%}%%%%⤤⤤%ᤤ%gg%ᤤᤤ%ᤤ⤤}%%gg%h%g%ᤤ%gg%ᤤ%%%}gggggg⤤%###%gg%%ᤤ%ᤤ%g%}ᤤgggggᤤ%#%%ggggᤤ%ᤤ%}%ᤤ%#%%%%%%%%ᤤ%}%#%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%}}}([\8KVECTOPTRESPONSEDLISINV1INV2LDLDRATERATEREIN1REIN2LDREIN1LDREIN2ENTRVVYEA }  } BOND BROKERBY JEFFREY A. SUMMERS(c)1988, ANTIC PUBLISHINGc# B#INITIALIZATION CODEd6- }@)6-@e.)@. @()!@1Ai 6- $n"AU$o"@'6-@'$ }pA&Aq"@Ar# (>:,6-&@# As167<,.>:,6-%@'(>:,1 A }z +A@A6-F:A`,%AV$F:Aa,VF:B2y,@h@AzB7tA }R%@@p+%@@R(" bond A-@@"(Name: 4-@" }@A(Name: C-@@#(Load%: 5-@"@C(Load%: C-@@#(Rate%:  }5-@"@C(Rate%: I-@@ &( Reinvest: 8-@"@ I( Reinvest: $Q-@@ }*(Load on Div.: <-@"@Q(Load on Div.: .l-@@7(Press to display tablesI-@ }@l(Use cursor keys or to86-@@6(change or step through items NAME 1'-@ }@(' A(@(6.7@<&@,//&@'A`A0A%A% Ap } NAME 2 '-@(@(' A (@(6.7@<&@, //&@'AeA5A } A  Ap ""LOAD PERCENTAGE INVESTMENT 1 '-@ @(' A ;@ A00 }56-A:7@<&@,,;6- //&@'A A@A5A5 Ap ""Load percentage investment } 2 '-@)@(' A ;@ A5056-A:7@<&@,,;6- //&@'A% }AEA0A0 Ap!!RATE OF RETURN INVESTMENT 1'-@ @(' A;@ }A@056-A:7@<&@,,;6-//&@'A0APAEAE Ap!!RATE OF RETURN INV }ESTMENT 2'-@)@(' A;@ AE056-A:7@<&@,,;6-//&@'A }5AUA@A@ ApREINVEST DIVIDENDS? 1'-@@ (' A@ }6.//&@'A@A`AUAU Ap}REINVEST DIVIDENDS? 2'-@2@ (' }A@6.//&@'AEAeAPAP ApqLOAD ON REINVESTED DIV? 1z'- }@@(' A@6.//&@'APA%AeAe ApeLOAD }ON REINVESTED DIV? 2n'-@6@(' Ax@6.//&@'AUA%A`A` }YSECOND SCREENbi +A@#(5-@"9(Q6-@&+'A,i6-@&+'A },l'-@@ ('-@q+0Y*0y!6-%'A+ Ap5v996-%$+'A,$+@&$+4Y) }4y,'A,{+0Y*0y!6-%'A+ ApP996-%$+'A,$+@&$+4Y)4y,'A,;(+& }@,$A%-@";(+&@,$A =(+( to return to data entry=AR@( } <*> to end program8)@"@'.AR8 A"@B+ Ap'RR };@,;@,;@,;@,;@,;@,;@,'.@.@@K:$' }DEFAULT VALUES.' 6. 6. 8'6-6-B'6-@6-@L' 6.Y6.YV' 6.N6. }N* ASTART MAIN BODY D1:BOND.BAS 6.Y6.YV' 6.N6. ]CREATION}}}##########,,,,,ggg######,#########,,ggg}################,,g%############,####,,}ggg###,################,,%##g#####}####,,,,,,,,########%%%%%%%#%%%%#,%##%}%%%,%%%%#%%%#g###%%###%%%%%%%%%%#%%%%#ᤤ%}##%%%%%%#%%%%%%%%%%%#%%%#%%,%%%%###%%%%###%#%%%%%%%}%##%%%%%%%%%%%#%%%###########%%%%%%%,%%%%%%######%%%%%,,%####%%%%%%%%%##%%%%}%%%%%%%%%%%%%%#%#%#%#%#%################,%#%}#%#%#%#%###,###,########%#%%%%%%%%%##############,#},%#########%###########%%%%%%%%%%%%%%%%%%%%}%%%%%%%%%%%%%%%%%%%,%%%,%%%%}%%%%%%%%%%%%%%%%%%%%},%%%%%⤤}⤤⤤⤤}⤤⤤}i⤤%⤤%%}⤤%%%%%%%%%%%%%⤤%%%%%%%}%%%%%%⤤%%%%%%%%#}%%%%%##%%%%%%%%%%%%%#######}#%%%%%%%%%%%%%%########%,%%%%%%%%%%%%%%%%%%##%%%%%%%}%%%%%%%%%%%%%%%####%%%%%%%%%%%%%%%%%%%%%%###}%%%%%%%%%%%%%%%%%%%##%%%%%%%%%%%%,%}%%%%##%%%%%%%%%%###%%%%%%%%%%##%%%%%%%%%%%}%#######%%%%%%%##%%%#%%%%%%%%%%%##%%%%%%%##%%%}%%%%%%%%%%%######%%%%%%%##%%%##########%#%%%%%%%##%%%,g}###%%%%%%#%%%%%%%##%%%##%%%%%%%######%%%%%%%#}#%%%#g#%#%%%%%%%##%%%#ᤤ##%%%%%%####%}%%%%%g%###%%%`###%%##%%%%%%###%%%#,ᤤ}%,%########%%%%%%%###%%%##%%%%%%###%%%}j###%%%%%%%####%%%,%########%%%%%%###%%#},%%###%%%%%%%%%##%%##%%#######%%%%%}%%##%%g%%##%%%%%%%%%##%%###%%###}###%%%%%%%##%%%%###%%%%%%%%###%##}%%##%%%%%%%###%#%%#######%%%%%%%%%%##%####}%%%%%%%%%%##%%%%%%%%%%%%%%%%}%#%%%%%%%%%%%#######%%%%%%%%%}%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%#%}%%%%%%%%%%%%%########,%%%%}%%%%%%%%%%%%%%%%%%%}%%%%%%%%%%%%%%%%%%%%########,%%%%%%%%%%}%%%,%%%%%#%%%%%%%%%,,%%%%%%%%%%%%%%%%%%%%%}%,,,%%%%,%,%,%,%,%,%%%####,##############%%}%%%%%%%%#%%%%%%%%%%%%%%%%%%%%ᤤ%%%%%#%#############}%%ᤤ%%%%%#%####%%%%%%#%########}#####iᤤ%%%%%#%###%%%%%,%%}#%######iᤤ%%%%%#%#####}%%,%%%#%###h###ᤤ%,%%%%,%#%###}hj%%#%######%%%%#%####}###%%g,,#%#######,,,,%%%%%%%%%%%%%%%#%##}#,%#%#######g,%}#%#######,%%%%%%%%%%%%%%%%`g#%}}}(fffffff>`<|fl0fF0p88p|FF|``|f|cgo{sf 8cc{oo{cc{o{~~<}f kk>~b````ff<66fffcwkccff~fff}ff>6f|ff|``>kkff<}|6~`|``~6>8pp8?}ww<~~~<x`x`~<~~<}0~0 ~ <~~<<>f><`|f<ffff~3?ck>~b```f<ff>f|ff|`<```<~Z<n{{{n|f|f|k>>kfff> x TALKING TODDLE TYPE -> ADVENTURE CREATION KIT CONTEST WINNERS.}XXXTALKING TODDLE TYPE(See the magazine article and theHELP file on the back of the diskfor comprehensive instructions)}XXXADVENTURE CREATION CONTEST WINNERS First prize goes to Robert Louxof Allentown, Pennsylvania forhis game, AARON.ADV}. The runner-ups are Marc Hoblerof Homestead, Florida for hisgame, KINGDOM.ADV,and Luke Gardiner, all the wayfrom Hong} Kong, with CASTLES.ADV. NOTE: You need the ADVENTURECREATION KIT program (Antic,March '88) to play these games.XXX}The menu that appeared on the screenwhen you booted the disk will onlyRUN programs with a .BAS extender.If you try to }run a program and theresponse is 'cannot run Filename',check the file extender with thislist:XXX.BAS BASIC saved pro}gram, use menu RUN or LOAD and RUN..LST BASIC listed program, ENTER then RUN..EXE Assembly language 'Load} and Go' file. Remove BASIC, boot DOS, type L then enter the filename..M65 MAC/65 assembly language } source code. Must be compiled.XXX.OBJ Machine language object file. Same as .EXE but not 'Load and} Go'. See corresponding article..SYS Reserved for DOS system files..TXT Text file. Usually accessed by ano}ther program..SPK A special Speech file to be used with Talking Toddle Type..ADV An "Adventure" file which } must be used with The Adventure Creation Kit, (Antic, March '88)XXXAll programs from ANTIC issues datedpr}ior to August 1984 were reproducedfrom ANTIC's Archive. We've updatedthem from our HELP columns andmost are compatible wi}th the XL andXE machines. We have worked to insurethat our programs operate aspublished, but we consider all oursoftware }listings to be works inprogress which we encourage you topersonalize and enhance.Good luck, and ENJOY!}ersonalize and enhance.Good luck, and ENJOY!<7LINEAFPPR 11;A ,;@,;@,;@,-@}(}-AR( 6.16-2(+41,@ <6. D:DOC.TXTP6-@@2(}Hard Copy (Y/N) N6Z(+4Y)4N,@dW@@(}&@C@@}K4YW6-@n A`AR@x@vB:,!@-7@<@,4XXX0(3(E-@}@"Y(ӠΠf@l(}v A   3( A j@ B*-@@ }"R("ΠҠՠҠˠҠ_@j%D:MENU D1:HELP.BAS }ҠՠҠˠҠ_@j%D:MENU D1:HELP.BASCREATION! }! }#!}#%%#%%%!}##%%%hh####%%%!}#%%%%#####%%%%g!}#%%%%g####%%!}%%##%%%%!}##%%%%####%%%gg!}%%%##%%%%%%##%%!}%%%##%%%%%%%###%%%%!}%%%##%%%%%%%%%#%%%#!}%%%%%%%%#%%%%%###%%%%%!}#%%%###%%ᤤ##%%##%%ᤤ!}#%%%%###%%%ᤤ#%%,##%%%%%%%%%%!}%%%%%%%%%%##%%###%%%%%%%%%%%%%%%%%%%%%%%#,!}#%%%%####%%%%%##%%%%#%!}%%%%%%#######%ᤤ%%%#####!},%%ᤤ%%%,####i%%%######!}###gᤤ%%%####,ᤤ%%%###!}###%%%ᤤ%%%####%##%%%%%%%! }#####%#%%%%%%######%%,!!}%%%%%%######%%%#%%%%%%#######%%%!"}%%%%%%######%%#,%%%%#####!#}###%%%%%%###%%%%####%%%#%%%##!$}#%%%%%%####%%%%%%#%%%%%%##%%%%#%%%%!%}####%ᦦ%###%%%%#%%%##%%%##%%%%%!&}#%%%%%%###%%gg%%#%%%%%%%%%#%%%%%%%%%!'}##%%%%%##%%%ᦦ%%%#%%%%%%%%%%%%%%%%%%%!(}ᤤ#%%,ᤤ%%%%%%%%%%###%%%%%%%!)}%%%%%%##%%%%%%%%%%#!*}%%%%%%%%%%%%%%%%####%%%%%%%%%%%%%%!+}#%%%%%%%%%######%%%%%%%%%!,}#%%%%%%%####%!-}%%%%####,j%%%%!.}%%%%%###%%%%%,%%!/}###%%%%%%%%##%%%%%%!0}####%%%%%%%%#####%%%%%!1}%##%%%%%%%#%%%%%%!2}##%%%%%###%%%%%%%%%%%%%!3}%%%%%%%%%%%,%##%%%%,%%%%%!4}#%%%%%%%%%%%%%%%%%%!5}#%%!6}%%%###%%%%%%%%%#,%%!7}%%%%%%%%%%%%,##%%%%%%%%%%%%%%%%%%%%%%#%%%!8}%##%%%%%%%%%%%%%%%%%%%%%##%%%%%%%%%%%%!9}%%##%%,%%%%g%#####%%%%%!:}%g%#%%%%%#%g%,##%%%!;}%%##%%%%%%%#%%%%%%%##!<}##%%%%%%%##%%%%%###!=}#####%%%%%###%%%%%%%#!>}####%%%%%%%###%%%%%!?}%#`##%%,%%%###,##%%%%!@}%%#%%%%%%%####!A}!B}!C} (YD T AXLPNB0@!(@( (PdH"(@Q +26-?:C:%E}hhhԩ`,<A6,DAdAUQ;@@,uA@'A @9A@8K@%F}@]@@7c(}uAR@G Ap-@@G(# +%G}+(# Antic Monthly Disk, Oct. 1988 ++(#  ( | Side 'A' |++(# %H} @ -@A $ <<;@@,;@ ,;A,;@,;@@,%I} "D1:MENU" &&@@D:*.* 6,6." 6 @0i6-%@%J}(6.7@<@,A67@ <@ ,..i67@<@,.7@<@,3 6.|67B:,%@,.367B:%K},%@,.G67@<@,.(--@B:,:7<,4 G67<,..] 6.=:, @D67@<%L}@,.7@<@,]67@<@,.0$@(''7@<@,4FREE@- @ %M}.K'7@<@,4 HELP.....BASK67@<@,. Ю2() <@F''7@<@%N},4FREE@K @ P(7@<@,)|U @0W'!-@6+'@,%@' |Z++(#%O}| |[ ( |  |\++(#  d**(" Selec%P}t HELP.BAS for information.xAR[@@9'-@@#C( FILE NUMBERM A0%Q}Q[ BP:,A00"@&6.7@<@,0 AELB6.7+&@,$@%@<+&@%R},$@%@,L B37@<@,4 36.7@<@,!7@<@,4DOS!.0 6.%S}-@B:,07<,4 AH67B:,%@,.7<,   6.! 6.D1:!67B:,%@,.?AR%T}@'-@@"?  LOADING ? A@@91@@5%? B226.(%U}㩱㮠j-@@ +-&@5(7<,I-@@&c(7@A%V}&<@A&,g j$[-@@"-  CANNOT RUN 7 @LF:A,"@![% D:HELP.BAS B%W} A0D1:MENU.OT RUN 7 @LF:A,"@![% D:HELP.BAS B$9VADRVADVADRWPOPAIIENGLWRUSEBARRBARABAROBARCBARPBARZBARNBARBARKBARBBARQWAWANSFILEFILE1)Y}VANORDERAMTOCHBATIDLENLRULLQLAQCID )Z} )[} !"#$%& QUIZZER)\}BY ANDREW R. THOMAS(c)1988, ANTIC PUBLISHING AcSUBROUTINESd$6-P:'AV,$6-&$AVi$)]}E->R SCREENAY7A%@@f7A%@%A'AAF'A)^}@AY@4$R->E SCREENAY7A%@A7A%@%@f)_}'AAF'A@AY@4$,ENG FIND66-@@"A@J--@)`})6-%@:7<,,%@- T)6-@:7<,,&6.7%@<%,)$RUS FIND6-@"A@)a}--@)6-%@:7<,,%@- )6-@:7<,,&6.7%@<%,)$ DL%__112,112,96,194,64,152,7)b},2,71,184,152,66,204,152,112,130,7,2,7,2,7,2,71,228,153,66,248,153&0,2,2,2,65,164,6) DLI*<<72,169,224,141,9,212,1)c}69,146,141,0,2,141,10,212,104,64 VARSGG;@,;@,;@,;@,;@,;@,<<;@8)d},;@8,;@8,;@4,;@9,;B,;B,11;@,;@,;@,;@,)e};@,;@,76.ENGLISH6.RYSSKO+6.ANSWER76.OTVET6.RIGHT!6.PRAVO!//6.% oa)f}d dd nd //6.% oad ave dd uiz nd //6.% oad ave dd elete uiz ally n)g}d ,,6." 堾 116.' --@4"))q}.?B%DOS SYSB*)DUP SYSB9SAARON ADVB BOND BASB9CASTLES ADVB CYRILL FNTBDOC TXTBHELP BASB9 KINGDOM ADVBDMENU B?XQUIZZER BASB RUSENG QUIBSHAPES BASB 8XEPFREADM65B DXEPGRAF M65BMXEPLIST1BASBRXEPLIST2BASBeXEPLIST3BASBkXEPLIST4BASB"XEPRINT M65A%- $;-@")Ad%7A%; %A%@A(86-BCA)r}R@'AdAUC(}andom or onsecutive?C F:Ad,"AUAD[6-F:Ad,?(+"A))s}"@@)"@)"@,QAdAU[ AE/"A)"@@%6-@/ AF6-@6-6)t}@L C-SETM06-F:A,&@&A0+P"A%@"@V--@@)u} D:CYRILL.FNT`6-$AVj 6- Ao+AH%@+AH%@t6-A$ A)v}y+AH%@+AH%@ ~AH%@@!6-?:C:hLV,,!@ START'AY)w}'BBA'AAF'A@'A`Ad'Aa@9A)x}'@9AY@4AR@ CHOICE (}AdAU-@)y}"( A P"( A P(&6-F:Ad,&"AUA PAdAU)z} !!"@d)"A0--+"A&)"@b,*!A@!!"A')"@cAP 77+"A"){})"@X,*!*!A`*--+"A)"@G,*!Ap477+"A )"@E,*!*)|}!A>!!"A)"@BBH A P LOAD -@( #-@(F)}}ile# 4A  " A5 A3"@ * @@* B *@@)~}*@ 67<,.67<,.  6- A EAH%@@1AH%@EAH)}%@   6-C:, A +AH%@+AH%@ 6-?:C:hLV,,  6- A +A)}H%@+AH%@ &  6-C:, A0 +AH%@+AH%@: !6-?:C:hLV,,!)}@ A  @ B '-@'( Can't load  -@( A )} 6-B:, 1!@17@<@,4D:A6 G!@G7@<@,4D*7@<@,4:A)}6 ! 6.D:67@,.!6.$ SAVE-@(#-@(File#4)}A " A5 AC"@* @@* B(@ 6-B:,6-B:,)}(@(@ 6- AEAH%@@1AH%@EAH%@  6-C:,)} A+AH%@+AH%@6-?:C:hLV,, 6- A+AH%@+AH)}%@ " 6-C:, A,+AH%@+AH%@66-?:C:hLV,,h@r-)}@(| A @ B'-@'( Can't save -@( A )} ADD (} AA A)%-@ &P:?P$B:,,@)(-@)}4A H -B:,!@*-@@>(H A )%-@)&P:?P$B:,,@)()}-@4A H 6-B:,!@*-@@>(H A  -B:)},6-B:, 6-B:,6-B:,_-%%@!B)%%@!B?-@@U(_ AQ@)}?!67%@<%@,.>:,?67%@<%@,.>:,%67%@,.%67%@,. 6-%@)}AdAU-@((&6-F:Ad,&"AUAQ`2AdAU<"@3APF)} A p DELETEz A"%B:,67,." A`067,.7%%@, A"%B:,6)}7,." A`P67,.7%%@,6-&@,-@,( deleted  A X QUIZ)}b%%6-P:@$H:,,%@lAp%Ap0q!6-P:$H:,,! Ap@v+6-%@!&@)}+6-AA 6.AA 6. 6-B:,6-B:, (}AA0)}AsAs 4%-@ &P:?P$B:,,@*(4 As0*%-@ &P:?P$B:,,@*()}A Ad'"-@ &P:?P$,@'(As`Asp4%-@)&P:?P$B:,,@*(4 A)}s*%-@)&P:?P$B:,,@*(/-@@ +A Ad%/ -@6)}-%@(4Au6-%@At@AtP4%-@)&P:?P$B:,,@*(4 At`*)}%-@)&P:?P$B:,,@*($ AvLAuAu V4%-@)&P:?P$B:,,@*(4 Au0)}`*%-@)&P:?P$B:,,@*(jA#At'"-@)&P:?P$,@'(~/-@@ )}+A#A%/ ,AdAU'-@,(-@(&6-F:Ad,&"AU)}Av+"@3!AdAU+ Ap$-@($ A @ TALLYJ-@(T)}P-@P( correct out of  - P:'$A%?P,%^ A y END"y* AF:A,%)}@*+,y9AR'AVA$9@@Jy( Your NameTy#@ B#)}@^y1'@@ D:QLOG1 Bhy2@2@@D:QLOGry B|y77()}@   P:'$A%?P,yD1:QUIZZER.BAS)}D1:QUIZZER.BAS(: 80517543BRIDGEMARKETNAPKINTO STANDFINGEREGGDRYSNOWTO SITDEVILROOMCORNERPOLICE MALE TEACHERFEMALE T-}EACHERWALL ELECTRICITYEARSLEEP EXCESSIVELYALSOBIRDALMOSTFOURBLACKTO SHOOTSIXTO READGARDENSHARPBOOTTO HELPJOY-}THICKBOXNOWCOLDPENTO LAUGHSPECIALROWCUPOLDOFTENPLEASUREGOODTHINTHENALREADYLESSONPOTATOESTREEFIRSTPOETPLA-}TETO DANCETO DIEHALFTHEREHEALTHYCHAIRCHEEKSAMEENERGYSLOWLYSQUAREWEATHERHERECEILINGFORTYSALTQUIETLYFRUITFEA-}RDEATHRIVERSCHOOLCHEESEPAGESEVENMOSTR:NOKSALFETKASTOQT\PALECQICOSYHOSNEGSIDET\JORTKOMNATAYGOLPOLICIQYJITE-}L\ YJITEL\NICASTENA ^LEKTRIJESTVOYHOSONSLIWKOMTOXEPTICAPOJTIJET:REJ_RN:[STRELQT\WEST\JITAT\SADREZKI[SAPOGPOMO-}GAT\RADOST\TOLST:[Q>IKTEPER\HOLODPEROSMEQT\SQ SPECIAL\N:[RQDJAWKASTAR:[JASTO YDOVOL\STVIEHOROWOTONKI[TOGDAYXE-}YROK KARTOFEL\DEREVOPERV:[PO^TTARELKA TANCOVAT\YMIRAT\POLOVINATAMZDOROV:[STYL>EKARAVNO^NERGIQMEDLENNOPLO>AD\PO-}GODASUDAPOTOLOKSOROKSOL\TIHOFRYKTSTRAHSMERT\REKAWKOLAS:RSTRANICASEM\-}\TIHOFRYKTSTRAHSMERT\REKAWKOLAS:RSTRANICASEM\,uvvmEEAP1P2P3P4GRSABCDENQTARBLPRSIIIUPQSCCSSSP76JUUSSSSX1}XSS@@@@@ 1}1} !"#$%&'()*+,-1}./0123456789:;<=1}>? POLYHEDRON DESIGNER BY IRVINE W. SMITH(c)1988, ANTIC PUBLISHINGee9@<@%,91}@%,9@%,9@%,9@%,;@%,;@ ,;@%,;@,;@,;@,;@1},;@,;@,;@,;@,;@,;@@,;@,6-@(}(RR(JThis program allows d1}esign of a three-level polyhedron. A top view and a2ll(dside view are accurately scaled on thescreen. A scale drawing ma1}y be plottedon a 1020 Atari Plotter.<n(n(c To make a new design, four radii must be entered (top, mid and bottom) an1}d 3 vertical heights.F\Y(Q Up to 24 polygon sides, with panels of triangular or 4-sided shape, may beused.\(PTT(L1}ӠҠՠ or any other key for a sample drawing-then press RETURNU% @%"@ApZ Bd1}6-@6-@ '6-@36-@?6-@K6-@W6-@c6-@o6-@{6-@6-1}@6. LAMPSHADEnnn(fNote that this lampshade has three- sided panels top and bottom and four- sided panels at mi1}d level.xpAR@(7(נ -PLEASE WAITE6-A'N6-E:,p2AC@@!1}**!6-! Ap *6- Ap *6- Ap 6-##@$'!$+%%,A1}/6-A`''+%%,%6-@/ A6-@p'$6-@*6-$@*CHANGE TO ADJUST SCALE1}) 6-6--#")6-J68,-$+68<,-$$E:8,,'J68@<,-$$G:8,,''76-%1}@ 72@A@@%"@6-% AP6-@# 6--"1}#6-J68,-$+68@<,-$$E:8,,'J68@<,-$$G:8,,''76-%@ 72@Ab@1}@ "6-@ A"6-,# 6--"#6-6J68,-$+68@<,-$1}$E:8,,'J68@<,-$$G:8,,''@76-%@ 72@A!@@J"@6- AP1}T)6-%@"@)6-^# 6--"#6-hJ68,-$+68@<,-$$E:8,,'J61}8@<,-$$G:8,,''r6-%@ 72@Y2@{2@1}2|q +@$A@1A@CA @1}M@_,@q/A`@K,@'/@AE9,@K/@AE1}//,@%8<,@%8@<,A-=/@%8<,@%8@<,A m/,@%81}<,@%8@<,=-i/@%8<,@%8@<,m }?,@%8@<&@1},@%8@<&@,M-y/@%8@<,@%8@<,} }?,@%8@<&@1},@%8@<&@,M-y/@%8@<,@%8@<,} }?,@%8@<&@1},@%8@<&@,M-y/@%8@<,@%8@<,} }?,@%8@<&@1},@%8@<&@,M-y/@%8@<,@%8@<,} }?,@%8@<&@1},@%8@<&@,M-y/@%8@<,@%8@<,} }?,@%8@<&@1},@%8@<&@,M-y/@%8@<,@%8@<,} 7-@P7+@1}%$,!A@A B,@%$AXB'@&P:'@,"A'/@%$AS ' A 1}I/@%$AS/,@%$AXE/@%$ASI Q,A@AU'/A@/6.0;1}6-@G6-AEQ Ap !@1A`? 6.5)6-@%$@'@56-AE? Ap1}!@PA`&@ 6.10*6-@%$@'@66-AE@ Ap0 AP:7%6-F:@,%F:@,$A1}V76-%$@@%D)-@B:,6.7<,) ANF6-BsD%$@--@B%$@@F1}:%,F X6-%@ $b& 6-@:,!A'&6-&A(l1!@1* @'6-&@21 A@v1} @26-%@d$+ 6-$'6-+%,$'+6-+%%,$'"@A-&@E,1}@%8<,@%8@<,/@%8@<%@,@%8@<%@, -&@1}E,@%8<,@%8@<,/@%8@<%@,@%8@<%@, e-1}&@8,A@%8<,APa/A@%8@<%@,AP&e e-&@8,A9%1}8<,APa/A9%8@<%@,AP&e u-&@E,@%8<,@%8@1}<,q/@%8@<,@%8@<,u u-&@E,@%8<,@%8@<,1}q/@%8@<,@%8@<,u ]-&@8,A@%8<,APY/A@%8@<1},AP&] ]-&@8,A9%8<,APY/A9%8@<,AP&] c-1}'@8,A@%8<,AP_/A@%8<%@,APc g-'@:,A@%8@1}<,AP&c/A@%8@<%@,AP&g "@A "A -&@1}E,@%8@<,@%8@<,/@%8@<%@,@%8@<%@,  -1}&@E,@%8@<,@%8@<,/@%8@<%@,@%8@<%@, * A1}p4-&@E,@%8@<,@%8@<,/@%8@<%@,@%8@<1}%@, >-&@E,@%8@<,@%8@<,/@%8@<%@,@%81}@<%@, Hg-&@:,A@%8@<,AP&c/A@%8@<%@,AP&g 1}Rg-&@:,A9%8@<,AP&c/A9%8@<%@,AP&g \ Afg-1}&@:,A@%8@<,AP&c/A@%8@<%@,AP&g pg-&@:,A91}%8@<,AP&c/A9%8@<%@,AP&g zu-&@E,@%8@<,@1}%8@<,q/@%8@<,@%8@<,u u-&@E,@%8@<,@y%8@1}<,q/@%8@<,@y%8@<,u W-2,A@%8@<,AP&S/A@%8@1}<,AP&W W-2,A9%8@<,AP&S/A9%8@<,AP&W g-'@1}:,A@%8@<,AP&c/A@%8@<%@,AP&g "@AP"A1}-&@E,@%8@<,@%8@<,/@%8@<%@,@%8@<%@1}, -&@E,@%8@<,@%8@<,/@%8@<%@,@%8@<1}%@, g-&@:,A@%8@<,AP&c/A@%8@<%@,AP&g g-1}&@:,A9%8@<,AP&c/A9%8@<%@,AP&g  A`-&1}@E,@%8@<,@%8@<,/@%8@<%@,@%8@<%@, -1}&@E,@%8@<,@%8@<,/@%8@<%@,@%8@<%@, 1}g-&@:,A@%8@<,AP&c/A@%8@<%@,AP&g g-&@1}:,A9%8@<,AP&c/A9%8@<%@,AP&g u-&@E,@%8@<1},@%8@<,q/@%8@<,@%8@<,u $u-&@E,@%8@<,@1}%8@<,q/@%8@<,@%8@<,u .W-2,A@%8@<,AP&S/A@%1}8@<,AP&W 8W-2,A9%8@<,AP&S/A9%8@<,AP&W Bg-1}'@:,A@%8@<,AP&c/A@%8@<%@,AP&g L|6.THIS 6-@B'6-A1}Y1 Ap=6-@GC6.M Ap^6-@G%B:,j6. HAS |67@,.=:,M56-B:,% Ap%6. SIDE1}S+6-5 ApNr6-@A6-Ah(6.RADII:2 Ap>6-@GG6.=:,]67B:,%@,.,h6-%B:,r 1}ApO= 6-6.=:,(67B:,%@,.,36-%B:,= ApT' 6-6.=:,6-%B:,' ApUt6-@A61}-Av*6.HEIGHTS:4 Ap@6-@II6.=:,_67B:,%@,.,j6-%B:,t ApV= 6-6.=:,(67B:,%1}@,.,36-%B:,= ApW' 6-6.=:,6-%B:,' Ap`6-@6--6. [S]ave Scre7 Ap1}C6-@U6. en | ANY KE_ Apk6-@#}6. Y to contin Apb"6-@46.ue" ApjA1}dAUt:6-F:Ad,AU0AdAU: AU~ A@"@b A"pf +1}AR@1A ACAAF(c( MENU 2 for SHAPES.BASf(Y+(#1. GOTO MENU 1 (Create new desig1}n)..(Y(&2. PRINT DESIGN DATA (Rate the design)0-(%3. PLOT THE DESIGN ON A 1020 PLOTTER.0(UC(;Press One Of These N1}umbers (and RETURN), to continue.UAR AP+ B+ @)!@AP A1}`8 B.(PLEASE ENTER ONLY 1, 2, OR 38 AApA AX +A A11}A@4(R( MENU 1 for SHAPES.BASU(X(g(1. CREATE NEW DESIGN(0( 2. LAMPSHADE3(C( 3. SWAGLAMPF(2}U( 4. PLANTERX(d(5. BOWLg( >( 6. JEWEL BOX(&( 7. DIAMOND)(8( 8. GEODOME;(>(:AR@:( PRES2}S A MENU NUMBER (and RETURN)% A@%!@A(OOAA@APA`ApAA2}AA2 B A<6-@6-@'6-@36-@?6-@K6-@W6-@2}c6-@o6-@{6-@6-@6. LAMPSHADE A F6-@6-@'6-@36-@2}?6-@K6-@W6-@c6-@o6-@{6-@6-@6.SWAGLAMP A P6-@2}6-@'6-@36-?6-@K6-@W6-@c6-@o6-@{6-@6-@2}6.PLANTER A Z6-@6-@'6-@36-@?6-@K6-@W6-@c6-@o62}-@{6-@6-@6.BOWL A d6-@6-@'6-@36-?6-@K6-@2}W6-@c6-@o6-@{6-@6-@6. JEWEL BOX A n6-6-@'6-@2 }36-@?6-@K6-@W6-@Pc6-@o6-@{6-@6-@6.DIAMOND A x2 }6-@ $6-@'6-@36-?6-@$K6-@W6-?vc6-@o6-@{6-@62 }-@6.GEODOME A d +(}d(LIf a wrong value is entered before pressing RETURN, backspace and 2 }rewriteSS(KAfter RETURN a wrong value cannot be corrected. Continue to enter valuesDA(9until START AGAIN? appears 2 }and then reenter all values.D(36-@ A`/(ENTER TOP RADIUS3)6-@%(ENTER TOP )2}/6-@+(ENTER UPPER MID RADIUS/)6-@%(ENTER MID )/6-@+(ENTER LOWER MID R2}ADIUS/,6-@((ENTER BOTTOM ,,6-@((ENTER BOTTOM RADIUS,F6-@2(Want to2} START AGAIN? (Y or N)6F4YA@(4NAT6-@ 2(ENTER No. SIDES (4 to 24 max)6T @2})!@$A0\6-@:(%ENTER No. PANEL SIDES (3 or 4) BOTTOM>\ @)!@A@Y6-@2}7("ENTER No. PANEL SIDES (3 or 4) MID;Y @)!@BPY6-@7("ENTER No. PANEL SIDES (3 or2} 4) TOP;Y @)!@A`":6-@6(!ENTER A NAME FOR IT (ex. PLANTER):,O6-@;(&Want 2}to redo those last ones? (Y or N)?O4YA06(4NA@@ B A J( WRONG ENTRY!A2}@APA`ApAAAAA0A@APA`ApATJ (} A02}<($HOW DO YOU RATE IT? (GOOD, BAD, ETC)@J A@^, B"(USE LETTERS ONLY, A h==(5IF THE PRINTER 2}IS TURNED ON, PRESS ANYKEY TO CONTINUErAdAU| F:Ad,AUA A`CAdAU2}C3THIS -SIDED  DESIGN IS RATED --3 TOP RADIUS=  TOP HEIGHT= --3UPPER RADIUS=  MID2} HEIGHT= 003LOWER RADIUS=  BOTTOM HEIGHT= 3BOTTOM RADIUS= 883No. PANEL EDGES: TOP  MID 2} BOTTOM (%3-----------------------------(3 A`c (}X(JA 1020 PLOTTER IS REQUIRED FOR THIS. Π2}ƠҠΠΠҡ c@E-(%Press Y to proceed, N to go to MENU 27 A ;E A0. B2}$(TYPE EITHER Y OR N. A&4YA`0(4NA: A`Da(?(4ENTER PEN COLOR (0=black, 1=bl2}ue, 2=green, 3=redI ApMa!@A`I AN4 B*(ENTER 0, 1, 2, OR 3 ONLY4 A`X2}#@@P:3(@D(@Cg6-A5$E:,$@x''A6-P:@'$A,'2}AbZ(*(Full-width plotter scale is: P(!PRESS Y TO USE IT, N TO CHANGE ITZ A0l4YApv2 }(4NA A@ B AM(1(&ENTER DESIRED PLOTTER SCALE (not less); A`?M6-@2!}' Ap B A@y6-$A'@x'96-A&$A'$+%%,U6-A&$A'$+%,2"}m6-A&$A'$y6-A2(@ M240,-4002(@I*M0,x-A@Pg(@D2#}0,%@*M0,%@*D0,%@@*M0,%@Pk xCENTERLINE(@M0,*D$8@<2$},,*D$8@<,,*D6$8@<,,*D6$8@<,,(@D2%}$8@<,,*D$8<,,*D6$8<,,*D6$8@<,,2&}(@M0,*D6$8@<,,*D6$8@<,,*M$8@<,,*D2'}$8@<,,"@A `s!-'@&@46-$8<,O6-$8@<%@2(},s(@M,*D,  k!-'@&@46-$8<,G6-$8@<,k(@2)}M,*D,  "@A!@*"A! 4w!-'@&@46-$8@2*}<,O6-$8@<%@,s(@M,*D,w > A!@Hs!-'@&@46-$82+}@<,O6-$8@<%@,s(@M,*D,R \k!-'@&@46-$8@2,}<,G6-$8@<,k(@M,*D,f "@A"p"A!zs!-'2-}@&@46-$8@<,O6-$8@<%@,s(@M,*D,  A"s!-2.}'@&@46-$8@<,O6-$8@<%@,s(@M,*D, k!-2/}'@&@46-$8@<,G6-$8@<,k(@M,*D,[ 6-&@P+(@20}M-200,[(@PACTUAL SIZE IS  TIMES LARGER6-&@0"6-B:,$@:(@M6,K(@21}PZ(@Hx(@M-240,&@P@U +(},(ΠƠŠ/(U(!PRESS ANY22} KEY TO RETURN TO MENU 24F:Ad,AU*AdAU4 A` A"Py6-@6--6. in23}g as PICT7 ApC6-@Q6.URE.PIC[ Ape@y-@,A/A u@24}9@@ D:PICTURE.PICKAP@`ARF:@,uASF:@,AV25}'AW@0C6-?:C:hhhLV,<@,Y*@F:A,o*@F:A,*@F:A ,'*@26}F:A,$@'$ D1:SHAPE.NEW27}1:SHAPE.NEW0'0100 ;XEPFREAD SOURCE CODE0110 ; 10 DIM BUF$(7680):BUF$(1)=CHR$(0):BUF$(7680)=CHR$(0):BUF$(2)=BUF$0120 ; 30 A=USR(XEPFREAD,69} "D:PIC.GR8", ADR(BUF$))0130 ICCOM = $03420140 ICBAL = $03440150 ICBAH = $03450160 ICBLL = $03480170 ICBLH = $03490180 6:}ICAX1 = $034A0190 ICAX2 = $034B0200 CIOV = $E4560210 FILE = $D00220 STRING = $D20230 *= $06000240 PLA 0250 6;} CMP #$020260 BEQ MAIN0270 ;0280 TAX 0290 BEQ LEAVE0300 ;0310 LOOPIT0320 PLA 0330 PLA 0340 6<} DEX 0350 BNE LOOPIT0360 ;0370 LEAVE0371 RTS 0375 MAIN0380 PLA 0390 STA FILE+10400 PLA 0410 6=} STA FILE0420 PLA 0430 STA STRING+10440 PLA 0450 STA STRING0460 LDX #$700470 LDA #$030480 6>}STA ICCOM,X0490 LDA #$040500 STA ICAX1,X0510 LDA #$000520 STA ICAX2,X0530 LDA FILE0540 STA ICBA6?}L,X0550 LDA FILE+10560 STA ICBAH,X0570 JSR CIOV ;$E4560580 TYA 0590 BMI CANTOPEN0600 ;0610 6@}LDX #$700620 LDA #$070630 STA ICCOM,X0640 LDA STRING0650 STA ICBAL,X0660 LDA STRING+10670 STA I6A}CBAH,X0680 LDA #$000690 STA ICBLL,X0700 LDA #$1E0710 STA ICBLH,X0720 JSR CIOV ;$E4560730 TYA6B} 0740 LDX #$700750 LDA #$0C0760 STA ICCOM,X0770 JSR CIOV ;$E4560780 CANTOPEN0790 RTS 0800 .6C}END $2075#$0C0760 STA ICCOM,X0770 JSR CIOV ;$E4560780 CANTOPEN0790 RTS 0800 .4!0100 ;XEPGRAF SOURCE CODE0110 ; XEP80 GRAPHICS DRIVER0120 ; 10 DIM BUF$(7680):BUF$(1)=CHR$(0):BUF$(7680)=CHR$(0):BUF$(2)=BU:E}F$0130 ; 20 GRAPHICS 240140 ; 30 A=USR(XEPFREAD, "D:PIC.GR8", ADR(BUF$))0150 ; 40 A=USR(XEPGRAF, ADR(BUF$)):REM PRINT IT F:F}AST!0160 ; 50 OPEN #7,4,0,"E:":CLOSE #7:REM RESTORE TEXT MODE0170 ICCOM = $03420180 ICBAL = $03440190 ICBAH = $03450200 :G}ICBLL = $03480210 ICBLH = $03490220 CIOV = $E4560230 *= $06000240 PLA 0250 CMP #$010260 BEQ XEPGRAF0:H}270 ;0280 TAX 0290 BEQ LEAVE0300 ;0310 USRCHK0320 PLA 0330 PLA 0340 DEX 0350 BNE USRCHK0360 :I};0370 LEAVE0380 RTS 0390 ;0400 XEPGRAF0410 LDX #$000420 PLA 0430 STA ICBAH,X0440 PLA 0450 ST:J}A ICBAL,X0460 LDA #$0B0470 STA ICCOM,X0480 LDA #$000490 STA ICBLL,X0500 LDA #$1E0510 STA ICBLH,:K}X0520 JMP CIOV ;$E4560530 RTS 0540 .END $2075:L}$E4560530 RTS 0540 .END $20758 !SGRAFXEP80 DEMO, LISTING 1BY MATTHEW RATCLIFF$$(c)1988, ANTIC PUBLIS>N}HING INC.  +@$6-@@ ;, -AU@6@(267@,.>:,2FAST STRING FILL TECHNIQU>O}E2-67,.>:,-FOR 'GRAPHIC DISPLAY BYTES'<67@,.F-(-PRINT SZ BYTES AS FAST AS POSSIBLEP ZL#@>P}@E:.@LGET XEP80 BACK TO TEXT MODED1:XEPLIST1.BAS>Q}E:.@LGET XEP80 BACK TO TEXT MODED1:XEPLIST1.BAS< ;< XEPGRAFXEPFREADXEPFREAXEPGRAADIRSCRDREXTFILDRVBS} //XEP80 GRAPHICS VIEWER PROGRAM (LISTING 2) BY MATTHEW RATCLIFFBT}(c)1988, ANTIC PUBLISHING BPXEPGRAF$ USR( BXEPFREAD$ USR2TG;@,;@,;Av,BU};@,;@,;@,T6.D1:*.*<S#@@E:.@SPUT XEP IN TEXT MODE, CLEAR SCBV}REENFI0( Directory file spec (RETURN for ) 4CB:,I6.P @ AZ+@!(* FILEBW} ERROR *+ @pd @@n A0x@( A @ 6.D1:_7BX}+7@<@,0:,*+7@<@,01,_67@<@,.7@<@, 6.-@B:,#BY}7<,4.6.7,# A =("(Graphics file to view &=B:,"@p-@B:,BZ}7<,4.AP 67B:,%@,.??+7@<@,4:,)+7@<@,4:,Ap 6.6.B[}67@,. A A+ @@+@"(Loading picture file ,6-?:C:B\},:,B^}6-%@) BPa104,201,1,240,9,170,240,5a""104,104,202,208,251,96,162,0a104,157,69,3,104,157,68,3aB_}169,11,157,66,3,169,0,157a72,3,169,30,157,73,3,76a86,228,96,-10u& #B0;A,&6-@:u" B`}$Du)67<,.>:,6-%@) BNu104,201,2,240,9,170,240,5Xu$$104,104,202,208,251,96,104,133bu%%209,Ba}104,133,208,104,133,211,104lu""133,210,162,112,169,3,157,66vu3,169,4,157,74,3,169,0u157,75,3,165,208,157,68,3u Bb}165,209,157,69,3,32,86,228u!!152,48,41,162,112,169,7,157u66,3,165,210,157,68,3,165u211,157,69,3,169,0,157,72uBc}3,169,30,157,73,3,32,86u##228,152,162,112,169,12,157,66u3,32,86,228,96,-1D1:XEPLIST2.BASBd},157,66u3,32,86,228,96,-1D1:XEPLIST2.BAS@6  %ZqSCR4RANDO 11DUAL SCREEN DISPLAY SIMPLE DEMO (LISTING 3)BY MATTHEW RATCLIFFFf}(c)1988, ANTIC PUBLISHING#1%6-F:@,%AV$F:@,16-B7p(AA(>:A%,.You are now viewing the 80 Fg}column XEP display.2E(E(9Get ready to view the 40 column screen and press RETURN ?< F:Ad,"AU@`FFh}AdAUP++@%@@E:Z-%A Yd# F:,#RANDOM SCREEN FILL n x@ Fi}-@6? <2@`@@ ++@$@@DE: @@D1Fj}:XEPLIST3.BAS6? <2@`@@ ++@$@@DE: @@D1D@b y FAXEPRINT HHDUAL DISPLAY DEMP, LIST DIRECTORY ON 40 COJl}LUMN DISPLAY (LISTING 4)BY MATTHEW RATCLIFF(c)1988, ANTIC PUBLISHING(( B(INIT XEPRINT USR ROUTINE2:Jm};@0,;A `,:HOLDS A WHOLE SCREEN OF DATA<$ (}Directory spec to see $F;+@%@@Jn}E:;40 COLUMNS ONP AZ] @@/6.>:A%,H67@<@,. ]CLEAR SCREEN FJo}IRSTd"6-"COUNT LINES READn@xM67B:,%@,."+P:,,?67B:,%@,.>:AU,MFILE/Jp}RETURN}67B:,%@,. ~B+'@,'@867B:,%@,.>:AU,B A06-%?P @#Jq}AA)6-?:C:,<@<@:,6-%@) B>N\\104,201,4,240,9,170,240,5,104,Jx}104,202,208,251,96,169,0,133,214,133,215,104,104,133,212\N__104,104,133,213,170,240,14,169,40,24,101,214,133,214,144,2,230,Jy}215,202,208,242,165,212,24zN``101,214,133,214,144,2,230,215,24,165,88,101,214,133,214,133,216,165,89,101,215,133,215,133NJz}^^217,104,133,209,104,133,208,104,133,211,104,133,210,160,0,56,165,210,233,1,133,210,176,6N``165,211,240,52,198,211,177,2J{}08,201,155,240,78,201,125,240,41,133,220,41,127,170,224,96,176N]]13,169,64,224,32,144,2,169,224,24,101,220,133,220,165,220J|},145,214,230,214,208,2,230,215N^^230,208,208,193,230,209,208,189,96,165,88,133,218,165,89,133,219,162,3,169,0,145,218,200J}}Oaa208,251,230,219,202,208,246,145,218,200,192,192,208,249,160,0,240,214,24,169,40,101,216,133.OEE216,144,2,230,217,165,2J~}16,133,214,165,217,133,215,24,144,192,-1D1:XEPLIST4.BASJ}BASH<0100 ;XEPRINT SOURCE CODE0110 ;XEP-PRINT USR ROUTINE0120 ; FUNCTION:0130 ; A=USR(XEPRINT, X, Y, ADR(A$),0140 ; LEN(N}A$) )0150 ;0160 ; Using direct screen RAM access,0170 ;write the string pointed to0180 ;on the graphics mode 0 display.0N}190 ; Handle CHR$(125), clear screen0200 ;properly, but all other chars0210 ;are printed. No editing, etc.0220 ; 30 A=USR(N}XEPFREAD, "D:PIC.GR8", ADR(BUF$))0230 SAVMSC = 88 ;Screen RAM pointer0240 RETURN = 155 ;Carraige Return0250 CLEAR =N} 125 ;clear screen0260 STRING = $D0 ; String pointer0270 STRLEN = STRING+2 ; String counter, 2 bytes0280 XPOS = STN}RLEN+2 ; xpos of cursor0290 YPOS = XPOS+1 ;ypos of cursor0300 PUTADR = YPOS+1 ;2byte screen pointer0310 ORGADR = PUTADR+N}2 ; Save original PUTADR here0320 CLRADR = ORGADR+2 ; Working register to clear screen0330 TEMP = CLRADR+2 ; Work, convertN} ASCII to internal0340 *= $06000350 PLA 0360 CMP #$040370 BEQ BEG10380 ;0390 TAX 0400 BEQ LEAN}VE0410 ;0420 LOOPEM0430 PLA 0440 PLA 0450 DEX 0460 BNE LOOPEM0470 ;0480 LEAVE0490 RTS 0500 BEG1N}0510 LDA #$000520 STA PUTADR0530 STA PUTADR+10540 PLA 0550 PLA 0560 STA XPOS0570 PLA 0580N} PLA 0590 STA YPOS0600 TAX 0610 BEQ NOADD0620 ;0630 BY400640 LDA #400650 CLC 0660 ADC PUTN}ADR0670 STA PUTADR0680 BCC BY40A0690 ;0700 INC PUTADR+10710 BY40A0720 DEX 0730 BNE BY400740 ;075N}0 NOADD0760 LDA XPOS0770 CLC 0780 ADC PUTADR0790 STA PUTADR0800 BCC SAVEIT0810 ;0820 INC PUTADN}R+10830 SAVEIT ; Save orig. put addr0840 ;0850 ; Save start PUT address0860 ;0870 CLC 0880 LDA SAVMSC08N}90 ADC PUTADR0900 STA PUTADR0910 STA ORGADR0920 LDA SAVMSC+10930 ADC PUTADR+10940 STA PUTADR+10N}950 STA ORGADR+10960 ;0970 ; Get string address0980 ;0990 PLA 1000 STA STRING+11010 PLA 1020 STA SN}TRING1030 PLA ; get string len1040 STA STRLEN+11050 PLA 1060 STA STRLEN1070 ;1080 ; All inits cN}omplete, now1090 ;get the string handling1100 ;RETURN and CLEAR screen1110 ;chars. properly.1120 ;1130 PRINT1140 LDN}Y #$00 ;Always zero here1150 SEC ;DECREMENT, DONE TEST FIRST1160 LDA STRLEN1170 SBC #$011180 SN}TA STRLEN1190 BCS PRINT11200 ;1210 LDA STRLEN+1 ;ALL DONE?1220 BEQ EXITNOW1230 ;1240 DEC STRLEN+11250 N}PRINT11260 LDA (STRING),Y1270 CMP #RETURN1280 BEQ RETURNIT1290 ;1300 CMP #CLEAR1310 BEQ CLEARIT132N}0 ;1330 STA TEMP1340 AND #$7F ; Forget invid1350 TAX ; Convert to screen1360 CPX #$601370 N} BCS PUTNOW1380 ;1390 LDA #$401400 CPX #$20 ; ASC<32 THEN ADD 641410 BCC ADCV1420 ;1430 LDA #$E0 N}; $E0 = -32 32