@L|G}6CD l0C)HCC WhL/h `CmCDiD`  R@P1  Y0,0'@R !L` ` C D     )16CS S)  C)D1 p p 0 C9DI pCDL~CiCDiD`1 REM *******************************2 REM * ACACIA-RUN ATARI REVUE *3 REM * PRESENTE UN PROGRAMME DE *4 REM * R.} VAN DEN BOGAERDE (c)86 *5 REM * BRUXELLES *6 REM * B I O R Y T H M E S *7 REM ****************}***************10 REM BIORYTHME15 PI=3.145926520 REM ---------------------------50 SETCOLOR 2,0,0:SETCOLOR 1,0,1490 DIM }Z$(8),M(12)100 M(1)=31:M(2)=28:M(3)=31:M(4)=30:M(5)=31:M(6)=30200 M(7)=31:M(8)=31:M(9)=30:M(10)=31:M(11)=30:M(12)=31210 R=}0230 REM ---------------------------240 REM SAISIE BIO245 ? CHR$(125):? 300 ? " Š"310 ? :? :? "VOTRE } NOM: ";:INPUT Z$320 ? :? " JOUR DE NAISSANCE: ";:INPUT T330 ? :? " MOIS DE NAISSANCE: ";:INPUT S }340 ? :? " ANNEE DE NAISSANCE: ";:INPUT U350 ? :? " MOIS DU BIORYTHME: ";:INPUT V360 ? :? " ANNEE DU BIORYT }HME: ";:INPUT W400 SOUND 0,10,10,14:A=2^2:SOUND 0,0,0,0440 REM CALCUL DU NOMBRE DE JOURS450 REM -------------------------- }----500 IF S>2 THEN 550510 IF S=2 AND T=29 THEN 550520 IF INT((U-1900)/4)<>(U-1900)/4 THEN 550530 R=1550 R=R+M(S)-T560 }IF S=12 THEN 600570 FOR X=S+1 TO 12580 R=R+M(X)590 NEXT X600 IF W-U<2 THEN 650610 FOR X=U-1899 TO W-1901620 IF INT(X/4)}=X/4 THEN R=R+1630 R=R+365640 NEXT X650 IF V=1 THEN 700660 FOR X=1 TO V-1670 R=R+M(X)680 NEXT X700 IF V>2 AND INT((W-1}900)/4)=(W-1900)/4 THEN R=R+1710 REM -----------------------------720 REM EDITION BIO750 ? CHR$(125);:POSITION 0,22:? "";}755 FOR I=1 TO M(V)756 POSITION I,22:? "|"758 NEXT I759 FOR I=1 TO M(V) STEP 7:POSITION I,21:? "|":NEXT I810 ? 820 FOR }I=1 TO 10830 POSITION 0,I:? ""840 POSITION 0,I+11:? ""850 NEXT I860 POSITION 0,11:? ""870 FOR I=1 TO M(V)+4880 POSIT}ION I,11:? "-"890 NEXT I:B=0:A=M(V)1268 B=B+11270 C=INT(10*SIN((B+R)*(2*PI/23))+11)1271 D=INT(10*SIN((B+R)*(2*PI/28))+11)}1272 E=INT(10*SIN((B+R)*(2*PI/31))+11)1274 POSITION B,C:? "P"1275 POSITION B,D:? "E"1276 POSITION B,E:? "I"1278 IF B3 OR A}<1 THEN 1718 IF A=1 THEN 2219 IF A=2 THEN 4420 IF A=3 THEN 10021 GOTO 1122 CLR :GRAPHICS 0:POKE 82,0:POKE 752,1:POKE 709},128:POKE 710,70:POKE 712,7023 POSITION 0,0:? "ŠҠŠ͠"24 POSITION 3,6:? " Nom:..."}25 TRAP 26:DIM NOM$(20),NOM1$(20),CRE1$(20),CRE2$(20),TEL$(15)26 POKE 752,0:POSITION 15,6:INPUT NOM$27 POKE 752,1:OPEN #1, }4,0,"D:ADRESSES.SEQ"28 TRAP 42:INPUT #1,NOM1$29 IF NOM$=NOM1$ THEN 3130 IF NOM$<>NOM1$ THEN 2831 INPUT #1,CRE1$32 POSITI!}ON 3,9:? " Adresse:";CRE1$33 INPUT #1,CRE2$34 POSITION 15,11:? CRE2$35 INPUT #1,TEL$36 POSITION 3,14:? " Telephone:";"}TEL$37 CLOSE #1:POSITION 3,18:? "Tapez Π"38 TRAP 39:OPEN #2,4,0,"K:"39 GET #2,A40 IF A=155 THEN 1141 GOTO 3942 P#}OSITION 3,15:? "Ce nom n'existe pas.":FOR HJK=1 TO 500:NEXT HJK:CLOSE #1:GOTO 2243 GOTO 4344 GRAPHICS 0:POKE 709,128:POKE 7$}10,70:POKE 712,70:POKE 752,1:POKE 82,045 FOR REG=1536 TO 162046 POKE REG,0:NEXT REG47 POSITION 0,0:? "%}ŠŠ"48 POSITION 3,4:? " Nom:...................."49 POSITION 3,6:? " Adresse:.................&}..."50 POSITION 16,7:? "...................."51 POSITION 3,9:? " Telephone:..............."52 POSITION 3,15:? "En cas d''}erreur,faites Ҡ"53 TRAP 54:OPEN #2,4,0,"K:"54 POSITION 16,4:ICR=055 GET #2,A56 ? CHR$(A);57 POKE 1536+ICR,A58 ICR(}=ICR+159 IF A=155 THEN 6260 IF A=125 THEN 4461 GOTO 5562 POSITION 16,663 GET #2,A64 ? CHR$(A);65 POKE 1536+ICR,A66 IC)}R=ICR+167 IF A=155 THEN 7068 IF A=125 THEN 4469 GOTO 6370 POSITION 16,771 GET #2,A72 ? CHR$(A);73 POKE 1536+ICR,A74 I*}CR=ICR+175 IF A=155 THEN 7876 IF A=125 THEN 4477 GOTO 7178 POSITION 16,979 GET #2,A80 ? CHR$(A);81 POKE 1536+ICR,A82 +}ICR=ICR+183 IF A=155 THEN 8684 IF A=125 THEN 4485 GOTO 7986 POSITION 0,18:? "Fabrication d'un fichier(1) ou ajout(2)":GET,} #2,N87 IF N=49 THEN I=888 IF N=50 THEN I=989 IF N>50 THEN 8690 IF N<49 THEN 8691 TRAP 99:OPEN #1,I,0,"D:ADRESSES.SEQ"9-}2 ICR=0:B=093 PUT #1,PEEK(1536+ICR)94 A=PEEK(1536+ICR)95 IF A=155 THEN B=B+196 IF B=4 THEN PUT #1,155:CLOSE #1:GOTO 1197.} ICR=ICR+198 GOTO 9399 CLOSE #1:GOTO 91100 GRAPHICS 0:POKE 82,0:POKE 752,1:POKE 709,128:POKE 710,70:POKE 712,70101 TRAP 1/}02:OPEN #1,4,0,"D:ADRESSES.SEQ"102 TRAP 103:DIM NOM$(20)103 TRAP 105:INPUT #1,NOM$:? NOM$:INPUT #1,NOM$:INPUT #1,NOM$:INPUT0} #1,NOM$:INPUT #1,NOM$104 GOTO 103105 POKE 82,0:POSITION 3,18:? "Tapez Π":CLOSE #1106 TRAP 107:OPEN #2,4,0,"K:"1071} GET #2,A108 IF A=155 THEN 11109 GOTO 107110 END UN ATARI REVUE (C)86 *2 REM * PRESENTE UN PROGRAMME DE *3 REM * 510 REM *****************************20 REM * ACACIA RUN ATARI REVUE *30 REM * PRESENTE UN PROGRAMME DE: *40 REM * R.3}VAN DEN BOGAERDE. *50 REM * BRUXELLES 1986(C) *60 REM * ************************* *70 REM * T E X T - L O 4}O P *80 REM *****************************90 REM 100 REM 110 REM INTRODUCTION120 REM ------------130 SETCOLOR 0,0,14:5}POKE 752,1:DIM N$(15),A$(8)140 ? "}TEXT LOOP"150 ? "_________"160 ? :? :? "(c) 1985 Copyright"170 ? "Van den Bogaerde Ray6}mond"180 REM 190 REM AFFICHAGE PAGE 6200 REM ----------------210 I=1536:RESTORE 260220 READ A230 IF A=999 THEN 290240 7}POKE I,A:I=I+1250 GOTO 220260 DATA 112,86,0,155,112,66,64,156,2,2,2,2,2,130,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,65,0,6,8,1428}70 DATA 72,206,34,6,173,34,6,141,4,212,240,2,104,64,169,08,141,4,212,141,34,6,238,35,6,173,35,6,141,2,6280 DATA 104,64,99929}90 REM 300 REM ALLIGNE LES POINTEURS + DLI310 REM ---------------------------320 POKE 560,0:POKE 561,6330 POKE 512,36:POK:}E 513,6:POKE 54286,192340 REM 350 REM NETTOIE LA MEMOIRE TEXTE360 REM -----------------------370 FOR I=39690 TO 39905380;} POKE I,Z390 NEXT I400 REM 410 REM ENTRE LA BOUCLE TEXTE420 REM ---------------------430 ? "}ڠŠŠ<}򮩠":? "TAPEZ POUR TEXTE SUR DISQUETTE"440 X=1:Y=10:POSITION X,Y450 CLOSE #1:OPEN #1,4,0,"K:"460 FOR I=1 TO 2=}15470 ? ">":POSITION X,Y480 GET #1,A:? CHR$(A):A=A-32:IF A+32=27 THEN 1000490 IF A<0 THEN ? CHR$(30);:GOTO 480500 POKE 39>}690+I,A:X=X+1:POSITION 0,22:? "Š ";I;" à ";CHR$(A+32):POSITION X,Y510 J=J+1:IF J=29 THEN J=0:Y=Y+1:X=1520 P?}OSITION X,Y:NEXT I530 ? "}VOULEZ VOUS SAUVER VOTRE TEXTE (DISQUE)"540 ? :? "(1) OUI":? "(2) NON":? :INPUT A550 IF A=2 THEN@} ? "}J'AI FINI.":END 560 REM LE TITRE POUR SAUVER LE TEXTE565 REM -----------------------------570 A$="":N$="":? "}ENTREZ A}LE TITRE (max 8) ";:INPUT A$:A=LEN(A$)580 N$(1,2)="D:":N$(3,3+A)=A$:N$(3+A,8+A)=".TXT"590 ? "}J'OUVRE ";N$600 CLOSE #1:OPEB}N #1,8,0,N$:? "UN INSTANT JE SAUVE..."610 FOR I=1 TO 215620 A=PEEK(39690+I):PUT #1,A625 NEXT I630 CLOSE #1640 ? "} TERMIC}NE":END 1000 REM ENTREE DE TEXTE SUR DISQUETTE1010 REM -----------------------------1020 TRAP 11001030 CLOSE #1:OPEN #1,6D},0,"D:*.TXT"1040 ? "}DIRECTORY ":? 1050 N$="":INPUT #1,N$:? N$1060 GOTO 10501100 N$="":CLOSE #1:? :? "ENTREZ LE TITRE A CE}HARGER ";:INPUT A$:A=LEN(A$)1110 N$(1,2)="D:":N$(3,3+A)=A$:N$(3+A,8+A)=".TXT"1120 OPEN #1,4,0,N$1130 FOR I=1 TO 2151140 GF}ET #1,A:POKE I+39690,A1150 NEXT I1160 CLOSE #11170 ? CHR$(125):END *30 REM * PRESENTE UN PROGRAMME DE: *40 REM * R.G ` C D     )16CS S)  C)D1 p p  H}0 C9DI pCDL~CiCDiD` DD˙` d J)L ! I}D L(( LL()  L| L( S LH 0p n   J} CY?  q  L L  ` ) K} `A! d߰")-݆ "  $G@LLL&0") $G% L}H0 3S8`G ȱG ȱG   Gȭ Gȭ GG}GHiH8(()) G$H% `(0 M})8` d)L ݆ & LGȘ ݆LL d  ! LL d)N>Q  HH) N}  hyhyB q L> Lm JJ  Ln*` dB%' O}8  H H` 1 { LL   !L     Hh SY?  q  1L P}  !? S   q 1 L   Ll  Lg E`L   !L)  q 1L Q}) `L0AM݊L݉ ML  N݆LLLNLMLHG!@ R}1F GȱGLLEEȩÑEȑEEȑE Ed E7EȩE  q S} L !,0,0SGɛ L 1 !L EHEh W G gLLSROTCES EERF T} G) *Gȩ GȽG GȌd q q G`  8   0G  `D U}CEDC0X:Ȣ Y ȱC* ? 0.. , 0%n ?A[ 0 : L`L  `, 0`Y V}`piH n0)բY? 08`0  W}  0$L GGȽG L `8L`L X}8`  05G)݁,G)ȱGȱGHh0})Hh` B! 8`8iiiLE` Y}E8FEh( l0`ɃLL L8^~jj8jHi hEEEiEȱEiE` dTE Z} H8EEȱEEȩEh J E8   . m  i`LI!)E1FR [}1LJ舩9GIH`LJJ`HGHh l` \} S gL   8 rii `дCDCG W  ]}C  Lq` X٨`DOS SYS IIIIIIIIIIIIIIIC`0 ߩ0}}00 ^} |||DDOS DOSDOS SYS } _} }_ `}bBIORYTM ENTbFICHADRRENTb2TEXTLOOPENTCGDOS SYS*lDUP SYS a} 0`BDELV !B b}`LVUQ   ]   TU J ]L!T  #      TU  c} L ? .  t`GBJ V~DEHI B V0dV d}QDEHI VF9 ,0 ,0 s0hhL  L` H hDHEh e}DEL8HI   0 HI,0 0  9 .G VLO f},0 LD*IJ`llD1:AUTORUN.SYSNEED MEM.SAV TO LOAD THIS FILE.D1:MEM.SAV J y08 B|DEGH&I g} V0 0`B;DELV䌚 !B y`@ʆ v s? F0Ξ05: [ BDEHI h} VY8 B V  @  /DE `E:D1:DUP.SYSERROR-SAVING USER MEMORY ON DISKTYPE Y TO i}STILL RUN DOS B;DE J V (` 9 V⪍ ઍ  - j}LLu DEHILV 9 .l 9 .l  `` s$B VBGH& k}I|DE V BLV nB,DE J V* \*` B V BLVDEHI BLVL l}1u H232435; 1 ;  hh@2 e1i1LHҍ 00) 08 109hh@ Ҡ2e m}1i1232435ޥ<<8 } CE: vC y@y@`A# *` :105L; 0L>! * 0` * : k;` 1 *` 1 *` Disk Drive Spo}eed:XXX RPM~~~Drive # X PRESS:C > check drive speedL > list error sectorsP > print error sectorsW > write alp}l zeroesto error sectorsM > return to main menuCATE FILEH. WRITE DOS FILES9!&x#!7&p))'&X*./)L''-؆莟q}R'S  ==D;EHI 1 1! @ :ɛ8A0.) ȅ 1 1ir}il ! 1L PAS DE CELA VOTRE CHOIX OU >>> MENU!L; .{z:*{}.|~ 1 0 0s}JB 18L^%|DLl%DIRECTORY--SEARCH SPEC,LIST FILE? # O 0 n&|D! 1L NOT A DISK FILEt}N !B 1L " 1 !BDED:}:1BJ|DE 1DEBHu}I 1 h0ߢ 0.  0?詛 1 ~0YЛ 1 "L<" "L v} BL1TYPE "Y" TO DELETE...DELETE FILE SPECCOPY--FROM, TO?OPTION NOT ALLOWED412 FREE SECTORS COPIE ----D1:VORTw}EX.BASS# 0|D .L$A#B#C#JB|DE 1BHIDD#E 1D#0: Bx} 1L B#C#C#B# B 1N#$0SYS1}:e#D# d# D# .d#ȽD# d# 𩛙d#X# 1,A#y}PdD#ELO- A.BJdD#E 1 1HH 0hh|DL^%1}:e# Lt% e#dD#EL%z} 1 0 . .0% 1L WILD CARDS NOT ALLOWED IN DESTINATION 0 A.|K@Cn> ` 0l>^>  D, N; ,`COPIE SECT `RLS : , ,>  , ,}>  ,ޢ>  , ,`e= `h=L :ɛ`hL S SL1) 8`NAME OF FILE TO MOVE?- 0 0|DLt}% A.=s ` <0 0 .@L# .BJ 1  DEHIB V L1 = g <0,L. } JB|,A#Pd#DE 1 HI BDEHHII 1 B 1 =s ` <0,0Lf- B V},A#P=s ` <0 0L#L ߢ) 1* 1 ~0Yj…C8C}mm ݭ}}`8}``|* ? ɛ,`|:(|/ 1L `INVALID DESTINATI}ON:DOS.SYS0 0H{ $22Δ $28/L /) $2 Π $2 0 ξ}hAΞB,0 J 1 BޝDEHI,HDE 1H$IHIDELSAVE-}GIVE FILE,START,END(,INIT,RUN)O X0 1`BDEPHI V` X0H 1 L }0 0 1L0`PLEASE TYPE 1 LETTER,0`hhL <0 1L0LA1 ,;ɛ7,"ɛ:ݦ1ݥ}A"D|ݤD|ȩ:|ȩ|ɛ,,(/+.ީ1 1,ɛ`轤{}NAME TOO LONG B VL ` L1I H1EӝDL1|mDiE` V0`8d/8 i:"2!22 1} L ERROR- 170ɛ+,' 20*.. өw2 1``2TOO MANY DIGITSINVALID} HEXADECIMAL PARAMETER800 0 8 00`,0'D800H,ɛh`2L1NEED D1 THRU D4C} ;CC ;C ;CC ,CC 7: *DCC ,s=  ,} lɀL +ͼCͻCC.LY4 H:泭C0iiʹCL{3CLP3 7: *DCC ,=  , /,}C0 8 l0N S0G r:ͼCͻC# H:浭C0iiʹCЪLP3 ,=  * N;L8 D, N; ; ,W}C  L 4C=  :>810ꍲCC , > 1C1=  :7>810ꍳCC , > 1CͳCC }, 1â= 1 :YhhL `i=CCЍCCCCCCCCC a; a; a; , 4L3 ,9> 1 * 鈹Cɛሢ}Cɛ )CC0CC ~* 6CCCC CL> 1 * Cɛ ~* 6ܭCCCC C˭CͼCLY5}CͶCLY5`C``C`~, , Y5C 4L3? , Y5C 4C ;RD浭CC  C}CC0C S ɀGCL6 SCѰɈiՅi@CͼCͻCLe6CCCCL8h= : }, ,p  , ,  ,@  :ɛL 15))C q+L7h= , ,3@  ,R@  :ɛL H 7 7L_7 }7L_7D 7 7Lx7 7Lx7@ `C ` ,q@  * ECɛ>0$蹨C *00C0C *0" CCL7`}C X*`8` ,@  *0\X TCɛM ~*HC)JJJJ *6CȽC) *(CC0CCC`8`}h=84=Wy 84=PyL ON : *nDEǍHI 1C L8 :C q+L8L 9 N;L8P 9 N;L8W} +L8ML 15))C g+L8 ,CD?E BHCCC /,C\XCC X*C ?0  ?}C0L:8鉍C mC mC"??C V0*CͼCͻC L49Cˢ? `CL 9PC B VBӝD@}EJNK V0 9 ,? PC D,P B V`εCC mC mC??L9CC`i`}i`i`i`i`P B VBНD@EJ VBH}IL1HI B} V@`HS S ShH )L@;LG;h` 0)¢)  N; ,` *;hL; b,hL; ,> } , ,L,h=L1 :HOh:` k; 0L>!}UTILITAIRES DOS V.2.5A Acacia ACACIA 067/21.44.41 } A. INVENTAIRE K. SAUVER.BIN B. RETOUR BASIC L. CHARGEM.BINC. COPIE FICHIER M. RUN A ADRESSE D. EFFACE FICHIER} N. CREER MEM.SAVE. NOUVEAU NOM O. DUPLI_FICHIER F. PROTEGE FICH. P. COPIE SECT. G. DEPROTEGE.FICH Q. VERIF.SECT. H}. ECRIRE DOS/DUP R.CONVERSI RAD. I. FORMATER DISQ. S. TEST VITES.J. DUPLIQUER DISQ T. VERIF.ECRIT.:ƛ9!&x#!7&p))}'&5./)L''-6(6876j8COPY DISK Insert source disk and Λ Insert DESTINATION disk and ΛC'EST FINI !'Y' to} execute or for menuSource drive # ?DESTINATION drive # ?Source drive is # 1Destination drive is # 1Enter first s}ectorEnter last sectorCHECK DRIVE # 1 >>>>ERROR # 138<<<! * 0` * : k;` 1 *` 1 *` Disk Drive Sp$ ?BBIORYTM ENTbFICHADRRENTb2TEXTLOOPENTB'GDOS SYSBLnDUP SYS