Magazine Pom's : la collection

J
,
7:510
7520
7530
7540
7600
7610
7620
8000
8010
8020
8030
8040
8050
8060
8070
8080
8090
8100
8110
8120
8130
8500
8510
9000
9500
'3510
9520
'3530
9540
'3550
9560
'3570
'9580
95'90
9600
'9610
'9620
9630
9640
'9660
IF IS • 0 OR 15 • IKAX THEM 8510
IF B • 1 THEM ce • "" . GOTa 7540
C. · RIGHTS (A8,8 - 2>
SOURCE. < ) " " THEM 8050
1 • 1 • 1: IF 1 ) LEM (AS) THEM 1230
GOTa 8020
J • l
IF 1'1108 CA8,J.l> . .. .. THEN 8090
J • J • 1: IF J ) LEN (AS> TH EN 80'90
GOTO 8060
a. · t'lIas (1,8,1. J - I): Re:TURN
RE" •••••••••• ANALYSE NOK DE FICHIER
DI • • NOS: IF LEM (S8 ) < 4 THEM RETURN
IF PlIOS :: llilVERSE : PRINT "P": :
NORKAL : PRIMT TAB< 22 );"VISUALISATIO
N"
Porn's n° 9
PRIMT : INVER!5E : PRINT "B" , : NORKAL :
PRIMT TAse 3);"FIN DE FICHIER" ;: PRIN
T TAB e 20) :: INVERSE : PRINT "W" :: NO
RMAL : PRINT TAS ( 22> ; " EXTRACTIOM"
PRINT : INVERSE : PRINT "J":: NORKAL
PRINT TAS( 3): "POSITIONNEKEMT" :: PRIM
T TAS ( 20) :: IMVERSE : PRINT ""G" ;: MO
RHAL : PRINT TAB( 22) ; " INTEGRATION"
PRINT : INVERSE : PRINT " 0"" ;: NORKAL :
PRINT TAB( 3); "SUPPRESSION" ;: PRINT
TAS< 20) ;: INVERSE : PRINT "F";: NORKA
L : PRINT TAB( 22) :""FIM D'EDITION""
PRINT : INVERSE : PRINT " 1"" ; : NORKAL :
PRINT TAB( 3); "INSERTION"" : : PRINT TA
B ( 20) ;: INVERSE : PRIMT "Q" :: NORHAL
: PRINT TAB( 22) : "ABANDON D'EDITION"
PRINT : INVERSE : PRINT "R":: NORKAL :
PRINT TAB( 3); "REMPLACEKENT"; : PRIMT
TABe 20) ;: F1.ASH : PRINT "1"; : NORKAL
: PRINT TAB( 22) ; "LISTE COHKANDES" :
PRINT : RETURN
PRINT : INVERSE : PRINT "M P" ;: NORKAL
: PRIMT TAS( 12) ;"PROGRESSION DE P 1.1
GNES DAMSM
PRINT TAB( 12) : "1.E FICHIER ; ""OU APPARUT
.. : GOTO 200
DANS" :
LIGNES":
CHAINE1.
PRINT : IMVERSE : PRINT "1";: NORHAL
PRIMT TAB( 4):"INSERTION DE UNE OU PL
USIEURS LIGNES"
PRINT TAB ( .. ) : "DERRIERE LA LIGNE COUR A
NTE.""
PRIMT : PRINT TAB< 4); "LA FIN DE L' INS
ERTION EST INDIQUEE"
PRIMT TAS e 4); "PAR UNE LIGNE ".": GOTO
200
PRIMT : IMVERSE : PRIMT "P N" ; : NORKAL
: PRIMT TABe 6>;"VISUALISATIOM DE M L
IGNES A PARTIR"
PRINT TAB( 6);"DE LA LIGNE COURAMTE
(PAR OEFAUT": PRINT TAS( 6> ;"M-1)."
PRINT : INVERSE : PRINT "p. N"; : NORHAL
: PRINT TABe 6);"1.ISTE OBTENUE SUR 1.
'IMPRIKANTE ,": GOTO 200
PRINT : INVERSE : PRIMT "A":: NORMAL :
PRINT TAB( 4): "REPETITION DE LA COKKA
NOE PRECEoEMTE .": GOTO 200
PRINT : INVERSE : PRINT "T" ;: NORHAL :
PRINT TAB< 4): "POSITIONNEKENT DEVAMT
LA PREHIEREH
PRINT TAB( 4); "LIGNE DU FICHIER,": COOT
o 200
PRINT : INVERS!; : PRINT "B" ;: NORKAL :
PRINT TAB( 4); "POSITIONNEH!;NT SUR LA
DERNIERE LIGNE"
PRINT TAB< 4>;"DU FICHIER.": GOTO 200
PRINT : INVERSE : PRIMT "F":: NORHAL
PRINT TABe 4):"FlM DE L'EDITIOM .": GO
TO 200
PRINT : INVERSE : PRIMT "J P" ;: NORI1A1.
: PRINT TAS( 6); "POSITIONMEKENT SUR U
ME LIGNE BASIC": PRIMT TAS( 6);"DESIG
N!;E PAR SON NUMERO (P) .": GOTO 200
PRINT : INVERSE : PRINT "W NF P" ;: MORK
AL : PRIMT TAB( 9>;"ECRITURE DE P LIG
NES A PARTIR": PRIMT TAB< 9>;"DE LA L
IGNE COURANTE DANS LE": PRINT TAB( 9
);"FICHIER OE NO" MF."
PRINT : IMVERSE : PRINT '·W. NF P" ; : NOR
HAL : PRINT TAB( 9): "ECRITURE JUSQU' A
LA LIGNE": PRIMT TAB( 9);"BASIC DE li'
UKERO P,": GOTO 200
PRINT : INVERSE : PRINT "G NF Pl P2" ::
NORtlAL : PRIMT TASe 13> ;"INSERTION DE
RRIERE LA LIGME": PRINT TAB( 13) : "COU
RAMTE DE LIGNES ISSUES"
PRINT TABe 13) : "OU FICHIER DE MOH MF ."
: PRINT : PRINT TABe 13) ;"Pl .. RAMG 0
ANS LE FICHIER": PRIMT TAS ( 13>; "CITE
DE LA pREI1IERE LIGME"
PRINT TAB( l3) ;"A INSERER e1