Publicité
Exemple de session n° 4
Liste de programme "de fantaisie"
Ce programme envoie une liste de programme BASIC à l'impri-
mante en format "de fantaisie". Il pagine la liste avec 56
lignes par page, imprime un titre, ainsi que l'heure et la
date, en haut de chaque page.
Les commandes multiples (séparées par deux points) sont im-
primées dans des lignes séparées et sont décale-as par rapport
à la première commande. Il est à noter que le fichier doit être
sauvegardé en format ASCII (SAVE"nom de- fichier",A).
1000
CLSs MAXFILES - 1
1010 CLEAR 2 0 0 0
1020
PG = 0
1030 Z - 66
1040 Dit =- DATE* : TM* = TIME*
1050
FILES
1060
PRIIMT : INPUT "Marne of Program : " ; N*
1070 OPEN N* FOR INPUT AS 1
Î0B0 PG = PG •* 1 : LPRINT "»*»** Listing of Program '";N*r'
!
*****
" ; ï)T* ; "
- "iTM*;* . . . .Page
1090
LPRINT
1100 LC = 2
1110 IN* = INPUT* (1,1):IF EOF<1) THEN Z - 132: GOTO 1230
1120 PR* = PR* + IN*
1130 IF IN*
•.-.':•
":" AND
IN* \• CHR*<10) THEN 1110
1140 IF IN* = CHR*(10) THEN PR* = LEFT*(PR»,LEN(PR*)- ; )
1160 LPRINT " ": LC = LC +1 : GOTO 11B0
1170 LPRINT "
11B0 LPRINT PR*
1190 PR* = ""
1200
LC = LC + 1
1210 IF LC =.-• 56 THEN 1230
1220 GOTO 1110
1230
FOR J = LC TO Z: LPRINT "": LC = LC +• 1: NEXT J
1240
IF Z = 132 THEN 1260
1250 GOTO
1080
1260
END
- 183 -
Publicité
