? ?SYSDIR SYS CMDINT SYS` COPYLIB ABS LIB BAC =RZFORMATBAC @KLISTA BAC LISTR BAC FORMVAL BAC`CGLISTA BAC GLOB BAC REGSIZE9FIL MORGFS\K BAC )FS\K BACDRIVAR TXTADDOPT ABSISAMOPT RELSTART BAC VERSION BAC`REGSIZE1FIL BASICINISYSS0 XXX S1 XXX@REGSIZE3FIL`4ERZRP BAC,L[RARE BAC`,KLASS BACINSKR BAC(BYTEK BAC@REGSIZE2FIL`SSIZE0 BACSSIZE1 BACPREP BACP1 ISMP1 DAT P2 ISM@P2 DAT`DRIVEDR5BACDRIVEDR8BACDRIVEDR4BACDRIVEMO BACDRIVEMF BACDRIVESF BAC FT BAC KOPYVAL BAC`DELKOPIABACHELKOPIABACP3 ISMP3 DAT CREINDEXBAC!BYTEL BACS2 XXXSSIZE2 BACS3 XXX SSIZE3 BAC@[RUB BAC&INSKR 152! %BETYG BAC? bc !? >?LE_I~ÃÇ5=ÜABS  NAMENAME.EXT  F|rst}r ej Filen ej funnen Filnamn saknas Felaktigt drive nummer Fel i systemdata Skivan ej klar  < * R > E A D Y *  ABC800 DISC OPERATING SYSTEMVERS 1.01 Feb '81!{E` Q{!w#w#w!>2A>20:0G!Ao~<( n!`6:020q8!P~# (+ ~ ( `8 w#!46.36!~$ 4:H:.I .@:y =4M_B`+F+^+~ (DO{R x080O:4@o&q:H::4B_5.H~..I .@:4J_B`:4 $:H,[/r!3n&~ #n a+}23!4~wq!~$O!B~BO#~AO#~SO.J~ J !=B`!@~!EOB`!hE:@!AN!` <&`!I@B`@ A^&iwyHO0:!Hw!3~G w#yO6`!T̓(6`y O6` W>.̓z̓(6`> ̓yF ,;3!:W0̓(zW>s?;p?m^V@+##~ # c Q W@ !9  @ @@~(02;yO6`!T̓(6`y O6` W>.̓z̓(6`> ̓yF Q:?W>*,,&## FILE EXIST! DO YOU WANT TO REPLACE ? (Y/N):  !Qz=vZ !=B`!P~!OR`!h> w#yO6`!T(6`y?: O6` W>.z(6`> y!:W0(z(0b?08!~# (~#/(,( ( ( ~V 2@!:P!r!~00!U02!!~00!U02`!!~J :@2@!_!P͜0!!:2P!6 !"A"C6!U:P 2O:`2ͧ08 ! !5y2y y_`6*yo~#<>oR  (#>.!U!!E~A:EA(!IXN (1Y :F=|8*Aq#>.>SAy( O  [AS07! " :Χ! !*C~ʠ#_:O`! *C":O `8 $`!``*C"C:<<//d0d 0:!p#q#w!! 6 !G ~.(8w7#~ ( 8w! AA06&^?0:?uE`2=̯2>E`-`[A!>~4W*$.:> 8ݯ2?:>̧('[A!?~4W*$$. 0`:>!?̾ :=̧:R2<:Q!aw !`>2Q!]V!\^ '`>2=E`!R4#4:@O!~!2<2>*" * "d0453~ !-:@W(!E!#_:O>42Q`! :O" `! QE`E`-`*$.[ S :><2> E`E` -`*$$.[S:<<2< Q*" * "[ S ":<=2<ʹ004H*" * ":> ̯2> :>O:<̹˧Æ!!@!:@2@ ø#!##!  Kopiera  Kopiera fil?  Orginalskivans drivenhet? (0/1)  Kopians drive03Unhet? (0/1)  Verifiering? (J/N)  Felaktigt filnamn XXXXXXXX.XXX ?  Fas2 Kopiering Programfel !  Fas3 Verifiering Inga verifieringsfel  Verifieringsfel - Kopiera en g}ng till  Sektorfel p} kopian  Verifieringsfel  S02bektorformatfel p} orginalfilen  Sektorformatfel p} kopian  Olika fill{ngd xxx sektorer kopierade Kopiering av filer Version 1.01 Tillg{ngliga kommandon: A - Kopiera resten av skivan X - Uthopp, kopiera inget I - Ko0 p1opiera ej resten av skivan Y - Kopiera denna fil Y=Filnamn.typ - Kopiera med nytt filnamn Orginal och kopi({0a m}ste vara olika Fel i biblioteket Filen ej funnen Filnamn saknas Felaktigt drivenummer Fel i 0 0{systemdata Skivan ej klar bk6 : &x0U>  D HR B08<08#x 0,> . #x0>  >7_-0-8+~# (0:?A^?F8Felaktigt drivenummer Fel i @?@! #& !********************************&!* LIB.BAC *&!* Biblioteksprogram *&(!* f|r ABC800 *&2!* Ver 2.0 (40/80) *&<!* LUXOR *&F@!********************************PǠZ޵Td($օ8$n(ݵ**$x $** ABC800 LIB **0!ݵ:ݵ@ݵFݵLݵRݵX 0$$1 - Skrivare (Printer)$@ 2 - Storlek$ 3 - Filstatus $4 - Viss drivenhet$ V{lj (1-4); ޵^,&1234^݊ᖆ!`1ݍ޵:2ݍ޵@3ݍ޵F4@ݍ޵L",:ފPR::6Lލ ޵Xq+@փ@փ@ֈ փ@Drive:;JT^01 h'R rRX |0RoX8,of`ǀ @#:#:Drive: o0 ݵ ^^Ǡ^݊ 圵f`)ݵ^丼^ ^&ݵ0 ^^ǠJ:^2Dݵ@!N^݊Xb lf`vu y ^ V^^ޜ犈F#^ ^ #^   #:"ޖ#:Volym:  #:@ݵ^丼j^ߐQf`^ w   ݊ ޜ *4Fލc >ޜވ (S ((Hޜ߈R) ) R@ ()  \븼2f銽 .p z#:*;@ލ ,,p,,,`ݵ߸:$@ ޜ#:;.:ލ#SRօH* ފ  #:޵ݖ#:&$:ލSR݊  .#::8#:*ޜ  av sektorer kvar.@ BL޵VqM`FފB#:#:*' S = Skrivskyddad R = Raderskyddad jՁt#~Fler utskrift (j/n):;jJ nNC튾(Skivan verkar d}ligt formaterad@ Diskfelzzy 9$1*y0z:y@yFyLyR X^y oyyy} y yzy yrift (j/n):;jJ nNC튾(Skivan verkar d}ligt formateradP/?Pa94PI D------------------------------------------------------------------- 1 ,PROGRAM RZFORMAT ( FORMAT-HANTERARE ) /*SYSTEM ELEV-REGISTER ([nrad help)1984-02-09 Version 1.5P BO GRUSELL BG DATA HC------------------------------------------------------------------/P   BHN** ----- START ------2-*------ DIMENSIONERA GLOBALA VARIABLER P-----#LR4R(#2BR%br$*----- INITZIERA PRINTER ----- ]% ! *----- \PPNA REGISTER -----  N N  FPORMAT.FILm! #m,݂ #m,Ʈ ޵9 2®ޟޜ B® #*----- L[S REGSIZE FIL ------ 0+*----- L[S RZFIL F\R SYNTAX KONTROLL -----P'+'&***** ----- PROGRAM STOMME -----*****'*'%*----- SKRIV BILDSK[RMS LAYOUT -----' $'!t'v'*----- VAL -----x'';O;G'7REGISTRERA = R S\KA = S BIBLIOTEK = B;"'PޫFݫ$"'ފ***** AVSLUTNING%'Rr Registrera'SsMS|ka"'Bb R 'F ;:+:&* ----- AVLUTNING AV PROGRAMMET -----: :;P: FORMVAL.BAC N%"N SUB REGISTRERA ( RZFORMAT )$N&*N Registrera;O; 4Nx">Nފ ; zN NN޵3-N: Oldpost$(I%)=Post$(I%)NNP,N'----- Kontroll om formaten finns -----N޵N2NO8OSKALL  SKRIVAS \VER ? (J/N);"$Oޫ<ݫ".OJj#?8ONn*P F;NXBOފ NLO< ;VOW,O'------ Leta efter ledigt format ------O޵OBLaOFO/20 UTSKRIFTSBESKRIVNINGAR FINNS REDAN INLAGDA ;  OP OixP2BU!P#m,݂ #m,Ʈ/P®ޟ 2U®ޜP#m,݂#m,®"P#m,#m, P PPU(U#SUB S\KNING ( RZFORMP AT )UVV*----- L[S S\KORD -----XV ^VS|ka;O;Vݵ%VݫsVފ  VV޵V2ZV(&VFINNS EJ REGISTRERAD ;%W P F;W9'W#m, #m,Ʈ&W®R 0W W VALWY2Y-** ----- VAL AV ]TG[RD VID FUNNEN POST -----Y7Y'[NDRA = [ BORTTA = B S\KA = S;2YP <S;ޫ<ݫYފ \/ Z[{vTZBb*-ZSs䊆SB^!L^#m,݂ #m,Ʈ-V^®ޟ PU®ޜ`^#m,݂#m,®j^2"^#m,#m,^;S|ka; ^[^"^Om f|rsta posten i registretaa*----- BORTTA -----aa;Bortta;aPO;'"ANTAL RUBRIKER" \VPERST[MMER EJ MED ANTAL I "TAB-RUBRIKER"'=y<6'"L[NGDEN P] RUBRIKERNA \VERLAPPAR TABULATOR L[GENA"'%y6'"ANTAL F[LT" EJ NUMMERSIKT'y Error 6 - 10>y=7'"ANTAL F[LT" \VERST[MMER EJ MED ANTAL I "TAB-F[LT"'#, H#, R#,f渇 (L&C*.,)FNRZREADRZFIL ( REGSIZE ).*2%5E(P"M%ZREGSIZEN.FIL渇d#,  n#,x#, ޵"#,%ߟ #, #, 5#,TYPLN E޲4D E߲H EP#ಊ EݲQȠ#, BLOCKL[NGDܠ渇栆`;6*+-+-+- Dimensionering av post {ndrad fr}n 30 till 50,2Oldpost$(Antalf{lt%)=30%#DIM Index$=4% : Index$="KEY1"ݸ P)(G޵P$'! 5f ݸR ૌ 9!⫐#䫐FNRZL[SPOSTER ( REGSIZE )櫐N[N. X޵q Z bݵlޜ3nߊv,P%E/݊n(䊾S ފ޸%⊾ޟސJYTIF X9%=6% Post$(I8%)=Oldpost$(I8%) : ; CUR(3%+I8%,18%) Post$(I8%) " "; : GOTO 44140P&e[1"[R REGISTRERINGEN OK ? (J/N);( [NDRINGARNA OK ? (J/N);2Ƭ-J;ޫ-ݫЬJj䊆'ڬNn⊆䬀%FP';$*+-+-+- Inlagd syntax kontrollݸ  ,'FNSKRIVSK[RMBILDRZ ( REGSIZE )  > UTSKRIFTSBESKRIVNINGAR2MD) ;%*P=;P=;>P(޵@Bߊ,+H%%:;R\ݸf pz,qrtFNRZSKRIVP]SK[RMvz޵/|ߊ;ݸ Č+Đ#ĐFNBLANKAINM P) ( STANDARD )ĐĘ൸Ĕ2;ęŔO;ŔO;0Šݸ:ō h(j*l%FNPRINTEROPTIONER ( STANDARD )n pƧr?| INITPR.FIL渇#,Ƨ#, űP* 񟈀 PR:VSA30C72.5Hݸi)(#FNINST ( STANDARD )INST.FIL渇 #,9P+U"Sidnrindik$=MID$(Q0$,86%,1%)渇&ݸ.0 !  ! 1$2FNINPUT ( STANDARD )36VERSION 0.1 8209238:<;;S,<޵!  P,=>;"D޵ߜN޵Xblv ݵݵ----- INL STOMME -----; &!-----P-- PF - TANGET ------------- ޵PF1 ߵPF2 mPF3 ᵢPF4 ⵢPF5 㵢PF6 䵢kPF7 sP.PF8% ------- \VRIGA TANGENTER ------2 ݊ 䵢 "RETURN" Mostv. PF7 ꊾl 劾[<== 抾A==>+ ;c) SHELP / SHIF+PF7*P/ hHC SHIFT+CTRL+PF8ޜ$  .ߊ .88ފߊB 0 9>; ޜ,'---------- INL SLUT ---------P0---------3VQIF X4%=2% AND INSTR(1%,X$,".")>0% AND INSTR(INSTR(1%,X$,".")+1%,X$,".")>0% 62000 ޵ߊ0<ߊ F|r stort decimal tal"(P1F/*ኾ$ ;2A ; F'"----------- PF8 ( RADERA ) ----,@ޜߜTh+j ;r$|-----P2 PF3 ( INS[TTNING ) -----ޜՁޟ ޜ ;D------<==--------Xݙ ݵ bޟ--------==>------------  ޜP3"p------- PACKA / SKRIV ------ z ޵. §⸇൸q  ݵ5OCxP5 < (7 2P4#,<&F#⸈BP⸇ RZd nSUB HELP ( STANDARD )xTEMP.FIL渇ݵ] (ݵ5O/xP5 ((X #,(MP5/%REGSIZE.FIL渇 &%REGSIZE.FIL渇#, #,(#, "ފ 5, ;F[LTNR BESKRIVNING;D) ;%6P=;P=;/@F[LTNP6RNAMN(L[NGD;J޵ T((((^(;h#,(((ߟ (r(;|#, rr((((((;#, r#,(c;P7011-17 [mne1 - [mne7*5;Aފ618-24 Sign1 - Sign7*3;渇0 TRYCK P] "RETURN" F\R ]TERG]NG ;<    TEMP.FILP8渇ݵ4#,(((ߟ ((;t渇TEMP.FIL&X#RegnrReadrzfilSkrivsk{rmbildrzInputRzl{sposterBlockAntalf{ltPostOldpostBl{ngdWriteIsamerrorBlankaLstL{ngdRzreadfirstKeyP9IndexReadkeyIsreadfirstIsreadSkrivNewblockL{sposterIsrewriteDeleteRzreadrzfilRubrikStartiblockTypRegnamnVl{ngdRzpackauppPrinteroptionPoptionPraderInstRadDatumindikIsreadkeyFilnrIswriteFileIsdeleteL{ssk{rmbildBlankainmSkrivpP:}sk{rmIsdelteRzskrivp}sk{rmIreadkeyRnendSavrSortordningL|pnrErcodeIsamreadIsamreadfirstFormatLediglistaPoistErrorAntalrubrikerAntalRubriktextTabrubrikerAntalf{ltnrTabf{ltnrF{ltnrInv{rdeTabrubrikFormatnrGotGetFgMaxf{ltnrSll{nP;gdSxl{ngdSlfilnrSxfilnrSxl{ngMaxl{ngdSyntaxkontrollReturnSxf{ltnrTabf{ltLediglistSxregnrSxnrGosunHelpFormathanterareDisk0Disk1ScrollMenyDatum*8Z8 8B8H8N zz(726/Bn/R2b0r2-21I4y "P<!!"y"#M'W]nj/x/~!0y13 %4 y%&55'E'`z%A (1))))95y ry mathanterareDisk0Disk1ScrollMenyDatum*8Z8 8B8H8N zz(726/Bn/R2b0r2-21I4y "`/?`a;FPR= 8------------------------------------------------------- 7 2PROGRAM KLISTA.BAC ( UTSKRIFT KLASS LISTOR ) SYSTEM ELEV-REGISTER!1984-02-13 Version 1.5 BO GRUSELL` BG DATA@;----------------------------------------------------------/P   BHN50* ----- DIMMENSIONERA GLOBALA VARIABLER -----LP4(22<2F`PZ$dt'"* ----- INITZIERA PRINTER ----- ,-(* ----- L[S PRINTER INST[LLNING -----   )-` 0b +* ----- INITZIERA FORMAT-HANTERARE -----d  j ! `" * ----- \PPNA REGISTER -----  ޵N REG1.ISMe REG2.ISMf REG3.ISMg  1Z & d޲ 0 ޲ : =#* ----- L[S REGSIZE FIL ----- G',''***** ---`-- PROGRAM STOMME ----- *****''-'(* ----- SKRIV BILDSK[RMS LAYOUT -----'$'0 SUB LRSBILD*7*2* ----- L[S INNMATAD DATA FR]N BILDSK[RMEN -----*+Q L[SSK[RMBILD +ފo+- +%val e/d radframm & `printer sk{rm*+4+ފ⊆>+F;\+ªPx&f+´J¾JJRJp+3UTSKRIFTSBESKRIVNINGEN [R EJ ANPASSAD F\R SK[RMEN ; z+,.+.&* ----- L[S OCH S\K I REGISTER -----.`.'* D/22-* ----- AVSLUTA UTSKRIFT OCH S\KNING -----:3:.***** ----- SLUT PROGRAM STOMME ----- *****:: START N#"NSUB LRSBILD ( RZLR )$NP*N  KLASS-LISTOR;D) ;`P=;P=;4N Utskriftnamn:;>N1. Alla,HN 2. ]rskurs;RN 3. Klass,\NV{lj;pNN*N%SUB RUBRIKPRINTER ( RZLR )N N⸇N´J # ;COMPRN#` N#;)NJ#փ <Datum#⸇N#;$NJ#<) #⸇NfN <N(2N( N2O#⸇<O#KLASSF\REST]NDA` RE: <KLASS: $O##⸇.O޵<B#8O#<S<c;BODLO#⸇EVO´JsysP#DŽ-#P-`O#⸇jO絩tOO#OSUB RUBRIKRSK[RM ( RZLR )` OOfr%O   <O(2O(# O2 O 6PKf:  ;<KLASS: ;-P޵<B<S<c;PP=;(P` P=;2PᵩnPxP"zPSUB L[SSK[RMBILD ( KLISTA )|P!Pºݫ%PݖvPݖ_'P⊾ފ ݍ PP2Pފ^ Pº ` Pޫޫ$!P123~%Pݖ;x$Pݖ?Q⊾ QފQ ;"QC @QBQ'JQTQ Ange }rskurs; ^Q`߫ݫ# hQފjQ⊾F;%lQݖ;=%rQݖ; |Q` QQQ Ange klass; Qݫ(# QފQ⊾`F;%Qݖ;%Qݖ; Q` QKEY1erQ݊|b(INGA ELEVER FINNS REGISTRERADE I KLASSEN; TRYCK P] "RETURN" F\R ]TERG]NG ;`Q  +Q"L;L; Q QR" RSUB UTF\R ALLA ( KLISTA ) RRf&R"0R `:R6lRfvR"R $ R ` RtRL{s registret & skriv Rފ(RªPݫ ފIRJ8R!TRYCK P] "CE" F\R ANTAL ELEVER ; R 3R XR`TOTALT ANTAL ELEVER #M[N ;7 KVINNOR ;8R!TRYCK P] "CE" F\R N[STA KLASS ; R ޵R RfR DRfR"R`4S*6S%SUB UTF\R ]RSKURS ( KLISTA )8SHSfRS"\S fS6Sf>S"S vS S  StSL{s register & skriv S`ފ(SªPݫDފbSJ8S!TRYCK P] "CE" F\R ANTAL ELEVER ; S AVBRYTS 3S XSTOTALT ANTAL ELEVER `#M[N ;7 KVINNOR ;8S!TRYCK P] "CE" F\R N[STA KLASS ; S ޵S Sf T d Tf T"$T`T$bTSUB UTF\R` KLASS ( KLISTA )dT jTtlTJݵݵݵtTvL{s registret & skriv ~TފTªPݫ0TJ8T!TRYCK P] "CE" F\R ANTAL ELEVER ; T 3T` XTTOTALT ANTAL ELEVER #M[N ;7 KVINNOR ;5TTRYCK P] "CE" F\R ]TERG]NG ; T THX.JX)SUB L[SREGISTER ( KLISTA ) ( [NDRA )LX`3RXªPRUBRIKPRINTER / RUBRIKSK[RM'WX""ފ\Xݵݵݵݵ)pXdNt% =[ndradzXdN# XޜXF;0X"&xOrdin{rt uthopp`X   X9Ymݵ1tYªPs SKRIVPRINTER / SKRIVSK[RM vYފ ~Y&Yފ ޜߊ ޜ YޜYY%Y SUB SKRIVPRINTER ( RZLR )Y6YPD `ޫiRUBRIKPRINTER6YPD ߙޫ3RUBRIKPRINTER'Y""ފY޵<sf> Z<<<<"Z#<y<;Z (Z#`⸇*ZPD#⸈ޜ 2Zޜ4ZJ ޜ}F;`!Printer eller Sk{rm ? (P/S);2}2S;ޫ2ݫ}䊾 Sn}⊾ ފ }Pp P6 }Ss S} ;L}@m,d BDFNISRE`"AD ( ISAM )FJ#T#,hrݸr+i !FNISREADFIRST ( ISAM )%#,χ̜֜ݸ꜠wA&n R/  FNISREADKEY ( ISAM )`#)#,0:ݸNX @A,7FNISAMERROR ( ISAM )ݸ (#y*.,)FNRZREADRZFIL ( REGSIZE ).02GWg(w'; CUR(X2%,X3%) X$+SPACE$(X1%-LEN(X$));"D޵<ߜ<AN޵<X<<bLlv ݵ[ݵ----- INL STOMME -----`4[; &&!------ PF - TANGET -------------#& ޵PF1& ߵsPF2& gPF3& ᵤ:PF4& ⵤPF5& 㵤PF6& `5 䵤PF7& PF8% ------- \VRIGA TANGENTER ------2& [݊ 䵤"RETURN" Mostv. PF7& ꊾ& 劾qU<==& 抾;==>%& ;c[ޜ`6$& & .ߊ& .88ފߊB& 0& 9[&; [ޜ[[&<,'---------- INL SLUT ------------------VQIF X4%=2%`7 AND INSTR(1%,X$,".")>0% AND INSTR(INSTR(1%,X$,".")+1%,X$,".")>0% 62000 ޵<<]ߊ0<ߊ F|r stort decimal tal"(2A`8 ; F'"----------- PF8 ( RADERA ) ----,[<@<ޜ<ߜThh+j ;r$|----- PF3 ( INS[TTNING ) -----<[ޜՁ<<ޟs[ޜ`9 ;D------<==--------X[ݙ ݵ[ b[ޟ[--------==>------------[ [ [ޜ["p------- PACKA / SKRIV ------ z& [޵<`:<. ⸇ݵ<q  ݵOCx<P &&< &&( 2#,<F< #⸈P⸇ZTabhrubTaburubHuvudrubri`;kUnderrubrikTypvalAntals|kbF{ltnrbS|kordStartpbVilkorPrinteroptionInstRzinitformatRegnrRzreadrzfilFtypF|rmtextEtikettDradUtskriftstypPoptionRadDatumindikIsreadkeyKlassNamn1Namn2Sign1BlockSign2H{mtal{rareAntalrubrikerTabrubr`<ikRubriktextTabf{ltnrAntalf{ltnrL{ngdF{ltnrRadnrS|ktformatInputL{stformatS|kformat]rskursIsreadfirstIsamerrorIsreadNysidaMkScrollEleverM{nKvinnorL|pnrRzpackauppPostJ{mf|rk|nPraderIndexKeyRubrikStartiblockTypRegnamnAntalf{`=ltBl{ngdNewblockFormatindexKapablankaSnysidaInitformatListtDisk0Disk1MenyDatumRfListrReturnPradrList61710m22 -B3HA3N#zz( 2B < F PB!Zz!d!t"E""IJ$r$$$"%%%%& &&R'(`>"'2'<y B(S(c(sy)y-) *)A*r**+"/y-Q---- .v.AyGv/W/g 0w*0i000:1y y& 01[)9z( 2B < F PB!Zz!d!t"E""IJ$r$$$"%%%%& &&R'(`?y B(S(c(sy)y-) *)A*r**+"/y-Q---- .v.AyGv/W/g 0w*0i000:1y y& 01[)9z( 2B < F PB!Zz!d!t"E""IJ$r$$$"%%%%& &&R'("'2'jI9zc޸ީc c r=m# ;JU$TRYCK P] "RETURN" F\R N[STA SIDA ;  ꍾ<;ݸ_ Z1 INITPR.FIL渖#,p#, Ů PR:VSA50C72.5Hݸ!INST.FIL渆 #,9UV渠ݸ# !<;޵p  ޵ߜ޵ݵݵ;  ޵ ߵ 1 ᵞ ⵞp 㵞 䵞 X ݊䵞h ꊾ 劾& 抾 ;ޜ  ߊ ..ފߊ 0 9p;ޜfa~޵ ߊ0ߊ  ;ޜߜp ;ޜՁޟ ޜ E;ݙݵ ޟ  ޜ ޵⸘ݵRݵcO3pxPc < 1#,&#⸙<⸠ BHN(2<FPZdt '7GM]mp}"39Cc BHN(2<FPZdt '7GM]m? a PI D------------------------------------------------------------------- . )PROGRAM FORMVAL.BAC ( FORMAT VAL ) SYSTEM ELEVREGISTER1984-02-08 Version 1.5 BO GRUSELL BG DATA HC------------------------------------------------------------------/P   BHN** ----- START ------2-*------ DIMENSIONERA GLOBALA VARIABLER -----LP'+'&***** ----- PROGRAM STOMME -----*****'*'%*----- SKRIV BILDSK[RMS LAYOUT -----'$'t'v'*----- VAL -----x'':+:&* ----- AVLUTNING AV PROGRAMMET -----: :'N: RZFORMAT N "NSUB SKRIVBILDSK[RMSLAYOUT $N *N 34NUTSKRIFTSBESKRIVNINGARD) ;%>NP=;P=;*RNUtskriftsbeskrivningar till:; \N1. Elev-registret$fN2. Klassf|rteckningen$pN3. L{rarf|rteckningenN V{lj;NR R SUB L[S VAL RlR; vR STARTR 1 3R; R R STARTR 劾pR ꍾRRegnrReadrzfilSkrivsk{rmbildrzInputRzl{sposterBlockAntalf{ltPostOldpostBl{ngdWriteIsamerrorBlankaLstL{ngdRzreadfirstKeyIndexReadkeyIsreadfirstIsreadSkrivNewblockL{sposterIsrewriteDeleteRzreadrzfilRubrikStartiblockTypRegnamnVl{ngdRzpackauppPrinteroptionPoptionPraderInstRadDatumindikIsreadkeyFilnrIswriteFileIsdeleteL{ssk{rmbildBlankainmSkrivp}sk{rmIsdelteRzskrivp}sk{rmIreadkeyRnendSavrSortordningL|pnrErcodeIsamreadIsamreadfirstFormatLediglistaPoistErrorAntalrubrikerAntalRubriktextTabrubrikerAntalf{ltnrTabf{ltnrF{ltnrInv{rdeTabrubrikFormatnrGotGetFgMaxf{ltnrSll{ngdSxl{ngdSlfilnrSxfilnrSxl{ngMaxl{ngdDisk0Disk1ScrollMenyDatum1b55 5B5H!6N z  zistaPoistErrorAntalrubrikerAntalRubriktextTabrubrikerAntalf{ltnrTabf{ltnrF{ltnrInv{rdeTabrubrikFormatnrGotGetFgMaxf{ltnrSll{ngdSxl{ngdSlfilnrSxfilnrSxl{ngMaxl{ngdDisk0Disk1ScrollMenyDatum1b55 5B5H!6N z o `? a(?GP\= 8------------------------------------------------------- 7 2PROGRAM GLISTA.BAC ( UTSKRIFT GRUPP LISTOR ) SYSTEM ELEV REGISTER1984-02-13 Version 1.5 BO GRUSELL BG DATA@;----------------------------------------------------------/P   BHN50* ----- DIMMENSIONERA GLOBALA VARIABLER -----LP4(22<2FPZ$dt'"* ----- INITZIERA PRINTER ----- <,-(* ----- L[S PRINTER INST[LLNING -----   ,` 0b +* ----- INITZIERA FORMAT-HANTERARE -----d  j ! " * ----- \PPNA REGISTER -----  ޵N' REGN.ISMdN REG2.ISMf & d޲ 0 ޲#* ----- L[S REGSIZE FIL ----- ',''***** ----- PROGRAM STOMME ----- *****''-'(* ----- SKRIV BILDSK[RMS LAYOUT -----'$'4 SUB LRSBILD*7*2* ----- L[S INNMATAD DATA FR]N BILDSK[RMEN -----*+ L[SSK[RMBILD +ފs+- +4%val e/d radframm & printer sk{rm*+4+ފ⊆>+F;\+Px&f+JJJRJp+3UTSKRIFTSBESKRIVNINGEN [R EJ ANPADDAD F\R SK[RMEN ; z+,.+.&* ----- L[S OCH S\K I REGISTER -----..Ձ.ݵ ݵݵ.' + #.  ފ/P 2&kD/%J8N/!TRYCK P] "CE" F\R ANTAL ELEVER ; l/ 3v//$$/ $X/TOTALT ANTAL ELEVER #M[N ;7 KVINNOR ;f/-TRYCK P] "CE" F\R ]TERG]NG ;- TRYCK P] "CE" F\R N[STA GRUPP ; / /  0>0޵5H0 55R07p022-* ----- AVSLUTA UTSKRIFT OCH S\KNING -----:3:.***** ----- SLUT PROGRAM STOMME ----- *****:: START N#"NSUB LRSBILD ( RZLR )$NP*N  GRUPP-LISTOR;D) ;P=;P=;4NUtskriftsnamn:;6N[mne;8NSign;>N1. Alla,HN 2. ]rskurs;RN 3. Klass;\NV{lj;pNN*N%SUB RUBRIKPRINTER ( RZLR )N N F⸇NJ # ;COMPRN#PN#P;)N`J#փ <Datum#⸇N#P;$N`J#<) #⸇ O#⸈#⸇=O#L[RARSIGN:  [MNE:  $O#⸈#⸇.O ޵5j#8O#5{5;BOlLO#⸇EVOJP#DŽ-#P-`O#⸇jO/tOO#OSUB RUBRIKRSK[RM ( RZLR )O Oք@ BOL[RARSIGN: ; [M NE: ;-O޵5j5{5;PP=; PP=;PP/nPxP>zP9SUB L[SSK[RMBILD ( GLISTA ) ( Kompl. fr}n rad 240000 )|P!Pݫ#PݖvPݖ_'P⊾ފ ݍ PP2pPފ^ PP Inmatning [mne / SignP⊾' ފ Pޫޫ"!P123~%Pݖ;c$Pݖ?Q⊾0 QފQ ;"QC @QBQ'JQTQ( Ange }rskurs; ^Q߫<ݫ! hQފjQ⊾F;%lQݖ<;=%rQݖ<; |Q` QQQ( Ange klass; Q<ݫ! QފQ⊾F;%Qݖ<;%Qݖ<; Q` QKEY1erQ݊|b(INGA ELEVER FINNS REGISTRERADE I KLASSEN; TRYCK P] "RETURN" F\R ]TERG]NG ;Q  ,Q#L;օ8L; Q QR" RSUB UTF\R ALLA ( KLISTA ) RRf0&R"0R  :R  DRtNR[L{s register & skriv XRފbR{lRfBvR"R z R  RtRHL{s registret & skriv RފRfR Rf RRn4S*6S%SUB UTF\R ]RSKURS ( KLISTA )8S>SݵHSfRS"\S t3^SʐPRUBRIKPRINTER / RUBRIKSK[RMfSL pS  zStSL{s registet & skriv SފSSfo S"S S S  StސS[L{s register & skriv SފSf T Tf T$TU`T$bTSUB UTF\R KLASS ( KLISTA )dT jTtlT%Jݵݵ ݵtTL{s registret & skrivTHX.JX)SUB L[SREGISTER ( KLISTA ) ( [NDRA )LX3RXPmRUBRIKPRINTER / RUBRIKSK[RM)pXdNtz [ndradzXdNx 0X"&xOrdin{rt uthoppX 'X""5ފ X_X$t.Y55/8Y5$5$BY0LY1tYPfSKRIVPRINTER / SKRIVSK[RM ~Y&Yފ ޜ ߊ ޜ YޜYY%Y SUB SKRIVPRINTER ( RZLR )Y+Y?/ߙ RUBRIKPRINTER'Y""ފY޵5f> Z5$55$5$"Z#55$;ZA(Z#⸇*ZPD#⸈/ޜ/ 2Z/ޜ/4ZJ /ޜ/}F;Printer eller Sk{rm ? (P/S);2}2S;ޫ2ݫC}䊾 Sn}⊾ ފ }Pp P6 }S"s S} ;L}@m)&d BDFNISREAD ( ISAM )FJ#T#,hrݸr&i !FNISREADFIRST ( ISAM )%#,χ̜֜#ݸ꜠wKn ZL  FNISREADKEY ( ISAM ))#,0:ݸNX @77FNISAMERROR ( ISAM )ݸ (['R*.,)FNRZREADRZFIL $ ( REGSIZE ).02k{(ƛ'; CUR(X2%,X3%) X$+SPACE$(X1%-LEN(X$));"D޵5ߜ53ZN޵5X55belv ݵtݵ----- INL STOMME -----t; I&!------ PF - TANGET -------------#I ޵PF14I ߵsPF2I gPF3I :PF4I PF5I PF6I PF7I PF8% ------- \VRIGA TANGENTER ------2I t5݊ "RETURN" Mostv. PF7I ꊾI 劾qU<==I 抾;==>%I ;ctޜ$I I .ߊI .88ފߊBI 06I 9tI; tޜttI<,'---------- INL SLUT ------------------VQIF X4%=2% AND INSTR(1%,X$,".")>0% AND INSTR(INSTR(1%,X$,".")+1%,X$,".")>0% 62000 ޵55ː7vߊ0<ߊ F|r stort decimal tal"(2A ; F'"----------- PF8 ( RADERA ) ----,t5@5ޜ58ߜTh+j ;r$|----- PF3 ( INS[TTNING ) -----5tޜՁ55ޟtޜ ;D------<==--------Xtݙ ݵt btޟt9--------==>------------t t tޜt"p------- PACKA / SKRIV ------ zI t޵55. F⸇ݵ5q  ݵOC:x5P II< II( 2#,<F5?#⸈P⸇ZOPrinteroptionInitscrollInithelpInstRzinitformatFilnrReadrzfilLrsbildL{ssk{rmbildL{sregisterAvslutautskriftInput;PoptionPraderBildScrollFr}nTillKopiabildRadDatumindikYsidaRaderIsreadIsamIndexIsreadfirstRzreadrzfilRubrikL{ngdStartiblockTypRegnamnAntalf{ltBl{ngdVl{ngdBlockNewblockPostOldpostFormatindexS|ktformatL{stformatFtypF|rmtext<RubriktextTabrubrikTabf{ltnrF{ltnrS|kformatKolummnAntalrubrikerLrbildRubrikprinterTabhrubTaburubHuvudrubrikUnderrubrikRadnrLrrubriksk{rmTabrubrikerAntals|kbL{ss|kbegreppL{skolumnsummeringarL{sf{ltnrsummeringarTypvalF{ltnrbS|kordSt=artpbVilkorFnl{skolumnsummeringarKolumnsumKolumnKolumnindikF{ltnrsumF{ltkolumnAntalf{ltnrF{ltsumnrL|pnrRubriksk{rmIsamerrorRzpackauppSkiljteckenSkrivprinterSkrivsk{rmSidaF{ltnrsummeringKolumnsummeringRadrnrHcF{ltnrsummorKolumnsumm>eringarDecimalerF{ltkolumnsummaF{ltnrsummaNysidaF{lnrF{ltsumF{ltnrsumindikF{ltkolumsummaF{ltsumindikNysidasidaE22490L22490Blockl{ngRegnrKey1DcKolumnsummaErcodeeErcodePackauppAdressRetuTabf{ltTabfa{ltnrTabrubStartbStarbpS|ord?StartbpS|krformatWsGotoF{ltnrsumaF{ltsummaLenf{ltsummaF{lttsummaF{tnrsumF{ltsummF{ltnrtsummaF{ltssumindikDecimaltDecimalSl{ngdKsummaF{tnrF{ltkolumnssumaF{tsumnrKolumindikKapablankaGosunKolumidikP}ostKolumnidikUtskriftstyp]rskur@sReturKlassIsreadkeyStartpKeyFortS|korde[mneSignReurnRfJ{mf|rk|nMkEleverM{nKvinnorKvinnotSnysidaForts{ttningssidaF|r]terg}ngDradEtikettDisk0Disk1MenyDatumIgListorAntallistorSurIstList12210LisyZPP z$BPHPN@Azz(.2.</Fz/P2Z0d%3tf333LMIR+z+PO)QaQ N9NMJ%M//5y F#PV%`r%j-{,+Y6m,,'**2KK&b)y1K$)?$[ Meyk~'{'E(b((()B*y .y?NI tB)9z(.2.</Fz/P2Z0d%3tf333LMIR+z+PO)QaQ N9NMJ%M//5y F#PV%`r%j-{,+Y6m,,'**2KK&b)y1K$)?$[ Meyk~'{'E(b((()B*y .y?NI t ? a:P Q L--------------------------------------------------------------------------- . )PROGRAM GLOB.BAC ( Globala v{rden ) &!SYSTEM ELEV-REGISTER ABC8001984-02-02 Version 1.5 BO GRUSELL BG DATA HC------------------------------------------------------------------/P   BHN** ----- START ------2-*------ DIMENSIONERA GLOBALA VARIABLER -----x0z+*----- Dimensionera lokala variabler ----*|(%(2<F <'+'&***** ----- PROGRAM STOMME -----*****'6'1*----- SKAPA NY REGISTER & F\RTECKNINGAR ----- *'$'L{s och |ppna filer.'8'Skriv menyn + textB'L'L{s blidsk{rmenV'`'Pފ$PF1j'Skriv ny v{rdent':+:&* ----- AVLUTNING AV PROGRAMMET -----:: START N)"N$#-- l{s och |ppna akuella filer --#$NNN INST.FILNNINST.FIL޸N #޸,N #޸,(N #޸,2N #޸,V޸N #޸,`޸N #޸,j޸NN INITPR.FILNNSN INITPR.FIL߸N#߸,<N#߸, t OtFBO߸LOR R#-- SKRIV SK[RMBILD --# R1R ;GLOBALA RUTINER@) ;%RP=;P=;'&R Rubrik rad 1:;;'0R Rubrik rad 2:;(;':Rˠ Rubrik rad 3:;2;)DRPrinter option:;<;)NRRader per sida:;F;4PRStopp vid ny sida: (J/N);`;BRR(Antal m{n och kvinnor utskrivna: (J/N);2j;*SU$U#-- L[S DATA FR]N SK[RMNEN --#UQV RVRad1$SV!TVݫUP(^VP.PF1/OK/PF7/0/PF5 hVV VRad2$!Vݫ(P(VPfPF1/OK/PF7/0/PF5 V(W WRad3$ W!Wݫ2P(&WP``PF1/OK/PF7/0/PF5 0W2}W"~WPoption$ ( Printer option )WWݫ<P(WPKPF1/OK/PF7/0/PF5 W<WW Antalrader$WW߫ ޫFP(WPs^PF1/OK/PF7/0/PF5 WFEXFX Stopnysida$GXHXޫݫ`,P(RXP^PF!/OK/PF7/0/PF5 \XJj J`3 fXNn N`pXs Fel svar Xޫ2ݫjP(XPl3PF1/OK/PF7/0/PF5 XJj Jj2 XNn NjXs Fel svartY]!]* ---- SKRIV GLOBALA ---- *] $^#޸,݂.^#޸,8^#޸,(B^#޸, 2L^#޸,VV^#޸,`X^#޸,j`^޸^ INITPR.FIL߸ ^#߸,<^#߸,F'^߸^8ǐ:ǐ# -- FUNKTION FR]GA -- #<ǐ=ǐ SVARSORD>ǐ 1 = PF1?ǐ 2 = JA@ǐ 3 = NEJAǐ4 = SHIFT+PF7Bǐ 5 = PF5Lǐnj///00(//ǔP;!ǔ;FJ;ǔF; zǕzJzj ߵPǕzNzn PǕz ޵PHPF1Ǖz P+PF5Ǖz P'Ǖz ߵPReturn motsv JA$ZȀ/Ingen r{t tangent nedtryckt"cȐTryckning av "Return v{ntas"dȔFz;nȔG; zxȕz g ]terhoppȕz <==ȕz ޵P/!ȀFel tangenter nedtryckta Ȑ]terhop ȠPȍHJ#-- FUNKTION L[STEXT -- #LN 1 = PF1O2 = Inl{sning okP 3 = LedigQ4 = SHIFT+PF7R 5 = PF5\ 2v  !00( Inl{snings rutinP݊ߵP% IF X9%=5% ; CUR(X2%,X3%) Text$;)P䊾P: ; CUR(X2%,X3%) Text$;P▾q tP#0DEF FNInput%(X1%,X2%,X3%,X4%)1$2FNINPUT ( STANDARD )3863VERSION 1.1 840110 ( [ndra f|r fnl{stext )8:3D޵ߜ ASC 32 X2$( )(N޵0Packa X$ i x2$( )XblSkriv underlinev ݵݵP----- INL STOMME -----; Ʀ&!------ PF - TANGET -------------¦ ޵PPF1¦ ߵPPF2¦ KmPF3¦ P4PF5¦ PVPF6¦ PPF7¦ 9PF8% ------- \VRIGA TANGENTER ------2¦ ݊ P"RETURN" Mostv. PF7¦ ꊾq¦ 劾5x<==¦ 抾W^==>¦ tCE0¦ 'HC / SHIFT + CTRL + PF8ޜ$¦ ¦ .ߊ¦ .p8ފߊV8:ފߊ'¦ -݊/¦ -WB¦ 0¦ 9V¦; ޜ¦,'---------- INL SLUT ------------------'ߊՁ Ǡ yߊIH.  Ձ. ޜ. bOm fler komman en ett7ߊ, . #0<ߊ F|r stort decimal tal2F;O'"----------- PF8 ( RADERA ) ----,@ޜߜT^ h j;lvSkriv underliner$|----- PF3 ( INS[TTNING ) -----;ފߊ%Ins{ttning ej till}ten vid num o decޜՁޟޜ .;Skriv underlineD------<==--------Xݙ ݵ bޟ--------==>------------ ޜ ----- CE -----; ޵ߜ* 4 >HSkriv underlinef"p------- PACKA / SKRIV ------ z(¦ P⊆P䊆 ޵.!8----- SKRIV UNDERLINE -----B޸ީ5/L ޟ_;V <⸇ൄq  ݵOCxP ¦<  ¦( 2#,<Ft#⸈P⸇Zd,RegnrReadrzfilSkrivsk{rmbildrzInputRzl{sposterBlockAntalf{ltPostOldpostBl{ngdWriteIsamerrorBlankaLstL{ngdRzreadfirstKeyIndexReadkeyIsreadfirstIsreadSkrivNewblockL{sposterIsrewriteDeleteRzreadrzfilRubrikStartiblockTypRegnamnVl{ngdRzpackauppPrinteroptionPoptionPraderInstRadDatumindikIsreadkeyFilnrIswriteFileIsdeleteL{ssk{rmbildBlankainmSkrivp}sk{rmIsdelteRzskrivp}sk{rmIreadkeyRnendSavrSortordningL|pnrErcodeIsamreadIsamreadfirstConL{ndgFr}gaRadnrKolumnTextLisytFr}ndriveTilldriveDrive0Drive1Driv1FilenrIstL{stextRad1Rad3Rad2StopnysidaAntalraderMomsStadiumOrdernrDisk0PoiptionDisk1ErrrorF|rstaordernr[ndraordernrStadieSenasteordernrRetuenF|rstaordrnrComDriv0MenyMenyvalDriveScrollDatumList21000AntalraceExLitMk1J1 8Bq7HA8N zJ2(22r2<(F3PIV)`2jJ9t1)zzy ) 9y Disk1ErrrorF ?  9 FORMAT-HANTERARE  12 Utskriftsnamn 10 1 A Printer/Sk{rm 1 11 A Antal rubriker 2 12 N Rubrik-rext 50 14 A Rubrik-text 25 64 A Tab. rubriker 50 89 A Antal f{lt 2 139 N Tab. f{lt 50 141 A F{lt-nr 50 191 A F|rminskad text 1 241 A Etiketter 1 242 A Dubbla rader 1 243 A 253 244  12 N Rubrik-rext 50 14 A Rubrik-text 25 64 A Tab. rubriker 50 89 A Antal f{lt 2 139 N Tab. f{lt 50 141 A F{lt-nr 50 A F|rminskad text 1 241 A Etiketter 1 242 A Dubbla rader 1 243 A 253 244  12 N Rubrik-rext 50 14 A Rubrik-text 25 64 A Tab. rubriker 50 89 A Antal f{lt 2 139 N Tab. f{lt 50 141 A F{lt-nr 50 ? iINP3&= 8------------------------------------------------------- 2 -PROGRAM FS\K.BAC ( FRI S\KNING ELEVER ) SYSTEM ELEV REGISTER 1984-02-02 Version 1.5 BO GRUSELL BG DATA@;----------------------------------------------------------/P   BHN50* ----- DIMMENSIONERA GLOBALA VARIABLER -----#LR4R(2<2F2PZd$n~ ƮƸdd'"* ----- INITZIERA PRINTER ----- q5 -(* ----- L[S PRINTER INST[LLNING -----   5 ` 0b +* ----- INITZIERA FORMAT-HANTERARE -----d  j `+ ( &* !*----- L[S KLASSREGISTRET -----*, 2 REG2.ISM޸< GF #޸, P ޜZ  d n x ޸ " * ----- \PPNA REGISTER -----  ޵N' REGN.ISMdN#* ----- L[S REGSIZE FIL ----- ' ',''***** ----- PROGRAM STOMME ----- *****''-'(* ----- SKRIV BILDSK[RMS LAYOUT -----'$'H SUB LRSBILD*7*2* ----- L[S INNMATAD DATA FR]N BILDSK[RMEN -----*+# L[SSK[RMBILD( + ފ** Slut p} Programmet+(+J$  ފ- +2!%val e/d radframm & printer sk{rm*+4+ ފ ⊆>+F;\+ Ph&f+JJJB:p+#FORMATET [R EJ K\RBART P] SK[RMEN ; z+.+.&* ----- L[S OCH S\K I REGISTER -----..¸'v222-* ----- AVSLUTA UTSKRIFT OCH S\KNING -----2"2 ފUtskrifts avbrott,3?6D6?* ----- NOLLST[LL VARIABLER OCH TILLBAKA TILL P-STOMME -----66*Jݵ4ݵ:ݵ@ 6F7޵P㸼/ 7Pnݲ(7P~27P<7R4: :3:.***** ----- SLUT PROGRAM STOMME ----- *****:: START N#"NSUB LRSBILD ( RZLR )$NV*N FRI S\KNING ELEVER;D) ;P=;P=;4NUtskriftsnamn:;.>N SO RT.ORDNING( F\RDELNING;6HN 1. Klassvis(1. Ingen separation;1RN 2. Alfabetisk( 2. M{n f|rst;\N(3. Kvinnor f|rstfN( 4. M{n endast pN(5. Kvinnor endast/tN Huvud rubrik:  Tab H-rubrik;.vN Under rubrik Tab U-rubrik,zNAntal s|kbegrepp:;NN*N%SUB RUBRIKPRINTER ( RZLR )N Na⸇NJ # ;COMPRN#kN#k;)N{J#փ < Datum#⸇N#k;$N{J#<) #⸇N&%N2'݊ ޵ N޵NN<' O޵ O#⸈#⸇O#F#⸇$O#P#⸇.O޵P#8O#PP ;BOLO#⸇PO݊ #⸈FEVOJP#DŽ-#P-`O#⸇jOJtOO#OSUB RUBRIKRSK[RM ( RZLR )O Oք@ O5O2',#O---- Vid "return" p} tab ----OݵOF-O޵PPP;PP=; PP=;PPnPxP)zP$SUB L[SSK[RMBILD ( RZLR )|PPPNOLST[LLNINGAR!P ߫ݫ, P ݖvP ݖ_'P ⊾ ފ ݍ P P߫26! P ފ^ P !P¸ޫޫm+ 2P  ¸݊1;d:P  ㊆Y$  ފ ݍt)P'ނ'߂ ;K P!Pޫ<ޫ* 2Q  ݊1<;V:Q  ㊆n$ ⊾ ފ ݍtQ'ނ'ₕY-Q"F|rdelning mellan m{n ock kvinnor#"QF2ݫ) $Q ㊾M4,Q 䊾>$ ⊾ ފ ݍ6QF Huvud rubrik!@Q2ޫZ) :JQ  ㊆B$ ⊾@ ފ ݍTQ2Tab huvud rubrik#^QP2ݫ( :hQ  ㊆&$ ⊾E ފ ݍrQPAntal s|kbegrepp!|Q<ޫj( :Q  ㊆0$ ⊾E ފ ݍ Q< Qޫޫ( Q ⊾m&Q d݊ 0dW:Q  ㊆$ ⊾5 ފ ݍQdAntal s|kbegreppQ/L{ss|kbegreppQ ⊾1 ފRSISDSUB L[SS\KBEGREPP ( RZLR ) ( Cursor [ndrad fr}n 12 till 16 )TTn Td'T $Tݐ%.T㖾6d6; 8T݊+BT F{ltnr/S|kord>VillkorLTݵ#VT#ޜ##+`T#n߫#߫ޫ& /jT #nݖ##n;v#tT ⊾#ߟ##ݐh~T)ނ ݍiT'݂'1LT#n'F{ltnr(T#~#S% -T  ㊆ ⊾ ފ#T޵P  1T3TqBara blanka i s|kordet4T#P$Start position f|r start av s|kningT#~T ⊾ ފT*T#߫#@ݫA$ *T ݖ  ㊆ U ⊾ U ފU =^U<>L.U E#Q EUP~Pn P~P~Pn U>UU---- KLASSVIS ------- UKEY1MV'7bV)V$----- INGEN F\RDELNING ------------"VݵW,V-------- M[N F\RST ------6V޵WߵWb#@V-------- KVINNOR F\RST ------JVߵW޵W(TV---- M[N ENDAST -----^V޵Wy hV----- KVINNOR ENDAST -----rVߵWK|V V---- ALFABETISK ---------- VKEY2MV'2YV$V------ INGEN F\RDELNING ------VݵWV----- M[N F\RST -----V޵WߵWW----- KVINNOR F\RST -----WߵWi޵WW----- M[N ENDAST -----&W޵W60W--- KVINNOR ENDAST ------:W޵W DWHX,JX'SUB L[SREGISTER ( RZLR ) ( [NDRAD )LXPXJa⸈43RX PCRUBRIKPRINTER / RUBRIKSK[RM\Xݵ] pXMcdN <zXMcdNv  X]ޜ]XF];(X " &Ordin{rt uthoppX  m.X""  ފ X XW݊ X  WX0dXd0X޵P'!XPޖPޟE IXPn݊9 P = ݊g) ފUXP =OXP<>qXP EX---- J{mmf|relser ------9XPn~PP~P~w9YPn~PP~P~|>YPޜn~`YPn~PP~P~PޜPޜ~Pޜ~$Yo.Yݵ  Nollst{ll 1tY PSKRIVPRINTER / SKRIVSK[RM~Y ފSkrivar avbrottBY*J54ޜ4  ފ :ޜ: ߊ @ޜ@YF F /Y*IF INP(34%)=214% X1$=CHR$(214%) : RETURN Y8Y%Y SUB SKRIVPRINTER ( RZLR )YYJ #®6Y埖  ފ RUBRIKPRINTER'Y""  ފY޵Pf> ZP~PP~P~"Z#PP~;Z( ZJ޵P#⸈^ (Z#⸈ZDޜ#!*ZZD#⸈ޜ 2Zޜ4ZJ ޜ[P~PP~P~"[PP~;3[Pc!P$;[ \ޜ&\20\"TRYCK P] "RETURN" F\R N[STA ELEV ; :\ ,N\   ފv\ ꊾ \ \v^ ``SUB AVSLUTA UTSKRIFT`% `J"` PC {`Printer |` `J # ;` `Sk{rm`*JL`N;TRYCK P] "CE" F\R ANTAL ;(; ` 3`  &  O`TOTAL ANTAL ELEVER 4%M[N :4 KVINNOR @MDaN;TRYCK P] "CE" F\R ]TERG]NG ;(; Na aa"a*----- J{mf|r }rskurs -----*aa'X9%=0% LIKAaX9%=1% SKILJER SIG FR]N b޵b~) b*b޵ Skiljer sig fr}n4b/.pbP~P~ ݵ ޵ b 0uK2u4uFNJ[MF\RK\N ( FS\K )6u:u~Du( 0 9ݸ Nu''Xu݊ߊኆ㊆劆߸bu޸u}Printer / sk{rm } ⊾ ފ} S}#Radframmatning(} ⊾12},!-------- Radframmatning ------------------A<})F;!Enkel eller Dubbel radframmatning;2F}2E;ޫ2ݫ P} 䊾 EZ}%Z} ⊾ ފ ݍ d}Ee EZ8 n}Dd DZx} ;=}*#}---- Sk{rm / Printer -------->}F;Printer eller Sk{rm ? (P/S);2}2S;ޫ2ݫ } 䊾 S n} ⊾ ފ }Pp P 6 }Ss S +} ;L}$,~-------- Etikett data --------06~F;;Text f|rsta raden;$@~ݫ 2J~ ⊾$ 䊾# ފ ݍ |~>~F; Antal rader mel,lan varje etikett;"~߫-ޫ> '~ ⊾ ފ ݍz ~' ~P ~@m)&d BDFNISREAD ( ISAM )FJ#T#,chrݸr&i !-FNISREADFIRST ( ISAM )%#,cχ̜֜ݸ꜠ 7ݸ ('*.,)FNRZREADRZFIL ( REGSIZE ).,1'Borttagning av var. och ut|ning av dim!2.'; CUR(X2%,X3%) X$+SPACE$(X1%-LEN(X$)); D޵P4PN޵PXPPbdኾ5lv= ݵݵ ----- INL STOMME -----; F&!------ PF - TANGET -------------#F ޵ PF1F ߵ PF2F OgPF3F PF4F > uPF5F XPF6F ;PF7F CPF8% ------- \VRIGA TANGENTER ------2F ݊ "RETURN" Mostv. PF7F ꊾYF 劾U<==F 抾;==?>%F ;VFAIF ASCII(X1$)=209% GOSUB 60000 : GOTO 62110 ! HELP / SHIFT + PF2ޜ$F F .ߊF .88ފߊBF 0F 9K@F; ޜF,'---------- INL SLUT ------------------#ኾ ;VQIF X4%=2% AND INSTR(1%,X$,".")>0% AND INSTR(INSTR(1%,X$,".")+1%,X$,".")>0% 62000 ޵PPA0<ߊ F|r stort decimal tal"(2A ; F '"----------- PF8 ( RADERA ) ----,P@PޜPߜTBh+j ;r$|----- PF3 ( INS[TTNING ) -----PޜՁPPޟޜ ;D------<==--------Xݙ ݵ bޟ--------==>-C-----------  ޜ"p------- PACKA / SKRIV ------ zF ޵PP. a⸇ݵPq  ݵOCxPPD FF< FF(  2#,<FP#⸈P⸇ZhPrinteroptionInitscrollInithelpInstRzinitformatFilnrReadrzfilLrsbildL{ssk{rmbildL{sregisterAvslutautskriftInputPoptionPraderEBildScrollFr}nTillKopiabildRadDatumindikYsidaRaderIsreadIsamIndexIsreadfirstRzreadrzfilRubrikL{ngdStartiblockTypRegnamnAntalf{ltBl{ngdVl{ngdBlockNewblockPostOldpostFormatindexS|ktformatL{stformatFtypF|rmtextRubriktextTabrFubrikTabf{ltnrF{ltnrS|kformatKolummnAntalrubrikerLrbildRubrikprinterTabhrubTaburubHuvudrubrikUnderrubrikRadnrLrrubriksk{rmTabrubrikerAntals|kbL{ss|kbegreppL{skolumnsummeringarL{sf{ltnrsummeringarTypvalF{ltnrbS|kordStartpbVilkorFnGl{skolumnsummeringarKolumnsumKolumnKolumnindikF{ltnrsumF{ltkolumnAntalf{ltnrF{ltsumnrL|pnrRubriksk{rmIsamerrorRzpackauppSkiljteckenSkrivprinterSkrivsk{rmSidaF{ltnrsummeringKolumnsummeringRadrnrHcF{ltnrsummorKolumnsummeringarDecimalHerF{ltkolumnsummaF{ltnrsummaNysidaF{lnrF{ltsumF{ltnrsumindikF{ltkolumsummaF{ltsumindikNysidasidaE22490L22490Blockl{ngRegnrKey1DcKolumnsummaErcodeeErcodePackauppAdressRetuTabf{ltTabfa{ltnrTabrubStartbStarbpS|ordStartbpS|krforImatWsGotoF{ltnrsumaF{ltsummaLenf{ltsummaF{lttsummaF{tnrsumF{ltsummF{ltnrtsummaF{ltssumindikDecimaltDecimalSl{ngdKsummaF{tnrF{ltkolumnssumaF{tsumnrKolumindikKapablankaGosunKolumidikP}ostKolumnidikSortordningF|rdelningSortindexJJ{mf|rk|nMkEleverM{nKvinnorJ{mf|rSnysidaGetIfReturnList60000Forts{ttningssidaForts{ttningsssidaHelpEtikettDradRetrunDraderEtextEraderDisk0Disk1MenyDatumList42000Drive1E2630AntklasserKlasser]rskursKlassS|korPP z$BKPH!QN@zz(2O2.<.F/Pz/Z2d0n%3~f3332PJ*KZOz+ORR IQ R R+*"L49L:qL@LF Py a#kV%{r%y -,+Y6m,,'/ **y# )H1(MKW)K] 7c&my~)$aPE(LGGy b)'()!B*y M)92d0n%3~f3332PJ*KZOz+ORR IQ R R+*"L49L:qL@LF Py a#kV%{r%y -,+Y6m,,'/ **y# )H1(MKW)K] 7c&my~)$aPE( *?i%NP   BHNR4R(2<2F2PZdn~ƮƸddQ   REG2.ISM޸5#޸,ޜ ޸޵NREGN.ISMdN , ފJV  ފp ފ ⊆F; PZJJJ9#FORMATET [R EJ K\RBART P] SK[RMEN ; F¸'i ފ*J ݵ4ݵ:ݵ@F޵P㸼"PnݲP~PR START FRI S\KNING ELEVER;D) ;P=;P=;Utskriftsnamn:; SORT.ORDNING( F\RDELNING; 1. Klassvis(1. Ingen separation; 2. Alfabetisk( 2. M{n f|rst;(3. Kvinnor f|rst( 4. M{n endast(5. Kvinnor endast Huvud rubrik: Tab H-rubrik; Under rubrik Tab U-rubrik,Antal s|kbegrepp:;a⸈J # ;#k#k;{J#փ <Datum#⸔#k;{J#<) #⸅2'݊ ޵ ޵<'޵#⸔#⸔#F#⸔#P#⸘޵P#PP;#⸈݊#⸀AJP#DŽ-#P-#⸈Jք@ 2'ݵF޵PPP;P=;P=;   ݖU ݖC ⊾ ފ ݍ 2o  ފ ¸g   ¸݊1;V  ㊆L! ⊾+ ފ ݍ'ނ'߂ ;m<   ݊1<;I  ㊆?! ⊾  ފ ݍ'ނ'ₕ zF2>  ㊾3 䊾)! ⊾> ފ ݍF2   ㊆)! ⊾ ފ ݍ2P2   ㊆#! ⊾ ފ ݍP< T   ㊆)! ⊾ ފ ݍ<   ⊾ d݊ 0d9  ㊆b! ⊾ ފ ݍd ⊾ ފsd'ݐ㖾6d 6;݊ F{ltnr/S|kord>Villkorݵ##ޜ###n#  #nݖ##n;X ⊾#ߟ##ݐ)ނ ݍ'݂'1p#n'#~ #U   ㊆ ⊾* ފ޵P 3#P#~ ⊾n ފ##@  ݖ  ㊆ ⊾ ފ =K< >> E#{ E#@ ;U#޵PnPn݊'P~ߖP~P~ :P~Pn P~P~Pn >KEY1M' -4ݵW޵WߵWߵWv޵W޵WfߵW]KEY2M' -4ݵW4޵W+ߵWKߵW޵W;޵W ޵WJ a⸀ PRݵ]McdNs -McdN3 ]ޜ]F]; " &  M m"" a ފE W݊  W0dd0޵P'nPޖPޟE QPn݊5P = ݊' ފP ='P<>JP EjPn~PP~P~Pn~PP~P~sPޜn~Pn~PP~P~PޜPޜ~Pޜ~qoݵ  Paj ފ*J14ޜ4  ފ :ޜ: ߊ @ޜ@F F ZJ #®埖O  ފ"" ފ޵P[P~PP~P~#PP~;J޵P#⸙K#⸈ZD ޜ#⸈ZD#⸈ޜޜJ ޜF;$Skall utskriften avbrytas ? (J/N);2N;2w Jj޵ 1Nn 䊆ݵ 2 ;F;J # ; ފ P ޵  ޵PPc*PފPߊ[P~P~ P~PP~P~PP~;Pc!P;ޜ"TRYCK P] "RETURN" F\R N[STA ELEV ;    ފ ꊾ  IJ P J # ;*JN;TRYCK P] "CE" F\R ANTAL ;(;     TOTAL ANTAL ELEVER 4%M[N :4 KVINNOR @N;TRYCK P] "CE" F\R ]TERG]NG ;(;  ޵~ ޵ *P~P~ ݵ ޵ KX~ 0 9ݸ'݊ߊኆ㊆劆߸޸ ⊾ ފ S ⊾F;!Enkel eller Dubbel radframmatning;2E;2  䊾 EZe ⊾ ފ ݍEe EZ-Dd DZ ;gF;Printer eller Sk{rm ? (P/S);2S;2  䊾 S X ⊾ ފPp P +Ss S  ;tF;;Text f|rsta raden;  ⊾! 䊾 ފ ݍF; Antal rader mellan varje etikett;-  ⊾3 ފ ݍ'P ')&" #,cݸ)&$ #,cϟݸ 7ݸV'Q&REGSIZEN.FIL渟"REGSIZEN.FIL渖#, Ņ#,#, 1޵P1z#,#, P#, P#,N P޲2D P߲H Pಊ Pݲ#, 渆1~cKEY1cݸ9!!   FORMAT.FIL#,݂ #!ݸ<,7޵P !Pޟޜ6' FINNS EJ ; M;޸#,P #,  '݊K L2޵Pޟ^,Pޟ ޜ,Pޟ 'ޜ2P޸ީP =P P޸ީP HP '~ '2 32޵Pޟa,Pޟ 'ޜ,Pޟ 'ޜSP޸ީP ^P 'P޸ީP iP 'e   ݸ974޵P1 P~PPtݸ(y$# + P;ݸJjI9z޸ީ  k=*J# ;޵P⸼#⸙*JI#TOTALT ANTAL ELEVER 4#M[N :7 KVINNOR @# ;!J # ;ݸy Nt# ;ŸJ6#TRYCK P] "RETURN" F\R N[STA SIDA ; FF F ޸F ꍾݸ_ Za1 INITPR.FIL渖#,a#, Ŏ PR:VSA30C72.5aHݸ!"k{Ɵ*INST.FIL渆 #,kkk9U{VW*渠ݸ# !<;޵P  ޵P4 P#޵PPPኾ,ݵݵ ; FF ޵  F ߵ F BF  F  F  F  $F XF ݊ yF ꊾF 劾&F 抾 F ;|ޜF F ߊF ..ފߊF 0F 9F;ޜ%Ffrኾ ;~޵P Pߊ0ߊ  ; PPޜPߜ ;&PޜՁPPޟޜ E;ݙݵ ޟ  ޜF ޵PPa⸘ݵPRݵO3xPP' FF< FF #,P#⸙⸠ BHN(2<FPZdn~  *4:@FPak{( #)1MW]cm~!dn~  *4:@FPak{?MF0: MF1:  DRIVEMF.BAC DRIVAR.TXT޸#޸,MF0:(#޸,MF1: 2#޸,<޸ F P1:  DRIVEMF.BAC DRIVAR.TXT޸#޸,MF0:(#޸,MF1: 2#޸,<޸ F P?ISAMOPT REL ""!!4*`-`!~5g.~(I#>(C"N#`8,s-`*.~(8.V.^K@yH`0{7s* !**"ͱ:G(*oLEb9B"*LEC* -`*. "!#b! ͱG#g (Mo _!O qomki!a_][*{/_z/WC~#F#N#( :O:G!j B*++7!BOOʪ~#F#N#( :O:GxAOq#p#BASICINISYSk(Mo _!O qomki!a_][*{/_z/WC~#F#N#( :O:G!j B*++7!BOOʪ~#F#N#( :O:GxAOq#p#BAS?H0|4%U8d8:N*o >2ASORTORDRTAB*}"!"}nf~#+ NF !"!#"###":& ( *r#"Å "DŽf"ł1*!%nf ~#foTO.#,****Ä*ń*ǂ  P!@666666׍!D~ !n f |ԛu t ]T6>Z8v66FpȄ!֌ut0d8;.~>~ 2OF<7 !!NUU8>4>2">93333[##||S΂CЁS҂CԈ~+~ ~ #~!j !k ~#fo{8~ ^ Vwsr+,-./0  ;      h!9N#F#^#V#N#F#>47ISMn f F_* ɯ!K3ISAM OPENISOPISAM READISRDISAM WRITEISWRISAM UPDATEISUPISAM DELETEISDLKEYINDEXFIRSTLASTNEXTPREVIOUSPREVf666666ہ'# '# >76#Hw#ۅEɎ#>7 &+    ((#,( ( (y9 w7 >/>͋g !9>9= ͏&0  !9>[^Xف[+V+^H(.N !^X!ف[!C (+V+^+H8. ++4 #4!^X!ف[q#^#V? !X![#^#V!C+r+s? !0YPFniFnd!`>!!` !-`!0`!*`!?`8y#7*3!"3"3"3   >45Ȧ!0!0   >>* ~* F N *  F* !ֆN [΁  *Аu>z7$%,-(5M ւ͂0jx7 ~܇0 " 8  F ~ 9 0  8(   8 (x7 `"(x7 U8L F[ b}^!  ֌i`! ւ! Xw!փ" f^(* R ^ !^!ց#*҂KԊ + (9y[ 06 #< ȁ[n(  ~ >|7~ ~  } ȋut"  nf ׂ  \ 0   |   J*҂Kԁ I  \0   0` Y ׂ*Ԃ[ЇR>}7  4(8 h0y(   *΂KЁ I 4(  h \ " Ѓ8 V-" ! ց[ *ԎB  A[ҁ a>{7 ȁ" *  " ~*  " ȅ7R \ف k!݁ڄFa[ ! ց &ց* ҂Kԃ ց*΂KЋ6#! ։  !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^ \][  \][ x ~#^#V   ~#^#V!4(5  ! օ!F   =2]T!F! ց  )!IN#F=دGOl={-دGOl(GW{WdG-دGOlGG0>CFnZ~W:WFdvFdFid#4 #4!@w*B8 (" MD!! 6Nwy#~@_^V  n O͎q6R>} cG=(=(=(-=((~#pA N#~#AyAx态G~#N#? 7>yH˹>~# +0/x/>   { ʄ7 [ R f(!ւIaƃ [N( F8F>x7# <=ݾ0 |~ #0  [ R !ւ!ց~~wځ8$ |>yA7~(O( F(F( #[!ց!a~(s ݁[!R8؋^!a;( ֈˎ6Bi`RMD܃!Ձ!Z!^  ن!^ <2ف؂!ֈF #6#!Y!ց6#6#!\ !aF !^ <Dw[B!^6!ցa !X!aF#c}^X!ِw( # ӧRMDkb6 n F( #[oN(> F( #[  <F(OBa!R8o \0͏-!i`aʑi` Fa(>x7!^ >"7[0 ?a/P% -------------------------------- - START-- SYSTEM: ELEV-REGISTER- - BO GRUSELL - BG DATA  - 84-02-12& !--------------------------------/P   BHNZd݊J!'------- HUVUD MENY --------t'SB.XXX߸~'#߸,ߟ $'#߸,ߟ .'#߸, 8'޵>8N"'#߸,>ߟ '#߸, >O'#߸,>_(@2(߸:F(B݊0 Avslutning0 Huvud meny((B݊4)o݊ ݵBr)oON uo_*o݊R+o f+޵Bd p+ߵBX z+BL+$ N------ SKRIV OCH L[S MENY ---- N ND) NP=;N$N.NP=;N>8ޟ N>>;N{O$OP=;LOV{lj ; ^O Ɗ!`OŠ 0Š 08jOŠ; ƔO” $ VAL KLARTO"劾wO OŠ 9Š 7o OŠ'oOݵ O P x 撇kOnerrorgotoInputlineKolumnErrrorStadieDrive0Drive1MenyMenyvalDatumindikSsize0ScrollDatumRegnrZ!! "B!H"N)#~yz$ .8y>y O}_~oyuzz  o OŠ'oOݵ O P x 撇kOnerrorgotoInputlineKolumnErrrorStadieDriv!!?!a7 P& !VERSION.BAC 1984-01-23 / BG/P   BHN",L{s vilken drive som anv{nds6 DRIVAR.TXT޸@#޸,J#޸, TՁ  #ELEV-REGISTER ABC800! Version 1.55.(c) Copyright Liber L{romedel;޵!   Datum* START.BAC" ---- DATA SATSER SCROLL ----( '!6,17,14,80,221,33,64,121,221,126( '!80,221,119,0,221,35,13,!32,245,14 80,16,241,201/u--- [NDRA DATUM ------#0uݵ!]]-MM-DD;:uޜ㖾Duފߊ+Nuኆ ޜ+Xu㊆ ߜ+u+; 1Du1 劾7ޟ݊@!!!!ޟ !ސ#Yv1019@ v+1v!1! v>$wօ,! ',!',!',,,Bw6Drive0Drive1ScrollMenyDatumRegnrErrocodeKolumn : r B H N!!y y !z+y!1z#Yv1019@ v+1v!1! v>$wօ,! ',!',!',,,Bw6Drive0Drive1ScrollMenyDatumRegnrErrocodeKolumn : r B H N!1`?1 1 ELEV-REGISTER 24 Klass 6 1 A Namn 26 7 A Personnr 11 33 A Adress 20 44 A Postadress 20 64 A Telefon 11 84 A Fri rad 20 95 A Fri rad 4 115 A Fri rad 5 119 A Fri rad 3 124 A [mne1 5 127 A [mne2 5 132 1A [mne3 5 137 A [mne4 5 142 A [mne5 5 147 A [mne6 5 152 A [mne7 5 157 A Sign1 3 162 A Sign2 3 165 A Sign3 3 168 A Sign4 3 171 A Sign5 3 174 A Sign6 3 177 A Sign7 3 180 A 182 183 7 A [mne2 5 132 1 5 137 A [mne4 5 142 A [mne5 5 147 A [mne6 5 152 A [mne7 5 157 A Sign1 3 162 A Sign2 3 165 A Sign3 3 168 A Sign4 3 171 A Sign5 3 174 A Sign6 3 177 A Sign7 3 180 A 182 183 7 A [mne2 5 132 A?A*7~]SO!4`!5ADDOPT ABSRUN VERSION AKan ej |ppna fler filerF|r l}ng rad (>160tkn)Hittar ej filenFilen ej |ppnadSlut p} filenChecksummafel vid l{sningChecksummafel vid skrivningFelaktigt sektorformatSektornummer utanf|r filenFilen skrivskyddadFilen raderingsskyddadSkivan fullAEnheten ej klarSkivan skrivskyddadLogisk fil ej |ppnadFel logiskt filnummerFel enhetsnummerFel trapnummerFel i biblioteketFelaktigt fysiskt filnummerEnheten upptagenEj till denna enhetFunktionstangentIEC-b}de s{ndare och mottagareAIEC-mottagare ej aktivIEC-s{ndare ej aktivTecken fr}n tangentbordet ej i tidOgiltigt tecken inl{stFelaktigt "NAME"Felaktig tidspecifikationNyckel finns ejDubblettnycklarFelaktig nyckelFel vid kontroll{sningIndex finns ejFelaktig postl{ngdAFel ISAM-filversionSlut p} minnet i centralenF|r stort flyttalIndex utanf|r till}tet omr}deF|r stort heltalFel i ASCII-aritmetiskt uttryckIndex utanf|r str{ngenNegativ "SPACE$","STRING$" eller "TAB"<1F|r l}ng str{ngEj till}tet |ka "DIM"AFel v{rde i "ON"-uttryck"RETURN" utan "GOSUB"Felaktig "RETURN"-variabelData slutFelaktigt argument i funktionFelaktig "SYS"-funktionEj till}ten rad"FNEND" utan f|reg}ende "RETURN""PRINT USING" felFelaktiga dataF|r lite indataA"RESTORE" ej p} en "DATA"-radF|r mycket indata"RESUME" utan felGrafisk punkt utanf|r sk{rmenHittar ej detta radnummerFelaktigt inhopp i funktion"NEXT" eller "WEND" saknas"FOR" eller "WHILE" saknasFel variabel efter "NEXT"ABlandade "FOR"-loopar med samma variabel"FOR"-loop med lokal variabel ej till}tetFunktion ej definieradFlera funktioner med samma namnFelaktig funktionFel antal indexEj tilldelningsbar i funktionEnheten ej anslutenMinnet fulltA "LIST"-skyddat programFel programformat"MERGE" g}r ej p} ".BAC"-fil"COMMON" felAnv{nd kommandot "RUN"Kan ej forts{ttaOtill}tet som kommandoFel data till kommandoFelaktigt talPrecision f}r ej {ndrasF|rst}r ejOtill}tet tecken efter satsenA M}ste st} f|rst p} en radFel antal eller typ av argumentOtill}ten blandning av tal och str{ngarEj enkel variabelFelaktig sats efter "ON""," saknas"=" saknas")" saknas"AS FILE" saknas"AS" saknas"TO" saknasRadnummer saknasFelaktig variabelA LUXOR st} f|rst p} en radFel antal eller typ av argumentOtill}ten blandning av tal och str{ngarEj enkel variabelFelaktig sats efter "ON""," saknas"=" saknas")" saknas"AS FILE" saknas"AS" saknas"TO" saknasRadnummer saknasFelaktig variabelA st} f|rst p} en radFel antal eller typ av argumentOtill}ten blandning av tal och str{ngarEj enkel variabelFelaktig sats efter "ON""," saknas"=" saknas")" saknas"AS FILE" saknas"AS" saknas"TO" saknasRadnummer saknasFelaktig variabelQ?QELEV-REGISTER Huvud meny 3 1 Registerrutiner 0 0 2 Utskriftsrutiner 0 0 3 Systemrutiner 0 0 yy E#޸,#޸,#޸,$#"ELEV-REGISTER","Huvud meny" 3"!"1 RQGISTER Huvud meny 3 1 Registerrutiner 0 0 2 Utskriftsrutiner 0 0 3 Systemrutiner 0 0 yy E#޸,#޸,#޸,$#"ELEV-REGISTER","Huvud meny" 3"!"1 RQ 6 Byte av klassbeteckning 1 BYTEK 7 [ndra rubriker 0 [RUB 8 Kopiering av registerskivan 0 KOPYVAL.BAC 9 Formatering och preparering av registerskivan 1 FT 1 ERZRP 4 Inskrivning av l{rarsign 1 INSKR 5 Byte av hel l{rartj{nst 1a ?aELEV-REGISTER Registerrutiner 6 1 Registrera/S|ka/[ndra/Bortta l{rare 3 L[RARE 2 Registrera/S|ka/[ndra/Bortta klasser 2 KLASS 3 Registrera/S|ka/[ndra/Bortta elever 1 ERZRP 4 Inskrivning av l{rarsign 1 INSKR 5 Byte av hel l{rartj{nst 1 aBYTEL 6 Byte av klassbeteckning 1 BYTEK era/S|ka/[ndra/Bortta l{rare 3 L[RARE 2 Registrera/S|ka/[ndra/Bortta klasser 2 KLASS 3 Registrera/S|ka/[ndra/Bortta elever 1 ERZRP 4 Inskrivning av l{rarsign 1 INSKR 5 Byte av hel l{rartj{nst 1 a Byte av klassbeteckning 1 BYTEK era/S|ka/[ndra/Bortta l{rare 3 L[RARE 2 Registrera/S|ka/[ndra/Bortta klasser 2 KLASS 3 Registrera/S|ka/[ndra/Bortta elever 1 ERZRP 4 Inskrivning av l{rarsign 1 INSKR 5 Byte av hel l{rartj{nst 1 q@?q 3 L[RAR REGISTER  3 Sign 3 1 A Namn 26 4 A Telefon 11 30 A 40 41 qAR REGISTER  3 Sign 3 1 A Namn 26 4 A Telefon 11 30 A 40 41 ql? a-.PCI D------------------------------------------------------------------- 2 -PROGRAM ERZRP ( ELEV REGISTER PROGRAM ) SYSTEM ELEV REGISTER1984-02-08 Version 1.5 BO GRUSELL BG DATA HC------------------------------------------------------------------/P   BHN** ----- START ------2-*------ DIMENSIONERA GLOBALA VARIABLER -----LP4V(82-*----- S[TT SNABB NYCKAL + SORTORDNING -----(޲(޲޵B4$6*----- INITZIERA PRINTER ----- >oH ! *----- \PPNA REGISTER ----- ' REGN.ISMdN .. \ppna klass register REG2.ISMf*& N Klass som {r under registrering#*----- L[S REGSIZE FIL ------ H'+'&***** ----- PROGRAM STOMME -----*****'*'%*----- SKRIV BILDSK[RMS LAYOUT -----' $'+Ht'v'*----- VAL -----x''O;0' REGISTRERA = R S\KA = S;"'ޫ2ݫKH"'Hފo***** AVSLUTNING%'Rr Registrera'SsS|ka'2 ;:+:&* ----- AVLUTNING AV PROGRAMMET -----:: START N#"NSUB RPREGISTRERA ( RZRP )$N&*N Registrera;O;4NLX9%=FNRzl{sposter%">NHފYHс; NXN޵bh*$NXbyXbbyNjNXXXNdN_H>NHy1FINNS REDAN REGISTRERAD ; NH M O|HBOUU SUB S\KNINGUVV*----- L[S S\KORD -----XV ^VS|ka;O;VݵVޜ疾޵+VߜtH7VH䊾'H⊾ޟސ ޵H#,XR\ݸfp D";!FNISAMERROR ( ISAM )ݸ (&w*.,)FNRZREADRZFIL ( REGSIZE ). ( [NDRAD )0.1)Dimensioneringarna |kade fr}n 16 till 2422%5(E޵b1+Hbߜb%b%:;RTb3-Vb(b%b%:;X\ݸf p,r+t&FNRZSKRIVP]SK[RM ( RE!GSIZE )v ( [NDRAD )xz޵b bߜby;b b:by;ݸ Č+Đ#ĐFNBLANKAINM ( STANDARD )Đ ( [NDRAD )ĐĘb鸼Ĕb2";ęŘb,Ŕb;Ŕb:;řŔO;ŔO;0Šݸ:ō h(j*l%FNPRINTEROPTIONER ( STANDARD )n pr?| INITPR.FIL渇#,#,#  񟈀 PR:VSA50C72.5Hݸi)(#FNINST ( STANDARD )INST.FIL渇 #,9$U"Sidnrindik$=MID$(Q0$,86%,1%)渇&ݸ.0 ! !1$2FNINPUT ( STANDARD )36VERSION 0.1 8209238:<;;S,<޵b!  %=>;D޵bߜ  N޵bXbbb lv ݵ/ݵH----- INL STOMME -----/; &!------ PF &- TANGET ------------- ޵HPF1 ߵHPF2 OmPF3 HPF4 HgPF5 HJPF6 H-PF7 CPF8'\ 4HC% ------- \VRIGA TANGENTER ------2 /݊ H"RETURN" Mostv. PF7 ꊾ 劾@<== 抾&==>% ;S/ޜ$ ( .ߊ .88ފߊB 0 9|/; /ޜ//C,'---------- INL SLUT ------------------3VQIF X4%=2% AND INSTR(1%,X$,".)")>0% AND INSTR(INSTR(1%,X$,".")+1%,X$,".")>0% 62000 ޵bb1ߊ0<ߊ F|r stort decimal tal"(F/*ኾ$ ;2*%A; ; FH'"----------- PF8 ( RADERA ) ----,/b@bޜbߜT<h+j ;r$|----- PF3 ( INS[TTNING ) -----b/ޜՁ+bbޟG/ޜ ;D------<==--------X/ݙ ݵ/ b/ޟ/--------==>------------/ / /ޜ/"p------- PACKA / SKRIV ------ z, /VV޵bVbX. FNEND ⸇bq r ݵOCxbP < rr(x 2#,rH ! *----- \PPNA REGISTER ----- ' REGN.ISMdN#*----- L[S REGSIZE FIL ------ H'+'&***** ----- PROGRAM STOMME -----*****'*'%*----- SKRIV BILDSK[RMS LAYOUT -----' $'Ht'v'*----- VAL -----x''O;0' REGISTRERA = R S\KA = S;"'ޫ2ݫQH"'Hފo***** AVSLUTNING%'Rr Registrera'SsS|ka'2 ;:+:&* ----- AVLUTNING AV PROGRAMMET -----:: START N#"NSUB RPREGISTRERA ( RZRP )$N&*N Registrera;O; 4N|H">NHފH; NNN޵X^*$NNXoNXXoN`NNNNNdN H>NHy1FINNS REDAN REGISTRERAD ; NH  OHBOUU SUB S\KNINGUVV*----- L[S S\KORD -----XV ^VS|ka;O;VݵVޜ^ޟ޵Vݵ+V}H7VH䊾'H⊾ޟސ ޵VVHߊ4ߵKEYBdNA Hݵ~PF2 SKRIV F\RSTA REG."VHފ|H; WHW----- V[LJ S\K TYP -----W(ފilWޟW!W*----- S\K MED NYCKEL -----W0W88WKEYWdN8 HBWHx5FINNS EJ REGISTRERAD ; P H W H WH&WVAL av }tg{rd vid funnen post WHފH#,‘NR\ݸfp D";!FNISAMERROR ( ISAM )ݸ (a&X*.,)FNRZREADRZFIL ( REGSIZE ).*2(޵X^1+HXXX:;RT\ݸf pk,brtFNRZSKRIVP]SK[RMvz޵X^ XXo;_ݸ Č+Đ#ĐFNBLANKAINM ( STANDARD )ĐĘXĔX2;ęjŔO;ŔO;0Šݸ:ō h(j*l%FNPRINTEROPTIONER ( STANDARD )n pyr?| INITPR.FIL渇#,y#, Ń 񟈀 PR:VSA50C72.5yHݸi)(#FNINST  ( STANDARD )ƙINST.FIL渇 #,9U"Sidnrindik$=MID$(Q0$,86%,1%)渇&ݸ.0 ! !1$2FNINPUT ( STANDARD )36VERSION 0.1 8209238:<;;S,<޵X!  =>;D޵Xߜ N޵XXX Xblv ݵݵH----- INL STOMME -----; &!------ PF - TANGET ------------- ޵HPF1 ߵHPF2 !OmPF3 HPF4 HgPF5 HJPF6 H-PF7 CPF8\ (HC% ------- \VRIGA TANGENTER ------2 ݊ H"RE"TURN" Mostv. PF7 ꊾ 劾@<== 抾&==>% ;Sޜ$  .ߊ .88ފߊB 0 9|#; ޜC,'---------- INL SLUT ------------------3VQIF X4%=2% AND INSTR(1%,X$,".")>0% AND INSTR(INSTR(1%,X$,".")+1%,X$,".")>0% 62000 ޵XXߊ$0<ߊ F|r stort decimal tal"(F/*ኾ$ ;2%A; ; FH'"----------- PF8 ( RADERA% ) ----,X@XޜXߜTh+j ;r$|----- PF3 ( INS[TTNING ) -----XޜՁXXޟޜ ;D------<==-----&---Xݙ ݵ bޟ--------==>------------  ޜ"p------- PACKA / SKRIV ------ z ޵XX. y⸇XǑ'q  ݵ%OCxXP% < (' 2#,< FX#⸈2P⸇ZdRegnrReadrzfilSkrivsk{rmbildrzInputRzl{sposterBlockAntalf{ltPostOldpostBl({ngdWriteIsamerrorBlankaLstL{ngdRzreadfirstKeyIndexReadkeyIsreadfirstIsreadSkrivNewblockL{sposterIsrewriteDeleteRzreadrzfilRubrikStartiblockTypRegnamnVl{ngdRzpackauppPrinteroptionPoptionPraderInstRadDatumindikIsreadkeyFiln)rIswriteFileIsdeleteL{ssk{rmbildBlankainmSkrivp}sk{rmIsdelteRzskrivp}sk{rmIreadkeyRnendSavrSortordningL|pnrErcodeIsamreadIsamreadfirstConFirstHcKetDisk0Disk1MenyDatumScrollMode// r0B0HA0N zz(%$8"$B-*HIN!Xy ^!o"F""y"Q/#B$.'5'0z%&' yGA y(1)))) 9/%y odeIsamreadIsamreadfirstConFirstHcKetDisk0Disk1MenyDatumScrollMode// r0B0HA0N zz(%$8"$B-+j? ah(=+PPI D------------------------------------------------------------------- 9 4PROGRAM KLASS ( REGISTER PROGRAM F\R KLASSER ) SYSTEM ELEV REGISTER1983-01-30 Version 1.5 BO GRUSELL BG DATA HC------------------------------------------------------------------/P   BHN** ----- START ------2-*------ DIMENSIONERA GLOBALA VARIABLER -----LP4V(82-*----- S[TT SNABB NYCKAL + SORTORDNING -----(޲޵BSortordning%=1%4$6*----- INITZIERA PRINTER -----8 >H ! *----- \PPNA REGISTER ----- ' REGN.ISMdN#*----- L[S REGSIZE FIL ------ H'+'&***** ----- PROGRAM STOMME -----*****'*'%*----- SKRIV BILDSK[RMS LAYOUT -----' $'$Ht'v'*----- VAL -----x''O;0' REGISTRERA = R S\KA = S;"'ޫ2ݫWH"'Hފo***** AVSLUTNING%'Rr Registrera'SsS|ka'2 ;:+:&* ----- AVLUTNING AV PROGRAMMET -----:: START N#"NSUB RPREGISTRERA ( RZRP )$N&*N Registrera;O; 4NH">NHފH; NNN޵X^*$NNXoNXXoN`NNNNNdN H>NHy1FINNS REDAN REGISTRERAD ; NH  OHBOUU SUB S\KNINGUVV*----- L[S S\KORD -----XV ^VS|ka;O;VݵVޜ^޵Vݵ+VH7VH䊾'H⊾ޟސ ޵VVHߊ4ߵKEYBdNI Hݵ~PF2 SKRIV F\RSTA REG."VHފH; WHW ----- V[LJ S\K TYP -----W(ފilWޟW!W*----- S\K MED NYCKEL -----W0W88WKEYWdN8 HBWHx5FINNS EJ REGISTRERAD ; XH W H WH&WVAL av }tg{rd vid funnen post WHފH#,NR\ݸfp D";!FNISAMERROR ( ISAM )ݸ (a&X*.,)FNRZREADRZFIL ( REGSIZE ).*2(޵X^1+HXXX:;RT\ݸf pk,brtFNRZSKRIVP]SK[RMvz޵X^ XXo;_ݸ Č+Đ#ĐFNBLANKAINM ( STANDARD )ĐĘXĔX2;ęjŔO;ŔO;0Šݸ:ō h(j*l%FNPRINTEROPTIONER ( STANDARD )n pyr?| INITPR.FIL渇#,y#, Ń 񟈀 PR:VSA50C72.5yHݸi)Ρ(#FNINST ( STANDARD )ƙINST.FIL渇 #,9U"Sidnrindik$=MID$(Q0$,86%,1%)渇&ݸ.0 ! !1$2FNINPUT ( STANDARD )36VERSION 0.1 8209238:<;;S,<޵X!  =>;D޵Xߜ N޵X XXXblv ݵݵH----- INL STOMME -----; &!------ PF - TANGET ------------- ޵HPF1 ߵH!PF2 OmPF3 HPF4 HgPF5 HJPF6 H-PF7 CPF8\ (HC% ------- \VRIGA TANGENTER ------2 Ρ"݊ H"RETURN" Mostv. PF7 ꊾ 劾@<== 抾&==>% ;Sޜ$  .ߊ .88ފߊB 0# 9|; ޜC,'---------- INL SLUT ------------------3VQIF X4%=2% AND INSTR(1%,X$,".")>0% AND INSTR(INSTR(1%,X$,".")+1%,X$,".")>0% 62000 ޵XX$ߊ0<ߊ F|r stort decimal tal"(F/*ኾ$ ;2%A; ; FH'"------%----- PF8 ( RADERA ) ----,X@XޜXߜTh+j ;r$|----- PF3 ( INS[TTNING ) -----XޜՁXXޟޜ ;&D------<==--------Xݙ ݵ bޟ--------==>------------  ޜ"p------- PACKA / SKRIV ------ z ޵XX. 'y⸇Xq  ݵ%OCxXP% < (' 2#,< FX#⸈2P⸇ZdRegnrReadrzfilSkrivsk{rmbildrzInputRzl{sposterBlockAntalf({ltPostOldpostBl{ngdWriteIsamerrorBlankaLstL{ngdRzreadfirstKeyIndexReadkeyIsreadfirstIsreadSkrivNewblockL{sposterIsrewriteDeleteRzreadrzfilRubrikStartiblockTypRegnamnVl{ngdRzpackauppPrinteroptionPoptionPraderInstRadDatumi)ndikIsreadkeyFilnrIswriteFileIsdeleteL{ssk{rmbildBlankainmSkrivp}sk{rmIsdelteRzskrivp}sk{rmIreadkeyRnendSavrSortordningL|pnrErcodeIsamreadIsamreadfirstConFirstHcErdDisk0Disk1MenyDatumScrollMode// r0B0HA0N z*z(%$8"$B-HIN!Xy ^!o"F""y"Q/#B$.'0z%&5'' yGA y(1)))) 9/%y odeIsamreadIsamreadfirstConFirstHcErdDisk0Disk1MenyDatumScrollMode// r0B0HA0N z+? a6*'P   BHNP4(8(޲޵BREGN.ISMdNREG2.ISMfH RRފ START INSKRIVNING AV L[RARSIGNATURD) ;P=;[mne:;Sign:;]rskurs:;HXblXh RRފRXݖX;.RXݖX;RXb RRފRbݖb;8Rbݖb;R⊾3Rbl RRފRlݖl;8Rbݖl;R⊾)Rl'Skall hela }rskursen ha sign ? (J/N);<N;< RRފNnR䊆JjtRHvHHRފL; Skall klass v ha sign ? (J/N);<N;<& RRފNnR䊆eJjNSkall hela klass v ha sign J (J/N);<N;<RRފHHNnR䊆*Jj:Hݖ-f RR"޵RR fHRR fRR"޵RR kH† Bf\RR"޵RR -H† fRR"޵RR l† † HH1HReH RRxR"R H† Rݵ޵#Xb޵݊@޵·eRR eR6seH/RRxR"R H†ұ 6Rݵ޵$XlRފ݊@޵·eRR eR/;,;2N;2RJj޵ bNnR䊆ݵRފ--;쵖!8!;Namn,Personnr,+-;Skall eleven ha sign ? (J/N);--;ք`2ѱ ;222z޵㸼޵㸼: `  ޵㸼'%" #,Ɔ%ݸ)$$ #,Ɔ%ϟݸ / ** "$#,Ɔ%ݸ!* #,†ݸ&&! #,†·ݸ!* #,†ݸ "ݸ&/?O_(o&REGSIZEN.FIL 渟"REGSIZEN.FIL渖#, Ő#,oooߟ o#, ޵#,/ߟ #, ?#, O#,N _޲2D _߲H _ಊ _ݲu#, ń #, Ŋ渆ƆƷ%KEY1%ݸ9)(4޵ †O?ݸv+qൖ鸼2;굖 ;:;O;O;ݸ !J !<;F޵  ;޵ߜ޵ݵݵR; ± ޵R# ߵR g R R R R ] ݊R ꊾ 劾)+ 抾2 ;ޜ  ߊ ..ފߊ 0 9;ޜl޵ ߊ0ߊ <ኾ# ;; ;Rޜߜ ;ޜՁޟޜ E;ݙݵ ޱ  ޜ ޵ BHN(8BHRXblv%/?O_o  ޜ ޵ BHN(8BHRXblv%/?O_ov vv@m%d BDFNISREAD ( ISAM )FJ#T#,Ɔ%hrݸr$i !FNISREADFIRST ( ISAM )%#,Ɔ%χ̜֜ݸ꜠w *n "$  FNISREADKEY ( ISAM ))#,Ɔ%0:ݸNXlh*_ npFNISWRITE ( ISAM )rv#,†ݸНm&d ҝԝFNISREWRITE  ( ISAM )֝ڝ"䝆#,†·ݸ 4f*] 68FNISDELETE ( ISAM ):>H#,†R\ݸfp D";!FNISAMERROR ( ISAM )ݸ (&*.,)FNRZREADRZFIL ( REGSIZE ). ( [NDRAD )0.1)Dimensioneringarna |kade fr}n 16 till 2422/?O_(o;D޵ߜ N޵Xblv ݵݵR----- INL STOMME -----; &!------ PF - TANGET ------------- ޵RPF1 ߵRPF2 4mPF3 RiPF4 RLPF5 R/PF6 RPF7 (PF8% ------- \VRIGA TANGENTER ------2 ݊ R"RETURN" Mostv. PF7 ꊾ 劾[<== 抾A==>% ;nޜ$  .ߊ .88ފߊB 0 9; ޜ^,'---------- INL SLUT ------------------3VQIF X4%=2% AND INSTR(1%,X$,".")>0% AND INSTR(INSTR(1%,X$,".")+1%,X$,".")>0% 62000 ޵ߊ0<ߊ  F|r stort decimal tal"(F/*ኾ$ ;2%A; ; FR'"----------- PF8 ( RADERA ) ----,@ޜ!ߜTh+j ;r$|----- PF3 ( INS[TTNING ) -----ޜՁޟޜ ;D------<==--------Xݙ ݵ bޟ"--------==>------------  ޜ"p------- PACKA / SKRIV ------ z ޵.RegnrReadrzfilSkrivsk{rmbildrzInputRzl{sposter#BlockAntalf{ltPostOldpostBl{ngdWriteIsamerrorBlankaLstL{ngdRzreadfirstKeyIndexReadkeyIsreadfirstIsreadSkrivNewblockL{sposterIsrewriteDeleteRzreadrzfilRubrikStartiblockTypRegnamnVl{ngdRzpackauppPrinteroptionPoptionPraderIn$stRadDatumindikIsreadkeyFilnrIswriteFileIsdeleteL{ssk{rmbildBlankainmSkrivp}sk{rmIsdelteRzskrivp}sk{rmIreadkeyRnendSavrSortordningL|pnrErcodeIsamreadIsamreadfirstConPersonnrkollKlassAntalPersonrkollReurnIs[mneSign]rskursCh%rNopDiskoDisk1MenyDatumDisk0ScrollAsckonvKklassE3040MnyGetqGetq9Klass1zJ21 z2B1H2N zz(%$8"$B-H/RIX0b0l1v3y!yy "z%!A$%B$/&?#O5'_'o'"'F") 9]rskursCh&A$/B$9&I#Y5'i'y'"'F") '9ursChrNopDiskoDisk1MenyDatumDisk0ScrollAsckonvKklassE3040MnyGetqGetq9Klass1zJ21 z2B1H2N zz(%$8"$B-H/RIX0b0l1v3y!Byy "z%!' ? i3"_.PyI D------------------------------------------------------------------- 4 /PROGRAM BYTEK ( BYTE AV KLASSBETECKNING ) SYSTEM ELEV REGISTER1984-02-08 Version 1.5 BO GRUSELL BG DATA HC------------------------------------------------------------------/P   BHN** ----- START ------2-*------ DIMENSIONERA GLOBALA VARIABLER -----LP4V(8`BLVj`jdt3.*----- S[TT SNABB NYCKLAR + SORTORDNING ----- (޲޵ ! *----- \PPNA REGISTER ----- ' REGN.ISMdN .. \ppna klass register REG2.ISMf*& Klass som {r under registrering#*----- L[S REGSIZE FIL ------ '+'&***** ----- PROGRAM STOMME -----*****'*'%*----- SKRIV BILDSK[RMS LAYOUT -----'$'t'v'*----- VAL -----x'~''ފ\++M:+:&* ----- AVLUTNING AV PROGRAMMET -----:: START N"NSUB SKRIV RUBRIK$N >N 4HNBYTE AV KLASSBETECKNINGD) ;RNP=;NNuv. klassbet.;NNy klassbet.:;NNNSUB L[SSK[RMBILDNNBL!LOBݫ VOފ%`OBݖB;%jOBݖB; O|Of_ gOx"RKLASSEN FINNS EJ REGISTRERAD ; <;;O  P  B!PLݫ Pފ%(PLݖL;%2PLݖL;b5 pbd zbފ#bފޜtևJ*beib  by8ceB BcLc/Vce XcZcB  `c޵jct~ևJ*tc~c c9 cL cc޵ccce%c cee V[LJ ELEV%e;,;e2N;"fޫ2ݫfJj"fNn䊆ݵ &fފ0fzxi#ziSKRIV "MENY" VAL ENSKILD ELEV|ii--;i$i!8!;i$iNamn,Personnr;j+-;$jR[TT ELEV ? (J/N);j--;6j`m bm---- Blanka meny elev ----jmtmP;~m1m!Nu sker byte av klassbeteckningar;m@m%d BDFNISREAD ( ISAM )FJ#T#,Ơ)hrݸr$i !FNISREADFIRST ( ISAM )%#,Ơ)χ̜֜ݸ꜠w *n "$  FNISREADKEY ( ISAM ))#,Ơ)0:ݸNXlh*_ npFNISWRITE ( ISAM )rv#, ݸНm&d ҝԝFNISREWRITE ( ISAM )֝ڝ"䝆#, ݸ 4f*] 68FNISDELETE ( ISAM ):>H#, R\ݸfp D";!FNISAMERROR ( ISAM )ݸ (&*.,)FNRZREADRZFIL ( REGSIZE ). ( [NDRAD )0.1)Dimensioneringarna |kade fr}n 16 till 24223CSc(s;D޵ߜ N޵Xblv ݵݵ----- INL STOMME -----; &!------ PF - TANGET ------------- ޵iPF1 ߵLPF2 mPF3 ᵔPF4 ⵔPF5 㵔PF6 䵔PF7 PF8% ------- \VRIGA TANGENTER ------2 ݊ 䵔Z"RETURN" Mostv. PF7 ꊾ 劾X[<== 抾zA==>% ;nޜ$  .ߊ .88ފߊB 0 9; ޜ^,'---------- INL SLUT ------------------ ޵ߊ0<ߊ F|r stort decimal tal"(F/*ኾ$ ;2%A; ; F'"----------- PF8 ( RADERA ) ----,@ޜߜTh+j ;r$|----- PF3 ( INS[TTNING ) -----ޜՁޟ ޜ ;D------<==--------Xݙ ݵ bޟ--------==>------------  ޜ"p------- PACKA / SKRIV ------ z ޵ . ,⸇q  ݵAOCxPA < (C 2#,<2FR#⸈TP⸇ZRegnrReadrzfilSkrivsk{rmbildrzI!nputRzl{sposterBlockAntalf{ltPostOldpostBl{ngdWriteIsamerrorBlankaLstL{ngdRzreadfirstKeyIndexReadkeyIsreadfirstIsreadSkrivNewblockL{sposterIsrewriteDeleteRzreadrzfilRubrikStartiblockTypRegnamnVl{ngdRzpackauppPrinteroptionP"optionPraderInstRadDatumindikIsreadkeyFilnrIswriteFileIsdeleteL{ssk{rmbildBlankainmSkrivp}sk{rmIsdelteRzskrivp}sk{rmIreadkeyRnendSavrSortordningL|pnrErcodeIsamreadIsamreadfirstConPersonnrkollKlassAntalPersonrkollReurnIs[mne#Sign]rskursChrNyklassNuvklassGotooSubE3dEedKf|restSenastenamnSenastepersonnrDisk0Disk1ScrollMenyDatumList12PositionList25300IreadH33 4BA4Hi4N zz(%$8"$B1Lr1V/`2j*3t4-/Iy!2."$z%y !2/y)B$3&C#S5'c's'"F") 9,(Ay R1)onnrDisk0Disk1ScrollMenyDatumList12PositionList25300IreadH33 4BA4Hi4N zz(%$8"$B1Lr1V/`2j*3t4-/Iy!2."%eadIsamreadfirstConPersonnrkollKlassAntalPersonrkollReurnIs[mneSign]rskursChrNyklassNuvklassGotooSubE3dEedKf|restSenastenamnSenastepersonnrDisk0Disk1ScrollMenyDatumh33 4BA4Hi4N zz(%$8"$B1Lr1V/`2&j*3t-z/Iy2!"z%y !2/yB$&-#=5'M']'r"xF") 9(+y <1)E3dEedKf|restSenastenamnSenastepersonnrDisk0Disk1ScrollMenyDatumh33 4BA4Hi4N zz(%$8"$B1Lr1V/`2'@? 2 KLASS-REGISTER  4 Klass 6 1 A ]rskurs 2 7 A Kf 1 3 9 A Kf 2 3 12 A 17 15 AntaL elever 3 15 A 17 18 SS-REGISTER  4 Klass 6 1 A ]rskurs 2 7 A Kf 1 3 9 A Kf 2 3 12 A 17 15 AntaL elever 3 15 A 17 18 `?a`! S0.XXX޸d#޸,n#޸,#޸,޵E#޸,#޸,#޸,$#"ELEV-REGISTER","Huvud meny" 3! "1 Registerrutiner",0,0"!"2 Utskriftsrutiner",0,0"3 Systemrutiner",0,0Listyzyy E#޸,#޸,#޸,$#"ELEV-REGISTER","Huvud meny" 3! "1 R?a8! S1.XXX޸d#޸,n#޸,#޸,޵E#޸,#޸,#޸,)(""ELEV-REGISTER","Registerrutiner" 6:93"1 Registrera/S|ka/[ndra/Bortta l{rare",3,L[RARE:93"2 Registrera/S|ka/[ndra/Bortta klasser",2,KLASS982"3 Registrera/S|ka/[ndra/Bortta elever",1,ERZRP.&-'"4 Inskrivning av l{rarsign",1,INSKR-0,&"5 Byte av hel l{rartj{nst",1,BYTEL-:&"6 Byte av klassbeteckning",1,BYTEKListyzyy |ka/[ndra/Bortta klasser",2,KLASS982"3 Registrera/S|ka/[ndra/Bortta elever",1,ERZRP.&-'"4 Inskrivning av l{rarsign",1,INSKR-0,&"5 Byte av hel l{rartj{nst",1,BYT?a`% P% PREP ELEVREGISTER ABC 840209/P   BHNR Preparering;dֈ}xgREG1.ISM޸@ 'REGISTER FINNS REDAN UPPLAGDA P] DR1: ;  START FORMAT.FIL޸ FORMAT.FIL߸) #޸,#߸, ޸߸INST.FIL޸TJNJ#޸,޸X INITPR.FIL޸b#޸, PR:VSA50B72.5 l#޸,Hv޸޵฼P.ISM޸!REG.ISM߸L)V #޸,`#߸,j t޸߸P.DAT޸!REG.DAT߸) #޸,#߸, ޸߸x START/LitDisk0Disk1MenyDatumScrollRegnrDrive1" R B H N!zzy t޸߸P.DAT޸!REG.DAT߸) #޸,?REG1 DATKEY1  KEY2 "?" 2 ?2REG2 DATKEY1 2B@?B? R`?Ra DRIVEDR5.BAC / BG DRIVAR.TXT޸#޸,DR0:(#޸,DR1: 2#޸,5<޸ F Pb?ba DRIVEDR8.BAC  DRIVAR.TXT޸#޸,DR0:(#޸,DR1: 2#޸,8<޸ F Pr?ra DRIVEDR4.BAC  DRIVAR.TXT޸#޸,DR0:(#޸,DR1: 2#޸,4<޸ F P ? a DRIVEMO.BAC DRIVAR.TXT޸#޸,MO0:(#޸,MO1: 2#޸,<޸ F P? a DRIVEMF.BAC DRIVAR.TXT޸#޸,MF0:(#޸,MF1: 2#޸,<޸ F P? a DRIVESF.BAC DRIVAR.TXT޸#޸,SF0:(#޸,SF1: 2#޸,<޸ F P &? aDP   BHNNފ޵ ފpݵs ފ\Testar sector:$$-Det blev fel $ ; *޵ ފ START.BAC PREP.BACN݊  FORMATERING AV DISKETT;D) P=;P=; Skivan i  kommer att formateras.Ev. inneh}ll p} skivan i kommer att f|rst|ras ;[r detta ok ? (J/N); ݲFORMATERING AV DISKETT;D) ;P=;P=;Plocka ur programmskivan fr}n ; och placera d{r;$skivan som kopiering skall ske till:;[r detta ok ? (J/N);;; 44 ޲ 4J4j4N4n4; >> ޵ > 劾 ;v> ꊾ4N4n޵ ފAbsolut s{kert ? (J/N) ;; 44 4J4j(4N²4n4 ޵ 4; >> ޵ > > 劾 ;\> ꊾ4N4n޵ Formatering p}g}r; |z*+y i+ )!q!!,,b"9,+)#a#+,j i,0²9 ީ $'&$$$"ީ",,,,,,,M dݍީDR$݊ ީv,  ,  ,, " ",޵ݵ,޵&DRލ/ީMFSFDR$݊ ީ$MF$SFݵ劽 MFSF劽 -,&  "  DRHDMOMFSF$݊ ީk`-$$DR $N?ޜ䈧 ޵ߜ MO  ޜ@@޵ݵMO " "& MO&^5HD&n &  ݊ ޵ݵrޙ ފ 튈 jޜ"(=$߂$  " ޵[ ޟފ 튈w ޜ "ݵ_외 ފ 튈 lޜ݊-OE& : SYSDIR.SYS޸#޸,bcǀ ޸ݵ$-j _ _ 2).-j DR MF MO SF HD ݊ީݸVa"Qj )#&k`-ߵ.ޜ  ᜵ߟ=#8f` ݸi`-ߜ-R D ޸o`g1$bA)޸,,ݵީ޸,-ݵީީ,-*$%j`-劽ݸj`-튽帠ީ% p`##     gQ%b*+ 9 !J(z(y ( N @;@ N ޸,߸,ݸ߈*ݸ,,ݸ,,ݸ,ݸ,ݸ,ݸ ǀ݊ǀǀ*@@+߸,ݸ߈ݸ,,ݸ,ݸ,ݸ,ݸ,ݸ,ݸሸ޵ 3  ވ݊ݸ,  ޜ Ѳǀ݊߸,ݸ߈ݸ,,ݸ,@,ݸ,ݸ,ݸ,ݸሸ޵ 3  ވ݊ݸ,  ޜ ǀ݊߸,ݸ߈ݸ,,ݸ,ǀ,ݸ,ݸ,ݸ,ݸሸ޵ +  ވ݊ݸ,N ޜ  ǀ݊߸,ݸ߈ݸ,,ݸ,,ݸ,ݸ,ݸ, ǀ݊ǀǀ*ǟl߈ߊ߸,ݸ߈ݸ,,ݸ,,ݸ,ݸ,ݸ, ǀ݊ǀǀ*( (z)9 !()Q)߸,ݸ߈ݸ,޸,ݸ,,ݸ,ݸ,ݸ,ݸ ǀ݊C߈ߍݵ'߈ߍ߸,ݸ߈ݸ,޸,ݸ,,ݸ,,ݸ, ; ǀ݊ǀǀ*޵ j툧刧劆 ޲߸,ݸ߈ݸ,޸,ݸ,,ݸ,,ݸ, ǀ݊ ޜ 툧刧劆ޜޜޟޟ )|)!Q*`#).ݍՁނ",ޜݸ& z) 9 !(޸,߸,ݸ߈*ݸ,,ݸ,,ݸ,ݸ,ݸ,ݸ ǀ݊ǀǀ*@@+l߈ߍ߸,ݸ߈ݸ,,ݸ,,ݸ,,ݸ, ǀ݊ǀǀ*ޜ y*z)9 !)a#Q)߸,ݸ߈ݸ,޸,ݸ,,ݸ,ݸ,ݸ,ݸ ǀ݊ݵ%߈ߍ߸,ݸ߈ݸ,޸,ݸ,,ݸ,,ݸ, ; ǀ݊޵ h툧刧劆 ޙ߸,ݸ߈ݸ,޸,ݸ,,ݸ,,ݸ, ǀ݊ ޜ ǀǀ*툧刧劆ޜޟ&"a#y,c`݊ݸǀǀ*@@+툧튽0刧劽0ީb ])!&塧ނ,..ނ%z) 9 !(޸,߸,ݸ߈*ݸ,,ݸ,,ݸ,ݸ,ݸ,ݸ ǀ݊ǀǀ*߸,ݸ߈ݸ,,ݸ,,ݸ,ݸ,ݸ, ǀ݊ǀǀ*߈ߊ ޟ *}z)9 !)Q)߸,ݸ߈ݸ,޸,ݸ,,ݸ,ݸ,ݸ,ݸ ǀ݊߈ߍ߸,ݸ߈ݸ,޸,ݸ,,ݸ,,ݸ, ; ǀ݊޵j툧刧劆ޙ߸,ݸ߈ݸ,޸,ݸ,,ݸ,,ݸ, ǀ݊޲ǀǀ*툧刧劆AՁՁr BHN $*4>툧刧劆ޙ߸,ݸ߈ݸ,޸,ݸ,,ݸ,,ݸ, ǀ݊? a PI D------------------------------------------------------------------- C >PROGRAM KOPYVAL.BAC ( val mellan del och helkopiering ) % SYSTEM ELEV-REGISTER ABC8001984-01-30 Version 1.5 BO GRUSELL BG DATA HC------------------------------------------------------------------/P   BHN** ----- START ------2-*------ DIMENSIONERA GLOBALA VARIABLER -----LP'+'&***** ----- PROGRAM STOMME -----*****'*'%*----- SKRIV BILDSK[RMS LAYOUT -----'$'t'v'*----- VAL -----x''q:+:&* ----- AVLUTNING AV PROGRAMMET -----::':ݵN HELKOPIA.BAC: DELKOPIA.BAC N "NSUB SKRIVBILDSK[RMSLAYOUT $N *N &4N KOPIERINGD) ;%>NP=;P=;RNVal av kopiering:;\N1. HelkopieringfN2. DelkopieringN V{lj;NR R SUB L[S VAL RlR; vR STARTR 1 2R; R R STARTR 劾pR ꍾRRegnrReadrzfilSkrivsk{rmbildrzInputRzl{sposterBlockAntalf{ltPostOldpostBl{ngdWriteIsamerrorBlankaLstL{ngdRzreadfirstKeyIndexReadkeyIsreadfirstIsreadSkrivNewblockL{sposterIsrewriteDeleteRzreadrzfilRubrikStartiblockTypRegnamnVl{ngdRzpackauppPrinteroptionPoptionPraderInstRadDatumindikIsreadkeyFilnrIswriteFileIsdeleteL{ssk{rmbildBlankainmSkrivp}sk{rmIsdelteRzskrivp}sk{rmIreadkeyRnendSavrSortordningL|pnrErcodeIsamreadIsamreadfirstFormatLediglistaPoistErrorAntalrubrikerAntalRubriktextTabrubrikerAntalf{ltnrTabf{ltnrF{ltnrInv{rdeTabrubrikFormatnrGotGetFgMaxf{ltnrSll{ngdSxl{ngdSlfilnrSxfilnrSxl{ngMaxl{ngdDrive0Drive1ScrollMenyDatumList80Ist$b55 5B 6H16N z zrorAntalrubrikerAntalRubriktextTabrubrikerAntalf{ltnrTabf{ltnrF{ltnrInv{rdeTabrubrikFormatnrGotGetFgMaxf{ltnrSll{ngdSxl{ngdSlfilnrSxfilnrSxl{ngMaxl{ngdDrive0Drive1ScrollMenyDatumList80Ist$b55 5B 6H16N c?aP$ N I------------------------------------------------------------------------ 4 /PROGRAM DELKOPIA.BAC ( Kopiera fr}n DR1: ) % SYSTEM ELEV-REGSITER ABC8001984-01-31 Version 1.5BOSSE GRUSELL BG DATAPK--------------------------------------------------------------------------/P   BHNd $  -  DELKOPIERING@) ;%P=;P=;M>.Placera tom formaterad och preparerad skiva i  OK ? (J/N)$Hޫ$.R.6   START.BAC޸ ߸0  inneh}ller program-skivan ; Ձ4׍@8  F; B ޫ,Skall l{rarf|rteckningen kopieras ? (J/N). ./ REG3.ISMK REG3.DATKBN ޫ,Skall klassf|rteckningen kopieras ? (J/N)6.X .G/ REG2.ISMK3 REG2.DATK# "Fr}ga betr. elev-registret .ފ= ޫ'Skall systemfilerna kopieras ? (J/N). .H FORMAT.FILK INITPR.FILKk REGSIZE1.FILKRt REGSIZE2.FILK9 REGSIZE3.FILK < DATUM.FILK !Kopieringen {r klar;7Placera program-skivan i  OK ? (J/N)$ޫ$q.P.(#2# START.BAC8#$ ineh}ller ej program-skivan !!!!! ;#ՁU׍@Y#H;#'*'%* ---- KOPIERA EN FIL I TAGET ----*'t'~'K޸'K߸'b'޵l' #޸,l'n'޵}(#߸,} ((<(޵}lޟF(#߸,}P( (޸߸(h)@-B(----- Kopiering av elev-registret ----D>ޫ(Skall elev-registret kopieras ? (J/N)W. . PF1 œNejCޫ-Skall hela elev-registret kopieras ? (J/N)..)v PF1kKopiera hela registretlREG1.ISMKvREG1.DATKƝ 3Kopiera delar av registret4b> REG2.DAT޸H #޸,$J$ ݊ Rޜ\$ f ՁREG1.ISM߸޵5 Skall klass  kopieras ? (J/N)$ޫ$.".&PF1 / Ja / Nej PF! ʞ,ޞ螆߸򞠇Kopiera klassREG1.DAT޸; #޸,$Ƕ $ #߸,$8L޸V8ǐ:ǐ# -- FUNKTION FR]GA -- #<ǐ=ǐ SVARSORD>ǐ 1 = PF1?ǐ 2 = JA@ǐ 3 = NEJ#Aǐ4 = SHIFT+PF7 ( Urkopplad )Bǐ5 = PF5 ( Urkopplad )Lǐnj!AA!q!!!(A!q!ǔP;!ǔ;FJ;ǔF; ưǕ°J°j ߵ.Ǖ°N°n .Ǖ° ޵.mPF10ǐ+IF B$=CHR$(196%) X9%=5% : GOTO 51380 ! PF5*ǐ%IF B$=CHR$(214%) X9%=4% : GOTO 51380'Ǖ° ߵ.Return motsv JA$ZȀ Ingen r{t tangent nedtryckt"cȐTryckning av "Return v{ntas"dȔF°;nȔG; ưxȕ° g ]terhoppȕ° v<==ȕ° ޵./!ȀFel tangenter nedtryckta Ȑ]terhopȔK; Ƞ.ȍFilnamnFilnamAntalLiustDrive1Fr}gaRadnrKolumnTextKolomnIstDrive0MenyMenyvalDatumindikScrollDatumRegnrDriveKlassGotGosunTidBlockd*" "#Ba"HY#N#~#$z.I4x K Uh$ly }y y #z!; Ƞ.ȍFilnamnFilnamAntalLiustDrive1Fr}gaRadnrKolumnTextKolomnIstDrive0MenyMen?aP   BHNNފ޵ފpݵފ\Testar sector: * i44* Det blev fel 4 ; :HNފ PREP.BACF;F;F;F;F;Ladda program-skivan i ;Klart ? (J/N) ;; DDJDjDNDnD; NN 劾 ;N ꊾDNDn ;n( START.BAC޸޸ START.BACProgram-skivan {r ej laddad i ; ;N݊ ** FORMATERING AV DISKETT;D) P=;P=; Skivan i * kommer att formateras.Ev. inneh}ll p} skivan i *kommer att f|rst|ras ;[r detta ok ? (J/N); FORMATERING AV DISKETT;D) ;P=;P=;Plocka ur programmskivan fr}n ; och placera d{r;$skivan som kopiering skall ske till:;[r detta ok ? (J/N);;; DD ޵DJDjDNDnD; NN ޵N 劾 ;vN ꊾDNDn޵ފAbsolut s{kert ? (J/N) ;; DD DJDj(DNDnD ޵D; NN ޵N N 劾 ;\N ꊾDNDn޵Formatering p}g}r;REG1.ISMXelev-registretbREG1.DATXREG2.ISMXklassf|rteckningenbREG2.DATXREG3.ISMXL{rarf|rteckningbREG3.DATX FORMAT.FILX Systemfilerbq INITPR.FILX_INST.FILXO DATUM.FILX> REGSIZE1.FILX* REGSIZE2.FILX REGSIZE3.FILXX޸X߸ Kopiering av ;b;;F޵l #޸,ln޵}#߸,}޵}l #߸,}޸߸ |z*+y i+ )!q!!,,b"9,+)#a#+,j i,09 ީ $'&$$$"ީ",,,,,,,M dݍ ީDR$݊ ީv,  ,  ,, " ",޵ݵ,޵&DRލ/ީMFSFDR$݊ ީ$M F$SFݵ劽 MFSF劽 -,&  "  DRHDMOMFSF$݊ ީk`-$$DR $N?ޜ䈧 ޵ߜ  MO  ޜ@@޵ݵMO " "& MO&^5HD&n &  ݊ ޵ݵrޙ  ފ 튈 jޜ"(=$߂$  "޵[ ޟފ 튈w ޜ "ݵ_외 ފ 튈 lޜ݊-OE& :SYSDIR.SYS޸#޸,bcǀ ޸ݵ$-j _ _ 2).-j DR MF MO SF HD ݊ީݸVa"Qj )#&k`-ߵ.ޜ  ᜵ߟ=#8f`ݸi`-ߜ-R D ޸o`g1$bA)޸,,ݵީ޸,-ݵީީ,-*$%j`-劽ݸj`-튽帠ީ% p`##    gQ%b*+ 9 !J(z(y ( N @;@ N ޸,߸,ݸ߈*ݸ,,ݸ,,ݸ,ݸ,ݸ,ݸ ǀ݊ǀǀ*@@+߸,ݸ߈ݸ,,ݸ,ݸ,ݸ,ݸ,ݸ,ݸሸ޵ 3  ވ݊ݸ,  ޜ ǀ݊߸,ݸ߈ݸ,,ݸ,@,ݸ,ݸ,ݸ,ݸሸ޵ 3  ވ݊ݸ,  ޜ ǀ݊߸,ݸ߈ݸ,,ݸ,ǀ,ݸ,ݸ,ݸ,ݸሸ޵ +  ވ݊ݸ,N ޜ ǀ݊߸,ݸ߈ݸ,,ݸ,,ݸ,ݸ,ݸ, ǀ݊ǀǀ*ǟl߈ߊ߸,ݸ߈ݸ,,ݸ,,ݸ,ݸ,ݸ, ǀ݊ǀǀ*( (z)9 !()Q)߸,ݸ߈ݸ,޸,ݸ,,ݸ,ݸ,ݸ,ݸ ǀ݊C߈ߍݵ'߈ߍ߸,ݸ߈ݸ,޸,ݸ,,ݸ,,ݸ, ; ǀ݊ǀǀ*޵ j툧刧劆 ޙ߸,ݸ߈ݸ,޸,ݸ,,ݸ,,ݸ, ǀ݊ ޜ 툧刧劆ޜޜޟޟ )|)!Q*`#).ݍՁނ",ޜݸ& z) 9 !(޸,߸,ݸ߈*ݸ,,ݸ,,ݸ,ݸ,ݸ,ݸ ǀ݊ǀǀ*@@+l߈ߍ߸,ݸ߈ݸ,,ݸ,,ݸ,,ݸ, ǀ݊ǀǀ*ޜ y*z)9 !)a#Q)߸,ݸ߈ݸ,޸,ݸ,,ݸ,ݸ,ݸ,ݸ ǀ݊ݵ%߈ߍ߸,ݸ߈ݸ,޸,ݸ,,ݸ,,ݸ, ; ǀ݊޵ h툧刧劆 ޙ߸,ݸ߈ݸ,޸,ݸ,,ݸ,,ݸ, ǀ݊ ޜ ǀǀ*툧刧劆ޜޟ&"a#y,c`݊ݸǀǀ*@@+툧튽0刧劽0ީb ])!&塧ނ,..ނ%z) 9 !(޸,߸,ݸ߈*ݸ,,ݸ,,ݸ,ݸ,ݸ,ݸ ǀ݊ǀǀ*߸,ݸ߈ݸ,,ݸ,,ݸ,ݸ,ݸ, ǀ݊ǀǀ*߈ߊ ޟ *}z)9 !)Q)߸,ݸ߈ݸ,޸,ݸ,,ݸ,ݸ,ݸ,ݸ ǀ݊߈ߍ߸,ݸ߈ݸ,޸,ݸ,,ݸ,,ݸ, ; ǀ݊޵j툧刧劆ޙ߸,ݸ߈ݸ,޸,ݸ,,ݸ,,ݸ, ǀ݊ޜǀǀ*툧刧劆AՁՁr BHN *4:DNXbl}߸,ݸ߈ݸ,޸,ݸ,,ݸ,,ݸ, ǀ݊ޜǀǀ*툧刧劆AՁՁr BHN *?REG3 DAT(KEY1 KEY2 ?`?? #?  LIST CRE EDIT 2.1 1982-11-18dnx޸nyckel$.ISM huvud$.DAT޵4]r S  Skapa ISAM-filer Ver 40 .0  T=T="   !*! ,%6_; @  J ޜ?T; ^hݖޟ 9r  ǀ  ;|:Z!!y !` ޜD _ (=  !!!"!z5&21 36 39 41 42 43 48 132 147 210&݊FEL 0$0ޜ 7Oe : DЁ>< ; N X bT;lݸ޸v'Hittar ej filen'%$'Checksummafel vid skrivning''Filen skrivskyddad''Skivan full''Enheten ej klar''Skivan skrivskyddad''Fel i biblioteket''F|r stort heltal''Felaktiga data''Felaktigt tal')"pI"y")!yJ" ޵ Skapa index nr:4* Namn p} index:4>2H卽 R2\ Startposition:1'&fݖ.݊HMpz210210ni ( / /2 L{ngd p} nyckel:T',ݖ.݊HޜM210}132$c.8B /L Indextyp (B,A,I,F,D):ޫV!`BAIFD ݍj147t+~BAIFDޟ /Dubblett-nycklar (J/N):ޫJNݍݍ147G"(=NJޟ ޜ 芽 Skapa index nr4 Namn p} index:7 ޟ(2 <4F޵N߸9PN_NNamn p} Nfil: mZN_N_S0dN_.݊N_N_N$nxN_N(N_:ݍ ooP__:ޜuuu.ޟ u__.ޜ"uu u4ޜ߸$ Postl{ngd:O ‰'H"Hݖ‰.݊M,6@132RJT1478^nhr |; 1#޸,4 o u ޜ/H/޵N#޸,N޵N#޸,޸aoTypeFileExtHeadInpTextLengVarSlaskConvNameErrorErrcCodeKeyDummyNumberSizeIsamnameDriveKeys . $V 4yH"Ny _"o!#u* R "I"Q#y#޸,޸aoTypeFileExtHeadInpTextLengVarSlaskConvNameErro#?#a)P I D------------------------------------------------------------------- 4 /PROGRAM BYTEL ( BYTE AV HEL L[RARTJ[NST ) SYSTEM ELEV REGISTER1983-09-28 Version 1.5 BO GRUSE#LL BG DATA HC------------------------------------------------------------------/P   BHN** ----- START ------2-*------ DIMENSIONERA GLOBALA VARIABLER -----L#P4V(8`BL3.*----- S[TT SNABB NYCKLAR + SORTORDNING ----- (޲޵V ! *----- \PPNA REGISTER ----- ' REGN.ISMdN .. \ppna klass registe#r REG2.ISMf*& \ Klass som {r under registrering#*----- L[S REGSIZE FIL ------ b f'+'&***** ----- PROGRAM STOMME -----*****'*'%*----- SKRIV BILDSK[RMS LAYOUT -----'$'t'v'*--#--- VAL -----x'|'BL~'('fފ-\+hf+fފ6p+f⊾+ :+:&* ----- AVLUTNING AV PROGRAMMET -----:: START N"NSUB SKRIV RUBRIK$N >N 4HNBYTE AV HEL L[RARTJ[NST#D) ;RNP=;N Nuv. sign:;NNy sign:;NNNSUB L[SSK[RMBILDN!LOBݫ1f VOfފ%`OfBݖB;>%jOfBݖB; Of|#OX9%=FNIsreadkey%(102%,X$)OIF X9%=120% OR X9%=34% ; CUR(21%,2%) "KLASSEN FINNS EJ REGISTRERAD "; : GET X$ : ; CUR(21%,2%) SPACE$(60%);CUR(4%,18%) SPACE$(6%); : GOTO 20300$OIF X9% \%=FNIsamerror% : STOP (O#; CUR(4%,57%) MID$(Block$,15%,3%)#; PB!PLݫ f Pfފ%(PfLݖL;M%2PfLݖL;(H#,R\ݸfp D";!FNISAMERROR ( ISAM )ݸ (#&*.,)FNRZREADRZFIL ( REGSIZE ). ( [NDRAD )0.1)Dimensioneringarna |kade fr}n 16 till 2422(;D޵ߜ |mN޵X#blv ݵݵf----- INL STOMME -----; Ɨ&!------ PF - TANGET -------------— ޵fPF1— ߵfPF2— #4mPF3— fiPF4— fLPF5— f/PF6— fPF7— (PF8% ------- \VRIGA TANGENTER ------2— ݊ f"RETURN" Mostv. PF7—# ꊾ— 劾[<==— 抾A==>%— ;nޜ$— — .ߊ— .88ފߊB— 0— 9—; #ޜ—^,'---------- INL SLUT ------------------3VQIF X4%=2% AND INSTR(1%,X$,".")>0% AND INSTR(INSTR(1%,X$,".")+1%,X$,".")>0% 62000 ޵ߊ0<ߊ# F|r stort decimal tal"(F/*ኾ$ ;2%A; ; Ff'"----------- PF8 ( RADERA ) ----,#@ޜߜTh+j ;r$|----- PF3 ( INS[TTNING ) -----ޜՁޟޜ ;D------<==--------Xݙ ݵ b#ޟ--------==>------------  ޜ"p------- PACKA / SKRIV ------ z— ޵. ⸇ൎq  #OCxP —< —( 2#,<F#⸈P⸇ZRegnrReadrzfilSkrivsk{rmbildrzInputRzl{sposterBlockAntalf{ltPostOldpostBl{ngdWriteIsamerrorBlank#aLstL{ngdRzreadfirstKeyIndexReadkeyIsreadfirstIsreadSkrivNewblockL{sposterIsrewriteDeleteRzreadrzfilRubrikStartiblockTypRegnamnVl{ngdRzpackauppPrinteroptionPoptionPraderInstRadDatumindikIsreadkeyFilnrIswriteFileIsdeleteL{#ssk{rmbildBlankainmSkrivp}sk{rmIsdelteRzskrivp}sk{rmIreadkeyRnendSavrSortordningL|pnrErcodeIsamreadIsamreadfirstConPersonnrkollKlassAntalPersonrkollReurnIs[mneSign]rskursChrNyklassNuvklassGotooSubE3dEedKf|restNuvsignNysig# nRzpacakuppFunnenGotF|restKlistDisk0Disk1ScrollMenyDatumRZ44 4B4H5N zz(%$8"$B2L 3V-\/fIl2r/xB$y3y "z%!!&#5'''y/"5F"|) 9(y 1)f|restNuvsignNysig3?3ELEV-REGISTER Utskriftsrutiner 7 1 Utskriftsbeskrivningar 0 FORMVAL 2 Klass-listor 0 KLISTA 3 Grupp-listor 0 GLISTA 4 Fri s|kning elever 1 FS\K 5 Utskrift l{rarf|rteckning 3 LISTR 6 Utskrift klassf|rteckning 2 LISTR 7 Utskrift bety3gskatalog/betyg 0 BETYG ner 7 1 Utskriftsbeskrivningar 0 FORMVAL 2 Klass-listor 0 KLISTA 3 Grupp-listor 0 GLISTA 4 Fri s|kning elever 1 FS\K 5 Utskrift l{rarf|rteckning 3 LISTR 6 Utskrift klassf|rteckning 2 LISTR 7 Utskrift betyC?Ca! S2.XXX޸d#޸,n#޸,#޸,޵E#޸,#޸,#޸,*)#"ELEV-REGISTER","Utskriftsrutiner" 6.-'C"1 Utskriftsbeskrivningar",0,FORMVAL#""2 Klass-listor",0,KLISTA#""3 Grupp-listor",0,GLISTA'&& "4 Fri s|kning elever",1,FS\K/0.("5 Utskrift l{rarf|rteckning",3,LISTR/:("6 Utskrift klassf|rteckning",2,LISTRzCyy riftsbeskrivningar",0,FORMVAL#""2 Klass-listor",0,KLISTA#""3 Grupp-listor",0,GLISTA'&& "4 Fri s|kning elever",1,FS\K/0.("5 Utskrift l{rarf|rteckning",3,LISTR/:("6 Utskrift klassf|rteckning",2,LISTRzS?SELEV-REGISTER Systemrutiner 4 1 Formatering och preparering av registerskivan 1 FT 2 Globala rutiner 0 GLOB.BAC 3 [ndra rubriker 0 [RUB 4 Kopiering 0 KOPYVAL.BAC ng av registerskivan",1,FTListyzyy av hel l{rartj{nst",1,BSGISTER Systemrutiner 4 1 Formatering och preparering av registerskivan 1 FT 2 Globala rutiner 0 GLOB.BAC 3 [ndra rubriker 0 [RUB 4 Kopiering 0 KOPYVAL.BAC ng av registerskivan",1,FTListyzyy av hel l{rartj{nst",1,Bc ?ca! S3.XXX޸d#޸,n#޸,#޸,޵E#޸,#޸,#޸,'& "ELEV-REGISTER","Systemrutiner" 4@?9"1 c Formatering och preparering av registerskivan",1,FT('!"2 Globala rutiner",0,GLOB.BAC#""3 [ndra rubriker",0,[RUB%&"4 Kopiering",0,KOPYVAL.BACListyzyy '& "ELEV-REGISTER","Systemrutiner" 4@?9"1 sD?sa%P`'"----------------------------------- [RUB.BAC ABC800- - SYSTEM: ELEVREGISTER-3.- BO GRUSELL 1984-01-30 Version 1.5 - BG DATA  -' "---------------------------------/Ps   BHN/d4$4--- P-STOMME -------. [NDRA RUBRIKERD) P=; 1. Elev-registret$2. Klassf|rteckningens$3. L{rarf|rteckningen V{lj Dޫޫ(N Nފ START Nݍ)D'ނD'႕ ;DTED TYPT1޵^dީjT2ߵ^޵dߵjTs3^޵dߵj$/%&REGSIZE^.FIL޸ (&%.REGSIZE^.FIL޸L#޸, pFILNR)V#޸,vvvߟ v REGISTER `#޸, ŀ ANTAL F[LTt޵2v#޸,DDDߟ sF[LT RUBRIKER"x#޸,  ANTAL TECKEN z#޸, ŗSTART POSITION|#Ձ,4~#޸, ŝ BLOCK L[NGD޸WORK.FIL߸Nފ----- AVSLUTNING ---- ޸߸#"REGSsIZEp.FIL0/WORK.FILREGSIZEp.FIL3 ---- EDITERINGS RUTIN ----. [NDRA RUBRIKERD) P=; F[LTRUBRIKdޜ/)js;  dޜDjݫ+NN䊾'N⊾ޟdz NފNݍD F[LTRUBRIKE#` (KLART (J/N) J;"js Dޫ8ݫqN~ NDJDj= Nފ Nݍ DNDn a #߸,p #߸,v #߸, ޵ ޵A ޵( s #߸, #߸, #߸, #߸,4  #߸, #߸,  Ղ 0  ! 1$2FNINPUT ( STANDARD )36VERSION 0.1 8209238:s <;;S,<޵!D  DD=>DD; D޵4$N޵DX$DblDDDvDDD ݵݵNs ----- INL STOMME -----; &!------ PF - TANGET ------------- ޵NPF1 ߵNPF2 =mPF3 NrPF4 NUPF5 s N8PF6 NPF7 1PF8% ------- \VRIGA TANGENTER ------2 ݊ N"RETURN" Mostv. PF7 ꊾ 劾[<== 抾A==>% s ;kޜ$  .ߊ .88ފߊB 0 9; ޜ$^,'---------- INL SLUT ------------------s<VQIF X4%=2% AND INSTR(1%,X$,".")>0% AND INSTR(INSTR(1%,X$,".")+1%,X$,".")>0% 62000 ޵$ߊD0D<ߊDDD DF|r stort decimal tal"(DDDO/*sኾ$DD ; 2X$=X$+SPACE$(X1%-LEN(X$))%AD; ; FN'"----------- PF8 ( RADERA ) ----,@ޜ$ߜ$Th+jD ;r$|---s-- PF3 ( INS[TTNING ) -----ޜՁ$ޟ$ ޜ$ D;D------<==--------Xݙ ݵ bޟ--------==>------------ ޜs"p------- PACKA / SKRIV ------ zD ޵D$D.VInputLiustLisrtFilnrNumStartnrList1010RadpDisk0Disk1ScrollMenyDatumRegnr!! !B)"HQ"N"s~}$4&DzNITz^ d ji!pyvzyy yyA y )9޵D$D.VInputLiustLisrtFilnrNumStartnrList1010RadpDisk0Disk1ScrollMenyDatumRegnr!! !B)"HQ"N"? a# &PI D------------------------------------------------------------------- 9 4PROGRAM INSKR ( INSKRIVNING AV L[RARSIGNATUR ) SYSTEM ELEV-REGISTER 1984-02-08 Version 1.5 BO GRUSELL BG DATA HC------------------------------------------------------------------/P   BHN** ----- START ------2-*------ DIMENSIONERA GLOBALA VARIABLER -----LP4V(82-*----- S[TT SNABB NYCKAL + SORTORDNING ----- (޲޵B ! *----- \PPNA REGISTER ----- ' REGN.ISMdN .. \ppna klass register ƒREG2.ISMf*& H Klass som {r under registrering#*----- L[S REGSIZE FIL ------ R'+'&***** ----- PROGRAM STOMME -----*****'*'%*----- SKRIV BILDSK[RMS LAYOUT -----'$'t'v'*----- VAL -----x'~''Rފ\++M:+:&* ----- AVLUTNING AV PROGRAMMET -----:: START N"NSUB SKRIV RUBRIK$N >N 9HNINSKRIVNING AV L[RARSIGNATURD) ;RNP=;N[mne:;NSign:;N]rskurs:;NNNSUB L[SSK[RMBILDNNHXbl!LOXݫR VORފ%`ORXݖX;=%jORXݖX; OR| OX!ObݫQR ORފ%ORbݖb;L%ORbݖb;'OR⊾ ORm Pb!Pl߫ݫR PRފ%(PRlݖl;L%2PRbݖl;'S<N; HSޫ<ݫR RSRފ\S NnR䊆4fSJj S9SSkall hela klass H ha sign J (J/N);S<N; Sޫ<ݫR SRފSHH;SNnR䊆Inskrivning enskild elev 2SJjINSKRIVNING HEL KLASSS>U%U SUB H[MTA KLASS I R[TT ]RSKURSU"VHݖ,VfR6VR"޵R@VR v!JVGHopp till j{mf|r }rskurs$SVL{s till redan inskriven klassTV fHR^VR B vVfRVR"޵RVR  vVH| VVfIRVR"޵RVR vVH| WWfR&WR"޵R0WR e v:Wl| | HDWY"YSUB INSKRIVNING HEL ]RSKURSY ZH{mta klass i }rskurs ZRZInskrivning hel klass2Z]"]SUB INSKRIVNING AV HEL KLASS]$^eHR.^RxR"8^R UvB^H|  V^ R~^ݵ^޵+%^Xb޵^^݊[ ^^޵^­^^eR^R v_eR _a#aSUB INSKRIVNING ENSKILD ELEVa&a(Skriv "MENY" val enskild elev beHFRbRxR" bR v*bH|   >b Rfbݵpb޵/)zbXRފZbb݊[ bb޵b­bbe1RbR vbeIRbee V[LJ ELEV%e;,;e2N;"fޫ2ݫ R*fJj޵b"fNnR䊆ݵ &fRފ0flxi#ziSKRIV "MENY" VAL ENSKILD ELEV|ii--;i쵌$i!8!;i$iNamn,˃Personnr,j+-;/jSkall eleven ha sign ? (J/N);j--;6jk kBLANKA MENYEN ENSKILD ELEVlkք`vk2;kk0u222z2u/4u**----- S{tt klass till r{tt ascicod -----6uu޵㸼uuu޵㸼B<v `   v \vfv޵㸼pvzv  vv@m%d BDFNISREAD  ( ISAM )FJ#T#,|hrݸr$i !FNISREADFIRST ( ISAM )%#,|χ̜֜ݸ꜠w *n "$  FNISREADKEY ( ISAM ))#,|0:ݸNXlh*_ npFNISWRITE ( ISAM )rv#,|ݸНm&d ҝԝFNISREWRITE ( ISAM )֝ڝ"䝆#,|­݃ 4f*] 68FNISDELETE ( ISAM ):>H#,|R\ݸfp D";!FNISAMERROR ( ISAM )ݸ (&*.,)FNRZREADRZFIL ( REGSIZE ). ( [NDRAD )0.1)Dimensioneringarna |kade fr}n 16 till 2422%5EU(e;D޵ߜ N޵Xblv ݵݵR----- INL STOMME -----; &!------ PF - TANGET ------------- ޵RPF1 ߵRPF2 4mPF3 RiPF4 RLPF5 R/PF6 RPF7 (PF8% ------- \VRIGA TANGENTER ------2 ݊ R"RETURN" Mostv. PF7 ꊾ 劾[<== 抾A==>% ;nޜ$  .ߊ .88ފߊB 0 9; ޜ^,'---------- INL SLUT ------------------3VQIF X4%=2% AND INSTR(1%,X$,".")>0% AND INSTR(INSTR(1%,X$,".")+1%,X$,".")>0% 62000 ޵ߊ0<ߊ F|r stort decimal tal"( F/*ኾ$ ;2%A; ; FR'"----------- PF8 ( RADERA ) ----,@ޜߜTh+j ;r$|!----- PF3 ( INS[TTNING ) -----ޜՁޟޜ ;D------<==--------Xݙ ݵ bޟ--------==>------------  Ѓ"ޜ"p------- PACKA / SKRIV ------ z ޵.eRegnrReadrzfilSkrivsk{rmbildrzInputRzl{sposterBlockAntalf{ltPostOldpostBl{ngdWriteIsamerrorBlank#aLstL{ngdRzreadfirstKeyIndexReadkeyIsreadfirstIsreadSkrivNewblockL{sposterIsrewriteDeleteRzreadrzfilRubrikStartiblockTypRegnamnVl{ngdRzpackauppPrinteroptionPoptionPraderInstRadDatumindikIsreadkeyFilnrIswriteFileIsdeleteL{$ssk{rmbildBlankainmSkrivp}sk{rmIsdelteRzskrivp}sk{rmIreadkeyRnendSavrSortordningL|pnrErcodeIsamreadIsamreadfirstConPersonnrkollKlassAntalPersonrkollReurnIs[mneSign]rskursChrNopDiskoDisk1MenyDatumDisk0ScrollAsckonvKklass%J21 z2B1H2N zz(%$8"$B-H/RIX0b0l1vy|!yy "z%!A$B$%&5#E5'U'e'z"'F") 9PersonrkollReurnIs[mneSign]rskursChrNopDiskoDisk1MenyDatumDisk0ScrollAsckonvKklass!)? ay!IP/   BHNP4(22<2FPZdtG%޵NREG1.ISMeREG2.ISMfREG3.ISMg1Zd޲޲=?ފފ⊆F;ªPj´J¾JJI3UTSKRIFTSBESKRIVNINGEN [R EJ ANPASSAD F\R SK[RMEN ; X' D START  KLASS-LISTOR;D) ;P=;P=;1. Skriva betygskatalog2. Skriva p} betygsblankettV{lj: ; @ߟ # 1 2' Utskriftnamn:;1. Alla ,2. ]rskurs ; 3. Klass, V{lj ;⸈´J # ;ފ#օXֆ@ fu +(c (X ޓ28:If   +( (  Kf:  ;<KLASS: ;޵282Z2j;KP=;P=;Iz„ݖU„ݖC⊾ފ ݍz2 ފz123`ݖ;Xݖ)⊾ފ ;s' Ange }rskurs;ފ⊾F;ŽݖŽ;.ŽݖŽ; Ange klass;5ފ⊾F;|“ݖ;ݖ;KEY1e ݊va(INGA ELEVER FINNS REGISTRERADE I KLASSEN; TRYCK P] "RETURN" F\R ]TERG]NG ;  !L;L;  f " G &f "   tފªPGފ"¨J!TRYCK P] "CE" F\R ANTAL ELEVER ;  I I TOTALT ANTAL ELEVER #M[N ;7 KVINNOR ;!TRYCK P] "CE" F\R N[STA KLASS ;  ޵ f f "lf" " d &f " < Ž tފªPOފ/¨J!TRYCK P] "CE" F\R ANTAL ELEVER ;   I I TOTALT ANTAL ELEVER #M[N ;7 KVINNOR ;!TRYCK P] "CE" F\R N[STA KLASS ;  ޵ f{ f"J t¨J ݵݵݵ-ފªP ¨J!TRYCK P] "CE" F\R ANTAL ELEVER ;  I\ T I A TOTALT ANTAL ELEVER #M[N ;7 KVINNOR ;TRYCK P] "CE" F\R ]TERG]NG ;  ªPA"" HފݵݵݵݵdNt'dNHޜF;"&x  S ݵªPBfފފ ޜߊ ޜޜLފK#,#,#,.) ޵2丼 #,PDIߙ  PDIߙ  "" ފ޵2[2 22 2 #2,2 ;#⸈PD#⸈IޜIIޜIJ IޜIފ <$Skall utskriften avbrytas ? (J/N);2ғN;2 Jj޵1Nn䊆ݵ2 ;F;ފ´J # ;I I8޵2 I2,2 ;BIޜITRYCK P] "RETURN" F\R N[STA ;';    ޵ ꍾ(;ݵW'Rz2޸ީ2 Mg6.X  0 9ݸѓ'\\݊\ߊ\ኆ\㊆\劆߸޸⊾ ފªS⊾F;,Enkel eller Dubbel radframmatning ? (E/D);2E;2h 䊾 EPe⊾ފ ݍEe EP-Dd DP ;gF;Printer eller Sk{rm ? (P/S);2S;2 䊾 SX⊾ ފPp P+Ss S ;t'," #,˜ݸ)+$ #,˜ϟݸ/A&* R/#,˜ݸ A,ݸu#pbr(ƒ&REGSIZEN.FIL渟"REGSIZEN.FIL渖#, \#,ƒ’’ߟ #, Ŝ޵2z#,#, 2#, 2r#,N 2޲2D 2߲H 2ಊ 2ݲ#, ŭ渆Ƴ ƘKEY1ݸQ#zƽƄzƪƴjZ, FORMAT.FIL#,݂ #ƽݸ<Q+7޵2z½2ޟޜ6 FINNS EJ ; M;޸#,2 #,  '88݊K L2޵28ޟ^,2jޟ ޜ³,2Z³ޟ '³ޜ2޸ީ2 8j2 ³2޸ީ³2 8Z³2 '~ '2 32޵2ޟa,2,ޟ 'ޜ³,2³ޟ '³ޜ2޸ީ2 ,2 '2޸ީ³2  ³2 'e   ݸ9.4޵2 2 2r2ݸ(-# +%P;ݸ19z޸ީ '  ݵU޵2㸼5 2AA _A AA2ݵ޵6ɓ,1yފI㙾# ;#⸔#⸔#⸔#⸊ #⸔#⸈¨JI#TOTALT ANTAL ELEVER #M[N 7 KVINNOR # ;KNtKJ6#TRYCK P] "RETURN" F\R N[STA SIDA ; AA A ޓA ꍾ(;´J # ;ݸ_"Z1 INITPR.FIL渖#,#,  PR:VSA50C72.5Hݸ)#UKƨINST.FIL渆 #,9UUVKW渠ݸ* !<;޵2  [޵2ߜ 2f޵222qݵݵ; AA ޵A ߵA 0A ᵤA ⵤA 㵤A 䵤A XA ݊䵤gA ꊾA 劾&A 抾A  ;ޜA A ߊA ..ފߊA 0A 9A;ޜAga~޵2 2ߊ0ߊѓ!  ;22ޜ2ߜ ;2ޜՁ22ޟޜ E;ݙݵ ޟ " ޜA ޵22⸘ݵ2RݵO3x2P AA< AA#,2#⸙⸠ BHN#(2<FPZdt (28IZjz ,<\br%AKU$2<FPZdt (28IZjz ,<\br%AKU%ScrollAsckonvKklassE3040MnyGetqGetq9Klass1zJ21 z2B1H2N zz(%$8"$B-H/RIX0b0l1v3y!yy "z%!A$%B$/&?#O5'_'o'"'F") 9]rskursChrNopDiskoDisk1MenyDatumDisk0"i? aq"_.PI D------------------------------------------------------------------- 4 /PROGRAM BYTEK ( BYTE AV KLASSBETECKNING ) SYSTEM ELEV REGISTER1984-02-08 Version 1.5 BO GRUSELL BG DATA HC------------------------------------------------------------------/P   BHN&ZMF0:MF1:޵BݵH޵N** ----- START ------2-*------ DIMENSIONERA GLOBALA VARIABLER -----LP4V(8`BLVj`jdt3.*----- S[TT SNABB NYCKLAR + SORTORDNING ----- (޲޵ ! *----- \PPNA REGISTER ----- ' REGN.ISMdN .. \ppna klass register REG2.ISMf*& Klass som {r under registrering#*----- L[S REGSIZE FIL ------ '+'&***** ----- PROGRAM STOMME -----*****'*'%*----- SKRIV BILDSK[RMS LAYOUT -----'$'t'v'*----- VAL -----x'~''ފ\++M:+:&* ----- AVLUTNING AV PROGRAMMET -----:: START N"NSUB SKRIV RUBRIK$N >N 4HNǣBYTE AV KLASSBETECKNINGD) ;RNP=;NNuv. klassbet.;NNy klassbet.:;NNNSUB L[SSK[RMBILDNNBL!LOBݫ VOފ%`OBݖB;%jOBݖB; O|Ofr gOx"RKLASSEN FINNS EJ REGISTRERAD ; <;;O  P  B!PLݫ Pފ%(PLݖL;%2PLݖL;b7 pbf zbފ$bފޜtևJ*bejb  bg8ceB BcLc/Vce XcZcB  `c޵ jctևJ*tc~c c9 cL cc޵ccce%c cee V[LJ ELEV%e;,;e2N;"fޫ2ݫfJj޵"fNn䊆ݵ &fފ0fzxi#ziSKRIV "MENY" VAL ENSKILD ELEV|ii--;i$i!8!;i$iNamn,Personnr;j+-;$jR[TT ELEV ? (J/N);j--;6j`m bm---- Blanka meny elev ----jmtmP;~m1m!Nu sker byte av klassbeteckningar;m@m%d BDFNISREAD ( ISAM )FJ#T#,Ơ)hrݸr$i !FNISREADFIRST ( ISAM )%#,Ơ)χ̜֜ݸ꜠w *n "$  FNISREADKEY  ( ISAM ))#,Ơ)0:ݸNXlh*_ npFNISWRITE ( ISAM )rv#, ݸНm&d ҝԝFNISREWRITE ( ISAM )֝ڝ"䝆#, ݸ 4f*] 68FNISDELETE ( ISAM ):>H#, R\ݸfp D";!FNISAMERROR ( ISAM )ݸ (&*.,)FNRZREADRZFIL  ( REGSIZE ). ( [NDRAD )0.1)Dimensioneringarna |kade fr}n 16 till 24223CSc(s;D޵ߜ N޵Xbl£v ݵݵ----- INL STOMME -----; &!------ PF - TANGET ------------- ޵iPF1 ߵLPF2 mPF3 ᵔPF4 ⵔPF5 㵔PF6 䵔PF7 PF8% ------- \VRIGA TANGENTER ------2 ݊ 䵔Z"RETURN" Mostv. PF7 ꊾ 劾X[<== 抾zA==>% ;nޜ$  .ߊ .88ފߊB 0 9; ޜ^,'---------- INL SLUT ------------------ ޵ߊ0<ߊ F|r stort decimal tal"(F/*ኾ$ ;2%A; ; F'"----------- PF8 ( RADERA ) ----,@ޜߜTh+j ;r$|----- PF3 ( INS[TTNING ) -----ޜՁޟ ޜ ;D------<==--------Xݙ ݵ bޟ--------==>------------  ޜ"p------- PACKA / SKRIV ------ z  ޵. ,⸇q  ݵAOCxPA < (C 2#,<2FR#⸈!TP⸇ZRegnrReadrzfilSkrivsk{rmbildrzInputRzl{sposterBlockAntalf{ltPostOldpostBl{ngdWriteIsamerrorBlankaLstL{ngdRzreadfirstKeyIndexReadkeyIsreadfirstIsreadSkrivNewblockL{sposterIsrewriteDeleteRzreadrzfilRubrik"StartiblockTypRegnamnVl{ngdRzpackauppPrinteroptionPoptionPraderInstRadDatumindikIsreadkeyFilnrIswriteFileIsdeleteL{ssk{rmbildBlankainmSkrivp}sk{rmIsdelteRzskrivp}sk{rmIreadkeyRnendSavrSortordningL|pnrErcodeIsamreadIsamreadfir#stConPersonnrkollKlassAntalPersonrkollReurnIs[mneSign]rskursChrNyklassNuvklassGotooSubE3dEedKf|restSenastenamnSenastepersonnrDisk0Disk1ScrollMenyDatumList12PositionList25300IreadDiskC33 4BA4Hi4N zz($%$8"$B1Lr1V/`2j*3t4-/Iy!2."z%y !2/y)B$3&C#S5'c's'"F") 9,(Ay R1)Disk0Disk1ScrollMenyDatumList12PositionList25300IreadDiskC33 4BA4Hi4N zz(#? a"i/PI D------------------------------------------------------------------- 4 /PROGRAM BYTEK ( BYTE AV KLASSBETECKNING ) SYSTEM ELEV REGISTER1984-02-08 Version 1.5 BO GRUSELL BG DATA HC------------------------------------------------------------------/P   BHN&ZMF0:MF1:޵BݵH޵N** ----- START ------2-*------ DIMENSIONERA GLOBALA VARIABLER -----LP4V(8`BLVj`jdt3.*----- S[TT SNABB NYCKLAR + SORTORDNING ----- (޲޵ ! *----- \PPNA REGISTER ----- ' REGN.ISMdN .. \ppna klass register REG2.ISMf*& Klass som {r under registrering#*----- L[S REGSIZE FIL ------ '+'&***** ----- PROGRAM STOMME -----*****'*'%*----- SKRIV BILDSK[RMS LAYOUT -----'$'t'v'*----- VAL -----x'~''ފ\++M:+:&* ----- AVLUTNING AV PROGRAMMET -----:: START N"NSUB SKRIV RUBRIK$N >N 4HNdzBYTE AV KLASSBETECKNINGD) ;RNP=;NNuv. klassbet.;NNy klassbet.:;NNNSUB L[SSK[RMBILDNNBL!LOBݫ VOފ%`OBݖB;%jOBݖB; O|Of gOx"RKLASSEN FINNS EJ REGISTRERAD ; <;;O  P  B!PLݫ Pފ%(PLݖL;%2PLݖL;bs pb zbފ$bފޜtևJ*b,t beb  b^8ceB= BcLc/Vce9 XcZcB  `c޵B"ec,t,ևJ* jctևJ*tc~cx c9 cL cc޵ccce%c cee V[LJ ELEV%e߳;,;e2N;"fޫ2ݫfJj޵"fNn䊆ݵ &fފ0fzxi#ziSKRIV "MENY" VAL ENSKILD ELEV|ii--;i$iҳ!8!;i$iNamn,Personnr;j+-;$jR[TT ELEV ? (J/N);j--;6j`m bm---- Blanka meny elev ----jmtmP;~m$1m!Nu sker byte av klassbeteckningar;m@m%d BDFNISREAD ( ISAM )FJ#T#,Ơ3hrݸr$i !FNISREADFIRST ( ISAM )%#,Ơ3χ̜֜ݸ꜠w *n "$  FNISREADKEY ( ISAM ))#,Ơ30:ݸNXlh*_ npFNISWRITE ( ISAM )rv#, ݸНm&d ҝԝFNISREWRITE ( ISAM )֝ڝ"䝆#, ݸ 4f*] 68FNISDELETE ( ISAM ):>H#, R\ݸfp D";!FNISAMERROR ( ISAM )ݸ (&*.,)FNRZREADRZFIL ( REGSIZE ). ( [NDRAD )0.1)Dimensioneringarna |kade fr}n 16 till 2422=M]m(};D޵ߜ N޵Xblv ݵݵ----- INL STOMME -----; &!------ PF - TANGET ------------- ޵iPF1 ߵLPF2 mPF3 ᵔPF4 ⵔPF5 㵔PF6 䵔PF7 PF8% ------- \VRIGA TANGENTER ------2 ݊ 䵔Z"RETURN" Mostv. PF7 ꊾ 劾X[<== 抾zA==>% ;nޜ$  .ߊ .88ފߊB 0 9; ޜ^,'---------- INL SLUT ------------------ ޵ߊ0<ߊ F|r stort decimal tal"(F/*ኾ$ ;2%A; ; F'"----------- PF8 ( RADERA ) ----,@ޜߜT h+j ;r$|----- PF3 ( INS[TTNING ) -----ޜՁޟޜ ;D------<==--------Xݙ ݵ bޟ--------==>------------  ޜ "p------- PACKA / SKRIV ------ z %%޵%'. 6⸇q  ݵKOCxPK < (M! 2#,<<F\#⸈^P⸇ZRegnrReadrzfilSkrivsk{rmbildrzInputRzl{sposterBlockAntalf{ltPostOldpostBl{ngdWriteIsamerrorBlankaLstL{ngdRzreadfirstKeyIndexReadkeyIsreadfirstIsreadSkrivNewblockL{s"posterIsrewriteDeleteRzreadrzfilRubrikStartiblockTypRegnamnVl{ngdRzpackauppPrinteroptionPoptionPraderInstRadDatumindikIsreadkeyFilnrIswriteFileIsdeleteL{ssk{rmbildBlankainmSkrivp}sk{rmIsdelteRzskrivp}sk{rmIreadkeyRnendSavrSo#rtordningL|pnrErcodeIsamreadIsamreadfirstConPersonnrkollKlassAntalPersonrkollReurnIs[mneSign]rskursChrNyklassNuvklassGotooSubE3dEedKf|restSenastenamnSenastepersonnrDisk0Disk1ScrollMenyDatumList12PositionList25300IreadDi$skC33 4BA4Hi4N zz(%$8"$B1Lr1V/`2j*3t4-/Iy!2."z%y !2/yB3B$=&M#]5'm'}'"F") %96(Ky \1)0Disk1ScrollMenyDatumList12PositionList25300IreadDi$? k@"???Q\gmr@@+@,,OP@P@Q```@`@`@ ``ej@~~~@@@@ @  @    @ @@@ @-/1@1AALM@OO version.BACcdk@om@Yos@ @  ;Kc|@}}}}}}}}}@@@ @   @   @ @ 4:UVX@XX\_`e@gggq@ q@ q@!q@qwxy|}@@@@@ '-H!IK@ KK"OR#SX@"ZZZ@dd@de@eee%eee@/ee@*$%@%&'@&()@(*@);@4;HHNOPSTV+W\\,b-ef@,f.l/n@.p@-ppp01@023@24@3@15@B67@68 9 @8:;!@:"""%<&+44:=EGGW@=XZ]_>`ee?il@mrt@?tt}AB@;@7CDE@DF@FGHI@HJK L @KMN%@M&/@N/9<>O?DDPHKQLQS@PST@'TTTTTTTRUWW[^acSdiiTmpU qv@ax@TxxxxVWX@VYZ[@[\@\]^_`@^a@q@`@Xbc@cd@ke f@fg @g@dhi-j/1@i1@h24k57@j79l:?HHNmY[[k@mlnqsntyyo}p@oq@Z @v rs@st@tu  @u v@R w+-G@wHJjz@_@Wx@x|@yz@e @]        {     @{ ! @z" " @|# # }' , , , , , , , ~- / C D G @~G K L @}L @M M Q @AS @CS @SS @bS @JS @5S @S @S X X X X X X X Y [ s t @w w { | @| } @}           @    @ @ @n @> @G @O            @  @  @            @  @  @ @I @@ @E @p @9 @# @U @ @L @Q          @ @ @    *      *  ) * , M N O @Q Q r @r }               @     @ & 1 @2 @; @; ; @; @< >  I I #I I M ] w ~ ~   @  @ @< @l @Y     @   @  @            @     @  * 9 < = @= > @> @? B @D @+D @D @rD @$D M M M  M M M M M M M M ` ` ` g i k @k v x x x @  @ @ @  @ @ǰ     @     @    @     @ @ @ @ @ @ @ @  . 4 "4 4 4 4 ? D E G @G G G Q V W @Y Y Y Y c e g h j @j j j t y z | @| | |  @      @     @     @  !      @    @    @   @ !@###-/1@11EGI@IIY[@]]]ikn@op@rr@rr҆ӈ@ъ@Ҋ@͊Բ@(յֿ@@@@+,@...4TU@WW@ii@i@i@i@i@i@i@i@i@i@#ߜ@ߴ@ @ @!&')@)@11@222222;BCE@EM@MN@N@N@NNNNTT\d@e@kkvxx@@@@@@  bytek.BAC (@3/1@?3?DH%?a7 P   BHN DRIVAR.TXT޸#޸,#޸,Ձ ELEV-REGISTER ABC800 Version 1.55(c) Copyright Liber L{romedel;޵  h START.BAC#!6,17,14,80,221,33,64,121,221,126#!80,221,119,0,221,35,13,32,245,1480,16,241,201ݵ!]]-MM-DD;ޜ㖾ފߊ+ኆ ޜ+㊆ ߜ++; 11 劾3ޟ݊d!!ޟ !ސIu1019a+1!1!0օ,! ',!',!',,, BHN!+1ߜ++; 11 劾3ޟ݊