1 !
3 ! SIR LANCELOT
5 !
7 ! COULEY LAURENT
9 ! HEBDOGICIEL 89&90
11 !
13 !
15 CALL C
17 RESTORE 233
19 ON ERROR 451
21 DIM MO(2),MX(2),MY(2),DX(2),DY(2),OX(5),OY(5),OB$(5)
23 !
25 CALL CHAR(69,"000143A5B7BFBFB7B3B1")
27 CALL CHAR(70,"8080C2A5EDFDFDEDCD8D")
29 CALL CHAR(71,"47070F0F1F1F3F7FEEDD")
31 CALL CHAR(72,"C2E0F0F8F8FCFCB6DBDB")
33 CALL CARAG
35 EX$="0398A4AD0165B50D20A7F206E439D180BC263AA0803C2704906BB90418107B39071810"
37 EX$=EX$&"5B190162AB24406C190888B91C0004106B8500624E23409C190888AD1C013197FF"
39 CALL CHAR(111,"20402010090F3F7FEFEF")
41 CALL CHAR(112,"0102040890F0FCFEE7E7")
43 CALL CHAR(113,"7F3F0F11113130484482")
45 CALL CHAR(114,"FEFCF088888C0C122241")
47 CALL CHAR(1,"55AA7DBE7DBE7DBE7DBE")
49 CALL CHAR(2,"000000000000FFFF0000")
51 CALL PRESENTATION
53 !
55 CLS "YBB"
57 PIECE,OB=1
59 LOCATE (18,1):CALL COLOR("0Wb"):PRINT "OBJET COLLECTE :"
61 CALL COLOR("0WR"):LOCATE (21,1):PRINT "SCORE :"
63 CALL COLOR("0WM"):LOCATE (5,34):PRINT "TABLEAU"
65 CALL COLOR("0WG"):LOCATE (21,20):PRINT "TEMPS :"
66 CALL COLOR("0bW"):LOCATE (22,6):PRINT "[ESC]=RETOUR AU MENU PRINCIPAL"
67 CALL COLOR("1WB")
69 FOR I=50688 TO 51200:CALL POKE(I,0):NEXT
71 FOR I=1 TO 16:LOCATE (I,1):PRINT RPT$(" ",32):NEXT
73 ON PIECE GOSUB 233,255,269,283,297,313,325,341,353,367,409,425
75 CALL COLOR("1MH"):LOCATE (7,36):PRINT "PIECE"
77 CALL COLOR("1WH"):LOCATE (8,36):PRINT "PIECE"
79 CALL CA1:TEMP=100
81 CALL COLOR("1WB")
83 IF RND<.5 THEN A$="FF81818181FF10101010" ELSE A$="55AA7DBE7DBE7DBE7DBE"
85 CALL CHAR(1,A$)
87 !
89 CALL KEY1(A,B):CX,CY=0
91 GOSUB 209
93 !
95 IF B=0 AND TE=1 THEN A=TA:B=TB
97 IF B=0 THEN 159 ELSE IF B=-1 THEN B=2
98 ! A
99 IF A=131 AND X<>1 THEN 111
101 IF A=129 AND X<31 THEN 123
103 IF A=130 AND Y<>15 THEN 133
105 IF A=128 AND Y<>1 THEN 139
107 IF A=32 AND Y>2 THEN 145
109 GOTO 159
111 FOR I=1 TO B
113 CALL L(X-1-I,Y-1,V1):CALL L(X-1-I,Y,V2)
115 IF V1<>1 AND V2<>1 THEN CX=CX-1 ELSE I=3
117 CALL L(X-2,Y-1,V1):CALL L(X-2,Y,V2):IF V1<>1 AND V2=1 THEN CX=-1:CY=-1
119 NEXT
121 CALL CARAG:GOTO 155
123 FOR I=1 TO B:IF X+I>31 THEN 129
125 CALL L(X+I,Y-1,V1):CALL L(X+I,Y,V2):IF V1<>1 AND V2<>1 THEN CX=CX+1 ELSE I=3
127 CALL L(X+1,Y-1,V1):CALL L(X+1,Y,V2):IF V1<>1 AND V2=1 THEN CX=1:CY=-1
129 NEXT
131 CALL CARAD:GOTO 155
133 FOR I=1 TO B:CALL L(X-1,Y+I,V1):CALL L(X,Y+I,V2)
135 IF V1=2 AND V2=2 THEN CY=CY+1 ELSE I=5
137 NEXT:CALL CARAM:GOTO 155
139 FOR I=1 TO B:CALL L(X-1,Y-I,V1):CALL L(X,Y-I,V2)
141 IF V1=2 AND V2=2 THEN CY=CY-1 ELSE I=5
143 NEXT:CALL CARAM:GOTO 155
145 FOR I=-2 TO -4 STEP -1
147 CALL L(X,Y+I,V1):CALL L(X,Y+1,V2)
149 CALL L(X-1,Y+I,V3):CALL L(X-1,Y+1,V4)
151 IF V1=0 AND V2<>0 AND V3=0 AND V4<>0 THEN CY=CY-1 ELSE I=-5
153 NEXT:CALL CARAM
155 LOCATE (Y,X):PRINT P1$:LOCATE (Y+1,X):PRINT P2$:X=X+CX:Y=Y+CY
157 CALL SPEECH("L,0D7C8BAAB602FC")
159 CALL L(X-1,Y+1,V1):CALL L(X,Y+1,V2):IF V1<>0 OR V2<>0 OR CY<>0 THEN 167
161 GOSUB 209:LOCATE (Y,X):PRINT P1$:Y=Y+1
163 CALL L(X-1,Y+1,V1):CALL L(X,Y+1,V2)
165 IF V1=0 AND V2=0 THEN LOCATE (Y,X):PRINT P2$:Y=Y+1
167 LOCATE (Y,X):PRINT "AB":LOCATE (Y+1,X):PRINT "CD"
169 !
171 FOR I=0 TO 5
173 IF OY(I)<>Y AND OY(I)<>Y+1 THEN 183
175 IF OX(I)<>X AND OX(I)<>X+1 THEN 183
177 LOCATE (19+OBY,OB):PRINT OB$(I):OX(I)=OB:OY(I)=19+OBY:OB=OB+1
179 SC=SC+ASC(OB$(I)):IF OB=41 THEN OB=1:OBY=1
181 CALL CA1:GOTO 185
183 LOCATE (OY(I),OX(I)):PRINT OB$(I)
185 NEXT
187 IF X=1 AND Y=1 THEN PIECE=PIECE+1:GOTO 219
189 CALL TEMP(TEMP)
191 CALL SCORE(SC)
193 !
195 FOR I=0 TO 2
197 GOSUB 473
199 ON MO(I)GOSUB 385,389
201 GOSUB 485
203 NEXT
205 IF CX=0 AND CY=0 THEN TE=0 ELSE TE=1:TA=A:TB=B
207 GOTO 89
209 CALL L(X-1,Y-1,V1):CALL L(X,Y-1,V2):P1$=CHR$(V1)&CHR$(V2)
211 CALL L(X-1,Y,V1):CALL L(X,Y,V2):P2$=CHR$(V1)&CHR$(V2):RETURN
213 CALL L(MX(I)-1,MY(I)-1,V1):CALL L(MX(I),MY(I)-1,V2):P1$=CHR$(V1)&CHR$(V2)
215 CALL L(MX(I)-1,MY(I),V1):CALL L(MX(I),MY(I),V2):P2$=CHR$(V1)&CHR$(V2)
217 RETURN
219 A=SGN(TEMP)
221 FOR I=0 TO TEMP STEP A
223 SC=SC+10:CALL SCORE(SC)
225 CALL SPEECH("L,0D77BE"):NEXT:GOTO 69
227 !
229 !
231 !
233 DATA 1,3,30,19,7,12,20,6,5,7,7,6,6,8,8,24,10,7,24,13,7,17,13,5
235 DATA 1,15,14,1,13,2,1,14,3,8,13,4,7,14,6,3,10,3,5,9,2
237 DATA 13,9,2,17,9,2,18,8,2,14,10,4
239 DATA 30,3,11,24,10,6,24,3,5
241 DATA 1,10,3,9,3,4,25,3,13
243 E=3:H=19:V=3
245 GOSUB 505
247 DATA 1,1,1,2,0,1,17,14,2,0,1,1,4,0,2
249 DATA 22,15,f,29,6,b,13,14,c,29,12,d,30,1,e,23,5,a
251 X=30:Y=14:RETURN
253 !
255 DATA 1,3,2,5,5,13,5,10,10,25,4,6,26,10,7,22,11,5,15,13,2,1,13,2
257 DATA 6,1,27,5,1,13,15,14,2,22,12,4,23,12,4,18,4,4,19,4,4
259 DATA 8,5,5,31,4,6,24,10,6,3,1,15
261 H=9:V=6:E=4:GOSUB 505:X=31:Y=14
263 DATA 1,5,14,1,-1,1,18,14,1,0,1,19,2,1,1
265 DATA 20,5,a,9,11,b,17,15,c,22,10,d,25,3,e,1,12,f
267 RETURN
269 DATA 3,3,14,1,6,19,9,9,4,7,11,2,3,13,4,20,9,13,29,3,4,29,6,4
271 DATA 18,12,5,19,1,5,17,7,6,17,3,3,1,3,3,11,6,3,7,9,2,5,11,2
273 DATA 1,13,3,18,9,3,22,12,4,27,3,13
275 H=9:V=2:E=9:GOSUB 505:X=29:Y=14
277 DATA 1,24,14,2,0,1,28,1,-1,1,2,7,1,2,0
279 DATA 20,8,a,29,2,b,28,10,c,15,15,d,7,10,e,6,5,f
281 RETURN
283 DATA 1,3,2,1,4,4,1,5,8,11,3,19,32,3,1,54,6,9,30,9,3,28,12,2
285 DATA 16,8,5,9,8,2,5,14,4,3,15,9,7,11,2,11,11,2,17,15,7,18,14,6
287 DATA 19,13,5,20,12,4,21,11,3,11,3,3,23,7,5,9,3,5,17,3,5,30,6,3
289 H=19:V=2:E=3:GOSUB 505:X=1:Y=14
291 DATA 1,29,10,2,2,2,1,1,2,0,2,11,1,2,0
293 DATA 9,7,a,28,15,b,20,7,c,26,5,d,22,10,e,32,1,f
295 RETURN
297 DATA 1,3,4,4,4,11,3,7,6,6,10,8,3,13,11,17,3,11,30,3,3,19,8,4
299 DATA 17,11,14
301 DATA 19,4,4,30,7,4,23,8,8,14,1,13,3,7,4,8,7,3
303 DATA 7,4,3,11,10,3,1,13,3,20,3,5,20,11,5,24,8,8,28,7,4
305 H=9:V=6:E=7:GOSUB 505:X=15:Y=1
307 DATA 2,1,1,2,0,2,26,1,-2,0,1,5,14,5,0
309 DATA 7,9,a,3,6,b,9,9,c,27,10,d,23,7,e,28,15,f
311 RETURN
313 DATA 1,3,21,24,3,9,1,6,32,1,9,32,1,12,21,26,12,5,25,13,2,24,14,3
315 DATA 23,15,4,31,15,2,15,4,2,4,3,3,8,6,3,28,6,3,16,9,3,6,12,4
317 H=10:V=1:E=5:GOSUB 505:X,Y=14
319 DATA 2,10,1,-2,0,2,10,7,2,0,2,14,10,5,0
321 DATA 27,15,a,32,2,b,5,5,c,15,8,d,15,11,e,25,8,f
323 RETURN
325 DATA 3,3,3,9,13,15,26,12,7,27,9,6,28,3,5,28,6,5,9,3,6,12,4,3
327 DATA 13,5,2,22,4,4,21,5,2,20,6,2,18,9,2,9,12,3
329 DATA 1,3,13,2,3,7,2,12,4,6,8,6,6,3,3,15,3,7,29,4,3,26,13,3
331 DATA 30,12,4,30,3,6,26,9,3,16,3,10
333 H=14:V=8:E=4:GOSUB 505:X,Y=14
335 DATA 2,30,1,-2,0,2,28,10,-2,0,1,19,10,2,-2
337 DATA 28,5,a,27,15,b,2,11,c,18,8,d,32,5,e,12,12,f
339 RETURN
341 DATA 1,3,3,1,13,32,8,10,25,14,9,19,9,3,20,10,6,8,8,7,4,31,8,2
343 DATA 3,4,2,3,8,3,22,4,3,28,4,3,4,1,15,31,1,7,29,8,5,18,4,5,18,13,3
345 H=8:V=4:E=5:GOSUB 505:X=5:Y=11
347 DATA 1,4,1,0,2,1,12,7,2,0,1,1,11,2,0
349 DATA 1,9,a,12,7,b,15,2,c,31,5,d,22,8,e,8,6,f
351 RETURN
353 DATA 2,6,5,9,3,8,9,6,20,31,6,2,9,9,24,12,8,2,12,7,2,7,12,26
355 DATA 1,3,13,9,4,2,8,13,3,17,13,3,1,3,3,11,3,3,7,9,3,15,6,6,27,9,3
357 DATA 23,12,4,19,12,4,11,12,4,5,12,4
359 H=8:V=4:E=9:GOSUB 505:X,Y=14
361 DATA 2,11,1,-2,0,2,9,10,-2,0,2,31,4,-2,0
363 DATA 2,15,a,22,15,b,11,8,c,10,5,d,20,5,e,18,8,f
365 RETURN
367 DATA 1,3,13,3,7,2,3,8,6,3,9,8,13,4,1,3,10,6,3,13,4,13,16,11
369 DATA 16,12,1,25,12,2,26,11,6,19,7,12,19,3,12
371 DATA 16,1,9,13,7,9,6,11,2,14,3,13,11,7,9,21,13,3
373 DATA 31,3,13
375 H=13:V=3:E=4:GOSUB 505:X,Y=14
377 DATA 1,1,5,2,0,1,14,9,0,2,2,31,1,0,2
379 DATA 5,12,a,23,12,b,26,6,c,5,7,d,14,12,e,10,15,f
381 RETURN
383 !
385 M1$="EF":M2$="GH":GOSUB 461:RETURN
387 !
389 MY(I)=MY(I)+1:GOSUB 213
391 IF P2$=CHR$(1)&CHR$(1)THEN MY(I)=MY(I)-1 ELSE 395
393 GOSUB 461
395 M1$="op":M2$="qr":IF MY(I)=14 AND RND<.4 THEN 399
397 RETURN
399 MY(I)=1;CALL SPEECH("L,"&EX$)
401 LOCATE (14,MX(I)):PRINT CHR$(12);CHR$(12)
403 LOCATE (15,MX(I)):PRINT CHR$(12);CHR$(12):PAUSE .05
405 LOCATE (14,MX(I)):PRINT " ":LOCATE (15,MX(I)):PRINT " ":RETURN
407 !
409 DATA 1,3,14,17,3,6,25,3,6,10,7,11,277,,4,1,6,4,1,9,4
411 DATA 1,13,4,8,11,7,10,6,5,23,7,2,23,8,2,27,8,1,20,8,1
413 DATA 22,4,1,25,4,1,17,11,2,18,12,2,18,13,3,18,14,4
415 DATA 11,15,12,25,15,4,25,14,4,27,13,4
417 DATA 7,3,4,7,9,7,5,3,13,31,7,9
419 H=24:E,V=2:GOSUB 505:X=15:Y=13:RETURN
421 DATA 2,21,1,2,0,2,9,9,2,0,2,23,5,2,0
423 DATA 24,15,f,30,1,b,29,15,c,2,12,d,29,6,e,23,3,a
425 CLS "BCC":CALL COLOR("0RC"):IF OBY=1 AND OB=27 THEN 441
427 PRINT "VOUS ETES BIEN ARRIVE A TRAVERSER TOUTES LES PIECES DU CHATEAU"
429 PRINT "MAIS HELAS VOUS AVEZ OUBLIER DES OBJETS."
431 PRINT
433 PRINT
435 PRINT TAB(20);"ADIEU....!!!!"
437 A$=KEY$
439 GOSUB 501
441 PRINT "BRAVO,VOUS AVEZ RETROUVE VOTRE FIANCEE,MAIS JE NE DECRIRAI PAS LA"
443 PRINT "SCENE..."
445 A$=KEY$
447 GOSUB 501
449 !
451 CALL ERR(A,B,C,E)
453 IF A<>29 THEN PRINT "ERREUR ";A;" LIGNE ";E:END
455 IF X=0 THEN X=1:GOTO 459
457 IF MX(I)=0 THEN D(I)=-D(I):MX(I)=1
459 ON ERROR 451:RETURN
461 GOSUB 471
463 IF MX(I)<=0 OR MX(I)>=32 OR MY(I)<=0 THEN 469
465 IF POS(P1$,CHR$(1),1)<>0 OR POS(P2$,CHR$(1),1)<>0 THEN 469
467 RETURN
469 DX(I)=-DX(I):DY(I)=-DY(I):GOTO 461
471 MX(I)=MX(I)+DX(I):MY(I)=MY(I)+DY(I):GOSUB 213:RETURN
473 GOSUB 213:LOCATE (MY(I),MX(I)):PRINT P1$
475 LOCATE (MY(I)+1,MX(I)):PRINT P2$
477 IF INT(D(I))=D(I)THEN 481
479 MY(I)=MY(I)+INT(ABS(D(I)))*SGN(D(I)):RETURN
481 MX(I)=MX(I)+D(I)
483 RETURN
485 LOCATE (MY(I),MX(I)):PRINT M1$:LOCATE (MY(I)+1,MX(I)):PRINT M2$
487 IF MY(I)<>Y AND MY(I)<>Y+1 AND MY(I)+1<>Y THEN RETURN
489 IF MX(I)<>X AND MX(I)<>X+1 AND MX(I)+1<>X THEN RETURN
491 CALL COLOR("1WBF"):LOCATE (Y,X):PRINT CHR$(65);CHR$(66)
493 LOCATE (Y+1,X):PRINT CHR$(67);CHR$(68)
495 CALL CHAR(65,"030303030303FFFFFFFF"):CALL CHAR(67,"03030303030303030303")
497 CALL CHAR(66,"C0C0C0C0C0C0FFFFFFFF"):CALL CHAR(68,"C0C0C0C0C0C0C0C0C0C0")
499 CALL COLOR("0"):LOCATE (Y,X+2):PRINT "THE END":CALL CA1:A$=KEY$
500 CLS:PRINT "VOULEZ-VOUS REJOUER?"
501 PRINT "SI NON [N] RETOUR AU MENU PRINCIPAL":ACCEPT VALIDATE("ON")SIZE(1),A$
503 IF A$="N" THEN END ELSE RUN
505 FOR I=1 TO H:READ X,Y,M:CALL HTRACE(X,Y,M):NEXT
507 FOR I=1 TO V:READ X,Y,M:CALL VTRACE(X,Y,M):NEXT
509 FOR I=1 TO 16:LOCATE (I,33):PRINT CHR$(1):NEXT
511 LOCATE (16,1):PRINT RPT$(CHR$(1),32)
513 FOR I=0 TO 31:CALL S(I,15,1):NEXT
515 FOR I=1 TO E:READ X,Y,M:CALL ESCALIER(X,Y,M):NEXT
517 FOR I=0 TO 2:READ MO(I),MX(I),MY(I),DX(I),DY(I):NEXT
519 FOR I=0 TO 5:READ OX(I),OY(I),OB$(I):NEXT
521 RETURN
523 !
525 !
527 !
529 !
531 !
533 !
535 !
537 SUB HTRACE(X,Y,M)
539 CALL COLOR("1CR")
541 LOCATE (Y,X):PRINT RPT$(CHR$(1),M)
543 FOR I=X TO X+M-1:CALL S(I-1,Y-1,1):NEXT
545 SUBEND
547 SUB VTRACE(X,Y,M)
549 CALL COLOR("1CR")
551 FOR I=Y TO Y+M-1:LOCATE (I,X):PRINT CHR$(1):CALL S(X-1,I-1,1):NEXT
553 SUBEND
555 SUB ESCALIER(X,Y,M)
557 CALL COLOR("1YB")
559 FOR I=Y TO Y+M-1:LOCATE (I,X):PRINT RPT$(CHR$(2),2):CALL S(X-1,I-1,2)
561 CALL S(X,I-1,2):NEXT
563 SUBEND
565 SUB TEMP(TEMP)
567 TEMP=TEMP-1:LOCATE (21,28):PRINT USING"###",TEMP:SUBEND
569 SUB SCORE(SC)
571 LOCATE (21,6):PRINT USING"#####",SC:SUBEND
573 SUB PRESENTATION
575 DATA 4,2,ABBAB
577 DATA 4,3,ABCCCABAB
579 DATA 5,4,ABABABB
581 DATA 4,5,ABBABAB
583 DATA 14,10,ABCABBABBB
585 DATA 9,11,ABBABABABCCABCCAB
587 DATA 4,12,ABCCABABABABABCCABBCABCCABBB
589 DATA 4,13,ABCCABABABBBABCCABCCABCCABABABBB
591 DATA 4,14,ABCCABBBABABCABBABBBABCCABABCAB
593 DATA 4,15,ABCCABABABCCCCCCCCCCABBBABABCAB
595 DATA 4,16,ABBBCCCCCCCCCCCCCCCCCCCCABBBCAB
597 CLS "YBB":CALL COLOR("1CB")
599 CALL CHAR(66,"FF00FF000000FF00FFFF")
601 CALL CHAR(67,"00")
603 CALL CHAR(65,"06060606060606060606")
605 FOR I=1 TO 11
607 READ X,Y,A$
609 LOCATE (Y,X)
611 PRINT A$
613 NEXT
615 CALL COLOR("0Rb")
617 LOCATE (22,10)
619 PRINT "APPUYEZ SUR RETURN "
621 PAUSE
623 CLS
625 CALL COLOR("0CB")
627 PRINT "VOUS INCARNEZ UN VALEUREUX CHEVALIER,DONT LA BELLE EST PRISONNIERE"
629 PRINT "DANS LE CHATEAU DE L'IGNOBLE SEIGNEUR DE THUNDER-TEN-TRONCKH."
631 PRINT "SON VALET PANGLOSS,ROI DE LA METAPHYSICO-THEOLOGO-COSMOLONIGOLOGIE"
633 PRINT "LUI AYANT CREE DEUX MONSTRES QUE JE VOUS PRESENTE"
635 PRINT
637 PRINT TAB(4);"PUDOC & MORDOC"
639 CALL COLOR("1WB")
641 PRINT TAB(5);"EF op"
643 PRINT TAB(5);"GH qr"
645 CALL COLOR("0CB")
647 PRINT
649 PRINT "TOUS DEUX TIRES DU PLUS NOIR DES ROMANS NOIRS"
651 PRINT
653 PRINT "PARVIENDREZ-VOUS A DELIVRER VOTRE BELLE?"
655 PRINT
657 PRINT "POUR LE SAVOIR APPUYER SUR RETURN "
659 PAUSE
661 CLS
663 PRINT "DERNIER DETAIL "
665 PRINT "______________"
667 PRINT "SI VOUS APPUYER DEUX FOIS SUR LA MEME TOUCHE LANCELOT ACCELERE"
669 PRINT "VOUS VOUS DEPLACEZ GRACE A LA MANETTE ORANGE OU AUX CURSEURS"
671 PRINT "VOUS POUVEZ SAUTER AVEC LA BARRE ESPACE OU AVEC LE BOUTON DE TIR"
673 PRINT "POUR CHANGER DE PIECE,IL FAUT AMENER LANCELOT EN HAUT A GAUCHE"
675 PRINT "POUR PARCOURIR UNE PIECE UN TEMPS VOUS EST DONNE,VOTRE BONUS"
677 PRINT "DEPEND DE VOTRE TEMPS MIS POUR LA PARCOURIR(! IL PEUT ETRE NEGATIF)"
679 PRINT "POUR DELIVREZ VOTRE BELLE,IL VOUS FAUDRA RAMASSER TOUS LES OBJETS"
681 PRINT "QUE VOUS TROUVEREZ SUR VOTRE CHEMIN"
683 PRINT
685 PRINT "CE N'EST QU'EN ECHANGE DE CE BUTIN QUE LE BARON VOUS REMETTRA"
687 PRINT "VOTRE FIANCEE"
689 PRINT "APPUYER SUR RETURN "
691 PAUSE
693 CALL CARAG
695 SUBEND
697 SUB S(X,Y,V):CALL POKE(50688+X+Y*32,V):SUBEND
699 SUB L(X,Y,V):CALL PEEK(50688+X+Y*32,V):SUBEND
701 SUB CA1
703 A$="077C312DD46D6F708213EC60072B58C10C66308211F4A0072D6841823E9316EAB637"
705 A$=A$&"BAD18D6E74A2139DE8443BDAD18E7634A319CD6846339AD18C6634A2118D684428"
707 CALL SPEECH("L,"&A$):SUBEND
709 SUB C
711 DATA 84484848488484848478,0060101C3E63FFFE7E3C,08380838080818242418
713 DATA 7E817E3C3C3C7EE7FF7E,18183C7EFFFF7E3C1818,99DBDBDBDBFFA5FF5AFF
715 FOR I=0 TO 5:READ A$:CALL CHAR(97+I,A$):NEXT:SUBEND
717 SUB CARAG
719 CALL CHAR(65,"018386839DBEF7A2B694")
721 CALL CHAR(66,"C0F0381CF0FEFFC7CEFC")
723 CALL CHAR(67,"888101030706027F3F06")
725 CALL CHAR(68,"F0C0E0B06060181F1C38")
727 SUBEND
729 SUB CARAD
731 CALL CHAR(66,"80C161C1B97DEF456D2F")
733 CALL CHAR(65,"030F1C380F7FFFE3731F")
735 CALL CHAR(68,"1F8180C0E060407E7C78")
737 CALL CHAR(67,"0F03070D0C0C18783C1C")
739 SUBEND
741 SUB CARAM
743 CALL CHAR(67,"888101030706027F3F06")
745 CALL CHAR(68,"008080C0E060407E7C78")
747 CALL CHAR(65,"018386839DBEF7A2B694")
749 CALL CHAR(66,"E0F1F9F3F2E6CCF8F0C0")
751 SUBEND
Ce listing est uniquement proposé pour un usage privé.
Sans accord écrit préalable, vous n'êtes pas autorisé à le distribuer, le transmettre ou le rediffuser.