,ML   X c0C)HCCH Mhhݩh `eCDiCD`  RPH   * 1H0芢@) Y0.Ș`i#(PMRR\ \b Pgi 0 @ $ ࠮UY   0DDԝLyȀ i10 GRAPHICS 0:POKE 752,1 11 DIM T$(1000):L=37 12 T$=" Prima Aprilis - edycja 2010 ;)" 13 T$(38)=" Idea by Sikor, programming by Sikor, MaW, Mono..." 14 T$(91)=" Made only for fun." 15 T$(113)="" 20 POKE 710,0:?:? T$(1,L);  30 DIM E(40),F(3),V(3),P(3),D(3),C(5):FOR S=0 TO 3:V(S)=0:P(S)=0:NEXT S:S=0 40 DATA 0,8,4,2,12,10:FOR I=0 TO 5:READ D:C(I)=D:NEXT I 50 DIM LL$(128),LR$(128),L$(6):L$(1)=CHR$(160):L$(2)=CHR$(25):L$(3)=CHR$(32):L$(4)=CHR$(32):L$(5)=CHR$(153):L$(6)=CHR$(160) 60 FOR I=0 TO 15:FOR J=0 TO 7:LL$(1+I*8+J)=L$(2+SGN(2*J-I)):LR$(1+I*8+J)=L$(5+SGN(2*J+1-(15-I))):NEXT J:NEXT I 70 DLL=PEEK(560)+PEEK(561)*256+6:DLV1=0 100 L=L+1:IF L>LEN(T$) THEN L=1 110 POSITION 0,1:? CHR$(254);:POSITION 38,1:? T$(L,L); 200 IF V(S)>0 THEN V(S)=(V(S)-2)=V(S)=V(S)*(V(S)>-1):GOTO 250 210 POSITION P(S),20:? " "; 220 F(S)=INT(256*RND(0)):V(S)=INT(16*RND(0)):P(S)=38-INT(F(S)/256*39):D(S)=INT(6*RND(0)) 230 IF S<2 THEN V=1+V(S)*8:POSITION 0,21+S:? LL$(V,V+7); 240 IF S>=2 THEN V=1+V(S)*8:POSITION 31,20+S:? LR$(V,V+7); 250 POSITION P(S),20:? CHR$(20);:SOUND S,F(S),C(D(S)),V(S) 260 IF S<2 THEN D=V(S)/2:IF D<=7 THEN V=1+V(S)*8+D:POSITION D,21+S:? LL$(V,V); 270 IF S>=2 THEN D=INT(0.5+V(S)/2):IF D<8 THEN V=8+V(S)*8-D:POSITION 38-D,20+S:? LR$(V,V); 280 S=S+1:IF S>3 THEN S=0 300 ON (INT(DLV1/16)+1) GOTO 310,320,320,320,320 310 DLV1=8:DLV2=128 320 DLV1=DLV1*2:DLV2=DLV2*0.5:GOTO 340 330 DLV1=0 340 POKE DLL,DLV1:POKE DLL+2,DLV2 350 SOUND INT(RND(0)*4),RND(0)*255,10,RND(0)*15 10000 GOTO 100?10 GRAPHICS 0:POKE 752,111 DIM T$(1000):L=3712 T$=" Prima Aprilis - edycja 2010 ;)"13 T$(38)=" Idea by Sikor, programming by Sikor, MaW, Mono..."14 T$(91)=" Made only for fun."15 T$(113)=""20 POKE 710,0:?:? T$(1,L);30 DI M E(40),F(3),V(3),P(3),D(3),C(5):FOR S=0 TO 3:V(S)=0:P(S)=0:NEXT S:S=040 DATA 0,8,4,2,12,10:FOR I=0 TO 5:READ D:C(I)=D:NEXT I50 DIM LL$(128),LR$(128),L$(6):L$(1)=CHR$(160):L$(2)=CHR$(25):L$(3)=CHR$(32):L$(4)=CHR$(32):L$(5)=CHR$(153):L$(6)=CHR$(160 )60 FOR I=0 TO 15:FOR J=0 TO 7:LL$(1+I*8+J)=L$(2+SGN(2*J-I)):LR$(1+I*8+J)=L$(5+SGN(2*J+1-(15-I))):NEXT J:NEXT I70 DLL=PEEK(560)+PEEK(561)*256+6:DLV1=0100 L=L+1:IF L>LEN(T$) THEN L=1110 POSITION 0,1:? CHR$(254);:POSITION 38,1:? T$(L,L);200 IF V(S)>0 THEN V(S)=(V(S)-2)=V(S)=V(S)*(V(S)>-1):GOTO 250210 POSITION P(S),20:? " ";220 F(S)=INT(256*RND(0)):V(S)=INT(16*RND(0)):P(S)=38-INT(F(S)/256*39):D(S)=INT(6*RND(0))230 IF S<2 THEN V=1+V(S)*8:POSITION 0,21+S:? LL$(V,V+7);240 IF S>=2 THEN V=1+V(S)*8:POSITION 31,20+S:? LR$(V,V+7);250 POSITION P(S),20:? CHR$(20);:SOUND S,F(S),C(D(S)),V(S)260 IF S<2 THEN D=V(S)/2:IF D<=7 THEN V=1+V(S)*8+D:POSITION D,21+S:? LL$(V,V);270 IF S>=2 THEN D=INT(0.5+V(S)/2):IF D<8 THEN V=8+V(S)*8-D:POSITION 38-D,20+S:? LR$(V,V);280 S=S+1:IF S>3 THEN S=0300 ON (INT(DLV1/16)+1) GOTO 310,320,320,320,320310 DLV1=8:DLV2=128320 DLV1=DLV1*2:DLV2=DLV2*0.5:GOTO 340330 DLV1=0340 POKE DLL,DLV1:POKE DLL+2,DLV2350 SOUND INT(RND(0)*4),RND(0)*255,10,RND(0)*1510000 GOTO 100"10 GRAPHICS 0:POKE 752,111 DIM T$(1000):L=3712 T$=" Prima Aprilis - edycja 2010 ;)"13 T$(38)=" Idea by Sikor, programming by Sikor, MaW, Mono..."14 T$(91)=" Made only for fun."15 T$(113)=""20 POKE 710,0:? T$(1,L);30 DIM F(3),V(3),P(3),D(3),C(5)40 FOR S=0 TO 3:V(S)=0:P(S)=0:NEXT S50 DATA 0,8,4,2,12,1060 FOR I=0 TO 5:READ D:C(I)=D:NEXT I70 S=080 DLL=PEEK(560)+256*PEEK(561):DLV1=1690 DIM LL$(128),LR$(128),L$(6):L$=" "91 FOR I=0 TO 15:FOR J=0 TO 792 LL$(1+I*8+J)=L$(2+SGN(2*J-I)):LR$(1+I*8+J)=L$(5+SGN(2*J+1-(15-I)))93 NEXT J:NEXT I100 L=L+1:IF L>LEN(T$) THEN L=1110 POSITION 0,0:? CHR$(254)120 POSITION 38,0:? T$(L,L);130 IF V(S)>0 THEN V(S)=V(S)-1:GOTO 190140 POSITION P(S),19:? " ";150 F(S)=INT(256*RND(0))160 V(S)=INT(16*RND(0))170 P(S)=38-INT(F(S)/256*39)180 D(S)=INT(6*RND(0))185 IF S<2 THEN V=1+V(S)*8:POSITION 0,21+S:? LL$(V,V+7);186 IF S>=2 THEN V=1+V(S)*8:POSITION 31,19+S:? LR$(V,V+7);190 POSITION P(S),19:? CHR$(20);200 SOUND S,F(S),C(D(S)),V(S)205 IF S<2 THEN D=V(S)/2:IF D<=7 THEN V=1+V(S)*8+D:POSITION D,21+S:? LL$(V,V);206 IF S>=2 THEN D=INT(0.5+V(S)/2):IF D<8 THEN V=8+V(S)*8-D:POSITION 38-D,19+S:? LR$(V,V);210 S=S+1:IF S>3 THEN S=0300 A=PEEK(20)310 IF PEEK(20)=A THEN 310320 POKE DLL,DLV1-16:POKE DLL+6,128-DLV1330 DLV1=DLV1*2:IF DLV1>128 THEN DLV1=1610000 GOTO 100J"#^sTFVPDCDLDLVLLLRLp@AAAA0AH@@ @ Bh @d l l@@iAC(TAKE IT EASY...-A    +AR@ ;A,6-@7 //6.% Prima Aprilis - edycja 2010 ;) HH67@8,.5 Idea by Sikor, programming by Sikor, MaW, Mono...))67@,. Made only for fun.67A,.%A%(7@<,<<9@,9@,9@,9@,9@,(9-@&68,-568,-9 20,8,4,2,12,10<(-@"$68,-( F6-P1%6-F:A`,%AV$F:Aa,16-@Z3&;A(,;A(,;@,36. [+-@+-@\{667@%$@%,.7@%N:@$&,,{67@%$@%,.7@%N:@$%@&+@&,,,]   d&6-%@!B:,&6-@n"-"(>:AT,x-@8(7<,08,!&68,-8,&@0 A-8,@(  68,-P:AV$H:,, 68,-P:@$H:,,**68,-@8&P:8,'AV$@9, 68,-P:@$H:,,N @(6-@%8,$@<-@!%N(7<%@,N@(6-@%8,$@<-@1@%N(7<%@, -8,@ (>:@ ,28,88,,8,_ @ 6-8,'@,@G6-@%8,$@%U-@!%_(7<,r@+6-P:?P%8,'@,7 @R6-@%8,$@&h-@8&@%r(7<,)6-%@!@)6-,6-F:@ ,6F:@ ,"A@'&@'%@A(&J)6-$@!A()6-@' A D:AUTORUN.BAS@%8,$@&h-@8&@%r(7<,)6-%@!@)6-,6-FN@ )?HI   Y0`HIJH)* J j *  hJJJ)HJ   h i    YS S0 i`  !"#$%&'()*+,-./0123456789:;<=>?@H J3x!j2h)1 |9 ӭ45(420 * (0241өX.`  ? *^)Lkl  k*PE 5 LN(G 2 gh ` ghgL ( 2 L<(0d( L ^E0O +)$IC H @"8 f e h q  |_ 8cd CDL> CFa M  L< ?^)La`2'")*F$F$F$F$F$ 5 )ШF/Șa]`efС,L>/A! A^)Za`@ ܬ/^)(")")#`$F$F$F 5$/L /aF@__(LN`ae$$%8(`()` ? % 2L< ?^)^>_f i ;gCh) qkl5\   Zc[d 4akl L>@^LZ>_ 3L kJjjj^^ e fE]$_agh`L>:$ȱ$@+[_#{ %  Խji! ai % 2 I   J C H h  ˰ %  ;  q LZ 2  ,  H `L> ,/ % k/ q Ơ? ѩ/ %| H /L_0?MdLc 3_MfLe N`aL<L>cLdMaNL< ?"(+ըHH`Q R !   $ . FȑF! /GF \H"+0+* ! F s&L>cm: J~cTF1F  *c+)5! c (, c)1JJJc(c*d I ,0  Xi N dF4 5 ,8,0 ʩ0H 2h     i D JD'bbFL>vij`*&!ߍ*@h ] 0 ^0`ߍ c 0l$$%()()%*&J%H,@hH hH@,h $% 8i8$(%)0hhH ]h`() c 0H c 0 h`hhh&JJ ]((ll  L>0 q/qcdHH 99 H H  I9 9 NY 2H  >8 d c  qFcdL HII/ Ih8`h`Lcdc`cd`u F E KE]L</auF) a0BF/aɜɛ׽]E ;  qW  KFL FREE SECTORS CH) *Fh ):FȽ F FCIH' 0 d  i:Fȩ/F.a`CD/08HDICIHȰ/F`ȱ$>.+.*i ȱ$:刄H !A I Hȱ$*?ȝ 2. ? [_{ ,0-:) 0$:>WI  IТ,L>H  0hLY k i j`C ?(  0(C.` E *! .ii  c0N EE+ 1 EC)0')AY)ע ? 0E088FG \dc  (HhLcL3 ^J ^ Lrfe 0=ghecfdefa``_Z_0  _ 3LMHFhȑFȽaF^0 ] FFL3ekfl,\cZd[L3 ef7 | 40^ 0 FJJ]1FfȱFeȱF``B!08`]EE 1 8. *D}iji( AʩLMW!)   XȌVȌY W`VVWH8 hYaHXY8 XH hHH \-h hX` *Hh I8ih( a ( a(!`L\CJfCJfCJfCDfC` qV  HII  INYh `h`c)8jHciPdijIjFIjFIjh` qV I38 8H0 I  ' .H L>8jY8j NYY &I &I &IHeH.eIif  `!.莼 2Jjj }.b Ȉ!b FG` ɩL> z  e H^04 \ Ȍ  8 i/ h !`I0 `C Y%.`DOS SYS I  ` kݩ.C/`WV.b۩bѤC9`CLJ G  ,F0(BԝDEI V0 : , BLVDE`D1:*AR008hhJ ȱHȱIȱBȱDȱEeeHHLV)  1*  ,,p-  0  &  '0   Lv)l, 0  &LD1:MEM.SAVE:D1:DUP.SYSFXMUF1I)vCD1:DOS.SYS n  * \*`آ R'S )ɀ@  T))% CError loading MEM.SAV or memory!  0* a*b*c*d* R Hc*JSDc*J-=d* 0b*ʈд =}MyDOS 4.533/4- Copyright 1988,˛Disks 1D- 2D- D: = D1: = =1-8.Dir of D1:-D8: *. Dir of D:A. Disk Directory K. Save MemoryB. Run Cartridge L. Load MemoryC. Copy File(s) M. Run at AddressD. Delete File(s) N. Load ME4M.SAVE. Rename File(s) O. Change Config.F. Lock File(s) P. Set DensityG. Unlock File(s) Q. Make DirectoryH. Write DOS Files R. Pick DirectoryI. Initialize Disk S. Set RAMdisk #J. Duplicate Disk V. Set Verify Flag  @莻( 50  =Select Item ( for menu):@  =ɛL)1L,*L,:W@ ,,L=No such item!L), -0{ ПFull directory name?Z"L.Directory to be used as '8D:'? @ A(5)L.(I: 輿ȱޝL), CInvalid directory!L@( (0Le-File source, destination? '( @C۩wڭ8wܭC B8'0 @(ߍeލd(DЍ( ? 8' B Bȱޙ':9>Ȍ(C0J* .B 9'ȱ/.* #,ɛȝ9' ߰ B |?,(0L), 'ut(9'3?&' .'Ƚ9'?&'  .و'Q?''(#( = =-->' =Q =YR_o (J:(  0?B݋''BJ)`''utz0( ?(L|0L),L@nDisk to FORMAT: A B(UTލ1 =(Press for Enhanced Dns)Type to Format Drive 8: =AIYZNj[R VL@L),D1:DUP.SYSDrive to write ;DOS files to? AH1:*J)2I) Z B hpI) ?<2UTC٩vة۩.کL;Source, Destination (Sectors)? A)((8'( A)((((( @(0% =Insert both disks, type = B<( A((/( DB(( CDrives not compatible!J(j(8'Hh''h(ɛy CInvalid options! N@-&& N@)׍&&(&&&۩ک&&&&8* 84&&&& 848*8(ܭ(ݥwC, =CNot enough memory! ک&&`(Mh  & >L@&i &&&&mm   >  &((&թԥԍ(Ս(((( ( ((Cw((ՠԍ((,(0"( (( >>m(m( & &("L),  ( BL4,(, =Insert DESTINATION disk, press =Nͻ I) b( 0J) @((ԭ(խ( ( (((L4Drive, new density: A8'ɛ CDrive unchanged.(ު?90٨Ȍ(SD  qBL)xԌҭHӭ@@ ʎӆ@ӭ@@ :  $ӹ@hөԥX` Aˠ =RAM disk present? =NL08 =xlon or E type RAMdisk? =Aό @ L   M   A1| =6: ' =No extra memory available!L08L7 & & & =Use default config for 0)ȩ = =K? =NL 8 =Size(K)? ? N@FjFjFjFj: =Page sequence? ? P@o* =RAM disk Adrive no? = 09) `9 - 9**H***) 9 Ȋ)h9 @@ H'h(#''/'(ɛ ? P@(@: 3 ʽ' L 8 =Duplicated sequence number!L7 =Wrong number of entries!L7KB큅쀄 =Verify WRITEs? ; =Number of File Buffers? ? N@  6 Lv),R( 4;L),Drive number or : =ɛLP99L50Ȍ( =Remove drive? =Y =Is drive configurablCe? =YЂ =High capacity drive? =Yy =Is drive double sided? =Y *; =Tracks/side? ? N@#0M P( *; =Step rate? =4/ *; 4;L), =Drive size (in sectors)? ? N@H(h 7;L),RAM disk drive no? 8L),Verify DWRITEs? ;L), =WNPp`(`(  LqBSAVE:filename,start,end(,init(,run)) @TUH P@Cp` ?< P@؆8օڊ CInvalid START-END range!۩ P@  P@ hԄՠAλȌZ B04E*  0$ڍXۍY֍T׍U,0LCL C HCL@ֆ׌`Load MEM.SAV from what file? 0#L),L@Load from what file?) @TU&̩Z B &0&-&а&𨭻INIZ'RV0II CNO CARTRIDGE!FԆխ  )L>Run from what address? ?ɛ P@ CAddress must be 1-4 hex digits! BHILV {=`hh =HH` =0{a Hɛ {= {=h` {=L), = = pHH =hh`K: p `(G((( i ɀ((L@(`(BD(0>HH''>I>U>I>ɛ(ɛ (>(`͈>DH(`(HI`(k5 = =( 5B( (>@A (J B0}((HHIIDDEE B @(CɈPH(# B = =( 5BL'?(B>>((ڤ ܝHݝI VL>L@(" B !B I)  B(L& R XY( @&:0H&Ϳ((& ( .( & ( .(ʩ(`ލD&ߍEBIIʎH( V0`ԩ ؠA@ȱB@ȱ)C@ CError -- 160&`$8f cAԄձG/ $<68i/(Ԧ`H&եԦ&&eԅheԅԊe(iLZ@&&&&ԅLZ@B ? cA?*(ɛ:./2SXJ(0ȱ/.ɛ(ލ8'ި0#:Ȱ :ފ :ȱ: : sAD sAޥ`(eޅީe߅`(` @LA @TUȪ: CFile name not allowed!: )  h( >0+L TUD CNot a diskK file!(0` =Insert SOURCE disk, press =,(pӮ(A(O aB qBaB`1(L$ b(de BJKO L@O` B((*(((`ȱޙ((:>Ȍ(`D:`OS.LSYS,DOS.SYShh =L),  VLI /C /C,pLhL~F#Խ٩Յ׆  LC`David R. Eichel rel.ver.1/1/90L$ b(de BJKO L@O` B((*(((`ȱޙ((:>Ȍ(`D:`OS.{BAPRILIS TBLB APRILIS LSTBPRIMAA3 LSTFAUTORUN BASF DOS SYSF2DUP SYS