@L}5 _$% l0$)$$Hȱ$ UhL" `e$$%`$%`  R@W!( L(1   Y I`  d  Ld M * @  $ % CC$$)%1 Udߥ$9%: !0 S$% DD˙`  }J)Lr s11P8P8PBFEPSETAHALDSIDABCHSEBIADROTCHAMTOPWIRCHAPRNTRJKPBINEONCPICIOMVRFEOR}NCRJKTCIVNTVVTSWAOFFSETEMPTEMP } } !"#$%&'()}*+,-./ WYSIWYGBY CHET WALTERS(c)1986, ANTIC PUBLISHING99MODIF }IE POUR 1029 ET FRANCISE par G MAURICE A N)@6-F:@,.6-F:@,:"@D } A@N @#"@ A# @#"@ A0# @%"@ A0%6-AU }#V-!AS)"AV)"AW)"A%BF:@,@L A0V @(<"@' A@+AR@ }2(< A0-2"@!@@((2 @22"@&!@@'((2 @7. }"A'$F:@, @#. A<I"@ 6-!6-3@@?6-@(I AAW"@}!@@"-6-AU?Ad@M6-%A@W @F#"AU*@## @K8!@1}$F:@,"@. A 8 @P-"@#*"@)# A - @U#"@ A# @Z}- @()!A&# A - @_5"@*"@0+@@'5 Ad+"@&*"@1+}@@i9#"@'*AU*A&- A 96-@0n["*"@(-6-&@@$+,7 A}I@Q([ @s* (>:, F:@,@#* @x; %A#@@"16-%@@}; A} @END EDITOR LOOPCENTER/INSERT/DELETEAR@'@.(H6-&%}$@@%@[6.7<%@$,{6.!@A`\ -@%@6@-7}<,00'A6-P:'@,R67@&,.\ A  ATAC6-&@@)"@&}3 A 96.C AJ"@%6..67@%<@%,.@@@%J A["AU 67@}<,.D67%@<@%,.7<@%,Q67<,.[ AD67@<,.:67<%@$,.7%@<@%,}D A AVA3"AC)"A# A )6.3 AS 6.6.6-#6-%@@9-}AB@@E"AcS6-%A`+"A6-%A`+6-%A`/"AV/67<%@$,.7<%}@$,/"AW/67<%@$,.7<%@$,D6-%@@6-%@@# ,67,.8"AW>6.D6-} 6."267<%@$,.(AR/(2$+SCROLL EDITOR,S6-P:'AV,$6-&$AV*8%@}D@P@S$?SIGNAL - CAN'T TYPE@fA@P'B2G@P;-@@? Q}AcAf$SFLIP SIDESTZ6-F:@,$@6AR@=(B(H6.Z}AA@^ 6.AA$h# 6.6-+",#6.rE@%@)AR0}(BA E$TOGGLE C-SET/F:AV,"A$,AV'AV/$AVA$$TOGG }LE BIASE6-+%@,$+ @,+"E67Ax<Ay,../)"@)67Ax<Ay,.#r)"!}@)67Ax<Ay,.-4V+67Ax<Ay,.7Ax<Ay,S67Ax<Ay,.7Ax<Ay,V$"}TOGGLE DOLBYv6-+%@,$+ @,s67A9<A9,.>:@4%+"@,%@$+"@,%@$+"#},,v$MAKE NEW JACKET FORM 6.67A,.)67@,.26-C:,86-JAR@\A n$}AA$z6-AV'AV-@@":( EFFACEMENT F6-@b-@%}Ay@@k6. 67@%+ @,<@,.=:,T-@@567<,.>:@:7<,,%@,9 &}T6-?:<%A<@,w67<%@,.26-%+ Aa)!A ,i67%@<%@&,.'}m w A&d@'@@*(V('](d(0w(}0('B@@'T@@ W(g( ɠŠw( Š:R #Ap)}!-@%"1-@(6(: F6-@R6-@DZZSIDE A,,CONTROL,ƭ,,ڭ,*}ŭ,ԭ,ӭ,íśN[[ĭ٠B,­ӠCr,,SHIFT/CLEAR,Ʈ,, ESC POUR , MENU ,,SIDE +}AXE@@6.!6.3AREAdAsbL!67@1<@6,.I67A<A,},.7@1<@6,L$PRINT JACKETzAV'AV)-@@"O( ҠӠӠ O\)-}@h"@xzAVA$f-@@">($ŠŠŠŠŠPAR@f(E.}SCAPE POUR FINf,6-?::,67Ay,.*67@,.-$` 6-C:, -@@`,6-:6-@:7<,,F!A'T6-&A(;}`6-AU46-?:<:AU,/ W67As<A,.7@<>}@,67A6<A7,.7@<@,$INITS. & CHOOSE PRINTER +A1AUI6-F:A`?},%AV$F:Aa,%@j6-+F:@,&@,$AV@@E:#@@@}K:;A,;A,;A,;A,;A,;@0,;@W,;@,;@0,;@ ,`&;@A}E,;@`,;@,0 A: APU6-?:<BsD<<A$,`6.RIENUAAF(}%#A @1B}6-@?-@C"N(->Q(U  EPSON,PROWRITER,ATARI 1029##-----------------------------aaTO ADDC} PRINTERS TO THE ABOVE LIST, CHANGE THE >PRNTRS=3< IN 2030 TO THE # OF PRINTERS ONffYOUR LIST, AND ADD THE NAMES TO TD}HE ABOVE DATA STATEMENTS. THEN ADD DATA STATEMENTS NUMBEREDEEBY ONES) AFTER 2103 WITH THE APPROPRIATE PRINTER CONTROLE} CODES33(IN DECIMAL). NE PAS MODIFIER LA LIGNE # 2103##-----------------------------m(CHOIX IMPRIMANTE->()@F}66-&@H=6.I6-@U#A!%m @)!A 0 6" 6-O:,& AP,6-6 AG}0)67<,.>:,6-%@) A `2##-----------------------------3aaLINEFEED=8 DOTS, HI-RES GRAPHICSH}=480 BYTE/LINE & USE NEGATIVE MSB OR LSB FOR TOP WIRE4##-----------------------------527,65,8,27,76,224,1,-1286222I}7,62,27,84,49,54,27,81,27,83,48,52,56,48,-1727,57,27,65,0,240,-128 MAIN MENU A0@"+4AJ}FAVA$X@@jA@d|@@dB7t@d E #A0!-@K}@%")(,(0 B@@E( ==, ǡŠӠ, by Chet Walters ll,-> CREER L}JAQUETTE,-> EDITER,-> SAUVEGARDER,-> CHARGER,-> IMPRIMER,-> CHARGER FONTES,-> QUITTER -@@ (+-@M}@#>( ؠK)@a"@)"@m6-@w AD AP B4RIEN."@i)"N}@)"@8 A B A0@ R"@g6-@% AD/ A@>6.JAQUETTEH AR @ kO}"@i6-@2!6-16-+",; A`E A@O AaAdAsk @ @A4P} ~6-@ AD/67@,.:*.JKT9 AAC ACM A0j@@~(@JACKETQ} s)6-?:<@<@ 80 0 ~~`0 0`i}fff~f|f|ff|f``fxffffx~`|``~~`|```>``nf>ff~fff~~f<bfxxfb`````~ckccfv~nffj}ffff|ff|``fffl|ff|lf`<~fffff~ffffcckcffffff~0`~@`0 xxk}6c6>8pp8?l}ww<~~~<x`x`~<~~<m}0~0 ~ <~~<<>f>``|ff|b``>fff~`<>>ff>|``|fff8><``fxlf8>fn}kc|fffffff|ff|``>ff>|f````<|~ffff>fff<ck>6fffff> x~0~<~~<o}~x|nf8x8ff|``>ff>|f````<|~ffff>fff<ck>6fffff> x~0~<~~<A11AAH4 D:WYSIWYG.BASΠ N:)@F@yP A0d#4 +?WYSIWYG JAQUETTES DE CASSETTESLe programme de Ch. Walters est un excellent programme, mais avec un defaut majeur pour tous r}les possesseurs d'imprimante ATARI 1029: Il ne permet pas l'impression. La 1029 en effet n'a que sept aiguilles et n'imprime s}les graphiques qu'a 60 DPI. Moyennant quelque sacrifices sur la qualite de l'impression, il est cependant possible d'utilisert} une 1029.Sept aiguilles au lieu de huit tout d'abord: il suffit d'ignorer le probleme! Les lignes seront un peu plus tasseu}es mais lisibles cependant.Graphiques a 60 DPI, mais graphique tout de meme! Si on adapte le programme en suivant les indicv}ations du paragraphe 1 de l'article et des lignes 2041-2047 du programme, en mettant dans la ligne 2103 les caracteres de conw}trole du graphique trouves dans la notice de la 1029, cela imprime a peu pres. Mais en largeur double (parbleu 60 DPI au lieux} de 120 ! -...). Le remede a ce probleme? mais c'est tout simple: chaque caractere comportant huit colonnes de points , il suy}ffit d'en imprimer seulement quatre, une sur deux. C'est la ligne 1610, qui est une modification de la ligne 1600, qui fait tz}out le travail (voir le STEP 2 de la ligne 1610).Et il sera toujours possible d'optimiser la taille et la forme des caracte{}res pour ameliorer ces defaults: c'est la raison d'etre des fontes IMP1029.FNT, qui accompagnent le programme, et dont l'util|}isation est recommandee avec la 1029.Par ailleurs, le programme a ete entierement francise et ameliore sur plusieurs points}}:- L'affichage du menu principal est automatiquement en caracteres standards ATARI.- Les catalogues des fichiers jaquettes 7}GMPL8 T JU J wH L" L+Lr" wH L" L-Lr" wI L" L,Lr" } w I L# L&I wI wI w"I w(I Lt#] .I } sLt# L&Lr" w4I L# L+  LJ; w:I L#U  Lr" w@I L#U  }Lr" wFI L $U LI }L $L_& wRI L@$ w QXI U( L% w^I Ly$TI }  wdI  QLS% wI  wLI s L$LS% wjI L$] .I L$ L~+Lr" }wLI wpI L% L~+Lr" wvI L"% Li,Lr" w|I } w멂I LS% L~+Lr" } wI w멈I L%UL_& w@I wjI L%U w4I wI s } w멂I s L% L~+0  wXI w|I L_& w @   w v  Q L+ }T lJ Lr" T LI sL&Lr" w  w멎I L&T@ + L+Lr"U   w }   w@ 4   Q > w$  > toJ  t w I L' %  ꩔I 2L }' >  > ꩉJ L' f w  Q   > w L* w멚I }L) w } QU W! w@I L( L~+ w tL* w멠I LB( w t > >멋J  UL* } w멦I L( > > w w > > > > > >멍J  L* > } > w > w$ > w > > L* wI }L* w멬I  w멲I }LV) L~+ w tL* w t w t w Q w@ Q w Q멸I @  2L* w멾I L) }ĠI wʠI L)ĠI ĠI wI L1* > w$ > > w$  > w }"I L{* > w$ > > w$  > @ + @ +  > w w"I L* } w t w Q w t > w$ > w    wРI  Q w wРI }Q 셈 W! w 텈 W!X W!Y W! 2υ2 W!    (L+ } U JU   w L+ w t wL , w t| w t wXI  Q }wL>, w tU w W!    ֠I L, wРI  W!   w }  wI }  Q wXI L,ޠ >ߠ >멏J   w:I L-ޠ >ߠ >멒J   w }I LJ-ޠ >ߠ >멕J  ޠ >ߠ >ޠ >ߠ > ޠ >ߠ >ޠ >ߠ >  w  w } I }  Q멷 >멷 >4   wI    w I    wXI J }J  t > w  > w  wԤբ J w Q|XI  wРI  W! } J    ܠI @  2L0J  t  wI } > > w !    } (LZ/ > > >  >Ԣ` J  > wI > k J > w }> w  w wI } wI  Q w > w& >멽J  L+RT } ٠J K K K RT /K ;K : XI   (L0  }UV  w   R w t w t >$ >GK   > > > }$ >  wРI  W! NK   wI Ln1 oK  } 穀K  > РI > wԤ > k JXI    wJ  (L2 > wԤ } >멀 k J   w4I LJ;   K J  I } w I dI  Q L6 L7XI L5 > >멧K  5 >; >멯K  > >멱 > }멷 >  > >٠ >ߠ > " >( >멱 >멷 > + >1 >٠ >ߠ >  }> >멷K   > >멹K  ' >' >멻K  / >/ >멽K  L6 L6 L7XI } L6 Ll8 L7XI   (LI4 L5 L6 L6 L6 L7  w:I  J  w:I } Q L6 Ll8 L7XI L6 Ll8 L7! "  (L4 L5 L6 L6 L6 L7 XI L6 }Ll8 L7$  L6 Ll8 L7$ 0  (LQ5 L5 L6 L6 L6 L7 I  w I J } Q L6 L7  LJ;K  t; > w  > w  > >K   > >àK } < >< >ŠK   > >@   >@  '  > ! >9 >@  }  >@  '  >  J tߠ > w  > w  wԤբ J  `  } (L7XI >  >Ԣ J wFI LE7 wJ  Q멦I  > > wԤ   }   >  k J +  > wԤ > >멛 k J w  w I sL7 }  w L38! J  ! 2L38 ! >!  > !   |I Li8 f } LJ;    (L8 > > J ٠ > > > > > > > } > 0  РI 1    QY  РI  Q ǠK J  }ʠK J U U U Ux U" U9# U`$ U% U U-& U<' U }( U LVC LB > > > k J͠K ( t }      w (Lw:  } w ҠK w ՠK   wH QK t J w:I } } w L:  wXI }L#; w ` Q LB w QLJ; > > J  +L: }  R@@@ҩ    (L;   w R  ( w } K   wJ w$J L"<   LXBLF( w K L< w*J } w0J w6J L< L~+L; wL % }L0@ L-B  % w J L ) > > > wԤ > k J) > > > } wԤ > k J % U( tLJ; wBJ sL?   LXB L? >L % L0@ L-B  } % w J L    w "L L>LJ; L.) > > > wԤ > k J }) > > > wԤ > k J% U( t w tLr" w6J L&?   LXBL1 wHJ s }LB? L~+L;   LXB >)L % L0@ LB  % w J wРI  W!) > > } > > k J LJ;( w 0L L?  5L   wNJ sL-@ fLJ; } SL pL    w ꩈL L|@ fLJ; w ꩉL  w ꩋL }L@ L:AL0@   w֤  (LA >  > ꩍL LA w% t fL7A L % t } > w% R }  > >멓L %  > > w%  >% >     }% w J|  % >% > ꩗L LB  > % > LA % w @  }R % w֤ע >멟L % % w UV L T  % w֤ע >멨L % } % w L ' t' wԤբ JL # t# wԤբ J!M " t" wԤբ) J>M $ t$ wԤբ J& w }բ J w:I LGCM & t M & t  ꥃ РI * Q륆  ꥇ РI + Q, } wԤ TJ  ZJ  wԤ  TJ  LC,e  wԤ TJ  ZJ  wԤ }  TJ  L=D,f , w:I LF  XI- XI XI w*  1!  }J }LE- + wXI w* 1! *J w* 1! `J LE- w Q }  + wXI w* 1! , w* 1! `J LE- w Q  + } wfJ }LE  +LwD+ w  w 4  1!. J+ w  w 4  1!/ J+ w  w 4  } 텈+ w  w 4  1! W!+ w  w 4  텈+ w  w 4  1! W!+ w  w } 4  텈. W!+ w  w 4  텈/ W!  ڠM   wNJ sLGLJ; }  DXSIDE A,,CONTROL,ƭ,,ڭ,ŭ,ԭ,ӭ,íśNYĭ٠B, }­ӠCr,,SHIFT/CLEAR,Ʈ,, ESC POUR , MENU ,,SIDE AEPSON,PROWRITER,ATARI 1029527,65,8,27,76,224,1 },-1286027,62,27,84,49,54,27,81,27,83,48,52,56,48,-1727,57,27,65,0,240,-128 ;, ǡŠӠ, by } Chet Walters j,-> CREER JAQUETTE,-> EDITER,-> SAUVEGARDER,-> CHARGER,-> IMPRIMER,-> CHARGER FONTES,-> QUITTER@ }@@@AUASAVAWA%@@'@@&A'@#@ @A@@1@)@ }@(A&@0AAT@%AUACAABAcA`AAVA$Ay@AAa }A @xA(AA5AA!@@@i@@@g@v@p@yA HA YAdA }./#r-4 EFFACEMENT  ' }' ɠŠ Š ҠӠӠ } O$ŠŠŠŠŠESCAPE POUR FINP:|E:K:RIEN->CHOIX IMPRIMANTE-> } ؠRIENJAQUETTE:*.JKTJACKET:*.JKTJACKET:*.FNTRIENҠŠΠӿ Nνՠ }٠Š͠Šҭ0::D1:D1:SECTORS.JKT.FNT:hhhhhhhб  iΥi }`8hhhhhhhϠˑ͈ ˑ͈ˑ`hhhhhBhEhDhIhHLVShhhhhΩТϩѱ% }υψFϕܢґ̈e̩̅eͅй`hhhhhhhРEБ̈`)hhhhhhhРҤѱEФґ҈` }Π No"o"o"o"o" o"r""""##(t#-#2#7#< $A@$Fy$K$P$U%Z"%_S%d%i%n%s_& }x&}&&&-''''(B(())V)))1*{**"*++,+?~+@~+S+T+^+h ,r>,i,i, },,,,-J---... //& 00<0:k0D0N0X0b011n112;22$3.383B4L }I4V4`4j4t4~5Q556x66E7@7J7T38^i8l888P99:w:w:w:w:w:w:w:w: :# };2J;3J;4J;5J;6J;7J; J; J; w; ; ; ; "< < < = != x=H =R >\ Y>f > ?&?B?$h???-@0@P@ }|@@"A,7Ah:ArA|B#B-B0XBBBBBBCGC(#VC)#vC+#C,#C-#C.#=D/#PD2#UD7#wD8#D<#DA#EF#EG#EH }#EI#EJ#}FO#FZ#Fd#GGB#B-B0XBBBBBBCGC(#VC)#vC+#C,#C-#C.#=D/#PD2#UD7#wD8#D<#DA#EF#EG#EH 2 REM WYSIWYG4 REM BY CHET WALTERS6 REM (c)1986, ANTIC PUBLISHING7 REM MODIFIE POUR 1029 ET FRANCISE par G MAURICE}8 REM 10 GOTO 200015 GET #2,K:P84=PEEK(84):P85=PEEK(85):IF K=19 THEN GOSUB 340:GOTO 1520 IF K=4 THEN GOSUB 480:GOTO 1525} IF K=2 THEN GOSUB 430:GOTO 1530 IF K=3 THEN GOSUB 130:K=15535 IF K>253 OR K=156 OR K=157 OR K=125 THEN IF PEEK(93)<>82 THE}N GOSUB 130:GOTO 1540 IF K=27 THEN GOSUB 340:POKE 752,1:? "";:GOTO 300045 IF K=1 THEN POKE 85,1:? "";:GOTO 1550 IF K=26 }THEN POKE 85,27:? "";:GOTO 1555 IF K=127 THEN IF PEEK(85)<23 THEN GOTO 11560 IF K=20 THEN A=B:P84=0:POKE 85,2:K=28:GOTO 11}065 IF K=5 THEN POKE 84,22:K=155:POKE 764,12:A=B+240:GOTO 9570 IF K=155 AND P84<>23 THEN GOTO 9575 IF K>31 THEN IF PEEK(93})=82 THEN GOSUB 320:GOTO 1580 IF P84=23 AND K=29 THEN GOSUB 320:GOTO 1585 IF K=6 THEN GOSUB 400:GOTO 1590 IF K<28 OR K>126} THEN GOSUB 320:GOTO 1595 IF P85=2 AND K=30 THEN POKE 85,27:GOTO 115100 IF P85=26 AND K=31 THEN POKE 85,1105 IF P85=27 AND} K<>155 AND K<>126 THEN GOSUB 320:K=30110 IF P84=0 AND K=28 THEN A=A-40*(A<>B):GOSUB 300:POKE 84,0:? "";:GOTO 15115 ? CHR}$(K);:IF PEEK(84)<>23 THEN GOTO 15120 IF A3 TH}EN 160140 FOR I=25 TO 1 STEP -1:IF PBF$(I,I)<>"" THEN POP :X=INT(I/2):PSET$(13-X)=PBF$:GOTO 290150 NEXT I160 IF K<254 THE}N 210170 Q=P85-1:POKE 85,Q:IF Q=26 THEN GOSUB 320:PSET$=PBF$:GOTO 290180 IF Q=25 THEN PSET$=PBF$:PSET$(25,25)="":POKE 85,2}5:GOTO 290190 IF K=255 THEN PSET$(1,Q)=PBF$:PSET$(Q+1,25)=PBF$(Q,25):PSET$(Q,Q)="":GOTO 290200 PSET$(1,Q)=PBF$:PSET$(Q,Q+2}4)=PBF$(Q+1,25):GOTO 290210 IF K<156 THEN 290220 IF J=843 OR J=883 THEN GOSUB 320:PSET$=PBF$:GOTO 290230 PBF$=PSET$:PSET$=}E$:X=J:Q=J+40:FOR I=J TO 1242 STEP 40:IF I=763 THEN Q=Q+160240 IF I=803 THEN J=J+160:I=I+160250 IF K=156 THEN E$(J,J+24)=PS}ET$(Q,Q+24)260 IF K=157 THEN PSET$(Q,Q+24)=E$(J,J+24)270 J=J+40:Q=Q+40:NEXT I:PSET$(J)=PBF$:IF K=157 THEN E$=PSET$:J=X280 }PSET$=PBF$290 E$(J,J+24)=PSET$:POKE 752,0:? "";:RETURN 299 REM SCROLL EDITOR300 AHI=INT(A/256):ALO=A-AHI*256:POKE DL,ALO:}POKE DL+1,AHI:POKE 88,ALO:POKE 89,AHI:RETURN 319 REM SIGNAL - CAN'T TYPE320 POKE 712,50:POKE 53247,50:FOR I=1 TO 5:NEXT I:P}OKE 694,0:POKE 712,0:RETURN 339 REM FLIP SIDES340 J=PEEK(85):POKE 85,0:POKE 752,1:? "";:IF NOT SIDE THEN A$=E$:POKE 710,1}40350 IF SIDE THEN B$=E$:POKE 710,124360 E$=A$:SIDE=(SIDE=0):IF SIDE THEN E$=B$370 POKE 85,J+1:POKE 752,0:? "";:POKE 709,}0:RETURN 399 REM TOGGLE C-SET400 IF PEEK(756)=224 THEN POKE 756,CHSET/256:RETURN 410 POKE 756,224:RETURN 429 REM TOGGLE B}IAS430 BIAS=(BIAS+1)*(BIAS<2):IF BIAS=0 THEN E$(478,479)="./"440 IF BIAS=1 THEN E$(478,479)="#r"450 IF BIAS=2 THEN E$(478,}479)="-4"460 A$(478,479)=E$(478,479):B$(478,479)=E$(478,479):RETURN 479 REM TOGGLE DOLBY480 DB=(DB+1)*(DB<3):E$(439,439)=C}HR$(34+(DB=2)+6*(DB=3)+12*(DB=0)):RETURN 499 REM MAKE NEW JACKET FORM500 E$="":E$(1300)=E$:E$(2)=E$:A=ADR(E$):B=A:POKE 752},1:POKE 709,0:POKE 710,124:SIDE=0:POKE 756,CHSET/256510 POSITION 2,22:? " EFFACEMENT ";:J=1:FOR I=1 TO 12}79 STEP 40:PBF$=" ":PBF$(1+(J<10),2)=STR$(J)520 FOR Q=1 TO 2:PBF$(Q,Q)=CHR$(ASC(PBF$(Q,Q))+96):NEXT Q:X=USR(ROTCHAR,CHSET+1}04,3)540 E$(I,I+1)=PBF$:J=J+(I<761 OR I>920):E$(I+2,I+26)="":NEXT I:GOSUB 300550 POKE 82,0:POKE }84,19:? :? "":? "":? ""560 ? "";:POKE 82,2}7:POKE 84,20:? :? "ɠŠ":? "Š"570 RESTORE 570:FOR I=0 TO 19:READ PBF$:POSITION 28,I:? PBF$;:NEXT I:DB=1:BIA}S=1580 DATA SIDE A,,CONTROL,ƭ,,ڭ,ŭ,ԭ,ӭ,íś590 DATA ĭ٠B,­}ӠCr,,SHIFT/CLEAR,Ʈ,, ESC POUR , MENU ,,SIDE A600 POKE 82,2:A$=E$:B$=E$:POKE 752,0:POKE 764,173610 B$(}31,36)="":B$(791,796)=B$(31,36):RETURN 999 REM PRINT JACKET1000 POKE 756,CHSET/256:POSITION 2,22:? "ҠӠ}Ӡ O";:GET #2,K:IF K=78 THEN POKE 756,2241010 POSITION 2,22:? "ŠŠŠŠŠ":POKE 752,1:?} ,"ESCAPE POUR FIN";1020 I=USR(MV,PEEK(756)*256,ADR(PSET$),1024):FOR J=0 TO 2*(TOPWIRE=128):I=USR(ROTCHAR,ADR(PSET$),128):NE}XT J1030 GET #2,K:IF K=27 THEN 30001040 TRAP 1010:CLOSE #1:OPEN #1,8,0,"P:":POSITION 1,22:? "":TRAP 3000:CHAR=255-(PRNTRS=}3)*240:GOSUB 1400:GOSUB 16001050 CHAR=0:GOSUB 1200:E$(2,8)="":E$(53,59)="":E$(12,18)=A$(433,439)1060 E$(21,27})=A$(473,479):E$(34,40)=B$(433,439):E$(43,49)=B$(473,479):E$(17,17)="":E$(25,25)=""1070 E$(39,39)="":E$(47,47)="":GOSUB }1400:GOSUB 1500:GOSUB 16001080 CHAR=0:GOSUB 1400:GOSUB 1700:GOSUB 16001090 FOR JKT=0 TO 19:GOSUB 1200:GOSUB 1300:GOSUB 1400}:GOSUB 1500:GOSUB 1600:NEXT JKT1100 CHAR=(TOPWIRE=1)+3+188*(TOPWIRE=1):GOSUB 1400:GOSUB 1700:GOSUB 16001110 CHAR=0:GOSUB 14}00:GOSUB 1700:GOSUB 16001120 FOR JKT=21 TO 22:GOSUB 1200:GOSUB 1300:GOSUB 1400:GOSUB 1500:GOSUB 1600:NEXT JKT1130 CHAR=0:GO}SUB 1400:GOSUB 1700:GOSUB 16001140 CHAR=24:GOSUB 1400:GOSUB 1700:GOSUB 16001150 FOR JKT=24 TO 30:GOSUB 1200:GOSUB 1300:GOSU}B 1400:GOSUB 1500:GOSUB 1600:NEXT JKT1160 CHAR=255-(PRNTRS=3)*135:GOSUB 1400:GOSUB 1600:? #1:CLOSE #1:GOTO 30001200 E$="": }E$(59)=E$:E$(2)=E$:E$(1,1)="":E$(30,30)="|":E$(60,60)="":RETURN 1300 E$(4,28)=A$(40*JKT+3,40*JKT+27):E$(33,57)=B$(40*JKT+3 },40*JKT+27):RETURN 1400 PBF$=CHR$(CHAR):PBF$(479)=PBF$:PBF$(2)=PBF$:RETURN 1500 PBF=ADR(PBF$):FOR X=1 TO 60:INV=0:C=ASC(E$( }X,X)):IF C>127 THEN C=C-128:INV=2551510 I=USR(EOR,PBF,ADR(PSET$)+8*C,INV):PBF=PBF+8:NEXT X:RETURN 1600 I=USR(NCR,ADR(PBF$), }480,155):? #1;P$;:IF PRNTRS<>3 THEN ? #1;PBF$:GOTO 16201610 FOR II=1 TO 480 STEP 2:? #1;PBF$(II,II);:NEXT II1620 ? #1:IF PE }EK(764)=28 THEN POP :POKE 764,255:? #1:CLOSE #1:GOTO 30001630 RETURN 1700 FOR I=1 TO 8:PBF$(I,I)=CHR$(255):NEXT I:PBF$(473,}480)=PBF$(1,8):PBF$(236,237)=PBF$(1,2):RETURN 1999 REM INITS. & CHOOSE PRINTER2000 GRAPHICS 0:POKE 731,255:DL=PEEK(560)+256}*PEEK(561)+4:CHSET=(PEEK(89)-8)*256:OPEN #3,12,0,"E:"2010 OPEN #2,4,0,"K:":DIM A$(1300),B$(1300),E$(1300),PBF$(500),PSET$(14}00),CIO$(30),MV$(57),R$(96),F$(30),P$(20)2020 DIM EOR$(45),NCR$(60),JKT$(14):GOSUB 9000:GOSUB 5000:I=USR(MV,57344,CHSET,1024}):JKT$="RIEN"2030 POKE 710,146:? "}":RESTORE 2040:PRNTRS=3:FOR I=1 TO PRNTRS:READ P$:? I;"->";P$:? :NEXT I2040 DATA EPSON,P}ROWRITER,ATARI 10292041 REM -----------------------------2042 REM TO ADD PRINTERS TO THE ABOVE LIST, CHANGE THE >PRNTRS=3<} IN 2030 TO THE # OF PRINTERS ON2044 REM YOUR LIST, AND ADD THE NAMES TO THE ABOVE DATA STATEMENTS. THEN ADD DATA STAT}EMENTS NUMBERED2045 REM BY ONES) AFTER 2103 WITH THE APPROPRIATE PRINTER CONTROL CODES2046 REM (IN DECIMAL). NE PAS MODIFI}ER LA LIGNE # 21032047 REM -----------------------------2050 ? "CHOIX IMPRIMANTE->";:GET #2,K:K=K-48:P$="":J=1:RESTORE 2100}+K:IF K<1 OR K>PRNTRS THEN 20302060 READ A:IF A<0 THEN TOPWIRE=ABS(A):GOSUB 5000:PRNTRS=K:GOTO 30002070 P$(J,J)=CHR$(A):J=J}+1:GOTO 20602098 REM -----------------------------2099 REM LINEFEED=8 DOTS, HI-RES GRAPHICS=480 BYTE/LINE & USE NEGAT}IVE MSB OR LSB FOR TOP WIRE2100 REM -----------------------------2101 DATA 27,65,8,27,76,224,1,-1282102 DATA 27,62,27,84,4}9,54,27,81,27,83,48,52,56,48,-12103 DATA 27,57,27,65,0,240,-1282999 REM MAIN MENU3000 TRAP 3000:CLOSE #1:GRAPHICS 0:POKE 7}10,0:POKE 756,224:POKE 82,4:POKE 702,64:POKE 16,64:POKE 53774,643010 RESTORE 3000:FOR I=1 TO 11:READ PSET$:? PSET$:? :NEXT I}:POKE 82,2:? 3020 DATA , ǡŠӠ, by Chet Walters3030 DATA ,-> CREER JAQUETTE,-> EDITER,-> }SAUVEGARDER,-> CHARGER,-> IMPRIMER,-> CHARGER FONTES,-> QUITTER3040 POSITION 15,9:? JKT$:POSITION 2,23:? "ؠ"};:GET #2,K:IF K=17 OR K=81 THEN I=19:GOSUB 4400:GOTO 90503050 IF JKT$="RIEN" THEN IF K=69 OR K=83 OR K=80 THEN GOSUB 320:GOT}O 30403100 IF K=67 THEN I=7:GOSUB 4400:GOSUB 4000:JKT$="JAQUETTE":GOSUB 500:GOTO 153200 IF K=69 THEN J=32:A=B:SIDE=(SIDE=0)}:GOSUB 360:GOSUB 340:GOSUB 300:POKE 764,173:GOTO 153300 IF K<>83 THEN 34003310 I=11:GOSUB 4400:F$(3)=":*.JKT":GOSUB 4100:GO }SUB 4300:TRAP 3000:OPEN #1,8,0,F$:? #1;"JACKET"3320 I=USR(CIO,16,11,ADR(A$),1300):I=USR(CIO,16,11,ADR(B$),1300):CLOSE #1:JKT!}$=F$(4):GOTO 30003400 IF K<>76 THEN 35003410 I=13:GOSUB 4400:GOSUB 4000:F$(3)=":*.JKT":GOSUB 4100:GOSUB 4300:TRAP 3000:OPEN"} #1,4,0,F$:? "";3420 INPUT #1;PBF$:IF PBF$<>"JACKET" THEN GOTO 30003430 GOSUB 500:I=USR(CIO,16,7,ADR(A$),1300):I=USR#}(CIO,16,7,ADR(B$),1300):JKT$=F$(4):E$=A$:GOTO 153500 IF K=80 THEN I=15:GOSUB 4400:GOTO 10003600 IF K<>70 THEN GOSUB 320:GOT$}O 30403610 I=17:GOSUB 4400:F$(3)=":*.FNT":GOSUB 41003620 GOSUB 4500:TRAP 3000:OPEN #1,4,0,F$:POKE 756,CHSET/256:I=USR(CIO,1%}6,7,CHSET,1024):CLOSE #1:GOTO 30004000 IF JKT$="RIEN" THEN RETURN 4010 POSITION 2,22:? "ҠŠΠӿ N";:GET&} #2,K:IF K<>79 THEN POP :GOTO 30004020 RETURN 4100 POSITION 2,21:? "νՠ٠":? "Š͠Šҭ'}";4110 INPUT #3;PBF$:IF PBF$="" THEN POP :GOTO 30004120 IF PBF$>"0" AND PBF$<":" THEN GOSUB 4200:GOTO 41004125 FOR I=1 TO(} LEN(PBF$):IF PBF$(I,I)=":" THEN F$=PBF$:POP :GOTO 41404130 NEXT I:F$="D1:":F$(4)=PBF$4140 RETURN 4200 POKE 82,0:? "}";:F$)}(1,3)="D1:":F$(2,2)=PBF$:? F$(1,3):TRAP 4230:CLOSE #1:OPEN #1,6,0,F$:TRAP 42204210 INPUT #1;F$:IF F$(10,16)<>"SECTORS" THEN *}? F$(3,10),:GOTO 42104220 ? :? F$:TRAP 40000:CLOSE #14230 POKE 82,2:? :RETURN 4300 F$(LEN(F$)+1)=".JKT":? F$;:RETURN 4400+} POSITION 5,I:? "":POKE 84,20:? "";:RETURN 4500 F$(LEN(F$)+1)=".FNT":? F$;:RETURN 5000 NCR$="hhhhhhhб,}  iΥi`":NCR=ADR(NCR$)5010 MV$="hhhhhhhϠˑ͈ ˑ͈ˑ`":MV=ADR(MV-}$)5020 CIO$="hhhhhBhEhDhIhHLV":CIO=ADR(CIO$)5030 R$="hhhhhΩТϩѱ%υψFϕܢ.}ґ̈e̩̅eͅй`":ROTCHAR=ADR(R$)5040 EOR=ADR(EOR$):IF TOPWIRE=1 THEN EOR$="hhhhhhhРEБ̈`":RETURN /}5050 EOR$="hhhhhhhРҤѱEФґ҈`":RETURN 9000 VNTP=PEEK(130)+PEEK(131)*2569001 VVTP=PEEK(134)+PEEK(135)0}*2569003 SWAP=19004 IF INT(ADR(A$)/2048)=INT((959+ADR(A$))/2048) THEN SWAP=659005 IF INT(ADR(B$)/2048)=INT((959+ADR(B$))/21}048) THEN SWAP=669006 IF SWAP=1 THEN 90399007 POKE 710,09010 X=1:OFFSET=0:A=0:B=09015 IF PEEK(X+VNTP-1)<128 THEN 90309012}6 OFFSET=OFFSET+19020 IF A=0 AND PEEK(X+VNTP)=69 AND PEEK(X+VNTP+1)=164 THEN A=OFFSET:X=X+19025 IF B=0 AND PEEK(X+VNTP)=SWA3}P AND PEEK(X+VNTP+1)=164 THEN B=OFFSET:X=X+19030 IF X<100 THEN X=X+1:GOTO 90159031 REM 9032 TEMPA=PEEK(VVTP+(A*8)+2):TEMPB4}=PEEK(VVTP+(A*8)+3)9033 POKE VVTP+(A*8)+2,PEEK((VVTP+(B*8)+2)):POKE VVTP+(A*8)+3,PEEK((VVTP+(B*8)+3))9034 POKE VVTP+(B*8)+25},TEMPA:POKE VVTP+(B*8)+3,TEMPB9039 RETURN 9050 POSITION 2,22:? "Π N";:GET #2,K:IF K<>79 THEN GOTO 30009060 6}GRAPHICS 0:POKE 731,0:POKE 710,148:END RN 9050 POSITION 2,22:? "Π N";:GET #2,K:IF K<>79 THEN GOTO 30009060 ( ou fontes sont selectifs (affichage auto des fichiers *.JKT ou *.FNT).- Le BIAS est automatiquement identique sur les deux 8}cotes de la cassette.- Il existe maintenant une sortie "propre".Enfin le programme est compatible avec TURBO BASIC et peut 9} etre compile; les gains de temps d'impression d'une etiquette sont importants:270 sec. en Basic ATARI135 sec. en TURBO Bas :}ic100 sec, en TURBO Basic compile.G.MAURICEd'une etiquette sont importants:270 sec. en Basic ATARI135 sec. en TURBO Bas/bdWYSIWYGFBASb gIMP1029 FNTbqLISEZMOITXTb`~WYSIWYGFCTBbYWYSIWYGFBAL