Magazine Pom's : la collection

192 VTAB 23: HTAB 54: GET BS: IF B$ .. "S" THEN
PRINT BS: GOTO 190: REM
Iretour début BLOC 1/
193 IF BS .. "A" THEN 120: REM
/tln BLOC 3/
194 IF BS .. "M" THEN PRINT : RETURN
195 PRINT SS:: GOTO 192: REM
.. * F I N ......
196 HOME :8$ .. "F l N D U P R O G R A M M
E": GaSUB 420: VTAB 14: HTAB
33: INVERSE : PRINT "0";: NORMAL PRINT
"lui ou Hl: INVERSE : PRINT
"N";: NORMAL : PRINT ")on :"
197 VTAB 14: HTAB 47: GET BS: IF' BS .. "0" OR
BS .. " 0 " THEY PRINT 8$;5$
: HOME : END
198 RETURN
199 REM
•• • C A O R E T A B L E A U .. .
200 VTAB 9, FOR A - 1 TD LL
201 HTAB C: FOR B - 1 TO CL
202 PRINT "----------"; : NEXT B, PRINT
203 HTAB C: FOR B - l TO CL
204 PRINT " , ": : NEXT B: PRINT
205 NEXT A
205 HTAB C, FOR B - 1 TO CL
207 PRINT "----------"; : NEXT "' PRINT
208 RETURN
259 REM
"""REMPLIR TABLEAU VALEURS· ....
260 FOR LI .. l TO LL
251 FOR CO-] TO CL
252 CaSUB 400
263 NEXT CO, LI: RETURN
269 REM
*** L l G N E D E R A P P E L ***
/écrlt la ligne/
"-"
": "
"-"
270 VTAB 1: PRINT CHR$ (27); CALL - 868:
INVERSE : PRINT "JHKUM",: PRINT
CHR$ (24);; NORMAL ; PRINT .. CTRL-X ESC";
RETURN
271 VTA8 1: PRINT CHR$ (27): CALL - 868:
INVERSE : PRINT "JHKUM";: PRINT
CHRS (24);: NORMAL : PRINT .. ESC": RETURN
272 VTAB 1: PRINT CHR$ (27); CALL - 868:
274 REM
INVERSE : PRINT "HUM";; PRINT
CHR$ (24);: NORMAL : PRINT .. ESC"; RETURN
/efface la ligne/
275 VTAB 2: HTAS 1: CALL
299 REM
·ECRIT / MODIF TABLEAU···
868: RETURN
300 HOME :B$ .. "M 0 D l F T A B L E A U":
GOSUB 420
301 VTAB 8: PRINT TARIFS": VTAB 10: PRINT
"ROUGE": VTAB 12: PRINT "B
LANC": VTAB 14: PRINT "BLEU": VTAB 16:
PRINT "BLEU NUIT"
Pom's n° 47
302
303
VTAB 8: HTAS 12: PRINT ":
B C 0
VTAB 20: PRINT "ZONES >
DISTANCE " BLANC"
LOCALE
A
: DISTANCE:"
LOCALE .. ROUGE /
304 VTAB 22: PRINT "ZONES > A .. ORANGE / B ..
JAUNE / C .. VERT FONCE /
D .. VERT CLAIR"
326 C .. 12:LL .. 4:CL .. 6: GOSUB 200: GOSUB 260:
GOSUB 270: VTAB 5: HTAS 24: PRINT "ENTREZ
LA VALEUR ";:E " 5:D .. 42:CO .. l:LI .. 1:
INVERSE :
GOSUB 400:B$ .. "":ZO .. 0
327 B .. 0: GOSUB 500
328 ON B GOSUB 340,340,340,340,340,330,360,370
329 GOTO 327
330 B$ .. BS + A$: IF LEN (BS) > 7 THEil' BS ..
"": PRINT S$
335 VTAB E: HTAB D: PRINT B$: RETURN
340 COSUB 400: ON B GOSUB 545,547,549,551,355
342 VTAB E: BTAB 0: CALL - 868: INVERSE :
COSUB 400: RETURN
355 IF BS < > .... TBEN T(LI,CO) .. VAL (B$) :ZO
.. 1: COSUB 400
356 CO .. CO + 1: IF CO .. CL + 1 THEil' CO .. l:LI
.. LI + 1: IF LI .. LL + 1 THEil'
LI .. 1
360 B$ .. .... : VTAn E: BTAB D: CALL - 868:
RETURN
369 REM
/sauvagarde des valeurs sur disk/
370 IF ZO .. 0 THEN 373
371 PRINT D$"OPENT": PRINT DS"WRITET"
372 PRINT T: FOR LI .. 1 Ta 4: FOR CO .. 1 TO 6:
PRINT T(LI,CO}: NEXT CO,
LI: PRINT DS"CLOSET"
373 POP : COSUB 275: RETURN
399 REM
.kAFFICHE CASES EN INVERSE···
/cdses tableau des valeurs/
400 vrAB (2 * LI) + 8: HTAB 4 + (CO * 10):L ..
401 REM
LEN ( STR$ (T(LI,CO)}): PRINT
SPC( 7 - L):T(LI,CO): NORMAL : RETURN
/CdSeS tableaux des choix/
402 VTAB (2 * LI) + 8: BTAB (CO * lOI + C - 8:
419 REM
PRINT ": NORMAL :RETURN
• .. ·ENTETE PROGRAMME···
420 BTAB 1: VTAB 1: PRINT "Taxe : ";T;" F":;
CALL - 868: HTAB 40 - ( UN(BS) / 2):
PRINT BS;: BTAS 63: PRINT "- Octobre 1987
-"
421 PRINT CHR$ (27): INVERSE ; FOR A .. 1 TO
429 REM
80: PRINT " ç " ,: NEXT : PRINT CHRS (24):
NORMAL : POKE 34,3: RETURN
430 BS .. "M a D l F T A X E
GOSUB 420: PRINT : HOME
: PRINT "
D E B A S E":
9