@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 ALLOWED697 FREE SECTORS COPYING---D8:COPY32.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- 164ɛ+,' 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 D8u^^<s3>00x|73>00x`c6<9c` 33c366fffg~33>00xgfffff<11111T}{!!\]_\ED!EOHI B V`}   TURU}BO-BASIC XL 1.5 (c) 1985 Frank Ostrowski!  ө)6L]""$$ (p%V}J[WܠjeC /D%Zub2gTSt$8®݊Ò2% 5RŢtW}d.’$3@X7t5w5$?## $#L+D:*.*S:C:P:$#.#) `:#(6ENeU\l؏&/ؕ؄sأ$LX}ENeU\lأ$8آǔƐƉƐƇ4cY%٦rULۉCۄړp^gyض%iwܸJڅ*ܣ$ڭڞجئأأ$Y} ,(""(222000000..222222222222222222222222222222**22*22&222$2222222222 ,(""(0Z}000000--**2*&22$2222222 V`hh@,lHH$HHHHHHӍl"H$H[}Hl $`GHFH\` ` 4ӭ l 4Lq ӠԪӅԆL} Ӡ L( ӑ)\} ` b% +L:#HH 0 HHLj%ӥHlL{ee 8eeee]}Ӧee褢%ƚƜ`88夅奅8夕^}奕Ӡȱȱȱ㦢`L+`8` .E)))8@8e0 *څۅ_}܅݅ޅ߄ԠF0y"ޥy"ݥy"ܥy"ۥy"ڥy"و0ǠF0y"ݥy"ܥy"ۥy"ڥy"٥y"؈0`}ǠF0y"ܥy"ۥy"ڥy"٥y"إy"׈0ǠF0y"ۥy"ڥy"٥y"إy"ץy"ֈ0ǠFa}0y"ڥy"٥y"إy"ץy"֥y"Ո0L-`8`E)))8i@0 *ڄԠ"(b}"!""" "L**""""""&О"("!"""c} "L**""""""&О"("!""" "L**"d}"""""&О"("!""" "L**"""""e}"&О"("!""" "L**""""""&Оdf}"("!""" "L**""""""&ОL-6"e""eg}""e""e""e""i""}"""}"""}"""}"""}"""}""ǭ"m"""m"""mh}"""m"""m"""m"""}"""}"""}"""}"""}"""}""ǥՅօׅ؅مԅՅօׅ؅`i}` ` ` `80 `ԥՅ +.JJJJ)iFiFi1FicFi'ȐȦoFiUȐFj}iiFi#iFiGi Fii@F iiFiiciՊFigi'iՊօשBL-`I)k})83Ԥԥդե֤֥פץؤإ٤L,K6"ХL--L--L--l}E0:e٥eإeץe֥eՐ؅٥ׅإօץՅ֩L-8٥إץ֥հ'I8م٘m}؅ؘׅטօ֘ՅL-ؤm\G0Q@Ն֩م؅2եمֆשم"ե؅֥م׆ةեׅ֥؅ץمn}؆لԘ)q +` . |. &7i |. ,%!L?.`刱䈱㈱∱ሱo}`ԅՅօׅ؅م`ԍՍ֍׍؍ٍ`ԍՍ֍׍؍ٍ`L.L. Խսֽ׽p}ؽ` L%/`ӽޕ &ԅ)@إ)JJJe)e - M 1.q} &Je0F 2 . /L(8`@ԠՈքׄ؄` . |. , . . |. , #/L(8`0 I@ԥ) 2r}f / . & r 1. #/ &?P , .Iiԩ +)ԅ ,ӽޕL(`8`$s})Ԧ61718191:1;1 (ť)8@0$Յ)e)e -F . / , . &1 1. #/ &t}F I`U9>`D'RFuCU?b9dYdg@W2@?tS)%)@0)%ԅԢ / . &G  1.u}Ӱ6 #/ &.ӽߕ ,ԅԥ B1 (`8``0?i? . . / , #/ &ԍՍ֍v}׍؍ٍ . . ( / , O2 / ,0 .JeF 2`L+) .e٥eإeץe֥eՊiw}؊؅٥ׅإօץՅֆե1ԥ'JffffJffffJffffJffffم`ԩ&&&&*&&&&*&&&&*&&&&x}*`Pi`)JJJeԅԘ)Peԅ`եԆ8@EB)JJJeԅԥ)PeԅԘ)3eԅԽ3eՅ՘)JJJ}3ԥ}3y}`)JJJeԅԥ)PeԅԹ3eԅԹ3eՅդЧ` 0@P`'Nu pX@(#d,X L(  兢0z}襙 bɥ⥋㩀 50ɥ0DȱȱȄ   ik#ZMkVgğe拰ㅋ⅊{}0 eee拰 L f5дƨħ 4LY4 f5К,樥ŧH 4h h5L4樤ܱ.* O %30  5|}Ԅ +(fԤԈ`ř嚰Ԥ`ڥۥड़0-԰eڅڐۈ0eeL+58` O}}#`,#5  6`]5 6DE 68DHEIHI V0$ 6Sл B V,#~} 6` $#LllBHI V0HH V0Ԩh``a$%Ȏ$$xө$Ѝ$ ` `@}X a)6 Ӆʢ ʎD  _ɠ %` ɩHH `өL: g}% D:AUTORUN.BASөjJHH`ՠԢӱԙ!ӹ!`֝DEIHB V0YڝDa۝E}օܥׅݥܝHݝI V0+Ӡڑڑ0`l `  䅠 _ɠԐ}e拢 &L &Lħ © ¥4 䥝ň剰' k ɀ8@4= LY ĩ`OJ ]J}?L˜ KԪȱLRHHצ R, hhLRHHHHHH /0ȑȑޠhhhh}hh`HHHHHHHHHH $H bɐhȥLHhhhhLň剰)}i桰` )``L(兢ħ #$ x Hҩ h$襚ҥ }` UV #T` ` `,H ¥ȍ` JKhLŢ  #)I L ¤Ȣ`L¦ ¦ L} ½J*K+ $LąLĩ …L~ …`H Ġh é`,H hH Ġ  ĭ 8}}} L n [h`LkL © 8倝偝 Ġ  ĥ󥃅  Lĩ }LHé éLH#h ĩ`H hKJ L+ , H hHHħ s hKhJ  Lĩ# qL} ĩ ŘL ũ& QŽLM " ĽNL  ĥԝL՝M  ĥԝN%LV  ¤ħ` Ťħ` ƪ }Ċ Ťħ` ¢`届 x݅ L ĽCӠɀ L]Ɉ L] Ln LŠ}IHEDBL$HH hh +L `ħ LĢl ¦`YDAER ԅՅ֦}󅗄`L+ ¢p 0 Hp hɈL` ,#,$,!Lé ,H ĥDEԝH՝Ih }L©L $`L© , k ĩԅ  + ĥ 夨ħ`2ƪƪ ! A!Ƚa!Ƚ!Ƚ!Ƚ!}!``氤hhL1@$ƪư 0 0 n$P`L+FҐ֥װ綾إٰو LǠ}Ffؐ ee&ee* &eeeԪeըee$.ƪ@!Ƚ`!Ƚ!Ƚ!Ƚ!Ƚ!`}!!!!`!@!^!` Ȅ 8 n奱 ٥Lǥ֤צưĘ=ŗ78֪א&} eԥe$`L: L ԅՅօׄ 1פ& ٤ţĢԅeՅe8包卅} ]& 8Ԩժ%אְ`ֆL夨ħ` FҰg8&0ei֥i0Tׅiإi0BJe؅eم}0&ffff&0 &0 eeL+օפإ颎 %8包ԥ卅 L ɥ} ȱъŠe拰8``,ªȱȱI ѝ3ȥLɥHHO]}  ȥe暰Х ȥL+ʅȱhh`Lħ OԪȱԨ``L :}0 `L(奷 bɥ󥋅ȱȱȱȄ#鈄0B8eeŶ}ɛ,@LBˤ,ɛ`L?± ˤ樱f Oƨ x݅ + ~ [ˠ O樥0# +  L˥}`LL :ɛ,$PH h $P润䧰 ʐLʦ䧐 +` ʐL3L}BˢԝD՝E֝HםI L 兢L]& 兢L% ,L6 ,L6 &L6 (L6妪@!I@!` ؐb`P KW ؐRB} ؐ=;G ؐ4@ ;+ƪƪ@!=A! (ƪƪ@!A! ƪ@! ,@@檦@!`!!!!!!`ƪ@! ǩ}jҤ /L.٤ƪƪ@!@!, 舽`!`!!ـ!!٠!!!!!`@!jI*` . ֪ (}ϰ`(8` ֤ׅԄ +҅L: Lyƪ8吪周Ly sũ + ŐL Ly sŠԄ h }L} L}٩    e쪽pLyL( + ڥHJJJJ h) 0:i`  ک; n +ȱ)ȥ%}ݓ Lh ԍՅԄׅ֩өL:ƪ?Ԣ )ɠ )  -L &Lڦ@!)@!` n)8@} -L:` / n)8@I= n)8@/ѩ֔$ሄ ,L: + n 0L}8 n 0L8 n H1L8 n /L8 n /L8 n D/L8 n 1L8LLإL( &)ԥ)8@JjH}@MC)JJJe)e .F / .P . &F . #/ &L.L(HHHHHH /hhhhhh }& Y/hԅL:,` L _ܘ%ᨥ%Ly _ܘᨥLy _ܘEᨥELyٚ<|'g 0L`}!!!!i ` &LإL٥LyɥLzvmZ ƨ!0 4 䦵 ¥ԝD՝E֝He}םI Lܤį eį L` x݅ƨLLLܤ ©`#ۢ Lĩ_,}ߤ ڄ . eڅԥeۅհ"8څ֥ۅא8ܥݰL۠Q%0ԅإՅ٥ަ0%Q}% L-ե0LޥڤLyمօנ6&֐ eו`L( Hħ hբՅ `ޥԢ `ޥՅ}&&֐eܥeېڈ 7 \ 7 j N \ N j$0!ee80å/8ܥ۰uڕ}0eUiV`TUV`8UV`eTi`8TȢ` $L„')Q ȱ8} e新`8`L齀).Q Ӱȱ8e新 O :L䅫# *$Ŭ} Ʃ HL"䥫ș L` Ml/#樱0ZS'`ȱȱȱȱȱȱȄ`ȱօȘuԩׅu՘e֨҄}`樱I 屝Ҡȱȱȱȱȱ` n$҅J?eԨe` L 兙 兛 n %3 Ԥ` }, , , L檤 ٙ!ؙ!י!֙!ՙ`!ԙ@!ә !ҙ!` 䤪ƪ!ٹ!ع!׹!ֹ`!չ@!Թ !ӹ!`ƪ!}!乡!㹁!a!A!Lp ґȥӑȥԑȥՑȥ֑ȥבȥؑȥّ` ***j)e)e`ʭȅi}ȅiȅȩȩ Lfإ  4  \ +] ¥򄟄}   넨ɛ$0L祔 Z f0#ڠ쩀 ߩ6ei$0 녖چ + !5}ɛȑ @膔7 ɛ 襔!ɛL! _ɩ8$IȢ %e} &!$P* &8孨客 "&$ 1L~ L~ &L _ɰe拢 &L~ +0 %30Ԅ} 襡L 9:枢0 O L :H9Hhh tLHH`}hhLCL馩`ʆLC枢0ְşLC`A枢Ɣ!L!L}!T 򈩛LQLD ijq ߰,iŰD VD8` 覲`8` 넬 S( +饰}0 S0:$$ p8`$p (ȩ@҅ҥ򄬤 ߰ A L8򨢄 %Ӥ򈦬ʽ ʽ %} +HH 屝EҨhh$P0Ƭ 襯I `_A[`8`80 &Ո}ԅ` 넬$ +  + h갳 h) + , 褔ԙ!` "8` 襔 ɛ "ȱ"}嫤!`! `) ɛ%)a{)_0:A[_դ`RE͕DATINPUԑCOLOҝLISԖENTEҚLEԛI}FOҗNEXԑGOTϑGO TϑGOSU½TRAАBYŐCONԞCO͟CLOSŐCLҐDEǞDI͐ENĐNEנOPEΖLOAĖSAVŢSTATUӣNOTPOINԡXIϤOΒPOKťPRINԐRA}REAĨRESTORŐRETURΩRUΐSTOАPOХGEԫPUԑGRAPHICӒPLOԒPOSITIOΐDOӒDRAWTϓSETCOLOҬLOCATŔSOUNĦLPRINԐCSAVŐCLOAĚERR}OR- DPOKœMOVœ-MOVŪ*ƐREPEAԑUNTȊWHILŐWENĐELSŐENDIBPUBGEԒFILLTϐDϐLOOШEXIDIҖLOC˖UNLOC˖RENAMŖDELETőPAUS}ŖTIME$PROøEXEÐENDPROÑFCOLOҪ*̕-RENU͒DEDUMЪTRACTEXԖBLOAĖBRUθGO*’PAINԟCLӔDSOUNCIRCLū%PUԘ%GEԚ}GOTGOSUTSTETHEΣ<<>ުNOOANĨ<<>STRCHRUSASVALEADATCOPEESIRNFREXLOCLOSQSGA}BINPADDLSTICPTRISTRIDPEE˦INSTINKEYEXOHEXDEDIFRATIMETIMMOEXERNRANTRUN%%%%GOUINSTERER+,}%5&6(+8,<Xk`fghilm^deDѳHc?,Ќ,е,Y_Ҳ+7,/}01 2!3"4Ɛ"-"."-؂ٿ֐ː}ĐאŐbj+9,+;,ʐͭ}ͭ@ABC\=>[<+:е<,&%rvnnxc<}\-78s_XV+@D&0d*"'2GJh }NRl~&2 +饰(+VWZ ]a8`L`  ¤ħ.H h L5 䄡 } 䅭 bɠ04Ů .ŭ%) e拰 ĩ L+Ư0 Le}`毤Hɛ) h`  L ȱ R @ʆ ȱȄ Iğ` :62T F} :7 8 Lbԩ- L 8 8,I ɨ 8L.UH `ƨh $ %3   + \L L 8󅯩}" ¥ 8" ©" Ư" L8q :Z#]abj(=) W같  L樤ħ`hh`H Yh}Z L<>EO ƹƹ0`H f5h`I&` =? FQA` L񄳱ȱI }䦐Ħ ąŅ T k /䧰 k ,Ǡ ĩJH ThĥȑĥȑĦʊȑ`HHą}ŅH h hhhh ȱIELZ L`ȱI Hȱȱȱȱȱ } , h @ $L+L.*ȱȱȱȱȱjEE `EjI `e`ħ ¥}0 ` Lk 䦪`! 䧰L A@L `I&`L ©؅ L}.0`STOPPED륺 bɠhhL :ʅ` k %3Hƹ h5h`hbjH h} #ԤLQ #LLei  `LԑȥՑȥ֑ȥבȥؑȥّ``䈥}剰#)iiLɠL4űI&`048ץğ=ȱȄ }`L  L0e拠0ȱȄL  䦪`!' >?L (<ж`!  $Л +`,LőŐ78Ƒ8 Ƒ`8` - PѠ}`,,L L PQ 8,L ȱI ѝߠȱ`}ԩ,L E  $EL+L],,,؍ 0âLɀL ©7 F󦹩 RbL g }0g `Ո V fL{Ն + +􅕄L AT LINE?BLOAMEVALU>#VAR$LE?DAT>3276INPUDISTACOVERFLO?L}IN?FOTOO LON?DE?GOSUGARBAG?CHMEͣ?LOA?NES?WHIL?REPEA?D?EXIXPRO?EXE?PRO?IS OPE?DEWR ONLCMNOT OPEΣRD ONL}EOTRUNTIMEOUNA!FRAMCURSO!OVERRUCHKSUDONMODNOT IMPRA͠D?>#FILEDSK FULFATAL I/FILENAMPOINLOCKEDCM}>DI?FILPOIN?APPNBAD SECTORӥHՄ +h & .hԩ + ,҅L: ƪn (@Մ$ 0`} 0` 0LoH - . /h &@Յ՘JJJJ X) 0:i`AVC2 sŠ 5  <)  }< L L + e +e`e`&&&&&&eee` }&&eee&*`` 兙 䦪!0 4 ۄܱ **m ݤܱEۅڦڱ=} ܥeƥiեLN@ ` **)]` 00`` ( ((((((((}8`W)ߥ & &e &߽řِ׼JJJJ&eXޥeYߥ䥛 9 FfЎᰈ} `  M 8*` 兙 󥐅i祣L{ &}L  0 & L ȑ & L; # )ȱ L } )ȱ) )ȱ 8ƣŐő0eސ`ƙ8ް`)ȱJJJ}```=`]``` E߭H Ġ} hL±&Lv`[  ȱ R}]  L L  䅠 bɰhhğȱȄ L l"0e拱LjLx`[  ȱ Rl1500 Z=57344:DIM A(7):FOR I=0 TO 7:A(I)=2^I:NEXT I:Z=Z+8*8:REM Z=Z+33*8 IS OOK LEUK1505 ? CHR$(125):POSITION 20,2:? "A=PEEK( }";Z;") TOT +7":POSITION 20,4:? "B=PEEK(";Z+8;") TOT +7"1510 FOR I=0 TO 7:A=PEEK(Z+I):B=PEEK(Z+8+I):C=A!B:D=A EXOR B:E=A&B15 }20 FOR J=0 TO 7:POSITION J,I1540 IF A>=A(7-J):? CHR$(160):A=A-A(7-J):ELSE :? "*":ENDIF 1550 POSITION 10+J,I:IF B> }=A(7-J):? CHR$(160):B=B-A(7-J):ELSE :? "*":ENDIF 1560 POSITION J,I+10:IF C>=A(7-J):? CHR$(160):C=C-A(7-J):ELSE :? "*":EN }DIF 1570 POSITION J+10,I+10:IF D>=A(7-J):? CHR$(160):D=D-A(7-J):ELSE :? "*":ENDIF 1580 POSITION J+20,I+10:IF E>=A(7 }-J):? CHR$(160):E=E-A(7-J):ELSE :? "*":ENDIF 1590 NEXT J:? :NEXT I1600 POSITION 3,8:? "A":POSITION 13,8:? "B":POSITION 3, }18:? "A!B":POSITION 10,18:? "A EXOR B"1610 POSITION 22,18:? "A & B":POSITION 1,20:? "SAMEN":POSITION 11,20:? "ANDERS":POSITI }ON 21,20:? "BEIDEN"1620 POSITION 1,21:? "DRUK OP TOETS OM DOOR TE GAAN,OP BREAK EN DAN 'CONT'INTIKKEN OM TE PRINTEN":POSITIO }N 0,211630 GET KEY:Z=Z+8:GOTO 15051640 EXEC NULACHT:EXEC GR8TOPR:REM DEZE FILES MOETEN GELADEN ZIJN1650 INV=1:CLOSE #7:OPE }N #7,8,0,"P:":X=USR(1536,7,INV):CLOSE #71700 END :REM >D:BINDEMO.LST=BIN(Y) THEN POSITION X,Y+2:? CHR$(160):POSITION X2,Y+2:? CHR$(42):A=A-}BIN(Y)525 NEXT Y530 NEXT X:L=DPEEK(183)535 GOSUB 645:GOSUB 595540 POSITION 2,14:LIST L:? "CONT":? :? "VIA CURSOR/CTRL IN }AFB.1 MET VULLEN,OF DOOR ANDER TEKEN EEN VERVANGEN"545 ? "DAN CURSOR BOVEN DATA REGELS OP RETURN BLIJVEN DRUKKEN"550 PO}SITION 2,10:? L:STOP 555 FOR X=2 TO 7:CH(X-2)=0:FOR Y=2 TO 8:POSITION X,Y:GET #1;CH:IF CH=160 THEN CH(X-2)=CH(X-2)+BIN(Y-2)}560 NEXT Y:CH(X-2)=CH(X-2)+128565 NEXT X:POSITION X-1,Y-1:? CHR$(42)570 POSITION 2,14:LIST L:? L;" DATA ";:FOR D=0 TO 4:? C}H(D);",";:NEXT D:? CH(5):? "CONT":? CHR$(156):? CHR$(156)575 ? "TEKEN OPZOEKEN ?GEEF NUMMER IN BIJ A":? "RESTORE 1000+A :G}OTO 505 ":? CHR$(156)580 POSITION 2,11:L=L+1:STOP 585 GOTO 505595 POSITION 2,0:? "UIT ONDERSTAANDE DATA REGELS":? " 1 } 2 3 4"600 FOR X=14 TO 19:FOR Y=2 TO 8:POSITION X,Y:? "*":NEXT Y:NEXT X605 RESTORE L+(1-2*VERS)*128}610 FOR X=14 TO 19:READ A:A=A-128615 FOR Y=6 TO 0 STEP -1:IF A>=BIN(Y) THEN POSITION X,Y+2:? CHR$(160):A=A-BIN(Y)620 NEXT Y}625 NEXT X635 RESTORE L+1:RETURN 645 AC=L-1000:VERS=AC>127:CC=AC-VERS*128:IC=(CC<32)*(CC+64)+(CC>31 AND CC<96)*(CC-32)+CC*}(CC>95)650 C1=101+(1-2*VERS)*59:C2=101-(1-2*VERS)*59655 POSITION 32,0:? "ATASCI":POSITION 31,10:? "CHR$(";AC;")"660 BASE=Z}+8*IC:FOR Y=0 TO 7:A=PEEK(BASE+Y)665 FOR X=2 TO 9670 POSITION X+29,Y+2675 IF A>=BIN(9-X) THEN ? CHR$(C1):A=A-BIN(9-X):GOTO} 685680 ? CHR$(C2)685 NEXT X690 NEXT Y695 RETURN 21200 PROC INIT21203 DIM BIN(7),CH(6):Z=57344:FOR I=0 TO 7:BIN(I)=2^I:}NEXT I21299 ENDPROC 5 NEXT X690 NEXT Y695 RETURN 21200 PROC INIT21203 DIM BIN(7),CH(6):Z=57344:FOR I=0 TO 7:BIN(I)=2^I:1000 DATA 140,158,188,158,140,1281001 DATA 128,255,255,140,140,1401002 DATA 128,128,128,128,255,2551003 DATA 140,140,143,1}43,128,1281004 DATA 140,140,255,255,128,1281005 DATA 140,140,252,252,128,1281006 DATA 224,176,152,140,134,1311007 DATA 13}1,134,140,152,176,2241008 DATA 192,224,240,248,252,2541009 DATA 128,128,128,248,248,2481010 DATA 254,252,248,240,224,1921}011 DATA 128,128,128,135,135,1351012 DATA 135,135,135,128,128,1281013 DATA 131,131,131,131,131,1311014 DATA 224,224,224,22}4,224,2241015 DATA 240,240,240,128,128,1281016 DATA 140,204,247,247,204,1401017 DATA 128,128,252,252,140,1401018 DATA 140},140,140,140,140,1401019 DATA 140,140,255,255,140,1401020 DATA 128,156,190,190,156,1281021 DATA 248,248,248,248,248,24810}22 DATA 255,255,128,128,128,1281023 DATA 140,140,252,252,140,1401024 DATA 140,140,143,143,140,1401025 DATA 255,255,255,128},128,1281026 DATA 128,128,159,159,152,1521027 DATA 159,149,245,208,208,1281028 DATA 136,140,254,254,140,1361029 DATA 136,}152,191,191,152,1361030 DATA 136,156,190,170,136,1361031 DATA 136,136,170,190,156,1361064 DATA 158,191,161,173,175,128109}1 DATA 128,190,190,162,162,1281092 DATA 128,134,140,152,176,1281093 DATA 128,162,162,190,190,1281096 DATA 152,188,254,254,}188,1521123 DATA 152,222,255,255,222,1521124 DATA 128,128,255,255,128,1281125 DATA 128,158,134,142,186,1281126 DATA 128,1 }36,156,190,255,1281127 DATA 128,128,255,190,156,1361128 DATA 243,225,195,225,243,1281129 DATA 255,128,128,243,243,2431130 } DATA 255,255,255,255,128,1281131 DATA 243,243,240,240,255,2551132 DATA 243,243,128,128,255,2551133 DATA 243,243,131,131,2 }55,2551134 DATA 159,207,231,243,249,2521135 DATA 252,249,243,231,207,1591136 DATA 191,159,143,135,131,1291137 DATA 255,25 }5,255,135,135,1351138 DATA 129,131,135,143,159,1911139 DATA 255,255,255,248,248,2481140 DATA 248,248,248,255,255,2551141  }DATA 252,252,252,252,252,2521142 DATA 159,159,159,159,159,1591143 DATA 143,143,143,255,255,2551144 DATA 243,179,136,136,17}9,2431145 DATA 255,255,131,131,243,2431146 DATA 243,243,243,243,243,2431147 DATA 243,243,128,128,243,2431148 DATA 255,227},193,193,227,2551149 DATA 135,135,135,135,135,1351150 DATA 128,128,255,255,255,2551151 DATA 243,243,131,131,243,2431152 D}ATA 243,243,240,240,243,2431153 DATA 128,128,128,255,255,2551154 DATA 255,255,224,224,231,2311155 DATA 255,193,193,193,193},2551156 DATA 247,243,129,129,243,2471157 DATA 247,231,192,192,231,2471158 DATA 247,227,213,247,247,1281159 DATA 247,247,}213,193,227,2471160 DATA 255,255,255,255,255,2551161 DATA 255,255,209,209,255,2551162 DATA 255,249,255,249,255,2551163 DA}TA 235,193,235,193,235,2551164 DATA 251,209,148,197,239,2551165 DATA 255,205,231,243,217,2551166 DATA 255,197,186,181,207,}1751167 DATA 255,247,249,255,255,2551168 DATA 255,227,221,190,255,2551169 DATA 255,190,221,227,255,2551170 DATA 213,193,2}27,227,193,2131171 DATA 247,247,193,193,247,2471172 DATA 255,223,231,255,255,2551173 DATA 255,247,247,247,247,2551174 DAT}A 255,255,207,207,255,2551175 DATA 223,239,247,251,253,2551176 DATA 255,227,209,205,227,2551177 DATA 255,219,193,223,255,2}551178 DATA 251,221,205,209,219,2551179 DATA 239,221,213,201,253,2551180 DATA 255,231,235,193,239,2551181 DATA 239,217,21}3,197,255,2551182 DATA 255,193,213,197,255,2551183 DATA 255,221,237,245,249,2551184 DATA 255,193,213,193,255,2551185 DATA} 255,209,213,193,255,1281186 DATA 255,255,201,201,255,2551187 DATA 255,223,229,255,255,2551188 DATA 255,247,235,221,190,25}51189 DATA 255,235,235,235,235,2551190 DATA 190,221,235,247,255,2551191 DATA 255,253,166,246,249,2551192 DATA 225,192,222},210,208,2551193 DATA 255,195,237,237,195,2551194 DATA 255,193,213,213,235,2551195 DATA 255,193,221,221,235,2551196 DATA }255,193,221,235,247,2551197 DATA 255,193,213,213,255,2551198 DATA 255,193,245,245,255,2551199 DATA 255,227,221,213,231,255}1200 DATA 255,193,247,193,255,2551201 DATA 255,221,193,221,255,2551202 DATA 255,207,221,193,253,2551203 DATA 255,193,247,}235,221,2551204 DATA 255,193,223,223,255,2551205 DATA 193,251,247,251,193,2551206 DATA 193,251,247,239,193,2551207 DATA 2}55,193,221,193,255,2551208 DATA 255,193,245,245,251,2551209 DATA 255,193,221,129,191,2551210 DATA 255,193,245,229,219,255 }1211 DATA 255,217,213,205,255,2551212 DATA 255,253,193,253,255,2551213 DATA 255,193,223,193,255,2551214 DATA 253,243,207,2!}07,243,2531215 DATA 193,223,231,223,193,2551216 DATA 221,235,247,235,221,2551217 DATA 255,249,199,249,255,2551218 DATA 25"}5,205,213,217,255,2551219 DATA 255,193,193,221,221,2551220 DATA 255,249,243,231,207,2551221 DATA 255,221,221,193,193,2551#}222 DATA 247,251,253,251,247,2551223 DATA 223,223,223,223,223,2551224 DATA 231,195,129,129,195,2311225 DATA 239,213,213,19$}5,255,2551226 DATA 255,193,215,215,239,2551227 DATA 255,231,219,219,255,2551228 DATA 239,215,215,193,255,2551229 DATA 255%},227,213,211,255,2551230 DATA 255,247,193,245,253,2551231 DATA 183,171,171,135,255,2551232 DATA 255,193,247,199,255,25512&}33 DATA 255,215,197,223,255,2551234 DATA 255,207,223,197,255,2551235 DATA 255,193,239,215,255,2551236 DATA 255,253,193,223'},255,2551237 DATA 195,251,247,251,195,2551238 DATA 255,199,247,199,255,2551239 DATA 255,199,215,199,255,2551240 DATA 255,(}131,235,235,247,2551241 DATA 247,235,235,131,255,2551242 DATA 255,199,247,239,255,2551243 DATA 255,211,211,203,203,255124)}4 DATA 255,251,225,219,207,2551245 DATA 255,199,223,199,255,2551246 DATA 247,239,223,239,247,2551247 DATA 195,223,239,223,*}195,2551248 DATA 255,215,239,215,255,2551249 DATA 255,255,167,175,199,2551250 DATA 219,203,211,219,255,2551251 DATA 247,2+}09,192,192,209,2471252 DATA 255,255,128,128,255,2551253 DATA 255,225,249,241,197,2551254 DATA 255,247,227,193,128,2551255,} DATA 255,255,128,193,227,24755,255,128,128,255,2551253 DATA 255,225,249,241,197,2551254 DATA 255,247,227,193,128,2551255fffffff>`<|fl0fF68of;880  00f< 80 0 ~~`0 0`</}f f``f<ffffbx`bbx``||ff~fff xlxxl```bv~nf0}`<|<fffff<fff<<f<f`f< |v000|000`~`|fff8<f<`lxxl8<4}fff`<|~fff;bt8|lf<|~L2~<~~<5}8x86}00000000.9007}E7   00000000.90021000 PROC FONT21005 CLOSE #1:OPEN #1,4,0,"D:FANCY.FNT":REM DE FILE NAAM VAN LETTERFONT21010 X=16:REM FILENUM*1621020 9} CHSET=(PEEK(106)-8)*256:POKE 756,CHSET/256:REM ADRES OF CHARACTERSET21025 ICCOM=834:ICBADR=836:ICBLEN=84021030 POKE I:}CBADR+X+1,CHSET/256:POKE ICBADR+X,021035 POKE ICBLEN+X+1,4:POKE ICBLEN+X,021040 POKE ICCOM+X,7:A=USR(ADR(CIO$),X)21045;} CLOSE #121050 ENDPROC 21200 PROC INIT21205 DIM CIO$(7):CIO$="hhhLV"21299 ENDPROC COM+X,7:A=USR(ADR(CIO$),X)21045]5 DIM TXT$(10000):POKE 82,0:TRAP 100:BEGIN=110 OPEN #1,4,0,"D:SEIKTXT.LST"20 GET #1;A:TXT$(LEN(TXT$)+1)=CHR$(A)30 GOTO 20!=}100 CLOSE #1:END POKE 82,0:TRAP 100:BEGIN=110 OPEN #1,4,0,"D:SEIKTXT.LST"20 GET #1;A:TXT$(LEN(TXT$)+1)=CHR$(A)30 GOTO 20 20000 PROC GR8TOPR20001 RESTORE 20000:FOR I=0 TO 211:READ J:POKE 1536+I,J:NEXT I20002 REM LINES TO USE>INV=1: OPEN#7,8,%?}0,"P:":X=USR(1536,7,INV):CLOSE#763 AND PAGE<69 THEN GOTO 200206 IF PAGE>68 THEN PAGE=3210 RETURN 300 FOR I=1 TO 6:GOSUB 200:NEXT I:PAGE=3:GOTO 100-S}400 PROC VEEG410 POKE DPEEK(88),0:MOVE DPEEK(88),DPEEK(88)+1,7679420 ENDPROC 500 CLOSE #7:CLOSE #2:CLS :? "PRINTER NIET -T}AAN!":? "VERGEET OOK NIET 'D:GR8TOPR.PRC' TE ENTEREN!":END 501 ? "DEZE FILE NIET GEVONDEN":GOTO 35502 CLS :? "PRINTDUMP WER-U}KT NIET":? "WAS FILE 'D:GR8TOPR.PRC'WEL GEENTERD"504 EXEC HARDCOPY:CLS :? "END OF FILE":CLOSE #2:CLOSE #7:END 700 PROC LIST-V}ACHT705 VERS=IC>127:IC=IC-128*VERS706 AC=(IC<32)*(IC+64)+(IC>31 AND IC<96)*(IC-32)+IC*(IC>95)+128*VERS707 FOR I=0 TO-W} 7:POKE RG+SC+I*40,255*VERS+(1-2*VERS)*PEEK(Z+8*AC+I)708 NEXT I710 ENDPROC 21200 PROC INIT21201 DIM F$(15):Z=5734421-X}202 EXEC GR8TOPR21299 ENDPROC ERS)*PEEK(Z+8*AC+I)708 NEXT I710 ENDPROC 21200 PROC INIT21201 DIM F$(15):Z=5734421,"4 EXEC INIT7000 PROC NULACHT7020 MOVE DPEEK(88),ADR(SCR$),9607030 GRAPHICS 8+16:COLOR 1:SC=DPEEK(88):Z=573447040 FOR J=0 1Z}TO 959:IC=ASC(SCR$(J+1,J+1))7050 VERS=IC>127:IC=IC-128*VERS7060 AC=(IC<64)*(IC*32)+(IC<96 AND IC>63)*(IC-64)+IC*(IC>95)+1281[}*VERS7070 FOR I=0 TO 7:POKE RG+SC+I*40,255*VERS+(1-2*VERS)*PEEK(Z+8*IC+I)7080 NEXT I7090 RG=RG+1:IF RG=40 THEN RG=0:SC=SC+1\}320:REGEL=REGEL+17100 NEXT J7110 ENDPROC 21200 PROC INIT21204 DIM SCR$(960):SCR$(1)="":SCR$(960)="":SCR$(2)=SCR$(1):REM1]} GEBRUIK>POKE 82,0:GR.0 EXEC SPRINT5f}25075 X=0:Y=19*8:XSIZE=1:YSIZE=1:TXT$="Dit programma toont een textdump in ":EXEC SCREEN25080 Y=20*8:TXT$="het zgn.FANCY FO5g}NT in div.afmetingen.":EXEC SCREEN25082 Y=21*8:TXT$="Ook een listing kan je zo dumpen.":EXEC SCREEN25085 Y=22*8:TXT$="De fi5q}B%DOS SYSB*)DUP SYSBSAUTORUN SYSb BINDEMO LSTbCHACGEN LSTb/DATASEIKLSTb -FANCY FNTb8GETFONT PRCb<GETTEXT LSTb >GR8TOPR PRCbIINVERT PRCBJLSTPRNT8LSTbYNULACHT PRCb^SEIKDEMOLSTb|SEIKLISTBASBSEIKLISTLSTB,SEIKOSHATXTb)SEIKTXT LSTb SHADING LSTBSKNAARATLSTbWRITE PRCle moet dan wel gelist zijn naar de":EXEC SCREEN25090 Y=23*8:TXT$="disk dus niet gesaved.":EXEC SCREEN25095 EXEC GR8TOPR:EX5r}EC HARDCOPY:REM GR8TOPR BETER DOEN VLAK VOOR HARDCOPY25100 END 25200 PICL=4680:CLOSE #1:OPEN #1,8,0,"D:L1.PIC":BPUT #1,DPEE5s}K(88),PICL:CLOSE #1:REM 7680 BYTES(GR.24)ONNODIG25210 POKE DPEEK(88),0:MOVE DPEEK(88),DPEEK(88)+1,PICL:RETURN 25220 CLOSE #5t}1:OPEN #1,8,0,"D:L2.PIC":BPUT #1,DPEEK(88),PICL:CLOSE #1:REM OUTPUT25240 CLOSE #1:OPEN #1,4,0,"D:L1.PIC":REM OUTPUT25250 FO5u}R I=0 TO PICL-1:GET #1,PC:A=DPEEK(88)+I:POKE A,PEEK(A) EXOR PC:REM ˛25260 NEXT I:CLOSE #1:REM ˛25270 CLOSE #1:OPEN #1,8,05v},"D:L3.PIC":BPUT #1,DPEEK(88),PICL:CLOSE #125290 CLOSE #1:OPEN #1,4,0,"D:L1.PIC":BGET #1,DPEEK(88),PICL:CLOSE #1:REM ˛25305w}0 OPEN #1,4,0,"D:L2.PIC":REM ˛25310 FOR I=0 TO PICL-1:GET #1,PC:A=DPEEK(88)+I:POKE A,PEEK(A)&PC:REM ˛25320 NEXT I:CLOSE #5x}125340 FOR I=0 TO PICL-1 STEP 80:FOR G=0 TO 39:A=DPEEK(88)+I+G:IF PEEK(A)>0 THEN POKE A,PEEK(A)&8525350 NEXT G25360 FO5y}R G=40 TO 79:A=DPEEK(88)+I+G:IF PEEK(A)>0 THEN POKE A,PEEK(A)&17025370 NEXT G25380 NEXT I:CLOSE #125400 CLOSE #1:OPEN #15z},4,0,"D:L3.PIC"25420 FOR I=0 TO PICL-1:GET #1,PC:A=DPEEK(88)+I:POKE A,PEEK(A)!PC25430 NEXT I:CLOSE #125440 OPEN #1,8,0,"D:5{}LFIN.PIC":BPUT #1,DPEEK(88),4680:CLOSE #125450 RETURN K(88)+I:POKE A,PEEK(A)!PC25430 NEXT I:CLOSE #125440 OPEN #1,8,0,"D:48v } FREGELCDATPAGTBEGI 9}} nn"D:SEIKLIST.BAS":REM PRINT EEN LISTING.EIGEN CHARACTERS ZIJN +1000 DATAREGELS.GEBRUIKT:DATASEIK.LS2 FILEGGOOK9~} MOET TE LISTEN FILE,NAAR DE DISK GELIST ZIJN EN NIET GESAVED.E A@8@@P:E;@9}, kk(cDoe papier in printer.Het 1e vel zal een extra topmarge hebben.Die moet je opgeven,je vindt hem zo:rr(iEen 9}vel heeft 22 gaatjes,boven het 1e en onder het laatste gat past 1 regel.Tussen gaten passen 2 en bij mm(e een gat is ook9} een regel.Tel de regels boven het zwarte lint op deze wijze ,geef dit op als 'marge'.Q A2(Geef in en druk9} op return6D6-@d&Q(>:A%,#k AS(AGeef de naam van de te listen file,compleet met voorvoegsel bijv.9}g(D1:FILENAAM.LSTk-,6-@,@@2 -7. A!-@@.)@9}<N"AU%(@>:@ ,/ ANLINEFEED 20+REGEL+1 DOOR 110AqU @2)!A")"@)"@)9}"@)"@)"A#)"@d_ AqDE UNPRINTABLESZ$(@>:,$GEWONE LETTERd nu -@9}@1(@>:@ ,5 I6-@f&@S @PuNA VEL 1,KLEINERE MARGE AAN TOP\#A%&(@9}>:@,:-@@>"\(8)ZEGT GR.+PAPIER 7 LIJNEN(@>:, p(@>:@,$ A9}p(15)MAAKT PAPER ADVANCE OK.NODIG ALS LT=80 ,ZODOENDE IS VOLGENDE REGEL OK-6-A#6. D:CHACGEN.LST- A9}.6-A $6.D:WRITEDAT.LST. A.6-A0$6.D:GETFNTPC.LST. A-6-A@#6. D:NULACHT.LS9}2- A.6-AP$6.D:SEIK8PRG.LST. A@@[@+@@9}6(@C(@Q6-%@[ @Pi` (PRINTER NOG NIET AAN!f(AVERGEET OOK NIET 'D:DATASEIK.LST',DIE9} MOET HIERBIJ GEENTERD ZIJN.i/%(OPGEGEVEN FILE NIET GEVONDEN./ @5lD:SEIKLIST.BASlPRINT EEN LISTING.EIGE9}N CHARACTERS ZIJN +1000 DATAREGELS.GEBRUIKT:DATASEIK.LST FILEONDEN./ @5lD:SEIKLIST.BASlPRINT EEN LISTING.EIGE8>0 REM "D:SEIKLIST.LST":REM PRINT EEN LISTING.EIGEN CHARACTERS ZIJN +1000 DATAREGELS.GEBRUIKT:DATASEIK.LS2 FILE5 REM OOK MOET=} TE LISTEN FILE,NAAR DE DISK GELIST ZIJN EN NIET GESAVED.7 TRAP 500:CLOSE #7:OPEN #7,8,0,"P:":DIM F$(15)10 ? "Doe papier in=} printer.Het 1e vel zal een extra topmarge hebben.Die moet je opgeven,je vindt hem zo:"20 ? "Een vel heeft 22 gaatjes,boven =}het 1e en onder het laatste gat past 1 regel.Tussen gaten passen 2 en bij ";25 ? " een gat is ook een regel.Tel de regels bo=}ven het zwarte lint op deze wijze ,geef dit op als 'marge'."30 TRAP 502:? "Geef in en druk op return";:INPUT M:REGEL=6=}4-M:? CHR$(125)35 TRAP 501:? "Geef de naam van de te listen file":INPUT F$:TR=40545 GOTO 49050 FOR I=1 TO REGEL55 FOR L=}T=1 TO 80:GET #2,A60 IF A=155 THEN ? #7;CHR$(20):LT=80:GOTO 110:REM LINEFEED 20+REGEL+1 DOOR 11065 IF A<32 OR A>122=} OR A=91 OR A=92 OR A=93 OR A=96 OR A=123 OR A=64 THEN GOTO 200:REM DE UNPRINTABLES90 ? #7;CHR$(A);:REM GEWONE LETTER10=}0 NEXT LT110 NEXT I:FOR PAGE=1 TO 8:? #7;CHR$(20):NEXT PAGE:REGEL=66-8:GOTO 50:REM NA VEL 1,KLEINERE MARGE AAN TOP200 RES=}TORE 1000+A:? #7;CHR$(8);:FOR CH=1 TO 6:READ DATA:REM (8)ZEGT GR.+PAPIER 7 LIJNEN205 ? #7;CHR$(DATA);:NEXT CH210 ? #7;CHR=}$(15);:GOTO 100:REM (15)MAAKT PAPER ADVANCE OK.NODIG ALS LT=80 ,ZODOENDE IS VOLGENDE REGEL OK400 TR=405:F$="D:DATASEIK.LST":=}GOTO 490405 TR=410:F$="D:SEIKLIST.LST":GOTO 490410 TR=415:F$="D:CHACGEN.LST":GOTO 490415 TR=420:F$="D:GR8TOPR.PRC":GOTO 49=}0420 TR=425:F$="D:LSTPRNT8.LST":GOTO 490425 TR=430:F$="D:GETFONT.PRC":GOTO 490430 TR=435:F$="D:INVERT.PRC":GOTO 490435 TR=}=440:F$="D:WRITE.PRC":GOTO 490440 TR=445:F$="D:NULACHT.PRC":GOTO 490445 TR=450:F$="D:BINDEMO.LST":GOTO 490450 TR=455:F$="D=}:SHADING.LST":GOTO 490455 TR=480:F$="D:SEIKDEMO.LST":GOTO 490480 CLOSE #2:CLOSE #7:END 490 TRAP TR:CLOSE #2:OPEN #2,4,0,F$=}:? #7:? #7;F$:REGEL=REGEL-1-I:GOTO 50:REM VERVANG TR DOOR 480 BIJ ENKELE FILE .500 CLS :? "PRINTER NOG NIET AAN!":? "VERGEET=} OOK NIET 'D:DATASEIK.LST',DIE MOET HIERBIJ GEENTERD ZIJN.":END 501 ? "OPGEGEVEN FILE NIET GEVONDEN.":GOTO 35502 ? "EEN GET=}AL INGEVEN":GOTO 30K.LST',DIE MOET HIERBIJ GEENTERD ZIJN.":END 501 ? "OPGEGEVEN FILE NIET GEVONDEN.":GOTO 35502 ? "EEN GET<P:                   A}                          A}        De Seikosha GP100-AT & de ATARI 1029 (resp.100AT & 1029) hebben een beperkte set tekens.A}PAGE 6 gaf voor de 1029 een eigen 'FONT'(tekenset)om op herkenbare wijze ook de rest van de ATASCI tekens te drukken.Dat FONTA} heb ik omgezet en naar mijn smaak gewijzigd,voor de 100-AT.Toen heb ik meteen maar een serie turbo-basic routines gemaakt,dA}ie bij elkaar te voegen zijn door ze na elkaar te enteren,omdat ze geen overlappende regelnummers hebben,behalve voor de PROCA} INIT.Daar wordt gedimensioneerd.Regel 4 is steeds EXEC INIT,en PROC INIT=21200,ENDPROC=21299,daar tussen heeft ieder programA} zijn eigen regels.Hieronder volgen dan de titels,met daarna tussen () de regelnummers.Programma's P1 t/m P4 zijn echt voor A}de 100-AT.DE REST IS BRUIKBAAR VOOR IEDEREEN!P1=DATASEIK.LST(1000,1255).Regelnummer-1000,correspondeert met ATASCI waarde v/A}h teken (1000=hartjes);regels voor normale letters(onnodig) zijn overgeslagen.P2=SEIKLIST.LST(0-502).Enter met P1.Haalt 1 ofA} meer GELISTE files van disk en print ze achter elkaar met titel op kettingformulier,slaat 4 regels over boven en onderaan blA}ad.P3=CHACGEN.LST(4,500-695,21200-21299).CHAraCterGENerator.Enter met P1.Toont op 5x7 veld de afb.van P1,daarnaast uit P1,deA}zelde afb.invers,dwz. van de 128 hogere of lagere.(als die er niet is dan komt dus een ander plaatje.).Daarnaast pl.3,het invA}erse van pl.1,gemaakt adh.van pl.1 kan dus van pl.2 verschillen.Dit maakt controle en vergelijk mogelijk.Dan pl.4,een 8x8 weeA}rgave van het ATASCI character.Door met de cursor pl.1 te veranderen en dan de cursor op CONT te zetten en RETURN te geven woA}rdt het gewijzigde pl.1 afgetast,een nieuwe dataregel gemaakt en nieuwe pl.1 getoond.Zet weer cursor op CONT en geef RETURN eA}n de nieuwe dataregel wordt geenterd.P4=GR8TOPR.PRC(20000-20220)+(20230-20260=PROC HARDCOPY).GR.8-TO-PRinter=de Seikosha graA}phics 8+16 screendump,uit de handleiding.N.B.er passen 3 schermen(7.7hx13.7b) onder elkaar op een vel(66 regels, 28hx21b)DezeA} ML.routine kan met andere 'botsen' dus bij gebruik steeds 'vers' gebruiken dwz.doe vlak voor het printen pas EXEC GR8TOPR :EA}XEC HARDCOPY.P5=LSTPRNT8.LST(4,0-710,21200-21299).'LiST-direct naar-PRiNTer-via gr.8+16' .Dus enter ook P4.Haalt geliste filA}e direct van disk,plot op gr.24 en wel in dat FONT dat peek 765 aanwijst!(zie P6)P6=GETFONT.PRC(4,21000-21050,21200-21299 ).A}Haalt een FONT van de disk en verwijst via 765 daar naar.P7=INVERT.PRC(30230-30260).Veel FONTS zijn enkelvoudig,dwz ze hebbeA}n geen inverse tekens.Deze procedure schakelt het FONT waar 765 naar verwijst in zijn inverse.Dus als het al invers was,dan wA}eer naar gewoon!P8=WRITE.PRC(4,21200-21299,21300-21320 PROC SCREEN,30000,30015).Een ML. routine uit ATARI USER.U moet ivm. eA}vt. andere ML. routines in't geheugen eerst EXEC WRITE doen,en zolang er dan geen andere ML's zijn kunt U meerder EXEC SCREENA}'s doen.De aanroep EXEC SCREEN geeft deze opdracht, Q=USR(ADR(WRITE$),X,Y,PEN,PAPER,XSIZE,YSIZE,ADR(TXT$),LEN(TXT$)WRITE wA}erkt in alle graphics.Op het moment van de aanroep,schrijft hij op de resp.X & Y pos.in de kleur PEN en op de achtergrong PAPA}ER,het aantal letters van TXT$, dat LEN(TXT$) aangeeft,horizontaal vergroot met XSIZE,vert.vergroot met YSIZE(alleen even getA}allen).Inverse letters doet U door voor EXEC SCREEN, eerst EXEC INVERS te doen.P9=NULACHT.PRC(4,7000-7110,21200-21299).Stel A}U wilt GR.0 plaatjes printen. Zorg dat P4 & P9 geenterd zijn,met IF..THEN EXEC NULACHT:EXEC GR8TOPR:EXEC HARDCOPY wordt het gA}eprint.P10=BINDEMO.LST(1500-1700).Demonstratie van de TURBOBASIC functies*!*AND*EXOR.5 plaatjes tonen resp.*ASCI A*ASCI B(B=A}A+1)*A!B*AEXORB *A&B*.Dit demo geeft inzicht in hoe 1.bewegende plaatjes met veranderde charactersets werken,2.hoe je in grapA}hics,vooral in 8 vlakken vult of letters uitholt en dan vult met een raster patroon dat een andere kleur nuance geeft.De toepA}assing ziet U in de volgende P11 & P12.P11=SHADING.LST(10-200).De opbouw van een plaatje als instructie demoP12=SEIKDEMO.LSA}T(4+5,25000-25450).Dit toont de toepassing van div.P's.Pas op U heeft ruimte nodig op Uw disk want om rasterplaatjes te makenA} ,worden hulpplaatjes gemaakt. Bv. een grote letter in grijs met witte rand wordt zoals afgebeeld, wordt net als in een drukkA}erij in diverse drukgangen gemaakt.Maar met deze programma's heeft U een eigen drukkerij.TIP-TIP Volgens zeggen moet de inktA} van printers met naalden zoals de 100-AT en de 1029 smerend zijn.Ik heb in Breda bij ATLAS voor 12,45 TEKOSIL No.4734 gekochA}t een vettige inkt,mijn lint is weer als nieuw(ca.1% tube gebruikt).Pelikan heeft linten type Gr.681(ATLAS 19,75).Een keukenrA}olhouder (Marskramer 12,95) gebruik ik om mijn papier op te rollen,de printer past er evt.op,ik doe mijn TV erop,dan steekt hA}ij net boven de printer uit.Een Atariaan in Groningen had moeite met op de 1029 chemische formules te printen.WRITE PRC en/ofA} aangepaste tekens (PAGE 6),waarbij je de dataregels voor de inverse NUMMERS zelf hervormd tot kleine,niet-inverse nummers,ziA}jn de oplossing.Overigens,mijn data uit DATASEIK.LST kunnen met 10 regelig program naar 1029 data omgezet.VRAGEN?TLF.076-875A}985 WIM.WALRAVEN.rigens,mijn data uit DATASEIK.LST kunnen met 10 regelig program naar 1029 data omgezet.VRAGEN?TLF.076-875@De Seikosha GP100-AT & de ATARI 1029 (resp.100AT & 1029) hebben een beperkte set tekens.PAGE 6 gaf voor de 1029 een eigen 'FOE}NT'(tekenset)om op herkenbare wijze ook de rest van de ATASCI tekens te drukken.Dat FONT heb ik omgezet en naar mijn smaak geE}wijzigd,voor de 100-AT.Toen heb ik meteen maar een serie turbo-basic routines gemaakt,die bij elkaar te voegen zijn door ze E}na elkaar te enteren,omdat ze geen overlappende regelnummers hebben,behalve voor de PROC INIT.Daar wordt gedimensioneerd.RegeE}l 4 is steeds EXEC INIT,en PROC INIT=21200,ENDPROC=21299,daar tussen heeft ieder program zijn eigen regels.Hieronder volgen dE}an de titels,met daarna tussen () de regelnummers.Programma's P1 t/m P4 zijn echt voor de 100-AT.DE REST IS BRUIKBAAR VOOR IE}EDEREEN!P1=DATASEIK.LST(1000,1255).Regelnummer-1000,correspondeert met ATASCI waarde v/h teken (1000=hartjes);regels voor noE}rmale letters(onnodig) zijn overgeslagen.P2=SEIKLIST.LST(0-502).Enter met P1.Haalt 1 of meer GELISTE files van disk en printE} ze achter elkaar met titel op kettingformulier,slaat 4 regels over boven en onderaan blad.P3=CHACGEN.LST(4,500-695,21200-21E}299).CHAraCterGENerator.Enter met P1.Toont op 5x7 veld de afb.van P1,daarnaast uit P1,dezelde afb.invers,dwz. van de 128 hogeE}re of lagere.(als die er niet is dan komt dus een ander plaatje.).Daarnaast pl.3,het inverse van pl.1,gemaakt adh.van pl.1 kaE}n dus van pl.2 verschillen.Dit maakt controle en vergelijk mogelijk.Dan pl.4,een 8x8 weergave van het ATASCI character.Door mE}et de cursor pl.1 te veranderen en dan de cursor op CONT te zetten en RETURN te geven wordt het gewijzigde pl.1 afgetast,een E}nieuwe dataregel gemaakt en nieuwe pl.1 getoond.Zet weer cursor op CONT en geef RETURN en de nieuwe dataregel wordt geenterd.E}P4=GR8TOPR.PRC(20000-20220)+(20230-20260=PROC HARDCOPY).GR.8-TO-PRinter=de Seikosha graphics 8+16 screendump,uit de handleidE}ing.N.B.er passen 3 schermen(7.7hx13.7b) onder elkaar op een vel(66 regels, 28hx21b)Deze ML.routine kan met andere 'botsen' dE}us bij gebruik steeds 'vers' gebruiken dwz.doe vlak voor het printen pas EXEC GR8TOPR :EXEC HARDCOPY.P5=LSTPRNT8.LST(4,0-710E},21200-21299).'LiST-direct naar-PRiNTer-via gr.8+16' .Dus enter ook P4.Haalt geliste file direct van disk,plot op gr.24 en weE}l in dat FONT dat peek 765 aanwijst!(zie P6)P6=GETFONT.PRC(4,21000-21050,21200-21299 ).Haalt een FONT van de disk en verwijsE}t via 765 daar naar.P7=INVERT.PRC(30230-30260).Veel FONTS zijn enkelvoudig,dwz ze hebben geen inverse tekens.Deze procedure E}schakelt het FONT waar 765 naar verwijst in zijn inverse.Dus als het al invers was,dan weer naar gewoon!P8=WRITE.PRC(4,21200E}-21299,21300-21320 PROC SCREEN,30000,30015).Een ML. routine uit ATARI USER.U moet ivm. evt. andere ML. routines in't geheugenE} eerst EXEC WRITE doen,en zolang er dan geen andere ML's zijn kunt U meerder EXEC SCREEN's doen.De aanroep EXEC SCREEN geeftE} deze opdracht, Q=USR(ADR(WRITE$),X,Y,PEN,PAPER,XSIZE,YSIZE,ADR(TXT$),LEN(TXT$)WRITE werkt in alle graphics.Op het moment vE}an de aanroep,schrijft hij op de resp.X & Y pos.in de kleur PEN en op de achtergrong PAPER,het aantal letters van TXT$, dat LE}EN(TXT$) aangeeft,horizontaal vergroot met XSIZE,vert.vergroot met YSIZE(alleen even getallen).Inverse letters doet U door voE}or EXEC SCREEN, eerst EXEC INVERS te doen.P9=NULACHT.PRC(4,7000-7110,21200-21299).Stel U wilt GR.0 plaatjes printen. Zorg daE}t P4 & P9 geenterd zijn,met IF..THEN EXEC NULACHT:EXEC GR8TOPR:EXEC HARDCOPY wordt het geprint.P10=BINDEMO.LST(1500-1700).DeE}monstratie van de TURBOBASIC functies*!*AND*EXOR.5 plaatjes tonen resp.*ASCI A*ASCI B(B=A+1)*A!B*AEXORB *A&B*.Dit demo geeft E}inzicht in hoe 1.bewegende plaatjes met veranderde charactersets werken,2.hoe je in graphics,vooral in 8 vlakken vult of lettE}ers uitholt en dan vult met een raster patroon dat een andere kleur nuance geeft.De toepassing ziet U in de volgende P11 & P1E}2.P11=SHADING.LST(10-200).De opbouw van een plaatje als instructie demoP12=SEIKDEMO.LST(4+5,25000-25450).Dit toont de toepaE}ssing van div.P's.Pas op U heeft ruimte nodig op Uw disk want om rasterplaatjes te maken ,worden hulpplaatjes gemaakt. Bv. eeE}n grote letter in grijs met witte rand wordt zoals afgebeeld, wordt net als in een drukkerij in diverse drukgangen gemaakt.MaE}ar met deze programma's heeft U een eigen drukkerij.TIP-TIP Volgens zeggen moet de inkt van printers met naalden zoals de 10E}0-AT en de 1029 smerend zijn.Ik heb in Breda bij ATLAS voor 12,45 TEKOSIL No.4734 gekocht een vettige inkt,mijn lint is weer E}als nieuw(ca.1% tube gebruikt).Pelikan heeft linten type Gr.681(ATLAS 19,75).Een keukenrolhouder (Marskramer 12,95) gebruik iE}k om mijn papier op te rollen,de printer past er evt.op,ik doe mijn TV erop,dan steekt hij net boven de printer uit.Een AtariE}aan in Groningen had moeite met op de 1029 chemische formules te printen.WRITE PRC en/of aangepaste tekens (PAGE 6),waarbij jE}e de dataregels voor de inverse NUMMERS zelf hervormd tot kleine,niet-inverse nummers,zijn de oplossing.Overigens,mijn data uE}it DATASEIK.LST kunnen met 10 regelig program naar 1029 data omgezet.VRAGEN?TLF.076-875985 WIM.WALRAVEN.gens,mijn data uDm10 GRAPHICS 24:SC=DPEEK(88)20 FOR I=1 TO 6:READ A,B:GOSUB 120:NEXT I30 FOR I=1 TO 2:READ A,B,C:GOSUB 140:NEXT I40 FOR I=1 I}TO 3:READ A,B,C,D:GOSUB 142:NEXT I60 COLOR 1:FOR X=152 TO 160:PLOT X,0:DRAWTO X,178:NEXT X70 COLOR 0:FOR X=161 TO 169:PLOT I}X,0:DRAWTO X,178:NEXT X75 GOSUB 20080 SC=DPEEK(88):FOR I=0 TO 7679:A=SC+I:POKE A,PEEK(A) EXOR 255:NEXT I85 GOSUB 200100 GI}OTO 100120 FOR X=0 TO 39:FOR Y=0 TO 16 STEP 2:POKE SC+X+Y*40,A:POKE SC+X+Y*40+40,B130 NEXT Y:NEXT X:SC=SC+X+Y*40-40:RETURI}N 140 FOR X=0 TO 39:FOR Y=0 TO 14 STEP 3:POKE SC+X+Y*40,A:POKE SC+X+Y*40+40,B:POKE SC+X+Y*40+80,C141 NEXT Y:NEXT X:SC=SC+I}X+Y*40-80:RETURN 142 FOR X=0 TO 39:FOR Y=0 TO 15 STEP 4:Z=Y*40:POKE SC+X+Z,A:POKE SC+X+Z+40,B:POKE SC+X+Z+80,C:POKE SC+X+Z+1I}20,D143 NEXT Y:NEXT X:SC=SC+X+Y*40-120:RETURN 150 DATA 136,34,153,102,170,85,119,221,170,170,136,136160 DATA 146,36,73,1I}70,85,85170 DATA 136,68,34,17,17,34,68,136,136,0,34,0200 C8=PEEK(623):POKE 623,64:PAUSE 100:POKE 623,128:PAUSE 100:POKE 623I},192:PAUSE 100:POKE 623,C8:RETURN 4,68,136,136,0,34,0200 C8=PEEK(623):POKE 623,64:PAUSE 100:POKE 623,128:PAUSE 100:POKE 623H#0 REM D:SKNAARAT.LST5 TRAP 1510 ? "ENTER EERST D:DATASEIK.LST.":? "DAN WEER'RUN'OPDRACHT GEVEN":READ A:RESTORE 1000:GOTO 20M}15 STOP 20 DIM A$(7),L$(38),ALF$(1200)30 CLOSE #3:GRAPHICS 8:SC=DPEEK(88):TRAP 11040 FOR J=1 TO 650 READ Z:POKE SC,Z6N}0 FOR I=0 TO 7:LOCATE I,0,A70 COLOR A:PLOT 8-I,180 NEXT I:Z=PEEK(SC+40):A$(J,J)=CHR$(Z)85 NEXT J90 ALF$(LEN(ALF$)N}+1)=A$100 GOTO 40110 CLOSE #3:OPEN #3,4,0,"D:DATASEIK.LST":GRAPHICS 0:I=0:TRAP 145115 ? CHR$(125):INPUT #3;L$:POSITION 2,1N}0:? L$:P=I*6+1120 POSITION 12,10:FOR J=P TO P+5:? ASC(ALF$(J,J));",";:NEXT J:? CHR$(126);CHR$(32);CHR$(32)130 POSITION 3,13N}:? "CONT":POSITION 0,0:POKE 842,13:STOP 140 POKE 842,12:I=I+1:GOTO 115145 CLOSE #3146 REM EVT.HIER EERST DATAREGELS BEZIENN} EN DAN MET'GOTO 150'DOORGAAN150 LIST "D:DATA1029.LST",1000,1255160 END CLOSE #3146 REM EVT.HIER EERST DATAREGELS BEZIENLK4 EXEC INIT21200 PROC INIT21210 DIM PICNAME$(14),WRITE$(340),TXT$(120):PAPER=0:PEN=121299 ENDPROC 21300 PROC SCREEN213R}10 Q=USR(ADR(WRITE$),X,Y,PEN,PAPER,XSIZE,YSIZE,ADR(TXT$),LEN(TXT$))21320 ENDPROC 30000 PROC WRITE30001 RESTORE 30000:FR}OR J=1 TO 340:READ A:WRITE$(J)=CHR$(A):NEXT J30002 DATA 169,0,141,255,6,104,201,8,240,14,160,1,10,170,240,4,104,202,200,25R}2,140,255,6,96,160,141,104,14130003 DATA 243,6,104,141,242,6,104,240,4,169,13,208,228,104,141,244,6,104,104,141,245,6,104,R }104,141,146,630004 DATA 104,240,4,169,7,208,207,104,141,247,6,104,240,4,169,5,208,196,104,208,5,168,169,4,208,188,141,248R }30005 DATA 6,104,133,206,104,133,205,104,141,249,6,104,141,250,6,173,244,6,141,252,6,173,249,6,13,250,6,20830006 DATA 1,R }96,169,255,141,251,6,173,250,6,56,233,1,141,250,6,176,3,206,249,6,160,0,177,205,10,144,3,14030007 DATA 252,6,74,201,96,176R },10,201,32,144,4,233,32,176,2,105,64,172,244,2,132,204,162,3,10,144,8,72,13830008 DATA 24,101,204,133,204,104,202,208,242,R }133,203,160,0,152,72,173,242,6,141,253,6,173,243,6,141,254,630009 DATA 173,252,6,141,241,6,177,203,77,251,6,162,8,240,143,R}10,72,169,0,208,221,42,168,185,245,6,141,25130010 DATA 2,138,72,24,173,253,6,133,85,109,247,6,141,253,6,173,254,6,133,86,1R}05,0,141,254,6,172,248,6,16230011 DATA 2,189,252,6,149,90,202,16,248,133,84,152,72,162,96,169,17,157,66,3,240,190,32,86,22R}8,48,52,23830012 DATA 252,6,104,168,136,208,220,104,170,104,202,240,9,172,241,6,140,252,6,24,144,164,104,168,200,19230013R} DATA 8,208,161,230,205,208,2,230,206,173,253,6,141,242,6,173,254,6,141,243,6,169,0,240,197,140,255,630014 DATA 104,104,R}104,104,9630015 ENDPROC 208,2,230,206,173,253,6,141,242,6,173,254,6,141,243,6,169,0,240,197,140,255,630014 DATA 104,104,P/