L}6CD l0C)HCC WhL/h `CmCDiD`  R@P1  Y0,0'@R !L` ` C D     )16CS )  C)D1 p p 0 C9DI pCDL~CiCDiD` ` C D     )16CS )  C)D1 p p }0 C9DI pCDL~CiCDiD` DD˙`  J)L !}D L(( LL()  L| L( S LH 0p n  } CY?  q  L L  ` )} `A! d߰")-݆ "  $G@LLLI $j") $G% }H 3S8`G ȱG ȱG   Gȭ Gȭ GG}GHiH8(()) G$H% `(0 })8` d)L ݆  LGȘ ݆LL d  ! LL d)N>Q  HH) }  hyhyB q L> Lm JJ  Ln*` sB%' }8  H H` 1 { LL   !L     Hh SY?  q  1L }  !? S   q L   Ll  Lg E`L   !L)  q 1L}) `L0AM݊L݉ ML  N݆LLLNLMLHG!@}1F GȱGLLEEȩÑEȑEEȑE Ed E7EȩE  q} L !,0,0SGɛ L 1 !L EHEh W G gLLSROTCES EERF } G) *Gȩ GȽG GȌd q q G`  8   0G  `D}CEDC0X:Ȣ Y ȱC* ? 0.. , 0%n ?L[ 0 : L`L  `, 0`Y}`piH n0)բY? 08`0 }  0$L GGȽG L `8L`L}8`  05G)݁,G)ȱGȱGHh0})Hh` B! 8`8iiiLE`}E8FEh( l0`ɃLL L8^~jj8jHi hEEEiEȱEiE` dTE} H8EEȱEEȩEh J E8   . m  i`LI!)E1FR}1LJ舩9GIH`LJJ`HGHh l`} S gL   8 rii `дCDCG W  }C  Lq` X٨`DOS SYS IIIIIIIIIIIIIIIC`0 ߩ0}}}: HE DDOS DOSDOS SYS B%LLd}}}CDOS SYS} 0`BDELV !B }`LVH! hLd` l`0 ` T0΀LN@Ԡ  Ȍ Y }`EڅکEۅۥI٩LY 0 ) `SLSAL=L? n L  ɐ   B!}jbi  a0^^^4WTU@i kL QLcba ac`D1:*.AR4 h"}֍BJ V`06 2N- 2Gfgde,h0 h 0! H# ``֍ *`,#}i0  ,ip L,i0 LllfDEHIBLV `8`fg`dDeEf8dHgeIH$}Igefd`  b @iLjL:L:DELkE:D1:DUP.SYSc`B` nBDE%} J V 0 ` BLV  ;HLL}\0_h̅΅ύ`ͭ BIӎIӭ  ]; ] ;] \W ] '}\ )ISӢ0 )I3 ]Ӎ ;]ii \BIӎI` (}`̢ Ӑ) ]` #] #]` Ӑ) ]`H8h*H ]h`ii)}`ii`8`II`II`*}h̆Ύ`ͩϩ ˡ΁̡ii`+},}h̩`ͩ@˩̡` ]; ] ;] \W ] IN}N)!E`˽̆͠ ˙ANLENNFNAN`G.mN0 mNnN`ͥ˝̝`TLN.1MORP.}E:D"NURN!E`˽̆͠ ˙ANLENNFNAN`G.mN0 mNnN`ͥ˝̝`TLN.1MORP \0_h̅΅ύ`ͭ BIӎIӭ  ]; ] ;] \W ] 0}\ )ISӢ0 )I3 ]Ӎ ;]ii \BIӎI`  1}`̢ Ӑ) ]` #] #]` Ӑ) ]`H8h*H ]h`ii 2}`ii`8`II`II` 3}h̆Ύ`ͩϩ ˡ΁̡ii` 4} 5}h̩`ͩ@˩̡` ]; ] ;] \W ] Icdt800B67}@!AyB$B3(Bh  @ ? 8}_% 9}!A CCPROGRAMMA VOOR PROGRAMMEREN/UITLEZEN EPROMS ŠΠhhRAMTOP=22528,DL=21536,EXTRA DL=23328=RAMTO:}P+800 IVM BYTES GECLEARED BOVEN RAMTOP BIJ CLEAR SCREEN.--EERSTE VRIJE BYTE VOOR ML=23378 ($5B52)(GG;@,;@;},;@,;@2,;@2,;@7,2 AdSUBROUTINE RETURNn@-@@#@(%ˠ<}Π͠ҠŠΠx;#@@K:0)@;@AUA $SUBROUTIN=}E ESC REGEL."@ A0B-@@!?(%ˠΠ͠ҠŠΠB(@-@@#>}@(%ˠŠҠՠ;#@@K:0)@;@!!@'*AU?}A@!!"@*"AUA@6-$,SUBROUTINE DISK6b.("Geef naam van te lezen diskfil@}e X(%(3 tot 8 letters ; extender!)b A0@Y/('Geef naam voor te schrijven diskfile Y(%(3 tot 8 letters ;A} extender!)J[AR6.+67@,.:67@,.Q6.7@<@,W([T9AR@B}6-B:,* @66-@9$^_67@<@,.D1:-67@,.M67@%<@%,..INH_67@C}%,.hCAR@9(File  wordt gelezen.C Ar&&(File  wordt geschreven.|W AD}@@?@@&@$B(E(W( Bezig.......6-@@()@, 6 E}A d*@AU)*@AU:6-P:'AV,J6-&$AVW*@d*@>6-P:'AVF},$6-&$AV1*@>*@= A=F:A,@*F:A,@A@B B@G}$(Klaar !'(36-@?6-B$8(*(Fout F:A, bij file -(8@*-@AH} '6-@*$CIO SUBROUTINE,FILE#2?6-A46-A6'6-A@36-A5?6-@2O 6.hhh%6I}7@,.>:Ap,767@,.LVO67@,.>:A(,<6-P:'AV,$6-&$AV,%<%%@J}N6-+&,%@&6-P:'AV,66-&$AV>%N%%@&/%@&@$/6-?:C:,<@2,0K}AF:%,$XFORMATTEREN DISKb..(&Moet deze disk geformatteerd (J/N) ?l;#@@K:L}0)@;@v!!@t*@xA 7"@x4( Disk wordt niet geformatteerd.7$**("DrukM} ؠ om disk te formatteren.;#@@K:0)@;@@A`{((BezigN} disk te formatteren....QAT@D1:^( Klaar !x(Disk geformatteerd.{$SUBROUTINE O}INLADEN MLZ AP@5@@I-@@V)@Z J)@ 6-%AP}V$-)@:)@J6-%AV$I6-@ AIF:A,@*F:A,@AQ}" B@6."$N!( Ԡ F:A,$(9( ʠŠ D@N A CONTROLE LR}EEG ZIJN EPROM* A8 WRITEFLG4 A9@ MODEFLAG>DA6@+"@)"@=S}A6@DKCNTHF$(Eprom wordt gecontroleerd.7( Bezig......F6-?:B5R,R_(Klaar !16-F:AC,%AT}V$F:AD,=_( Adres(sen) niet leeg.\4"4( Alle adressen eprom zijn leeg.f$!!U}CONTROLE CORRECT ZIJN EPROM A8 WRITEFLG A9@ MODEFLAG:A6@!"@V}3A6@:KCNT&(( Bezig......&6-?:B5R,i(Klaar !16-F:AA,%AV$F:AB,=iW}( Adres(sen) fout geprogrammeerd.7"7(#Alle adressen eprom zijn correct.$EXTRA D.LIST[X}A@+A6-F:A`,%AV$F:Aa,O6-%A[6-KA@'AAPY}9A@KAR@!-%@ "! !!96,71,42,91,48,6,16,1,35,847-@9Z}"+%@%36-%7 $==0,10,0,37,48,50,47,45,0,48,50,47,39,50,33,45,45,33,0,10.<<0,8,35,9,0,48,14,55,33,44[},39,50,37,37,46,0,17,25,24,2187@#%@@27%@@BAy MENUO(>:A%\},"-@O('%%6-F:@,%AV$F:@,3#-%@A%A]}A@@/A$3 3#-%@y%Ay@@/A$3 B-@@"B('^} T67@,.>:@2,367@2,.>:@2,B67@,.H6.T6-@! 6.!67<%@_},. ->  b-@@?(%ŠҠŠQ-@@_( ͠ŠΠՠb(*;8(7@`}<@, AANWIJZINGEN VOOR GEBRUIK;(4Y4(7@<@, UITLEZEN 8K CARTRIDGE7(Y2a}>85(7@ <@, UITLEZEN 16K CARTRIDGE8(H63(7@<@, UITLEZEN EPROM 27646(R63(b}7@<@ , UITLEZEN EPROM 271286(\:7(7@!<@$, PROGRAMMEREN EPROM 2764:(f:7(7@%<@(c}, PROGRAMMEREN EPROM 27128:(p1.(7@)<@2, EINDE PROGRAMMA1(z..(%ӠԠΠΠd}Π;#@@K:0)@;@-#AU*@a*@E- A!"AUe} A"@5"@E6-&@)@56-@5"@a6-%@)@)56-@)/%2f}@@@@/ A p_6-+%@,'@_A0A@A@APAPA`A`g}Ap AANWIJZINGEN @(>:A%,<6.%ΠҠˠ@( hh(`Dit programma maakt heth} mogelijk de eprom's 2764 en 27128 uit te lezen en te programmeren. JJ(BHiervoor moeten de programmer en een diskdri}ive zijn aangesloten. mm(eOok kunnen cartridges worden gelezen. Hiervoor moet een speciaal verleng- kaartje worden gebrj}uikt. RR(JBij het lezen formatteert het program-ma zonodig een disk en maakt van de ++(#eprom of de cartridge een diskk}file. QQ(IBij het programmeren copieert het pro-gramma een diskfile naar de eprom. //('Programma gebruikt buffer van l}24K-40K. A (>:A%,((& P&( ŠˠP(%Zowel computer als programmer mogenm}0 PP(Hnooit worden in- of uitgeschakeld als er een eprom in de programmer zit.: MM(EAls men zich hier niet aan houdt, n} geeft dit fouten in de eprom.D \\(THierbij is het niet belangrijk of de eprom wordt geprogrammeerd of uitge- lezen !lo} #6-@ A# A CARTRIDGE@(>:A%,<6.%ΠŠ@(??(71. p}Programmer hoeft nog niet te zijn aangesloten.\(2. Zet computer uit.\(:3. Plaats het verlengprintje met daar- q} op de cartridge.W8(04. Schakelaar op printje in onderste stand.W(5. Zet computer weer aan.,,($6. Run opnier}uw het eprom programma. A"@'A (>:A%,( (Cartridge uitgelezen !.6-?:B@s}d,.COPIEERROUTINE MET VERIFY"9%6-F:AA,%AV$F:AB,9AA ,//('Doe disk bestemd voor filet} in drive 16 AFORMATTEREN@ AJ(>:A%,(T"@AC^S6-6-BEv'6u}-B'g1 A="@I6-S AAph6-@ Ar A (>:A%,(CC(;Zet sv}chakelaar op verlengprintje in de bovenste stand.S6-6-BEv'6-B Y1 A="@I6-w}S AAp6-@ A A UITLEZEN EPROM'S@(>:A%,<6.%ΠͧӠx}@(SS(KN.B. Verlengprintje mag niet zijn aangesloten op cartridgeconnector!l/('y}J(1. Zet computer uit.l(2. Verwijder verlengprintje.G"(3. Zet computer weer aan.G( 4. Start hz}et programma opnieuw.! A!"@'A U(>:A%,(U(<1. Zorg er voor dat er geen eprom in de p{}rogrammer zit.SS(K2. Sluit programmer aan op het net en de joystickports van de computer.NN(F3. Schakel de progr|}ammer in. Alleen het gele lampje mag branden.//('[8(01. Geef reset en ve}}rwijder eventuele eprom.[(2. Run het programma opnieuw.! A!"@'A (>:A%,(==(5~}Plaats nu de uit te lezen eprom in programmer.! A!"@'A (>:A%,(//('Wilt U che}ck of eprom leeg is (J/N) ?;#@@K:0)@;@ !!@t*@xAQ I}"@x5(!Eprom wordt niet gecontroleerd.? AI ARQ A"%6-@D(Verder uitleze}n zinloos.QEPROM LEEG( A2"@'A P(>:A%,(Z//('Doe disk bestemd voor file in drive }1d AFORMATTEREN6-?:BC ,MEMCLEANMA6@!"@3A6@MKCNT,AANTAL KB}YTE EPROM A8 WRITEFLG A9 MODEFLAG A(>:A%,(D'(Bezig epr}om uit te lezen....66-?:B5R,D( Klaar !?6-6-BEv'6-B'g3"@?6-B Y/ A}"@%6-/ AS6-@ A A pEPROM SCHRIJVENu@(>:A%,<6.%}ΠͧӠ@(zSS(KN.B. Verlengprintje mag niet zijn aangesloten op cartridgeconnector!l/('}J(1. Zet computer uit.l(2. Verwijder verlengprintje.G"(3. Zet computer we}er aan.G( 4. Start het programma opnieuw.! A!"@'A U(>:A%,(U(<1. Zorg er voor dat er} geen eprom in de programmer zit.SS(K2. Sluit programmer aan op het net en de joystickports van de computer.NN}(F3. Schakel de programmer in. Alleen het gele lampje mag branden.//('[8}(01. Geef reset en verwijder eventuele eprom.[(2. Run het programma opnieuw.! A!"@'A (}>:A%,(==(5Plaats nu de te programmeren eprom in programmer.! A!"@'A (>:A%,}(6,($Programma checkt of eprom leeg is.6 AB,(Programmering zinloos.86-@B Aa@}%%(Programmering kan doorgaan.! A!"@'A "@ Ab`8(>:A%,(B6-?:B}C ,MEMCLEANL//('Doe disk waarop file staat in drive 1V?6-@6-BEv'6-B'g3"@?6-B Y}`/ A"@%6-/ Abj At A8@ WRITEFLG~ A9@ MODEFLA}G:A6@!"@3A6@:KCNTR6-(>:A%, (.(Eprom :6-A'dF"@}R6-Bq(O(&( wordt nu geprogrammeerd.O($Dit duurt ongeveer 70 sec voor 8K.0( Bezig.....$6-?:B}5R,0(Klaar ! A(>:A%,( 00((Programma checkt inhoud epromadressen.8 A 8(&Verwi}jder eprom en plak venster af.SS(KPlaats nieuwe eprom als U van het ge- laden programma nog een copie wilt.(# A}"@'# A 26-@ AaX_(>:A%,"-@@M(&РҠϠǠҠ͠͠ ŠŠɠΠĠɠǠĠ}_-@ @ }SC-F:A0,%F:A1,$AVF:A2,%F:A3,$AVOAUS d}3F:A8,%F:A9},$AV%@D D:EPROM1.NLTG B B6=`)Jf* ei`آ88)88g==)==TЍ})CUM1UM*H( M)( M) - 9 p) } w} b),P) )@h)@MS疊%) 0:` ` (,0# ) -}-))0ƌ }( zL L-E`() 0 z  L }9 }` < )`)=񖅌 LX) 񖅌`` MƲƱ}`` e e) L LLM LM毥x)I$   =}` 8`0Ii  u򩀅` ư0$0  -LM e}Ѝ,` ̖,0` $P,0b L,0$0SP F 0# } zL hz } L}󦘽L)`))ŀaŀ )ŀN)Ł@`.0 ɘ}߭Р8傘僐ǩ``AL NL CL EL ,P#,Pꩀ,P8j`hhL F ei} E@`H hL HHH hhh` G 0ҥ Ơм M,` `} `ƒ) uLPŒ LP  LM M$0 )L L F c,P+I},PI,),`) F­)Щ`z F,P,) ` b``} w,0 9`0` L M,` ` `ƒ uL` F cI,P'ȱI,}P,) `) F­)Ш` $0  ` )`ƒ` F c,P/Iљ2},PIљ,),`) Fо e)Й` b)0  ,P )|E}~ } `,,ҍ,P',P,P L,P,P,}P,P,P,P  j,PL - ,L) }` eƒLjNL,,,PV,PI ,P8,P'},PN2,P L[ ,P,P,PN,P ,P},P,P,P,Pȹj,P0(,PC N,P2LeN-} ,0) ` eƒ0LLP       Xn X 9`}LҖӖԖLLMN)ߍ)ߍ CL} e< M} XL,P  nI,Pei fIE` ]ei ])Jn*}J8*ꍂ`hh,0` ,0I` $pL ˍʖ˖Lʖ˖,0$0PNL]A ]}L󍁖'7LO ɛwC ڢLOȭ,.ɏɔɊ ɅЭѢˢŢп}й@г M$0 )L LAL[NL[EL[CL[ @` 8`0Ii  u򩀅` e} MưLL@ '`}( [Ƴ`' [ƍ`( Ƴ`' ƍ` j0:ȍ ))ƒ ))L }Lh` j0ȍ L 9K}~ L )Ѝ L L }2 X)z,0,魖L,,z zŭ,L F,P} e`8` l,0 l8``Ll }Le3241H9I L qL} ֽvM\k喢  񖸭h)@疍`},' ``  ` u3喝/)ߍ}! 8I  7 0 )ߍLQ LQ} ),0թ3} ,zHō")}|lML_3llʈ󩀍U u} F,P!I,0 ) L) `` `捥 3L '}C8逅 @,ɬ햆*'-C ~ yL70A k }L9238888ʈ y3 kE k C ƚ 3}8 L8) 8)l F k,P I ] 80L } kL󥍍`,0! 9  8` uLzō| 3[`ee8`}I -Bō;3i 88逅`- 0 LҖ88}8`Ѝ ,`3l8``8 i`Jjƚ0e` ' }זLז hihiH ֖ H)zh L!获iؖiM֖ٖh}ז HHٖؖʎH)h hh(L` LL2LL`RrS!"?$NHQvq˩ΚNzxxxxr}r{{wwvv LB& M lLB %ɕ)` M I-}I `-I -)@& )% M M$P } y w ` Lu(t{|w0y z{wC }8**啰&*Ȅ`02$8逅 >L2`-L} ƚ >떅얬i 閭,0<7 0*-Ʀ)}  y0lg0暠 > 4햍 '0"떅얅閄ƦL M } hLP떅얅 ƚ >햅' ,0p  3햍떅얅ꖩ i}ƚ񖅌햭0 i ꖝ8 LP M  LP M$}Phh `)pp,P,PZ,p ` ` b󩀅MA#B,0,00K `}5 $p" ,0$0 H ) еAУBП-񖅌` 향  '떥}얌L_ꖠ)W0RH0=H?90702-0 8LƖ FL B$}0  $0-喢ƚ `}H bh,0pݍ 9 u` 喩 0-  Ҏ$}`扥(`'!C0#lHmClhȭ  ة ~8ʈƍ``}       &4W7Lꅱ8 0 @0 @ @`Lz Lz z ֽv}L)?L~,P! ,0:p8 +3 L }8 `0l F,0p ',0 P:,L^IȱI,P! ]  i}0Р kLLLAl F,L> 'I,0 P7,L^2ȱI,P! ] } i0НL k ] H h`m z,PV,PeiꭂI@ f},P(,PeiꭂI@ fE@`H984WRPWS!"#$3241آ<8)<8s==})==`Ѝ)OUM=UM6H( )%( )q }- ) U ) L-E` L U` < )}`)=  ` )ߍ  I )` `) 0`` Ʋ}Ʊ`` = ) L L ` dL毥x)I$   }=` 8`0Ii  񩀅` ư$0  -L Ѝ},`,0` $p; $04P t ' n) $P t  n n)`) ŀO0}F!9) Р8傘僐 ``@`A $`N $`C $`E $`,P&,P8},P8j먦`hhL ,0` ` uiƒ U@`ui $ƒ $`}L􄱅-f -Ƴ `l -} 捰`8啅` )L ,` 1` K`ƒ/) LŒԩ  L`} },0 ` $0 ) z`  ` ,PI,),`) ѭ)л`}z ,P,) ` `` )` ,` 1` `ƒ L` I,P},) `) ѭ)л` $0 V )` i`ƒ` ,PI!},),`) ϭ )Ю` ) %L,P )襏I z ` -}$0 R )$L " ,0p` 1 iҎ$`扩(ō`,,},P',P,P LM,P,P,P󢃵,P }  ,PL- ,L)) ` ƒ0LiLB gL ")ߍ,0p}` 1 Ҏ$`扩(ō`N,,,PV,PI ,P8,P'},PN2,P L ,P,P,PN,P ,P},P󢃵,Pȹ0',PDN ,P3L'N- ,L) ` ƒ}0LL   0 `')  1$P } .0) Kƒ Kʩ`ƍ  n `   !'0# =L }L  )L)  g0{ R$0t E / # A  } 1  ƝЦƞL/ LM L' ƱƳ`' ƲƳ`'} .ƱƳ`' .ƲƳ`( 1`8` M M` ` `  0r 0i捥(}   0C`LLL8 i K*ƒ ) LL) 1 K@}`mL۠f`)# LS L))  }/ɀ@ i L ` $0  V$` w7 1 z,P!},|Ŏ08`` '`( MƳ`' Mƍ`( Ƴ`' ƍ` 1}0:ȍ i)ƒ i)L LZ` 10ȍ L }~} L )Ѝ )L w L 1 2 )z,0,魖L,,}z zŭ,L ,P `8` ,0 8`` < }LDaKWRPWS!"#$3241آ<8)<8s==)==`Ѝ)OU}M=UM6H( )%( )q - }) U ) L-E` L U` < )`)=}  ` )ߍ  I )` `) 0`` ƲƱ`` = }) L L ` dL毥x)I$   =` 8`0}Ii  񩀅` ư$0  -L Ѝ,`,0` $p}; $04P t ' n) $P t  n n)`) ŀO0F!9) Р}8傘僐 ``@`A $`N $`C $`E $`,P&,P8,P8j먦`hhL} ,0` ` uiƒ U@`ui $ƒ $`L􄱅-f} -Ƴ `l - 捰`8啅}` )L ,` 1` K`ƒ/) LŒԩ  L` },0 ` }$0 ) z`  ` ,PI,),`) ѭ)л`z ,P},) ` `` )` ,` 1` `ƒ L` I,P,) `)} ѭ)л` $0 V )` i`ƒ` ,PI!,),`) ϭ} )Ю` ) %L,P )襏I z ` -$0 R )$ }L " ,0p` 1 iҎ$`扩(ō`,,,P',P },P LM,P,P,P󢃵,P   ,P }L- ,L)) ` ƒ0LiLB gL ")ߍ,0p` 1 Ҏ$`扩( }ō`N,,,PV,PI ,P8,P',PN2,P  }L ,P,P,PN,P ,P,P󢃵,P}ȹ0',PDN ,P3L'N- ,L) ` ƒ0LL }  0 `')  1$P  .0) Kƒ} Kʩ`ƍ  n `   !'0# =L L  )L)}  g0{ R$0t E / # A  1  ƝЦ}ƞL/ LM L' ƱƳ`' ƲƳ`' .ƱƳ`' .}ƲƳ`( 1`8` M M` ` `  0r 0i捥(   0}C`LLL8 i K*ƒ ) LL) 1 K@`mL۠f}`)# LS L))  /ɀ@} i L ` $0  V$` w7 1 z,P!,|Ŏ}08`` '`( MƳ`' Mƍ`( Ƴ`' ƍ` 10:ȍ i)ƒ i})L LZ` 10ȍ L }~ L )Ѝ })L w L 1 2 )z,0,魖L,,z zŭ,}L ,P `8` ,0 8`` < LDa}K ,P `8` ,0 8`` < LDa` t ןBJ V EL i˅Э i̅ѢBDEHI V  Lȑ $ }.Ƃ ȱiL2˅ͥ̅ͅdiͥ΅eiΠ Lȱd۠dH͑dh͈LXdYedi(}ͥeiΠ͑dͅd΅eXi"dYie8 diХiѠd0 㗰 ƀƁLn 㗐 L}( ? 2L  i˭ i̢BDEJK V EL B˝D̝EHI VL i }LP:PRINT DIRECTORY, Y/N ?XiHdYiewd`PRESS TO RETURN TO MENU >: `?ɛ!}>ɛ` BYTES OF FREE MEMORY REMAIN8Έ' Ή L'L8dededde8"} `dɛ deLg8d%L΢de#de,d deԥdeԠd de#}8d(deL6) Ή L( גΈ=<e`ɛ$# "Ȍ=L$}LLגDEVICE NOT AVAILABLE, TRY AGAINFILENOT FOUNDMEMORY FULL, INCOMPLETE LOADI/O ERRORFILE IN MEMORY =NAME FILE TO S%}AVEREPLACE EXISTING FILE, Y/N ?INPUT NEW FILENAMEFILE LOCKEDDISK FULL, LOAD NEW DISK, RE-ENTERCAN'T DELETE FROM CASSETTE&}FILE DELETE - ARE YOU SURE, Y/N ? i沤>:ɛ`沤>ɛ 8 d汥L NUMBER OF COPIES:'}Ў ` V`STARTING PG #ENDING PG #PRINT WHOLE DOCUMENT, Y/N ? ATARI 1025 ATARI 820 ATARI 825 ATARI(} 822SELECT NUMBER PRESS 8 d  d#L x  B V BJK VL )}' 2B(k 5 ƦԍՍ;y F ƦԍՍPD a ƦԍdLeXd*}eYediJdeie?Ցd 㗐 ~dɛLX>d$ >?B1> 9>>ɛ8 d>+} `>0:8 deL᦭` ( P۠ o ƦLL ,}18 7 = (1 bL  V   &Ч'LǧLLħPRESS TO CONTIN-}UE &254ѨLx杭 i i.}` ` EEee`H  VLW<hLPhHɛ ) %hHɛ) c0h/}ɛ ) ` cLH BHIhLV   Lު21   8尅居0}Ff L%@4/   $毥8 A1} ި   W EA = 68宅寅eeee  2}Ж  9` ɛ  L`%. 3} c8  c8 `Heih DH  h`*擭84}  ݫ ݫ8   `Heih PH  h` 9 5}ALl8夐Lu*ELi ELB8墐i ި 6 16}2   L]L] L]     L72 L  e汥ŷL7}ŶL   ``66 `212( C`  8}`ɛ B`@)C L6L `49}3 44`50 5`="H8匥h Ln 0 ` _LLL 7 0m:i:})ڪi L7'7) 055JJJJ 055L7ĩ.55L`MAKE ENTRY, PRE;}SS A0BDEHI V L'H334L ( 34XidYieL& 㗐<}H3dhL&ɛB3L0 B VBDEJK VL'L~ 33L& {`3#=}`8 d33?dLHIB V LR` E n bLCCHAIN FILE ERRORϩB  ->}0&:" )eLB`8d`FORMATTING...ONE MOMENT PLEASE (ԠL ;<>??}Э < LY    ;LY`L ުL#  ު L#@} L;M& '>&' <? &' ?>L; !L#LvA}  ǰi8妰dL}  ǰL}    >   ǰŦL} L#4A/B}+ " LAL#A `?L)>LLH"8匥hHɛLC}Ɵƞh` DeiI R  L# ު   Lb` PD}eiI RLG2&.'/ dz1`7 䳠 䳠 䳠 䳠/0.8,./-/0E}.y,./y-/070`7旙(` d'  `H Hbc _hh`l״9PghF}е!4^_ .;`I`L 8呐 ```Ȅ` `G}``` `L- L` ` ` `Ũ` `  ```` `H}8Ţ` `` ` 8Ť` ` ` 8ť` ` `` L` 8I}'`&'` `8ţ` ` ``  8呐` ```H h  J}ɛ CLV B VBDEJK VLV=` ( Xi{dYie:ɀK}``8 dLCHAINING:` 8mő```L`LH  ޅL L}L ąLȱh _`ed `PKpA?ݸUq'-(">͸TpS,p(">M}Tp<```   L < 6  LL` ' ?LU L``:  LN} L`0  L` L```#9ő 9`9```θθ`O}```,9 Ҹ 9`9 Ҹ`` Ҹ` L`L) 8P} _ ` ```` pL88`  L : \Lɹ K8D8=Q}:LU8 8  L㹥88`  L̹8` _J` ƐL.8*H h R}LHJ Ɛh` _Ɛ  Lu`          S}    `lPRESS TO CONTINUEL: C: = ʶ@ L0 UƒƑƐT}P ƩḀ̌ͩʭ18ˠʩ ż )MLϲ L ƼL:`U} VLɎL_ɏLkɆLɇL ƩLk)-L)`L:)`L_LkV}LL`L`eΐ`Lw` L޽```Lν%``ƤW} ueǍ.i/ dzXidYie(8 ėd8m./ dzdideie(8 ėd` XyEYyF`X}*RzBj 2Z"Jr8`ɛ` `ɛY}ƻƺ`````` ĥ`i$ɥ 38ɛ/ȐɰH)h)`8Z} i`őƒƑL%ȰȩɰLbƒƑ`RS 3RH) & & &Hehi_^^h R[}i ^I^`ϙ` `#&D*dedȱd`$`L LL LbLwL\}LLJL6LLH]}"ؾ 0!ުv䨺ʶdzL5 ˾ii# i di$ei81 #DdL5Z0_= !BبLBРL`L`EBDE JK VLw B VȹE0d1eFddȑd%LatariwriteiteryـY"ـY"ـY"ـY!BـYV ــYY ـY YـYــVـYBYIـYOIYـYـOUÙVVـYBUUYـYـLـYKՀ2 MMKLMM\㉑錀〡쀲yT!4!2)72)42)4%2N2%!4%&ileE%,%4%&ileE$)4&ileG/2-!4$iskE.$%8of$isk&iles=/!$&ileG2).4&ileF!6%&ile3%,%#4,%44%2??ޢde`dL ˄̥XdYeej`ddeȱ˨̪ddeLʂfgXiJdYief88 fgd슑d' Ow` @0d1eFdXi<ȑdYiȑdȑdȑd` @0d1eBdXȑdYȑdȑdȑdwXP`dԭeՠ ԭ ե 18deƭ deL탥de8` 81edde./o8 iЈ18Ԡid18e ddideЭe18Hgdfdfeghied0 E jb"DOS SYSb&EPROM OBJb-EPROM1 AR2b/EPROM AR1bb6EPROM6 NL bHAPPY INHbATARIWRIINHb]EPROM1 LSTb`EPROM1 NLTE d18eSddide h  d )? e Ҭ ґd bL 㗰LCH hLLߚDDLELILFLPLSLC bL 818  di# ei #DDd t P' P{  U젟 XiJdYie(\>(d#Ώ   TUϭЩͦX˥Y̩ΠT GTU ͎ΎΑTUΥ$ΥΦ͝(ii(ːͥLPTɛ/ަTU ͎ΎTUΑ˩ȑ%T ɛ#ѥe$,Ω$Φ͝(ΥΥi(ːͥLPT L018i iȘ) <)҆ӥTU ͍΍TU`8 i`ӤΑLLІTU'8Lm(쭏UJE=8ɛ#   H hL謈 uXidYie 8 d08 d 8 d08 di LЅT 㗰 LAH P' hTL. . d ed)fd)A[a {I fd  L  (8 גL d ed)!dId LLU L L L L~ ࣢ 0L018 P{ bL 0 0LEND-OF-FILEɜ-18 P{ bL(8 0LLD ԭ ՠde18U8 H h Hh   d(&6L  LLɞ L8 d ed  bLvԭե  LBLOCK DELETE - ARE YOU SURE, Y/N ?  `LvLL>LU- ΏL= LDR B ޔ  ̈́ ΋ h LFLP{ 8 ԭ  XidYieȱ)8 dLLLōPŠ e >ɛL B>DEJK V'P L L 4ꠣ LBDE8 H Ih8 HIIL VH}H}H}I }H  }I h0 P LɈLP6 LPREVIEW WHOLE DOCUMENT, Y/N ?MM  ޔ ̈́̈́ h LPL xP 'n 2LPk ] ƦԍՍcy n ƦԍՍ  U hLL~ ޔP bs 2LP'  ̈́ h L h  0 h  0L0L-LLU=LUBL   LELUHLUΉ0 <LTL%de f gdededfgfdfL菥def g ΏL~;P bt 2P' (L18ѩѩ   0LS 3 XiUdYie?d 㗐fl~ d΂Lɛ d EL `8g ddL{gdL> LDELETE TO EOF - ARE YOU SURE, Y/N ?FILE:EHXڛ@ 12 4 1 1 5 0 10 70 2 12 132de ԭ խ18Ѡԑdde э `18  d e ԭ ՠde԰ձd8dde٥ԍ Ս `de ԭ 81ѩ ҥ ӥҩ8҅֩Ӆנ8Ұӱԑde8ְש de`8屍 Ʊde 屍 ԭ   Ո0dԈ`818 d  dűdde ԭ Ոԑde e  `SEARCH FOR:REPREPLACE STRING, Y/N ?CONTINUE SEARCHING, Y/N ?REPLACE WITH:REPLACE GLOBAL, Y/N ?18  L(? > 2PU jj 2ݩP젟 EL(o XidYie?d 㗐ffi~ d΃Lɛ% `8P dLdPLdP} f 2 EPn L E18  LDISK #NOT AVAILABLE, TRY AGAIN d eԭՠԑdde8Ʋ`L̈́`L: C:123456789111111111122222222223333333 012345678901234567890123456#( XiwdYie8 d@L d18eSddideie`811de f ggųfddefgde  `Lx @? L INVALID FILENLENAME`# `18 `de ԭ ՠԑd  ű)fм` 0 d ePd8 ג`8 d ed deedede8 屍  岍  e  e `FAILSAFE BUFFER OVERFERFLOWED81ѩ ҥ ӥҥӐ҅Ӆԭխ ѭ ҥ!ё e  e 8 屍  岍 P `18 LMMɼ V8`  `HH VhhL' bL!IL!<|Ц a{8  !}I8`8` B V0 B V0`lj;k+*opui-=vcbxz436521, .nm/reytwq907~8<>fhdgsaLJ:K\^OPUI_|VCBXZ$#&%"![ ]N ]NM?REYTWQ()'@FHDGSA    ERASE FILE IN MEMORY, Y/N ?HeXeXdeYediJdeie?ˑd 㗐? ~dݙ>.ɛ[8 dd">:>>D>:?:?h>ES`H hLeXdeYediJdeie?ˑd 㗐 ~dEɛZ8 dȩdd9`8 d d#`(z bD 2`hhLʠL LOAD DEVICE:FILENAMESAVE(Š = >ɛL >RL&B>DE J VB>DE JK V(B>DEJK VLP 8   B V0> i< i    LC B V0M  CLBDEHI V0  L LyB>DEJK V- LC Lߚ 4 ꠣ Lߚ BDE8 8 H Ih8 HI VH}H }I     C h0  LCɈ6Lל8 d 'd#!  LCNO FILE IN MEMORY#@ Xi[dYie8 d(ڠ - = >ɛD>:?@>[[Q bLJ >R&B>DE J VB>DEJK>D. V0c b 2 LJ LJ 4 B>DEJK V* LJ LJꠣ LJ BDE8 H IHiHIiI VH Ch0LɢɩLyL DELETE( / ? >C   L B>DEJJK V! L^ 4Rꠣ L(ݠ bJ 2L !B>DEJK V L 4L LL 6 LC ꠣ LCFORMAT DISK -( 려6 J 2L ןJB VLyL DEK`D:*.*젟 BJ V EL i˅Э i̅ѢBDEHI V  Lȑ $ 10 REM PROGRAMMA VOOR PROGRAMMEREN/UITLEZEN EPROMS ŠΠ20 REM RAMTOP=22528,DL=21536,EXTRA DL=23328=RAMTOP+800 I}VM BYTES GECLEARED BOVEN RAMTOP BIJ CLEAR SCREEN.30 REM EERSTE VRIJE BYTE VOOR ML=23378 ($5B52)40 DIM S16$(8),S15$(16),S26$}(7),S9$(32),S12$(32),S29$(37)50 GOTO 1000100 REM SUBROUTINE RETURN110 POS.2,23:? "ˠΠ͠ҠŠΠ";}120 OPEN #2,4,0,"K:":GET #2,N11:CLOSE #2130 IF N11<>155 THEN 120140 RETURN200 REM SUBROUTINE ESC REGEL.210 IF N13=1 THEN }GOTO 230220 POS.2,21:? "ˠΠ͠ҠŠΠ":? 230 POS.2,23:? "ˠŠҠՠ";24}0 OPEN #2,4,0,"K:":GET #2,N11:CLOSE #2250 IF N11<>27 AND N11<>155 THEN 240260 IF N13=1 AND N11=155 THEN 240270 N13=0:RETU}RN300 REM SUBROUTINE DISK310 IF N14 THEN ? "Geef naam van te lezen diskfile ":? "(3 tot 8 letters ; extender!)":G}OTO 330320 ? "Geef naam voor te schrijven diskfile ":? "(3 tot 8 letters ; extender!)"330 POKE 752,0: S15$="": S1}5$(16)=S15$: S15$(2)=S15$: S16$=S15$(1,8):? "":INPUT S16$340 POKE 752,1: N17=LEN(S16$):IF N17<3 THEN N31=1:RETURN350 S15}$(1,3)="D1:": S15$(4)=S16$: S15$(4+N17,7+N17)=".INH": S15$(8+N17)=""360 POKE 752,1:IF N14 THEN ? "File ";S15$;" wordt gele}zen.":GOTO 380370 ? "File ";S15$;" wordt geschreven."380 TRAP 440:CLOSE #2:OPEN #2,8-4*N14,0,S15$:? :? :? "Bezig.......",}390 IF N14 THEN FOR N5=1 TO 6:GET #2,N3:NEXT N5:GOTO 420400 PUT #2,255:PUT #2,255: N18=INT(N19/256): N17=N19-N18*256:PUT #2},N17:PUT #2,N18410 N18=INT(N20/256): N17=N20-N18*256:PUT #2,N17:PUT #2,N18420 GOSUB 500:IF PEEK(195)<>1 AND PEEK(195)<>3 T}HEN 440430 TRAP 40000:CLOSE #2:? "Klaar !":? : N14=1: N31=0:RETURN440 ? :? "Fout ";PEEK(195);" bij file ";S15$:? :CLOSE #2}450 FOR N8=1 TO 1000:NEXT N8: N31=1:RETURN500 REM CIO SUBROUTINE,FILE#2510 N21=834: N22=836: N23=840: N24=835: N25=32520 } S26$="hhh": S26$(4)=CHR$(170): S26$(5)="LV": S26$(7)=CHR$(228)530 N18=INT(N19/256): N17=N19-N18*256:POKE N22+N25,N17:POKE }N22+N25+1,N18540 N27=(N20-N19)+1: N18=INT(N27/256): N17=N27-N18*256:POKE N23+N25,N17:POKE N23+N25+1,N18550 POKE N21+N25,11}-4*N14: N3=USR(ADR(S26$),32)560 POKE 195,PEEK(N24+N25):RETURN600 REM FORMATTEREN DISK610 ? "Moet deze disk geformatteerd} (J/N) ?"620 OPEN #2,4,0,"K:":GET #2,N11:CLOSE #2630 IF N11<>74 AND N11<>78 THEN 620640 IF N11=78 THEN ? "Disk wordt nie}t geformatteerd.":RETURN650 ? "Druk ؠ om disk te formatteren."660 OPEN #2,4,0,"K:":GET #2,N11:CLOSE #2670 IF N11<>88 T}HEN 660680 ? "Bezig disk te formatteren....";:XIO254,#2,0,0,"D1:":? " Klaar !":? "Disk geformatteerd.":RETURN700 REM SU}BROUTINE INLADEN ML710 TRAP 750:CLOSE #2:OPEN #2,4,0,S15$:FOR N5=1 TO 3:GET #2,N3:NEXT N5720 GET #2,N4: N19=N3+256*N4:GET #}2,N3:GET #2,N4: N20=N3+256*N4730 N14=1:GOSUB 500:IF PEEK(195)<>1 AND PEEK(195)<>3 THEN 710740 TRAP 40000:CLOSE #2: S15$=""}:RETURN750 ? " Ԡ ";PEEK(195):? :? " ʠŠ ";S15$:CLOSE #2:GOTO 710800 REM CONTROLE LEEG ZIJN EPROM810 PO}KE 1538,0:REM WRITEFLG820 POKE 1539,1:REM MODEFLAG830 POKE 1536,8:IF N10=5 OR N10=7 THEN POKE 1536,16:REM KCNT840 ? "Epr}om wordt gecontroleerd.":? "Bezig......",: N28=USR(23552)850 ? "Klaar !": N3=PEEK(1543)+256*PEEK(1544):IF N3<>0 THEN ? "}";N3;" Adres(sen) niet leeg."860 IF N3=0 THEN ? "Alle adressen eprom zijn leeg."870 RETURN900 REM CONTROLE CORRECT ZIJN }EPROM910 POKE 1538,0:REM WRITEFLG920 POKE 1539,2:REM MODEFLAG930 POKE 1536,8:IF N10=7 THEN POKE 1536,16:REM KCNT940 ? :? }"Bezig......",: N28=USR(23552)950 ? "Klaar !": N3=PEEK(1541)+256*PEEK(1542):IF N3<>0 THEN ? "";N3;" Adres(sen) fout geprog}rammeerd."960 IF N3=0 THEN ? "Alle adressen eprom zijn correct."970 RETURN1000 REM EXTRA D.LIST1010 POKE 106,88:GR. 0: }N0=PEEK(560)+256*PEEK(561): N6=N0+1792: N4=01020 POKE 710,2:POKE 708,250:POKE 712,2:POKE 752,11030 FOR N5=N6 TO N6+9:READ N}3:POKE N5,N3:NEXT N51040 DATA 96,71,42,91,48,6,16,1,35,841050 FOR N5=0 TO 39:READ N3:POKE N6+10+N5,N3: N4=N4+N3:NEXT N5106}0 DATA 0,10,0,37,48,50,47,45,0,48,50,47,39,50,33,45,45,33,0,101070 DATA 0,8,35,9,0,48,14,55,33,44,39,50,37,37,46,0,17,25,24,}211080 POKE N0,1:POKE N0+1,32:POKE N0+2,911090 IF N4<>1179 THEN NEW2000 REM MENU2010 ? CHR$(125):POS.1,0:? "}";2020 N7=PEEK(88)+256*PEEK(89)2030 FOR N5=N7+41 TO N7+841 STEP 40:POKE N5,124:NEXT N52040 FOR }N5=N7+79 TO N7+879 STEP 40:POKE N5,124:NEXT N52050 POS.1,22:? "";2060 S9$(1)=CHR$(3}2): S9$(32)=CHR$(32): S9$(2)=S9$: S12$=S9$: N10=12070 S9$=S12$: S9$(N10,N10+3)=" -> "2080 POS.2,1:? "Š}ҠŠ":POS.15,3:? "͠ŠΠՠ":? 2090 ? S9$(1,4);" AANWIJZINGEN VOOR GEBRUIK":? 2100 ? S9$(5,8);" UITLEZEN }8K CARTRIDGE":? :SO. 0,0,0,02110 ? S9$(9,12);" UITLEZEN 16K CARTRIDGE":? 2120 ? S9$(13,16);" UITLEZEN EPROM 2764":? }2130 ? S9$(17,20);" UITLEZEN EPROM 27128":? 2140 ? S9$(21,24);" PROGRAMMEREN EPROM 2764":? 2150 ? S9$(25,28);" P}ROGRAMMEREN EPROM 27128":? 2160 ? S9$(29,32);" EINDE PROGRAMMA":? 2170 ? "ӠԠΠΠƠΠ";2180 O}PEN #2,4,0,"K:":GET #2,N11:CLOSE #22190 IF N11<>155 AND N11<>61 AND N11<>45 THEN GOTO 21802200 IF N11=155 THEN GOTO 224022}10 IF N11=45 THEN N10=N10-4:IF N10<=1 THEN N10=12220 IF N11=61 THEN N10=N10+4:IF N10>=29 THEN N10=292230 SO. 0,40,10,12}:GOTO 20702240 N10=(N10+3)/4:ON N10 GOTO 3000,4000,4000,5000,5000,6000,6000,70003000 REM AANWIJZINGEN3010 ? CHR$(125): S2}9$="ΠҠˠ":? S29$3020 ? "Dit programma maakt het mogelijk de eprom's 2764 en 27128 uit te} lezen en te programmeren."3030 ? "Hiervoor moeten de programmer en een diskdrive zijn aangesloten."3040 ? "Ook kunne}n cartridges worden gelezen. Hiervoor moet een speciaal verleng- kaartje worden gebruikt."3050 ? "Bij het lezen formattee}rt het program-ma zonodig een disk en maakt van de"3060 ? "eprom of de cartridge een diskfile."3070 ? "Bij het programmere}n copieert het pro-gramma een diskfile naar de eprom."3080 ? "Programma gebruikt buffer van 24K-40K."3090 GOSUB 1003100 ?} CHR$(125):? S29$:? 3110 ? " Šˠ":? "Zowel computer als programmer mogen"3120 ? "nooit worden i}n- of uitgeschakeld als er een eprom in de programmer zit."3130 ? "Als men zich hier niet aan houdt, geeft dit fouten }in de eprom."3140 ? "Hierbij is het niet belangrijk of de eprom wordt geprogrammeerd of uitge- lezen !"3180 N13=1:GOSUB} 200:GOTO 20004000 REM CARTRIDGE4010 ? CHR$(125): S29$="ΠŠ":? S29$4030 ? "1. Programm}er hoeft nog niet te zijn aangesloten."4040 ? "2. Zet computer uit.":? "3. Plaats het verlengprintje met daar- op de} cartridge."4050 ? "4. Schakelaar op printje in onderste stand.":? "5. Zet computer weer aan."4060 ? "6. Run opnieuw} het eprom programma."4070 GOSUB 2004080 IF N11=27 THEN 20004100 ? CHR$(125):? S29$4110 ? "Cartridge uitgelezen !"4120} N28=USR(24064):REM COPIEERROUTINE MET VERIFY4130 N3=PEEK(1541)+256*PEEK(1542):IF N3<>0 THEN 41204140 ? "Doe disk beste}md voor file in drive 1"4150 GOSUB 600:REM FORMATTEREN4160 GOSUB 1004170 ? CHR$(125):? S29$4180 IF N10=3 THEN 43004190 }N14=0: N19=24576: N20=32767:GOSUB 300:IF N31=1 THEN N31=0:GOTO 41704200 N13=1:GOSUB 2004210 GOTO 20004290 ? CHR$(125):? }S29$4300 ? "Zet schakelaar op verlengprintje in de bovenste stand."4310 N14=0: N19=24576: N20=40959:GOSUB 300:IF N31=}1 THEN N31=0:GOTO 41704320 N13=1:GOSUB 2004330 GOTO 20005000 REM UITLEZEN EPROM'S5005 ? CHR$(125): S29$="Π}ͧӠ":? S29$5010 ? "N.B. Verlengprintje mag niet zijn aangesloten op cartridgeconnector!"5015 ? "}":? "1. Zet computer uit.":? "2. Verwijder verlengprintje."5020 ? "3. Zet compute}r weer aan.":? "4. Start het programma opnieuw."5025 GOSUB 200:IF N11=27 THEN 20005030 ? CHR$(125):? S29$:? "1. Zorg er v}oor dat er geen eprom in de programmer zit."5035 ? "2. Sluit programmer aan op het net en de joystickports van de co}mputer."5040 ? "3. Schakel de programmer in. Alleen het gele lampje mag branden."5045 ? "}"5050 ? "1. Geef reset en verwijder eventuele eprom.":? "2. Run het programma opnieuw."5055 GOSUB 200:IF N}11=27 THEN 20005060 ? CHR$(125):? S29$5065 ? "Plaats nu de uit te lezen eprom in programmer."5070 GOSUB 200:IF N11=}27 THEN 20005100 ? CHR$(125):? S29$5110 ? "Wilt U check of eprom leeg is (J/N) ?"5120 OPEN #2,4,0,"K:":GET #2,N11:CLOSE }#25130 IF N11<>74 AND N11<>78 THEN 51205140 IF N11=78 THEN ? "Eprom wordt niet gecontroleerd.":GOSUB 100:GOTO 52005150 G}OSUB 800:IF N3=0 THEN N13=1:? "Verder uitlezen zinloos.":REM EPROM LEEG5160 GOSUB 2005170 IF N11=27 THEN 20005200 ? CHR}$(125):? S29$5210 ? "Doe disk bestemd voor file in drive 1"5220 GOSUB 600:REM FORMATTEREN5250 N28=USR(24320):REM MEMCLE}AN5260 POKE 1536,8:IF N10=5 THEN POKE 1536,16:REM KCNT,AANTAL KBYTE EPROM5270 POKE 1538,0:REM WRITEFLG5280 POKE 1539,0:REM} MODEFLAG5290 GOSUB 1005300 ? CHR$(125):? S29$5320 ? "Bezig eprom uit te lezen....";: N28=USR(23552):? " Klaar !"5330 } N14=0: N19=24576: N20=32767:IF N10=5 THEN N20=409595340 GOSUB 300:IF N31=1 THEN N31=0:GOTO 53005350 N13=1:GOSUB 200536}0 GOTO 20006000 REM EPROM SCHRIJVEN6005 ? CHR$(125): S29$="ΠͧӠ":? S29$6010 ? "N.B. Ver}lengprintje mag niet zijn aangesloten op cartridgeconnector!"6015 ? "":? "1. Z}et computer uit.":? "2. Verwijder verlengprintje."6020 ? "3. Zet computer weer aan.":? "4. Start het programma opnieuw."}6025 GOSUB 200:IF N11=27 THEN 20006030 ? CHR$(125):? S29$:? "1. Zorg er voor dat er geen eprom in de programmer zit."6}035 ? "2. Sluit programmer aan op het net en de joystickports van de computer."6040 ? "3. Schakel de programmer in. All}een het gele lampje mag branden."6045 ? ""6050 ? "1. Geef reset en verwijder e}ventuele eprom.":? "2. Run het programma opnieuw."6055 GOSUB 200:IF N11=27 THEN 20006060 ? CHR$(125):? S29$6065 ? "}Plaats nu de te programmeren eprom in programmer."6070 GOSUB 200:IF N11=27 THEN 20006100 ? CHR$(125):? S29$6110 ? "Pro}gramma checkt of eprom leeg is.":GOSUB 8006120 IF N3<>0 THEN ? "Programmering zinloos.": N13=1:GOTO 61406130 ? "Program}mering kan doorgaan."6140 GOSUB 200:IF N11=27 THEN 20006150 IF N32=1 THEN GOTO 62606200 ? CHR$(125):? S29$6210 N28=USR(2}4320):REM MEMCLEAN6220 ? "Doe disk waarop file staat in drive 1"6230 N14=1: N19=24576: N20=32767:IF N10=7 THEN N20=4095}96240 GOSUB 300:IF N31=1 THEN N31=0:GOTO 62006250 GOSUB 1006260 POKE 1538,1:REM WRITEFLG6270 POKE 1539,3:REM MODEFLAG62}80 POKE 1536,8:IF N10=7 THEN POKE 1536,16:REM KCNT6290 N32=0:? CHR$(125):? S29$:? "Eprom ";: N3=2764:IF N10=7 THEN N3=27}1286300 ? N3;:? " wordt nu geprogrammeerd.":? "Dit duurt ongeveer 70 sec voor 8K."6310 ? "Bezig.....",: N28=USR(23552):}? "Klaar !"6320 GOSUB 1006400 ? CHR$(125):? S29$6410 ? "Programma checkt inhoud epromadressen."6420 GOSUB 900:? "Ver}wijder eprom en plak venster af."6430 ? "Plaats nieuwe eprom als U van het ge- laden programma nog een copie wilt."6440 G}OSUB 200:IF N11=27 THEN GOTO 20006450 N32=1:GOTO 61007000 ? CHR$(125):POS.1,10:? "РҠϠǠҠ͠͠ ŠŠɠΠĠɠǠĠ":}POS.9,20:IF N11=27 THEN GOTO 20006450 N32=1:GOTO 61007000 ? CHR$(125):POS.1,10:? "РҠϠǠҠ͠͠ ŠŠɠΠĠɠǠĠ":XYI[/o/S16S15S26S9S12S29N1N1N1N1N3NNN1N1N2NN2N2N2N2N2N2NN1N2NNNN3"} "} CCPROGRAMMA VOOR PROGRAMMEREN" }/UITLEZEN EPROMS ŠΠhhRAMTOP=22528,DL=21536,EXTRA DL=23328=RAMTOP+800 IVM BYTES GECLEARED BOVEN RAMTOP BIJ " }CLEAR SCREEN.--EERSTE VRIJE BYTE VOOR ML=23378 ($5B52)(GG;@,;@,;@,;@2,;@2,;@7" },2 AdSUBROUTINE RETURNn@-@@#@(%ˠΠ͠ҠŠΠx;#@@" }K:0)@;@AUA $SUBROUTINE ESC REGEL."@ A0B-" }@@!?(%ˠΠ͠ҠŠΠB(@-@@#@(%ˠŠҠՠ"};#@@K:0)@;@!!@'*AUA@!!"@*"AUA@"}6-$,SUBROUTINE DISK6b.("Geef naam van te lezen diskfile X(%(3 tot 8 letters ; extender!"})b A0@Y/('Geef naam voor te schrijven diskfile Y(%(3 tot 8 letters ; extender!)J[AR6"}.+67@,.:67@,.Q6.7@<@,W([T9AR@6-B:,* @66-@9$^"}_67@<@,.D1:-67@,.M67@%<@%,..INH_67@%,.hCAR@9("}File  wordt gelezen.C Ar&&(File  wordt geschreven.|W A@@?@@&@$"}B(E(W( Bezig.......6-@@()@, 6 A d*@AU)*@A"}U:6-P:'AV,J6-&$AVW*@d*@>6-P:'AV,$6-&$AV1*@>*@"}= A=F:A,@*F:A,@A@B B@$(Klaar !'(36-@?6-"}B$8(*(Fout F:A, bij file -(8@*-@A '6-@*$CIO SUBROUTINE,FIL"}E#2?6-A46-A6'6-A@36-A5?6-@2O 6.hhh%67@,.>:Ap,767@,.LVO6"}7@,.>:A(,<6-P:'AV,$6-&$AV,%<%%@N6-+&,%@&6-P:'AV,66-&"}$AV>%N%%@&/%@&@$/6-?:C:,<@2,0AF:%,$XFORMATTEREN DISK"}b..(&Moet deze disk geformatteerd (J/N) ?l;#@@K:0)@;@v!!@t*@"}xA 7"@x4( Disk wordt niet geformatteerd.7$**("Druk ؠ om disk te formatteren.;#@"}@K:0)@;@@A`{((Bezig disk te formatteren....QAT@"}D1:^( Klaar !x(Disk geformatteerd.{$SUBROUTINE INLADEN MLZ AP@5@"}@I-@@V)@Z J)@ 6-%AV$-)@:)@J6-%A" }V$I6-@ AIF:A,@*F:A,@A" B@6."$N!( "!}Ԡ F:A,$(9( ʠŠ D@N A CONTROLE LEEG ZIJN EPROM* A8 WRITE""}FLG4 A9@ MODEFLAG>DA6@+"@)"@=A6@DKCNTHF$(Eprom wordt "#}gecontroleerd.7( Bezig......F6-?:B5R,R_(Klaar !16-F:AC,%AV$F:AD,=_( Adr"$}es(sen) niet leeg.\4"4( Alle adressen eprom zijn leeg.f$!!CONTROLE CORRECT ZIJN EPROM A8"%} WRITEFLG A9@ MODEFLAG:A6@!"@3A6@:KCNT&(( Bezig..."&}...&6-?:B5R,i(Klaar !16-F:AA,%AV$F:AB,=i( Adres(sen) fout geprogrammeerd."'}7"7(#Alle adressen eprom zijn correct.$EXTRA D.LIST[A@+A6-F:A`,%"(}AV$F:Aa,O6-%A[6-KA@'AAP9A@KAR@!")}-%@ "! !!96,71,42,91,48,6,16,1,35,847-@9"+%@%36-%7 $==0,10"*},0,37,48,50,47,45,0,48,50,47,39,50,33,45,45,33,0,10.<<0,8,35,9,0,48,14,55,33,44,39,50,37,37,46,0,17,25,24,2187@"+}#%@@27%@@BAy MENUO(>:A%,"-@O('",}%%6-F:@,%AV$F:@,3#-%@A%AA@@/A$3 3#-%@y"-}%Ay@@/A$3 B-@@"B(' T67@,.>:@2".},367@2,.>:@2,B67@,.H6.T6-@! 6.!67<%@,. ->  b-@@?(%"/}ŠҠŠQ-@@_( ͠ŠΠՠb(*;8(7@<@, AANWIJZINGEN VOOR GEBRUIK"0};(4Y4(7@<@, UITLEZEN 8K CARTRIDGE7(Y2>85(7@ <@, UIT"1}LEZEN 16K CARTRIDGE8(H63(7@<@, UITLEZEN EPROM 27646(R63(7@<@ , UITLEZEN EPROM 271"2}286(\:7(7@!<@$, PROGRAMMEREN EPROM 2764:(f:7(7@%<@(, PROGRAMMEREN EPROM 27128:(p1"3}.(7@)<@2, EINDE PROGRAMMA1(z..(%ӠԠΠΠƠΠ;#@@K"4}:0)@;@-#AU*@a*@E- A!"AU A"@5"@E6-&@"5})@56-@5"@a6-%@)@)56-@)/%2@@@@/ A p"6}_6-+%@,'@_A0A@A@APAPA`A`Ap AANWIJZINGEN @(>:A%"7},<6.%ΠҠˠ@( hh(`Dit programma maakt het mogelijk de eprom's 2764 en 27128 uit te"8} lezen en te programmeren. JJ(BHiervoor moeten de programmer en een diskdrive zijn aangesloten. mm(eOok kunnen ca"9}rtridges worden gelezen. Hiervoor moet een speciaal verleng- kaartje worden gebruikt. RR(JBij het lezen formatteert het":} program-ma zonodig een disk en maakt van de ++(#eprom of de cartridge een diskfile. QQ(IBij het programmeren copieert";} het pro-gramma een diskfile naar de eprom. //('Programma gebruikt buffer van 24K-40K. A (>:A%,("<}(& P&( ŠˠP(%Zowel computer als programmer mogen0 PP(Hnooit worden in- of uitgeschakeld al"=}s er een eprom in de programmer zit.: MM(EAls men zich hier niet aan houdt, geeft dit fouten in de eprom.D \\(THie">}rbij is het niet belangrijk of de eprom wordt geprogrammeerd of uitge- lezen !l #6-@ A# A CART"?}RIDGE@(>:A%,<6.%ΠŠ@(??(71. Programmer hoeft nog niet te zijn aange"@}sloten.\(2. Zet computer uit.\(:3. Plaats het verlengprintje met daar- op de cartridge.W8(04. Schakelaar op "A}printje in onderste stand.W(5. Zet computer weer aan.,,($6. Run opnieuw het eprom programma. A"B}"@'A (>:A%,( (Cartridge uitgelezen !.6-?:B@d,.COPIEERROUTINE MET VERIFY"9%6-F:"C}AA,%AV$F:AB,9AA ,//('Doe disk bestemd voor file in drive 16 AFORMATTEREN@ "D} AJ(>:A%,(T"@AC^S6-6-BEv'6-B'g1 A="@I6-"E}S AAph6-@ Ar A (>:A%,(CC(;Zet schakelaar op verlengprintje in de bovens"F}te stand.S6-6-BEv'6-B Y1 A="@I6-S AAp6-@ A A"G} UITLEZEN EPROM'S@(>:A%,<6.%ΠͧӠ@(SS(KN.B. Verlengprintje mag "H}niet zijn aangesloten op cartridgeconnector!l/('J(1. Zet computer uit.l"I}(2. Verwijder verlengprintje.G"(3. Zet computer weer aan.G( 4. Start het programma opnieuw.! A!"@'"J}A U(>:A%,(U(<1. Zorg er voor dat er geen eprom in de programmer zit.SS(K2. Sluit programmer "K}aan op het net en de joystickports van de computer.NN(F3. Schakel de programmer in. Alleen het gele lampje mag b"L}randen.//('[8(01. Geef reset en verwijder eventuele eprom.[(2. Run he"M}t programma opnieuw.! A!"@'A (>:A%,(==(5Plaats nu de uit te lezen eprom in pr"N}ogrammer.! A!"@'A (>:A%,(//('Wilt U check of eprom leeg is (J/N) ?;#@"O}@K:0)@;@ !!@t*@xAQ I"@x5(!Eprom wordt niet gecontrole"P}erd.? AI ARQ A"%6-@D(Verder uitlezen zinloos.QEPROM LEEG( A2"Q}"@'A P(>:A%,(Z//('Doe disk bestemd voor file in drive 1d AFORMATTEREN6-?:BC "R},MEMCLEANMA6@!"@3A6@MKCNT,AANTAL KBYTE EPROM A8 WRITEFLG"S} A9 MODEFLAG A(>:A%,(D'(Bezig eprom uit te lezen....66-?:B5R,D( K"T}laar !?6-6-BEv'6-B'g3"@?6-B Y/ A"@%6-/ AS6-"U}@ A A pEPROM SCHRIJVENu@(>:A%,<6.%ΠͧӠ@(zSS(KN"V}.B. Verlengprintje mag niet zijn aangesloten op cartridgeconnector!l/('J("W}1. Zet computer uit.l(2. Verwijder verlengprintje.G"(3. Zet computer weer aan.G( 4. Start het programma opnieuw"X}.! A!"@'A U(>:A%,(U(<1. Zorg er voor dat er geen eprom in de programmer zit.SS("Y}K2. Sluit programmer aan op het net en de joystickports van de computer.NN(F3. Schakel de programmer in. Alleen "Z} het gele lampje mag branden.//('[8(01. Geef reset en verwijder eventuele "[} eprom.[(2. Run het programma opnieuw.! A!"@'A (>:A%,(==(5Plaats nu de te pr"\}ogrammeren eprom in programmer.! A!"@'A (>:A%,(6,($Programma checkt of eprom leeg"]} is.6 AB,(Programmering zinloos.86-@B Aa@%%(Programmering kan doorgaan.! A"^}!"@'A "@ Ab`8(>:A%,(B6-?:BC ,MEMCLEANL//('Doe disk waarop "_}file staat in drive 1V?6-@6-BEv'6-B'g3"@?6-B Y`/ A"@%6-/ "`}Abj At A8@ WRITEFLG~ A9@ MODEFLAG:A6@!"@3A6"a}@:KCNTR6-(>:A%, (.(Eprom :6-A'dF"@R6-Bq(O(&( wordt nu gepr"b}ogrammeerd.O($Dit duurt ongeveer 70 sec voor 8K.0( Bezig.....$6-?:B5R,0(Klaar ! A(>:A%"c},( 00((Programma checkt inhoud epromadressen.8 A 8(&Verwijder eprom en plak venster af.SS(KPlaa"d}ts nieuwe eprom als U van het ge- laden programma nog een copie wilt.(# A"@'# A 26-@ A"e}a D:EPROM1.BAShet ge- laden programma nog een copie wilt.(# A"@'# A 26-@ A h8` ې . ېh`ՠ66666&`ڢ.`)q` D`"g}ʈe` ԕ` 8JJJJ ܵ) . ` 0` .0ʽ` ۥ)`8"h}`E)F)`ԅ ( ۥ) 4 D`ߠߠyʈ```"i} ݦ - ڰ(ii fڰ  0````ԕ`"j} ڰԅ)8@0&j ٥ԅX ݢ `ک M @ ڥ#ji@0 ڥ "k} (`8`==W3>Tvb>2b'?h`06?2'A?%C4Vu?f'70P@U??CBH@ ݦ fڢ ݢ ݦ "l} `ڢ (`0L8`@ ) (ۢf ޢ ک r @ݢ ڢl f ݩե"m}Ii $ԅ fڥ (`@"wf?P?IWQpIG?9 Wa9cU? 0d? 9`?BXGB?7?()q?D>DIh"n}8E?hyx? )D?@ (1V?wD3331??xS4ԅ8Llllllll||00f8l8"o}pvp88pl88l~00`~00 0`||x|| x | |"p}||800||||~ x00000000` 0`0 ~~0  00000>600| |``nf>ff~<ө<ө2A`B`L7 6("}ҩmi:; < =:2i4354 ?6L 6 j u? ,p? j ?"}0070Lt _B0`?>2i435< 0>A!CE000Ɋ?0`0 "}1;:2 ҅1L: _`H232435; 1 ҩ;  hh@2 e1i1L; :)h@1890 "}<ӥL9`0`Hҍ 00) 08 109hh@ Ҡ2e1i1232435ޥ<<Щ8"}2m43m 5`.Cҩ 0 4ӭ j kL 0d 4ӭ j u  0<L "}`-2 ` Ҡҍ2ҩ% L1-2 2ҍ ҩ% ҩ(ҢAҬ`ҍ`%"}`jj)?j)` k `    8 8 dimJJJ 8)"}i 8}}`|08|`i `Lx%) Ԥ   aXL )0 Ԥ "} ̭ҭҩҭ2ҩU2ȑ212i23i3X` _<Ӎө0XL &'x \X`CT e"}u$F`1F!@WS   Y`S mF! mȱȱ"}򈈌 ```}~S  Y0 ` ` (ɛ`  Y"}` (ޠ`@S@ ``x\L%L(WN `ɟlC`+>*) "}9`? X0$4Ӡ* \*=L` X0Cҩҩ` h4ө \**="}`?03==`R 0= L?`==` =``0<`=  0"} L2@iЩР@ i `%H$H` `#@R> "} Y`UW `P0C@ESK /Ў `LLE:BOOTSTRAP ERRORxD xآ ʥ)"})<8ӎӌӌӠӎӍ #D % X"}L{ ర  7BDE J V j ɟ D) "}ll xJJJ}*|ʈ)ȌDLt`P0C@ESK T67  , < L n e"} k)J` ) ~` S S`    K`@BC  i"}iA   KЮK l ~ `BiCill DE BH V`KLzR S` )"} `J>K } KJ  `l)j@`+)*)*W/Lҩd{"}j`WiLQjeE( !o)?gjjj)g ! odXeY z udedhei "}A fW -*)' j ` B  efffQQ W]j8  O Q Y X Q @ "}p p d0e1p dehdie1 0 LH h`*) R" //L! 2 L4 Gd-FoJ"}` } L!ɛ 0L! L!TZ****)) GFo L-PI1dPd` ]W "}I LL` k4TlUm Lɛ cq LP lTmUkk L0 L 0 !LLld "}  L de !L*JbX| ɀɁ ILɂ"}Ƀ@ЩɄОɅ L&|@a{ |L ML4`TʆTL\TTͿUU0R"}SULUUSRL deej cmTVl`cR!UR s UST   L UR 4 "}c %LcLcL } cH hc }H }hLD λ0TL GdheicH hcTͿ hڠh h"} L8 {RU Gdhi(feiigT N L QTT8 #ix(  RU G L ` L0+"}dL0d8dee dL`THUHVH Tfgf &gQg &g &geQfgmgW0f&gL~U0 FVjn"}Leffg8nfedd^geee_ohVhUhT`}cUVUWݍ S`VW0cQ }& 0Lw "}4Tix %} L} VTW${T& }ɛ8 lΝ8ﭝTL8ptpquq`W"} 'SSWT*( VVU L` Lhh{ L4]^`H)nhJJJ`...` n"}` nI=`Tix %n8`W****))`eGd'fPhfPdeidhfi(fg` "iy( "}0TTix(LRU G'd` XdYe(djedddeejLcTQQ " ci(cQLceUc` cHl"}TmUk{T USkL9 kcRT kcR USTkhc ` QlRm`cRT cR GS8Rd"}L`-`T`T` L4 THTh{I{` ʆ `{WRU`XdYe`""}`获T`UaVbyz8`Zv yvIiv8a[wb\xzwIwxIxwxspZTw訥xu wvv"}~tHuJhjp~LBpevpqqupt TeyT zrewrsexsu'rt$zUUV VUV z "}/ TH hT  L  8~~0LL4 4d //__aaaa ''OOAAAA "}((PP@PPP 00``0 @ (ʤFy}~02- m7@"} ` @`lj;k+*opui-=vcbxz436521, .nm/reytwq907~8<>fhdgsaLJ:K\^OPUI_|VCBXZ$#&%"![ ]NM?REYTWQ()'@"}}FHDGSA {   ` }  ɬ IM+h"}@   ` }  ɬ IM+h