Create successful ePaper yourself
Turn your PDF publications into a flip-book with our unique Google optimized e-Paper software.
32<br />
Programme SUPER PRINT DEMO<br />
10 PRINT CHRS (4) "BRUN SUPER PRINT"<br />
20 HOHE<br />
30 PRINT • "S U P E R P R 1 N T"<br />
40 PRINT ,"PAR D. SUREAU" : PRINT<br />
50 AS = "PRINT ..<br />
60 FOR l • 1 TO 10: PRINT AS ;"ORDINAIRE<br />
.. .<br />
70 es ::: es ... "AMPER " ... AS<br />
80 NEXT : CS :: "SUPER ..<br />
gO PRINT : & PRINT es: PRINT<br />
100 FOR 1 ::: 1 TO 10<br />
110 & PRINT CS ;AS;<br />
120 NEXT : PRINT<br />
130 PRINT A$ ;" AVEC COMPOSITION DE TEXT<br />
E,CHlfFRE ,",12345;" ET VARIABLES<br />
";Ax,A<br />
140 6. PRINT AS ;" SUPER AVEC COl1POSITIO<br />
N DE TEXTE. CHIFFRE, " , 12345 :" ET V<br />
ARIABL.ES ";Ax,A<br />
1 +-I-I-f-I-I-I-'-I-I-I 52<br />
2 • 5 U P E R<br />
• •<br />
5 • 9 - 1983<br />
6 •<br />
•<br />
•<br />
•<br />
•<br />
Big<br />
Mac<br />
53 f FIN lIE ctVIIANDE SANS 'CR'<br />
54<br />
55 RETOJR RTS<br />
56<br />
SI YIR6llE lDA HlAB<br />
1. MEUR D. SUREIIJ • 58 CIl> HI8<br />
8 1-'-1-1-1-1-1-1-1-*-1 5' sec YIR6llE2<br />
, 60 JSR CROO<br />
10 *PROOAAw.E RELOCATABlE 61 YIRQW OOC HIO<br />
1: Hel 83 PQM' 5 , l' fI.ITEUR 62 RND Hf 0<br />
12 63 ST' Hl'B<br />
13 ORS '300 64<br />
1.<br />
lS Y1l.. TYP<br />
16 LARGEUR<br />
17 IfTAB<br />
18 FOCNJ<br />
19 OlRGET<br />
20 OlROOT<br />
,<br />
,<br />
,<br />
,<br />
,<br />
,<br />
SOOIl<br />
.0021<br />
s0024<br />
SOOM<br />
SOOBI<br />
.0087<br />
65 DEBUT JS' CHRŒT<br />
66<br />
67 f IDENTIFICATI DU SEPARATEUR<br />
6B<br />
69 SEPARTR JS' CHR60T<br />
10 BEg RETOJ' ;0 llJ :<br />
11 sec LECTVOR ;DIGIT<br />
21 M'ERVCT ::<br />
22 CROO ,<br />
23 STRWT ,<br />
24 MOO ,<br />
25 FRI'E't ,<br />
26 I&.ETC ,<br />
27 FImJT ,<br />
28 OlJT ,<br />
SOJF5<br />
.IlOFB<br />
'OB3A<br />
.DBSC<br />
$0018<br />
SE01D<br />
<br />
n<br />
13<br />
1.<br />
15<br />
16<br />
11<br />
78<br />
1') YERSD€B<br />
JSlI I!liTC<br />
BCS LECTVOR<br />
CIl> H22<br />
BE' LECTVOR<br />
,<br />
CIl> . '<br />
BE' YlmE<br />
CIl> t' .'<br />
BE' idrr<br />
;CAR lUI4I<br />
:GUILL.<br />
;SIf«lN " "-<br />
29<br />
30 LINMIR<br />
31 VAR<br />
,<br />
,<br />
SOOIB<br />
SOOI' ;' flA<br />
80 JSR CHRŒT<br />
BI<br />
82 f FIN DE aJMIIIAHDE AVEC 'CR'<br />
32 DEBlIIJI • 33 FIN..IGN<br />
34 FlJl6<br />
,<br />
,<br />
SOOIB<br />
SOOIO<br />
SOOIF<br />
83<br />
.. YERSSEP JSR<br />
85 81€<br />
CHR60T<br />
_RTT<<br />
35 86 JMP CRDO<br />
36 RaVECT JSR lfF58 81<br />
31<br />
38<br />
TSI<br />
DEI<br />
SB f u:m_ISATI DE LA VARIAlIlE<br />
B9<br />
l'l lDA '100, X 90 lECTVAfi lDA JO<br />
40 ClC '1 STA .52 ;INIT<br />
01 AOC tTEST-RElVECT-2 92 JSlI F",",,-<br />
'2 ST' IWlERVCT+l 93 BIT ,,"-TYP<br />
43 lDA '101, X " 81€ PRSTRlt-Il<br />
44<br />
4S<br />
46<br />
.1<br />
0I1C ....<br />
ST' IWlERlJCT+2<br />
LOO me ;JIP<br />
ST' _RYeT<br />
9S<br />
96 , TRAITaENT D' /OI8RE<br />
92<br />
,. JSR FImlT<br />
46 'TS " PIfl<br />
" 100 CDI JO<br />
50 TEST CIl' HBA :PRINT? 101 IUIBCL INI<br />
51 BEg DEBUT 102 lDA '100, X<br />
3 • P R l N T •<br />
. , DAN le> M E.nu.'i<br />
PlNI"'(USlno-J .0\ Elli ! '<br />
Tv ./0'"" Q",'r"1. F,.. 9'lf'CIIIt<br />
VoAoi"'A ..<br />
103 81€<br />
104 TIA<br />
lOS ru:<br />
106 AOC<br />
107 CIl><br />
108 sec<br />
10'l JSR<br />
110 StOP PlJl<br />
III JSR<br />
112 ru:<br />
ll3 sec<br />
Il.<br />
tOœCL<br />
HTAB<br />
lJlRŒlJ!<br />
SKIP<br />
CROO<br />
STR!lJT<br />
SEPARTR<br />
'.<br />
,-<br />
11S f lECTURE D€SCRIPTEUR DE DflHE<br />
1I6<br />
117 PRSTRING LOY '2<br />
118 BCL lDA (FIVIJI , Y<br />
Il' ST' llHlYAR, Y<br />
120 DEY<br />
121<br />
122<br />
JIPl JICL<br />
123 f DEfl..ISN PREND LA YlUUR 0<br />
124 f PUIS LA POSITI DU PREMIER<br />
12S f CAROCTERE DE Dm.{ LISlE<br />
12ft f SUIWWTE<br />
121<br />
128 PRRTH INY<br />
129 SCIW<br />
130<br />
STY IlEIl.I ....<br />
131 f lARŒUR-HTAB+ŒB... .IGN DCJH LA<br />
132 f POSITI DU DERNIER CARIl:TERE<br />
133 f DE LA LIStE SUR LA CHAINE<br />
134<br />
135 &lW1 lDA LAAGEIJl!<br />
ClC<br />
131 AOC IlEIl.I ....<br />
138 SEC<br />
13' soc HlAB<br />
1'0 T'Y<br />
lOI STY FIN...IGN<br />
142 CPY UH:YAA<br />
143<br />
144<br />
BCS PRlIGN<br />
145 f RECHERCIE DU PREMIER BlANC<br />
10Ui f PREŒIXWT LE IIlT ro..PE ET<br />
147 f SOOT EN PRlIGN<br />
148<br />
149 !:\. LOO (VARI , Y<br />
ISO CIl> 1$20<br />
151 BE' PRlIGN<br />
152 DEY<br />
153 COY IlEIl.ISN<br />
136<br />
Porn's n" 9<br />
•<br />
•