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