10 '  ***************************
20 '  **                       **
30 '  **     NANNI   SERGE     **
40 '  **                       **
50 '  **       presente        **
60 '  **                       **
70 '  **    A M S M O T S      **
80 '  **                       **
90 '  **    Le  13/01/1986     **
100 ' **                       **
110 ' ***************************
120 '
130 MODE 1:PAPER 0:PEN 1:INK 1,26:INK 0,0
140 BORDER 15
150 PRINT:PRINT:PRINT spc(14);"NANNI  Serge"
160 PRINT:PRINT:PRINT spc(16);  "PRESENTE"
170 RESTORE 210:FOR I=1 TO 34:READ A:LOCATE I+3,9:PRINT CHR$(A):NEXT
180 RESTORE 230:FOR I=1 TO 34:READ A:LOCATE I+3,10:PRINT CHR$(A):NEXT
190 RESTORE 240:FOR I=1 TO 34:READ A:LOCATE I+3,11:PRINT CHR$(A):NEXT
200 RESTORE 250:FOR I=1 TO 34:READ A:LOCATE I+3,12:PRINT CHR$(A):NEXT
210 RESTORE 260:FOR I=1 TO 34:READ A:LOCATE I+3,13:PRINT CHR$(A):NEXT
220 DATA 207,207,207,207,32,207,223,222,207,32,207,207,207,207,32,207,223,222,207,32,207,207,207,207,32,207,207,207,207,32,207,207,207,207
230 DATA 207,32,32,207,32,207,207,207,207,32,207,32,32,32,32,207,207,207,207,32,207,32,32,207,32,32,217,219,32,32,207,32,32,32
240 DATA 207,207,207,207,32,207,221,220,207,32,207,207,207,207,32,207,221,220,207,32,207,32,32,207,32,32,217,219,32,32,207,207,207,207
250 DATA 207,32,32,207,32,207,32,32,207,32,32,32,32,207,32,207,32,32,207,32,207,32,32,207,32,32,217,219,32,32,32,32,32,207
260 DATA 207,32,32,207,32,207,32,32,207,32,207,207,207,207,32,207,32,32,207,32,207,207,207,207,32,32,217,219,32,32,207,207,207,207
270 FOR I=1 TO 15
280 ORIGIN 48+S,176-D:DRAW 544-(S*2),0
290 S=S+20:D=D+5
300 NEXT
310 PRINT:PRINT:PRINT:PRINT:PRINT
320 PRINT"      C O P Y R I G H T    1 9 8 6"
330 IF sr=1 THEN PEN 2:INK 2,26,10:LOCATE 17,22:PRINT "LOADING":PEN 1:PAPER 0:RUN"!amsmot1"
340 FOR I=1 TO 4000:NEXT
350 MODE 2
360 LOCATE 30,2:PRINT"I N S T R U C T I O N S"
370 PRINT:PRINT:PRINT
380 PRINT"           AMSMOTS est un logiciel de traitement de text permettant"
390 PRINT"       d'ecrire des documents ou des programmes executables. Il a ete"
400 PRINT"     realise en basic et il comporte une partie en langage machine."
410 PRINT"     Une fois ecris, les documents peuvent etres sauvegardes"
420 PRINT"     sur cassette ou imprimes. Vous pouvez aussi modifier un document"
430 PRINT"     deja existant sur cassette, pour cela il doit etre sauvegarde en"
440 PRINT"     ASCII."
450 PRINT"          Vous pouvez creer avec logiciel un document de 16000"
460 PRINT"     octets, soit 8 pages ecrans.Ce document peut etres compose de"
470 PRINT"     199 lignes de 79 caracteres"
480 PRINT"        Avec AMSMOTS vous avez l'equivalent d'un ecran pleine page"
490 PRINT"     ayant les dimensions citees plus haut. En effet vous pouvez vous"
500 PRINT"     deplacer sur tout l'ecran avec les touches flechees et modifier"
510 PRINT"     ce qui a deja ete saisi.Les touches CLR et DEL gardent les memes"
520 PRINT"     caracteristiques. "
530 PRINT"     Vous pouyez changer de page a tout moment et modifier sur toutes"
540 PRINT"     les pages a L'ecran."
550 PRINT:PRINT:PRINT spc(30);"Appuyez sur une touche"
560 z$=INKEY$:IF z$="" THEN 560
570 MODE 2:LOCATE 28,2:PRINT"I N S T R U C T I O N S"
580 PRINT:PRINT:PRINT
590 PRINT"      Pour modifier le document vous disposez de plusieurs options :"
600 PRINT"     - pour effacer un caractere les touches CLR et DEL ont le meme"
610 PRINT"       effet qu'a la normale.
620 PRINT"     - pour inserer une ligne il suffit de taper CTRL+I.La ligne"
630 PRINT"      sera inseree entre celle ou se trouve le curseur et la precedente."
640 PRINT"     - pour effacer une ligne taper CTRL+E. la ligne effacee est celle"
650 PRINT"      ou se trouve Ie curseur."
660 PRINT"     - CTRL+B permet de se mettre en Mode insertion, c'est a dire que"
670 PRINT"      si vous tapez un caractere, celui sur leque1 vous vous trouvez"
680 PRINT"      ne sera pas efface mais decale sur la droite ainsi que le reste de"
690 PRINT"      la phrase. Pour sortir du mode insertion, taper CTRL+B."
700 PRINT"     - pour avoir la page suivante taper CTRL+S ou CTRL+R pour"
710 PRINT"      avoir la page precedente."
720 PRINT"     - CTRL+A permet de savoir la position du curseur :ligne(1-199),"
730 PRINT"      colonne(1-79) et si vous etes en mode insertion."
740 PRINT"     - CRTL+C permet d'afficher toutes Les options disponibles."
750 PRINT:PRINT:PRINT spc(30);"Appuyez sur une touche"
760 z$=INKEY$: IF z$="" THEN 760
770 MODE 2:LOCATE 28,2:PRINT"I N S T R U C T I O N S"
780 PRINT:PRINT:PRINT
790 PRINT"     La touche COPY donne acces aux options : sauvegarde,chargement et"
800 PRINT"      impression. II faut taper respectivement S ou C ou L."
810 PRINT"     Q permet de sortir du logiciel."
820 PRINT"     La sauvergarde est effectuee sous la forme d'un fichier ASCII"
830 PRINT"      directement executable si il s'agit d'un programme."
840 PRINT"     Le chargement ne peut avoir lieu que si il s'agit d'un fichier"
850 PRINT"      ASCII et il est important que chaque ligne ne depasse pas 80"
860 PRINT"      caracteres, sinon les caracteres de la fin de la ligne ne serait pas"
870 PRINT"      prise en compte."
880 PRINT"     L'impression du document est conforme ce qui apparait a l'ecran"
890 PRINT"      et il est possible d'avoir une pause entre chaque page dont la "
900 PRINT"      grandeur doit etre precisee. "
910 PRINT:PRINT:PRINT spc(30);"Appuyez sur une touche"
920 z$=INKEY$: IF z$="" THEN 920
930 MODE 2:LOCATE 28,2:PRINT"I N S T R U C T I O N S":PRINT:PRINT:PRINT
940 PRINT"     Remarques importantes :"
950 PRINT"     Au debut du programme, il vous sera demande si vous voulez"
960 PRINT"      disposer des lettres accentuees, sur le pave numerique."
970 PRINT"     Si vous essayez avec les touches flechees d'aller plus bas que"
980 PRINT"      l' ecran ou plus haut,vous aurez respectivement la ligne de la"
990 PRINT"      page suivante ou precedente."
1000 PRINT"     Pour qu'une ligne soit imprimee ou sauvegardee, elle doit etre"
1010 PRINT"      obligatoirement VALIDEE par ENTER. Des qu'une ligne est validee"
1020 PRINT"      le signe < apparait au bout de la ligne. Sur la 25 eme ligne le"
1030 PRINT"      signe n'apparaitra pas (pour des raisons d'affichage) mais si vous"
1040 PRINT"      avez appuyez sur ENTER, elle sera validee."
1050 PRINT:PRINT:PRINT spc(30);"Appuyez sur une touche"
1060 z$=INKEY$:IF z$="" THEN 1060
3000 MODE 2
3010 ' **** CLAVIER ****
3020 PRINT:PRINT"      Si vous voulez avoir les lettres avec accents elles seront"
3030 PRINT"       disposees sur le pave nurnerique de facon suivante."
3040 PRINT:PRINT
3050 PRINT"       **   Les chiffres correspondent aux touches du pave numerique  **"
3060 PRINT:PRINT
3070 PRINT"          7 ---> e accens aigu"
3080 PRINT"          4 ---> c cedille"
3090 PRINT"          1 ---> a accent grave"
3100 PRINT"          0 ---> e accent grave"
3110 PRINT"          8 ---> o accent circonflexe"
3120 PRINT"          5 ---> u accent  ''    ''"
3130 PRINT"          2 ---> a accent  ''    ''"
3140 PRINT"          . ---> i accent  ''    ''"
3150 PRINT"          9 ---> u accent grave"
3160 PRINT"          6 ---> e accent circonflexe"
3170 PRINT"          3 ---> signe de paragraphe"
5000 PRINT:PRINT:PRINT:PRINT"Voulez vous revoir les explications (O/N) ?"
5010 z$=INKEY$: IF z$="" THEN 5010 ELSE IF INSTR("ONon",z$)=0 THEN 5010
5020 IF z$="O" or z$="o" THEN 350
5030 sr=1:GOTO 10
5040 END
