CD InstalCD BPUT CUCXUTIL INSXUTIL SYS0:O  :V0@$͢ ͨ :Vd$cd! !<*Ï}{wh: .>?> *-Y,"e2+>!7 ͜0!?!6 8 ~0:O  :V0@$͢ ͨ :Vd$cd! !<*Ï}{wh: .>?> *-Y,"e2+>!7 ͜0!?!6 8 ~0:O  :V0@$͢ ͨ :Vd$cd! !<*Ï}{wh: .>?> *-Y,"e2+>!7 ͜0!?!6 8 ~:DISK BASIC utilities< , :ʷ: AZ: ,Z,,: ( C)( TA| d: : @: `A$(X)()(Y)( X)( TA)()(J)ۀ : : (: T$ #: : $. TA,: "Copyright 1987 P.Zevenhoven*8:MB:Systeem/toegestane formatenL TF(,):SF( )(: SF ( *) SFV T : A:F1(A):F2(A)ہ` (F1 ! F1 ) (F2 ! F2 ) ~j : A$() "INSTALLEER eerst de uitgebreideCt: TA) "DISK BASIC en start ermee op!": zi~TF(T,)(F1 !):TF(T,)(F2 !)o &hD5C4,&hD5CC,&hD5D6,&hD5DE::Machinecodeӂ T @ : A$: T,("&H"A$): 23,23,E5,DD,E1,5E,23,56,36,00,EB,F3,3E,0F,D3,88,DB,90,CB,8F,D3,8Cc 3A,3F,F3,11,01,12,B7,C8,15,C9,71,23,10,FC,C9,D3,30,01,33,10,10,FE DB,34,87,38,07,F2,6C,F3,ED,A3,18,F4,DB,30,E6,7C,0E,00,28,01,0C,DD 71,00,C9,CD,40,F3,E5,FD,21,9C,F4,01,FF,1A,28,03,01,4E,32,CD,60,F3; 01,00,04,B7,28,08,06,0C,CD,60,F3,01,F5,03,CD,60,F3,36,FE,23,77,CB BE,23,36,00,23,FD,5E,00,FD,23,73,23,77,B7,28,02,36,01,23,36,F7,23˄ 01,FF,0B,B7,28,03,01,4E,16,CD,60,F3,01,00,06,B7,28,08,06,0C,CD,60 F3,01,F5,03,CD,60,F3,36,FB,23,01,E5,80,B7,28,02,06,00,CD,60,F3,36[  F7,23,01,FF,0A,B7,28,03,01,4E,20,CD,60,F3,15,20,97,CD,60,F3,CD,60 F3,3E,F0,E1,CD,65,F3,DB,90,CB,CF,D3,8C,FB,C9,CD,40,F3,7B,D3,32,3E A0,CD,65,F3,20,EB,1C,15,20,F2,18,E5,CD,40,F3,7B,D3,32,E3,E3,3E,803( D3,30,01,33,10,10,FE,DB,34,87,38,07,F2,39,F4,ED,A2,18,F4,DB,30,E6{2 1C,CD,7C,F3,20,BF,1C,15,20,D9,18,B9,CD,40,F3,7B,D3,32,E3,E3,3E,80Æ< D3,30,01,33,10,10,FE,DB,34,87,38,0E,F2,65,F4,DB,33,BE,23,28,F2,CD F 7C,F3,18,95,DB,30,E6,1C,CD,7C,F3,20,8C,1C,15,20,D2,18,86,23,23,5EGP 23,56,EB,4E,23,46,23,5E,23,56,23,7E,23,66,6F,ED,B0,C9MZ:pdFT$()"enkelzijdig 40 tracksnFT$()"dubbelzijdig 40 tracksxFT$()"enkelzijdig 80 tracksهFT$()"dubbelzijdig 80 tracksKB$"'KH$" 5: terug naar hoofdmenu NKK$" Kies 1...5 uKO$"TF$"Track ### ":TL$"lezen":TS$"schrijven "߈TC$"controleren":KP$"kopieeren":DK$" diskette "DT$"druk op 'n toets":TT$"(toets)"7OT$"plaats ORIGINELE":NT$"plaats NIEUWE"_AT()(:AT()P:AT()P:AT()e:v:Hoofdmenu MV ` A$() " " KB$lj TA) " 1: formateren"  ) " TA) " 2: systeem" DK$ "maken " TA) " 3:" DK$ KP$ " >, TA) " 4: file(s) " KP$ " b6 TA) " 5: stoppen" ) "@ TA) KK$: TA) KO$J:T () , ,,,p: T^:Ɗ:FormaterenK$"FORMATEREN": : >:Interleave: TA);: ,,:ILM "Interleave factor (1...15)"; IL: IL IL ] ,,: c :x:Geformateerd?  A$();:A$(KD,,)͋* "Al geformateerd! Doorgaan?";: b: JN ۋ4 A$()> TR AT(KF):AP:DKD:TTR: ,H TA,: TF$"formateren "; TR2R:F\:sector tabelf (IL TR) (TR TR TR TR) pT: TR MS : MSzIIL: TR TR Iጄ S MS: T,S:TTI TMS TTMS: T TTNTR/ KF TR' TNTRXM KF TRO TNTR0v ?,TN:T( ): T : H TA ,: TC$T( ): T : H:ލ:directory, IPL, allocatie tabel , AS A$, AS B$ A$(,): B$()2 T  : KD,,T:[ A$(,): B$(): KD,,$ A$(,)(,)()(AT(KF),) (AT(KF),)Ž. T : KD,,T:Ȏ8 :B : JN  : L : :Sysgen4 A$() "IPL ook " KP$ "? ";: b:IPJN:: JN  m A$() "IPL gewenst? ";: b:IP$"": JN  A$() "Geef IPL regel":,, TA);: IP$:,, : :Sys lezen A$() "Zit de originele systeem" DK$ TA) "(" FT$(SF) ")1 TA) "in drive 1? (" DT$ ")" $()P A$() "Systeem in" TL$z DFMT SF:A():A() :A()(#) TR : TR A() S  (TR) A$(,TR,S):T((A())):A()A()A()& A$"": S, TR0 : : :Lees IPL4D IP IP$(,,):(IP$,)():N :SX :RS 232 veranderen}b A$() "RS 232 veranderen?";: bl JN  v : :BaudƑ OF u(( )( )) A$() "Snelheid (nu" O "BAUD) ";:NO ,,: N: N2 NK  B FF uN: ,F : ,FH :Y :Data bitss F( ):N(F ) A$() "DATA bits (nu" N ") "; N: N N  : NFNÒ :Ԓ :Stop bits N(F )  A$() "STOP bits (nu" N ") ";7 N: N N  : NFNF(N)= :M :Pariteitl* (F ) P$"N": > 4 (F ) P$"E" : P$"O"> A$() "Pariteit (nu " P$ " ) ";H (" NnOoEe", $()) p ,\ ,R : H R NFNF\ NFNFf :p ,NF: ,,z :G K$"SYSTEEM DISK": : >: M :e :Bootstrap loader  : ,KF: ,(KF)  KF , : , Ӕ T  : A$: KF A$"" T,("&H"A$)  ,0KF: ,( U): d, P ( U)$ :B CD,63,C1,3E,02,CD,65,C1H :e A$() "Systeem " TS$A():A() :A()(#) TR : TR A() S  (TR)$T((A())): KD,TR,S:A()A()A(). S,TR8:B:Ev. IPL@L IP$"" , AS A$: A$IP$: KD,,FV:s` : JN :  : IP$"": yj::Disk kopieŖK$"KOPIEEREN": : >:SDKD: T DDKD:  A$() "Waar komt de NIEUWE " DK$ " ? (1 of 2) DD(): DD DD BFO: TA,: "naar" DDT SDDD hZ:m:Twee drives A$() OT$ DK$ "in" SD TA) NT$ " in" DD "en " DT$ $() A$()ڗDFMT KF:A$(SD,,) TR AT(KF):AP:DSD:TTR: " A$() TF$TL$; TR;JT( ): T :  : AP^"DDD:TTR: }, TA ,: TS$:T( )6 TA ,: TC$:T( )@ T : "J˜T 0Ș^:٘h:Een driver A$() "Totaal" AT(KF) "keer" DK$ "wisselen":RT:ST/| TD AT(KF)S A$() "De" TD () "e keery: TA) OT$ " in" SD TT$ $()DFMT KF:AD:A$(SD,RT,)Ǚ TR : ?,RT:AP:DSD:TRT: 䙮 A$() TF$TL$; RT;T(AD): T : ,RTRT: TR AD : ADAD2Y A$() NT$ " in" DD TT$ $()rAD:A$(DD,ST,) TR : ?,ST:AP:DDD:TST:  A$() TF$TS$; ST;ښT(AD): TA ,: TC$T(AD): T : "STST: TR AD : ADAD. TR,TD4&:D0:Nog een?f:A$"": : JN  : lD::File(s) kopieerenK$"FORMAAT van DRIVE 1": ћD1KF:TTF(KF,): T  : 雦(K$,)"2": D2KF:TTF(KF,): T  : :M A$() " " KB$: T$": disketteinhoud van "j TA) " 1" T$ "1  TA) " 2" T$ "2  TA) " 3: 1 file " KP$ " ۜ TA) " 4: alle files " KP$ "  TA) KH$: TA) KK$: TA) KO$0 () ,<,n,,: 6 :F:Inhoud 1YD:FD1: F_(:o2:Inhoud 2|<D:FD2FDFMT F::MV: D:: (D) "vrije tracksǝP: "Gezien? " TT$ $()םZ `: ݝd:n:Een filex A$() "-- een file " KP$ " --2 TA,,: "Filenaam"; F$N (F$) F$"1:"F$uN$(((F$) )0)(F$,,) A$();: TA,,: N$ TA,: "Kopieeren naar"; D$۞ (D$) D$(N$,,)D$ TA,,: (F$)(D$) 0 "Niet naar dezelfde drive!!";: : USDD1:DDD2: (F$) SD,DD}H$F$:  :S$H$:H$D$:  :D$H$ A$();: F: ::Alle files۟ A$() "-- alle files " KP$ " --": TA) "Van 1 naar 2?";: b'SDD2:DDD1:ED: JN ED: SD, DD-":N, DS  :LS: DE v6DFMT SD: LS A$(ED,,DS):LS@S$(A$,DE,)J (S$) rΠT (S$) DV DE:DS : r^D$(0(ED ))":"S$:S$(0ED)":"S$'h A$() S$: F:LS: DV T3r DE,DS=| C:Rp:Stoppeniu A$(): DFMT SFz ,,: ,: , :d:CTRL/STOPn,,: x:ơX:Subroutinesסb " (J/N) ";lI$$():JN(" NnJj",I$) v JN l I$;: :6:wacht 3 seconden>O  U[:s:Formaat opvragenH$(): H$K$ A$ () " " KB$ TA) " " H$ " " T : TA) " #: ";T;: FT$(T) " ":  TA) KH$: TA) KK$: TA) KO$;&:G KF(): KF KF  q KF  : TTF(KF,)TF(KF,)  T A$() "KAN NIET!": : *4:>:Welke driveH T KDTF(KF,) : zR A$ () "Welke drive? (1 of 2),\KD(): KD KD \2f:Op:Print gekozen formaatwz A$() "-- " K$ " -- drive" KD TA) "-- " FT$(KF) " --::Wacht op diskette夬 A$() DK$ "in" KD "? " DT$ $()DFMT KF:: :nog een?1 A$ () "Nog een" DK$ "?";: b7:W:verlaag teller, ev. stopoAPAP: AP  A$() "NIET GELUKT!!":  :ť:Selecteer drive D, track T٥$ ,D:Z(). ,T:Z()8 ?,T: B  BLV:/`:C.U.C. embleem:j:,,kt TA)" Ȯ ~ TA)" ˦ TA)" ȼ TA)" ȫ - TA)" [ TA)"  ѣ  TA)"  TA)" ķ ķ է TA)"  TA)" UTILITIES 1.5# TA)" A TA)" ^ TA)" iMV:o: :Maak 11 tekens filenaamTS:T(H$,"."): T T è T TST(H$(((H$,,T)(),TS)(H$,T,)(), )2 <:DF:kopieer file S$ (formaat SD) naar D$ (formaat DD)}PDFMT SD: S$ AS 1:SL():: , AS A$: SL nZ S$d A$() S$ " niet gevonden!": :nFA$(A$,(A$,(S$,)),):RR:WR: ?,:Ax: :Max. 7 tracks per keer-DFMT SD:AD:TR: S$ AS 1] ,RR:RRRR:TRTR:T(AD):ADAD} RRSL TRx  : DFMT DD: WR D$ AS 1:AD: D$ AS 1:TRު WRSL ,WR : ,SLT(AD):WRWR:TRTR:ADAD' WRSL TRx  : BAA: ASLw H:^:File attribuutfSA$((D$),,S):T(A$,(D$,)) T SS:  (#)T,(FA$)Ы" (D$),,S֫,ܫ6:@:ErrorJ F   4T E  |K^ A$() "Tegen schrijven beveiligd...rh: TA) "overschrijven? ";: br A$(): JN D$,"": : ,| D ٬ P d : A$() "Disk vol!!  : D$ :DV: ,,,:DFMT SF: $:*TAMVXSFTAF1!F2!ADKBKH KK0KOWTF ~TLTS TC KP ÈDK ӈDTTTOTNT (TFFT$ Y|‡AT ڊHӲKFKDILI̱JNTR(APDZMSISTN'BTFFT$ e·AT (PPM:Installeer de voor dubbelzijdig 80 tracks drives gemodificeerde DISK:BASIC op een enkelzijdig 40 tracks diskette: X, : AZ: : A: T: ::Machinecode voor bloktransport:$:verplaats b(0) bytes NAAR adres b(1) VAN adres b(2)".:<8 AD : AN: jBB:L 23,23,5E,23,56,EB,4E,23,46,23,5E,23,56,23,7E,23,66,23,6F,ED,B0,C9V:` "INSTALLATIE PROGRAMMA voor C.U.C.'sj "dubbelzijdig 80 DISK BASIC aanpassing.t "Versie 1.5, door P.Zevenhoven": D~ "Plaats (originele) DISK BASIC systeems "diskette in drive 1 (druk 'n toets) "; A$$(): :  "Origineel systeem inlezen.... ";: B() ::Track 0 heeft 128 bytes per sector: B() ::Adres voor 1e sectorp B()(#) ::Adres sectorbuffer T  ::lees sector 3..6 A$(,,T)̃ A ((B()))߃ B()B()  B() :A((B()))::sector 6 ook naar B680hZ  B() ::beginadres voor sector 7 T  ::lees sector 7..18 A$(,,T)( A ((B()))DŽ2 B()B()΄< F B() ::track 1 en 2 met 256 bytes per sectorNP T  ::lees track 1`Z A$(,,T)td A ((B()))n B()B()x ʅ T  ::restje van track 2...܅ A$(,,T) A ((B())) B()B()  :6:Enkele parameters opvragen...<:C r "Hoe dient een eventuele 80 kolomskaart "ingesteld te zijn, PAL of NTSC (P/N)? ";ˆ PN$$(): ("PNpn",PN$) ܆ PN$: :  "1: Enkelzijdig 40 tracks  "2: Dubbelzijdig 40 tracksM "3: Enkelz. 80 tracks, omschakelbaarz" "4: Dubbelz. 80 tracks, omschakelbaar, "5: Enkelz. 80 tr., niet omschakelbaar؇6 "6: Dubbelz. 80 tr., niet omschakelbaar߇@ J "Kies 1..6 voor drive 1 ";(T D1($()): D1 D1 T2^ D1Th "Kies 1..6 voor drive 2 ";{r D2($()): D2 D2 T| D2:  "1: 6 ( 3) millisecondeȈ "2: 12 ( 6) milliseconde舚 "3: 20 (10) milliseconde "4: 30 (15) milliseconde ; "Kies 1..4 voor stappenmotorsnelheidh "(tijden tussen haakjes gelden indien "de 1/2 MHz uitbreiding aanwezig is) "; ST($()): ST ST ĉ: : "Systeem aanpassen.... ";: :Nieuwe BOOTSTRAP LOADER:- AD : AN: j3:j& 21,00,D4,F9,E5,CD,41,35,F3,16,10,CD,25,C1,3E,000 D3,38,FB,76,76,76,76,F3,00,00,00,00,00,00,00,00؊: 16,18,CD,63,C1,3E,02,D3,32,E3,E3,E3,E3,3E,80,D3D 30,E3,E3,E3,E3,21,00,D4,0E,33,DB,34,87,38,07,F2FN 3A,C1,ED,A2,18,F4,DB,30,E6,1C,20,D9,22,36,C1,21}X 26,C1,34,7E,FE,12,20,02,36,01,15,C8,FE,12,20,C5b C3,22,C1,3E,52,D3,30,E3,E3,E3,E3,DB,30,1F,38,FBl C9,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00v::Aanpassingen aan initialisatieroutine$:C:80 koloms instelling... AD u: AN : PN$"P" PN$"p" j:  : : jŒ:  6C,50,58,08,26,02,18,1D,00,07,60,08 ::80 koloms PAL (50 Hertz)X 6D,50,59,0C,1F,02,18,1A,00,09,60,08 ::80 koloms NTSC (60 Hertz)^:n , ~ ,  ,  ݴ,  ,  , č :ݍ AD : AN: j :* CD,80,EF,21,61,D5,CD,8D,00 4:D>:DISK BASIC wordt uitgebreid met het DFMT commandoH:DFMT 1, 2, 3 of 4 geeft het te gebruiken disk-formaat aanR:\ AD : AN: jf:p 01,28,28,11,00,00,21,21,21,B7,28,17,0E,50,21,C2z CA,3D,28,0F,41,11,10,0C,21,C2,CA,3D,28,05,0E,A0P 21,21,CA,78,32,2E,DA,79,32,A1,ED,32,24,ED,00,00 00,32,2F,E7,32,4E,DE,3D,32,CD,EC,32,C4,DD,7A,32 2A,DA,32,51,DA,B3,32,4F,DA,7B,32,3D,DA,7C,32,04 DA,7D,32,07,DA,C9,FE,44,C0,E5,23,7E,FE,46,20,0C, 23,7E,FE,4D,20,06,23,7E,FE,54,28,03,E1,7E,C9,D1c CD,A5,1A,3D,FE,04,D2,9E,0F,E5,47,C6,31,32,85,D6 78,E6,02,FE,00,32,41,D6,78,28,15,F5,AF,CD,0A,DAѐ AF,CD,9B,D9,CD,67,D9,AF,3C,CD,9B,D9,CD,67,D9,F1 F5,CD,BD,D5,F1,28,1D,7A,D3,38,FB,76,76,76,76,4A? 3E,42,CD,45,DA,CD,67,D9,AF,CD,9B,D9,3E,42,CD,45j DA,CD,67,D9,E1,D1,C9,3E,31,0D,0A,00p: ,  : :Toegestane formaten in routine aanpassen :$ D1 ŵ, ! : ŵ, . (D1) (D1) ͵, ! : ͵, S8 D1 ׵, ! : ׵, B (D1) (D1) ߵ, ! : ߵ, L :V D2 ĵ, ! : ĵ, ` (D2) (D2) ̵, ! : ̵, #j D2 ֵ, ! : ֵ, Ut (D2) (D2) ޵, ! : ޵, [~ : :Bij 40 track drives RESTORE en STEP IN na omschakelen weglaten D1  ѓ T M S: T, :  T y : T, :  D2   T T [: T, : = T m u: T, : C : :Nieuwe routines voor selecteren van drives en tracks : AD : AN X: j :ݔ 3A,94,F9,3D,21,DD,EA,21,DD,EA,21,44,DA,CB,96,30 02,CB,D6,3A,F2,D9,B7,20,0A,3E,0C,D3,34,06,23,FBK 76,10,FC,21,F0,00,C3,95,D9,F6,00,4F,78,D6,28,38 03,CB,C9,47,79,D3,38,DB,31,B8,C8,79,F6,00,D3,38( 78,D3,33,3E,10,D3,30,CD,6B,D9,79,D3,38,C9,3E,00ؕ2 0E,00,D3,38,3E,00,18,EDޕ< :F :Patch DISK BASIC voor deze nieuwe routinesP :&Z , 6d , Fn , Lx :\ ι, l Ϲ, )| й, : g, h, N i, : ,: ,: ,::Bad allocation gevaar over := :Zet adressen en initialiseer nieuwe 'allocation' tabellenC :_ , y: , { , : ,  : w, : x, : y, " z, : {, —, :6 , : , : , @ , : , J :*T :Stappenmotorsnelheid aanpassingK^ D, ST: U, STQh :r :Snel opstarten (geen 'ik ben SPECTRAVIDEO' plaatje), nu blijft| :de SWITCH instructie ook werken.Ř :ߘ AD : ANF: j嘚 : 21,79,EF,22,95,F9,21,13,D6,22,58,FF,3E,C3,32,57S FF,21,C1,F0,22,8F,FE,32,8E,FE,3E,00,CD,BD,D5,3E FF,32,75,FE,3E,0F,F3,D3,88,DB,90,4F,EE,04,47,E6 04,F5,C4,41,35,F1,21,9A,7D,C2,A4,7C,32,75,FE,CDڙ 20,34,F5,C3,51,7C : :"Ok" verandert in ">" plus het drive formaat (1..4)! :; AD : AN : jA :f E1,CD,63,64,21,84,D6,C3,C1,09l : :De MODEM routines gaan voor de RS-232 werken.... behalve DIAL& :К0 AD C: AN: j֚: :D 00,00,CC,F0N :X 2, +b 6, +l C, +/v G, (? K, )O O, +_ S, )o W, , Y, ( [, - ], . , ( , -ϛ , -ߛ , ( : AD : AN : j :- 21,D5,3C,E3,DB,2A,1F,D8,C3,8F,EE3 :p :Gemodificeerde systeem op gereserveerde tracks zettenv* :4 : : "Stop lege, geformateerde DISK-BASICҜ> "diskette in 1 en druk 'n toets ";H A$$() R : : "Systeem wegschrijven.... ";\ :Cf :Met head-load van TEAC's rekening houden...Up ,,: gz ( z m :z B() B()(#) B() Ν T  ::track 0 schrijven᝶ A((B())) ,,T B()B()  B()K T  ::track 1 schrijven^ A((B()))l ,,T B()B()  T  ::track 2 schrijvenΞ$ A((B()))ܞ. ,,T8 B()B()B L: V , ` ?j:READ en POKE AN bytes vanaf adres ADft A$: AD, ("&H"A$): ADAD~ ANAN: AN  t jF: ::Alle files A$() "-- alle files " KP$ " --": TA) "Van 1 naar 2?";:T Bond12(Bondwell 12 (1D/40)H CBond-1(Bondwell 14 (2D/40) ?h A$() S$: F:LS: DV T3r DE,DS=| C:Rp:Stoppeniu A$(): DFMT SFz ,,: ,: , :d:CTRL/STOPn,,: x:ơX:Subroutinesסb " (J/N) ";lI$$():JN(" NnJj",I$) v JNOd:BPUT, BGET, BRENUM, BSWAP, BCLEAR und BFRE fuer SV.328, Version 2Un:x:** Namen des Programm in den Tastaturbuffer schreiben, da~ـ:** nach der Ausf}hrung von BPUT/BGET gestartet werden soll:Diese Routinen ersetzen die Programmzeilen 120-220 in BPUT!:X Q$ ("):NA$ "1:SPECHT.CUC" : Q$ = <"> :NA$ = Programmnameց I$ "run" Q$ NA$ Q$:  : I$ = ܁: :BPUT/BGET-Routinen schon installiert?' : B: -:A : d GM:w:POKE dieses Maschinencode-Programm:in eine Tabelle und starte es. "΂" : : AZ: T(), A: D$"": U6 U(T()): AU-@ D$: D$"*" A, ("&H"D$): AA: @AJ U: U(U)GT:g^ 23,23,5E,23, 56,D5,CD,78h 1D,D1,21,E1, 00,19,E5,21r 1C,01,19,4D, 44,21,EC,00ǃ| 19,5E,23,56, 23,7A,B3,28烆 13,E5,EB,09, 5E,23,56,E5 2A,4A,F5,19, EB,E1,72,2B' 73,E1,18,E5, C5,21,9E,01G 09,E5,21,04, 00,09,EB,21g 57,FF,01,03, 00,ED,B0,D1 21,2A,FF,0E, 03,ED,B0,11 E8,03,CD,27, 0B,F5,ED,5BDŽ 4A,F5,21,57, FF,36,C3,23 73,23,72,D5, 21,E6,01,19 EB,21,85,FE, 36,C3,23,73' 23,72,D1,D5, 21,97,01,19G EB,21,2A,FF, 36,C3,23,73g 23,72,D1,F1, E1,C5,F5,01 32,02,ED,B0, ED,53,4A,F5 AF,12,13,12, 13,12,F1,E1Dž 30,0F,EB,2A, EE,F7,B7,ED& 52,4D,44,2A, 4A,F5,EB,ED0 B0,CD,E5,0A, 23,22,EE,F7': F3,3E,0F,D3, 88,DB,90,47GD CB,9F,D3,8C, AF,32,04,00gN 21,FF,7F,22, 00,00,2C,7EX 2F,77,BE,20, 04,25,20,F7b 2D,78,CB,8F, D3,8C,22,04džl 00,78,D3,8C, FB,E1,C3,3Ev 0E,3A,92,3A, 42,92,0C,FF 7F,3A,8A,00, 10,00,19,00' 1E,00,3A,00, 53,00,58,00G 69,00,7A,00, A5,00,CD,00g F4,00,F9,00, 2D,01,38,01 3B,01,67,01, 7B,01,BD,01 D6,01,DC,01, 15,02,C6,00LJ F7,01,00,00, FE,42,28,03 C9,C9,C9,23, 7E,FE,92,28 17,FE,B3,CA, 91,00,FE,B2' 28,44,FE,A4, CA,1F,01,FEG AA,CA,58,01, 2B,7E,18,E0g D1,D7,28,0F, CD,B9,1C,7A FE,10,DA,9E, 0F,FE,80,D2 9E,0F,B7,E5, F5,CD,1B,02Lj  F1,28,04,ED, 53,00,00,21 07,00,22,02, 00,06,03,36  00,2B,10,FB, 7E,B7,C4,2A'* 02,20,EC,C3, 51,01,D1,23G4 CD,B9,1C,CF, 2C,E5,21,91g> F6,22,8F,F6, CD,F6,01,3EH 00,38,07,79, 11,91,F6,23R ED,B0,32,8E, F6,CD,52,01lj\ E1,CD,66,60, F7,C2,05,09f E5,21,8E,F6, 22,25,F9,EBp 3E,03,C3,D3, 10,D1,23,CD'z B9,1C,D5,CF, 2C,CD,CA,14G E3,E5,CD,D5, 6A,D1,D5,E5g CD,F6,01,38, 1C,5D,54,23 09,1B,1B,D5, EB,2A,02,00 B7,ED,52,28, 0C,4D,44,EBNJ D1,ED,B0,ED, 53,02,00,AF状 12,CD,24,02, E1,D1,7E,B7 CA,51,01,D5, E5,4F,06,00' 23,5E,23,56, 2A,02,00,09G 23,23,23,3A, 01,00,BC,38g 0A,20,1A,3A, 00,00,BD,38 02,20,12,3A, 04,00,B7,C4 2A,02,20,D0, CD,52,01,11Nj 0E,00,C3,07, 09,E1,E1,D5 EB,2A,02,00, 2B,2B,73,23 72,23,71,23, EB,E1,ED,B0' EB,71,23,71, 23,71,22,02G$ 00,18,32,D1, 23,CD,B9,1Cg. D5,CF,2C,CD, B9,1C,E3,E58 CD,F6,01,38, 1F,E3,DB,90B F5,D5,EB,CD, 24,02,CD,F9njL 01,38,0F,C1, 2B,70,2B,71V F1,D3,8C,E1, 2B,72,2B,73` 18,03,E1,E1, E1,E1,ED,57'j D3,8C,FB,C9, D1,23,CD,B9Gt 1C,D5,CF,2C, CD,B9,1C,C1g~ E5,D5,CD,1B, 02,21,05,00 5E,23,56,23, 7E,B7,20,0B 3A,04,00,B7, 28,D6,CD,2AǍ 02,18,EA,7B, 91,7A,98,38獦 0B,E3,EB,19, EB,E3,2B,2B 73,23,72,23, 5E,16,00,19' 23,18,D5,23, 7E,FE,42,28G 04,2B,C9,C9, C9,23,7E,3Cg 20,07,23,7E, FE,8F,28,04 2B,2B,18,ED, D7,CD,E9,16 E5,CD,D0,55, F5,11,00,00ǎ CD,1B,02,2A, 00,00,01,07 00,F1,F5,28, 04,ED,4B,02 00,B7,ED,42, EB,3A,04,00'  B7,C4,2A,02, 20,E5,F1,CDG 52,01,CD,9B, 58,E1,C1,C3g D9,14,FE,AA, C0,2B,7E,23( FE,42,3E,AA, C0,D7,20,FD2 2B,C9,CD,1B, 02,21,05,00Ǐ< 44,7E,23,BB, 20,02,7E,BAF 23,4E,79,20, 02,B7,C0,23P 09,B7,20,ED, 3A,04,00,B7'Z C4,2A,02,20, E0,37,C9,F3Gd 3E,0F,D3,88, DB,90,ED,47gn ED,57,CB,8F, 18,04,ED,57x CB,9F,D3,8C, C9,00,"*"::BELANGRIJK!! Eerst dit programma naar CASSETTE of DISK SAVEn, voor dat het geRUNd wordt.:D:*** Universell einsetzbare Routine, um einen String in ***:*** Tastaturpuffer zu POKEn. ***ȑ:*** Der String wird in der Variabelen 'I$' }bergeben! ***Α:J% :Anfang Tastaturpuffer> J%, :Erstes Zeichen CHR$(30)Z I% (I$):J%J% J%,((I$,I%)) :Zeichen vom String zum PufferВ J%, :Zum Abschlu~ ENTER ,(J%)  :Zeiger auf Endadresse - 17 , : :Zeiger auf Anfangsadresse="v, ()"A"; :Simulierte Eingabe l|schen6 ()"M";schen' ()"M";";M";e Eingabe l|schenՓ' ()"M";erte Eingabe l|schen' ()"M";M"; naar CASSETTE of DISK SAVEn, voor dat het geRUNd wordt.K:Q':*** Universell einsetzbare Routine, um einen String in ***Ք':*** Tastaturpuffer zu POKEn. ***$':*** Der String wird in der Variabelen- : Installationsprogramm f]r XUTIL.SYS5:H, : AZs(N$ "1:XUTIL.SYS": FK :: FKEYS2 UNSIGNED (N) NEeS`(N)< N$ AS #ˀFLA UNSIGNED(($(,#)))PEA UNSIGNED(($(,#))) ZST UNSIGNED(($(,#)))d #: An "Beliebige Taste, und die aktuelle"kx "Funktionstasten-Belegung wird von" "XUTIL.SYS uebernommen. (Abbrechen" "mit ): ";ÁI$$(): N$ҁ Z 聪 LAZ, (FKZ) N$,LA,EA,ST "Fertig...": , : ,LAEE`EAEEDSTEE$I : LW@:ǂJ:قT () :^ HX$(LA,))hX$"":Z$"" r I LW|C$$(,#)N C$" " C$() X$X$" " : X$X$C$u LAIST Z$Z$">" : Z$Z,4D,CD,**,**,ED,5B,**,**,E7,20,09,FB,CD,12,35e 30,F3,C3,4D,20,F3,22,**,**,69,60,F1,57,D6,0D,28 08,FE,13,38,07,3A,41,F5,3C,32,41,F5,CD,**,**,E1у D1,C1,F1,C9,F3,21,79,FE,11,A8,F5,01,03,00,ED,B0 2A,4A,F5,E5,22,79,F5,22,84,F5,22,A3,F5,22,DB,F5= 23,23,22,76,F5,22,88,F5,22,D2,F5,22,EB,F5,23,23s 22,99,F5,22,01,F6,11,11,00,19,22,A0,F5,22,D7,F5  3E,C3,1E,0A,19,32,79,FE,22,7A,FE,1E,3C,19,32,09߄ FF,22,0a,FF,1E,0F,19,22,C2,F5,2A,6C,F5,22,50,F5 22,52,F5,D1,21,50,F5,0E,B8,ED,B0,EB,71,23,22,4A4( F5,CD,71,01,C3,AF,09,ENDeradresse (in HL) und setzt diese Adresse auf{:den Anfang ... :… 11,**,**::INCHL: ld de,MAX ;Maximalwert nach DE  E7 :: rst 20h ;vergleicht HL mit de files 1 load "1: save "1: list run files 2 load "2: save "2: kill "1: dfmt Expanded CMD-BASIC 1.0 !";BDM!^#V#{( ~w#~w!!͍*+R""@!;">2:?(>P_o+>!5J!;[ô;!(((.(V> 28W>ӈې ˏӌېg˯ӌYP9$~w+5l#"Ul* $:$'"Ul/l!'"'+¥{#~B(+#~< #~(++U*%$%¥}ʥҥ~2%^#V#~(z {(&8x y0^#:(+!7 <ېS͕dӌ`iRB8 R8`iR(\0% =(DBK(.7 =?ٷ(#3<  DMBK H%j(0~##N8x =(3<(B8hB(0`~#5OT]# *RMDBKw: :(&~#5OT] KBDM+++K ON ###"D* ###:8 #:8 : S ~#5O+K q#q#q"`i++s#r#wO#+ å,͹z(å8 #:8 : S #y5O+Kͩq#q#q"`i++s#r#wO# ~~ɷa8{80[!_W[8^8 ##w!~#N#F#hCOMP 1 2##w!~#N#F#W^#N#F{zد< _G~_ #?<COMP 3 ͂##w!~#N#F#W^#N#F{zد<;(._G(^_ #?<~ݾ ~(_ݾ ~ #z( _ݾ ~~ݾ ~ ~  <;( _ ~ ݾ ~^<ݍ ^^  AOUAOUSaousEEEEEESeeesaouAOUa7#: !6#6#6#q#w+ #wy2!Wa6SÍAOUSAOUSaousEEEEEESeees8*"*"++^#VS#~2:2+*"*" ++^#VS #~2:2R"SC""SC"" """$"&åå2# : !6#6#6#q#w+ #wy2S!`<!+!S_= Bert 1 Carlo 2 Dore 3 Ellse 4 Fred 5 Gerda 6 Hans 7 J|rgi 8 Jost 9  ͊F#^#V ###>+@>w#>w##^#V)8Xw+xwX!()zw+{w$IWWVijjj kk<u$D"V!VV!VVӀTsBpee> !