1 !***************************************!
3 ! PROGRAMME BASIC EXL 100 !
5 ! PAR HERVE BALLET !
7 ! BONNE CHANCE ... !
9 !***************************************!
11 CALL POKE(50688,165,8,6,10)
13 CALL POKE(49156,198,0):CALL IN
15 CALL POKE(50850,162,5,45,162,136,45,10):CALL PRES
17 CLS "YMR"
19 CALL TABL1
21 SUB IN
23 CALL CHAR(65,"01010303030303070505")
25 CALL CHAR(66,"FFFFFF7B0306003C1800")
27 CALL CHAR(67,"050303")
29 CALL CHAR(68,"01010282824128271008")
31 CALL CHAR(69,"0000000000001F204080")
33 CALL CHAR(70,"0000000007F8")
35 CALL CHAR(71,"0C1320C040700F")
37 CALL CHAR(72,"01010202020202030102")
39 CALL CHAR(73,"00000000000102FE0703")
41 CALL CHAR(74,"02020202010101010301"):CALL CHAR(75,"02020204040808040404")
43 CALL CHAR(76,"808080A09F80C0404040")
45 CALL CHAR(77,"01010000000000000001")
47 CALL CHAR(78,"04848484888888888884")
49 CALL CHAR(79,"4040202020202020101F")
51 CALL CHAR(80,"000000000000000000FF")
53 CALL CHAR(81,"01010100000000000000")
55 CALL CHAR(82,"040402AAAA5600000101")
57 CALL CHAR(83,"1F3F3F7F7F7FFFFF1F00")
59 CALL CHAR(84,"FFFFFFFFFFFFFFFFFFFF")
61 CALL CHAR(85,"01010202020202020202")
63 CALL CHAR(86,"00000102141808080808")
65 CALL CHAR(87,"87840808081010204080")
67 CALL CHAR(88,"02020201010101010100")
69 CALL CHAR(89,"1113122424D8880808D0")
71 CALL CHAR(90,"00000001010101010101")
73 CALL CHAR(33,"98888808040424242810")
75 CALL CHAR(35,"01010000000000010207")
77 CALL CHAR(36,"1010A0A0A0A0A0204080")
79 CALL CHAR(97,"0080C0C0C0C0C0E0A0A0")
81 CALL CHAR(98,"FFFFFFDEC060003C1800")
83 CALL CHAR(99,"A0C0C0")
85 CALL CHAR(100,"80804041418214E40810")
87 CALL CHAR(101,"000000000000F8040201")
89 CALL CHAR(102,"00000000E01F")
91 CALL CHAR(103,"30C80403020EF0")
93 CALL CHAR(104,"80804040404040C08040")
95 CALL CHAR(105,"000000000080407FE0C0")
97 CALL CHAR(106,"4040404080808080C080")
99 CALL CHAR(107,"40404020201010202020")
101 CALL CHAR(108,"01010105F90103020202")
103 CALL CHAR(109,"80800000000000000080")
105 CALL CHAR(110,"20212121111111111120")
107 CALL CHAR(111,"020204040404040408F8")
109 CALL CHAR(113,"80808000000000000000")
111 CALL CHAR(114,"20204055556A00008080")
113 CALL CHAR(115,"F8FCFCFEFEFEFFFFF800")
115 CALL CHAR(117,"80804040404040404040")
117 CALL CHAR(118,"00008040281810101010")
119 CALL CHAR(119,"E1211010100808040201")
121 CALL CHAR(120,"40404080808080808000")
123 CALL CHAR(121,"88C8482424211110100B")
125 CALL CHAR(122,"00000080808080808080")
127 CALL CHAR(43,"19111110202024241408")
129 CALL CHAR(41,"808000000000008040E0")
131 CALL CHAR(40,"08080505050505040201")
133 CALL CHAR(49,"00000000000000071820")
135 CALL CHAR(50,"00000001030707FF0F0F")
137 CALL CHAR(51,"003F7FFFFFFFFFFFFFFF")
139 CALL CHAR(52,"00FCFEFFFFFFFFFFFFFF")
141 CALL CHAR(53,"00000080C0E0E0FFF0F0")
143 CALL CHAR(54,"00000000000000E01804")
145 CALL CHAR(55,"0F102040808080404040")
147 CALL CHAR(56,"C0601000000001020C33")
149 CALL CHAR(57,"0F0F0F070703030103FC")
151 CALL CHAR(60,"FFFFFFFFFFFFFFFF7F1F")
153 CALL CHAR(62,"FFFFFFFFFFFFFFFFFEF8")
155 CALL CHAR(61,"F0F0F0E0E0C0C080C03F")
157 CALL CHAR(58,"030608000000804030CC")
159 CALL CHAR(63,"F0080402010101020202")
161 CALL CHAR(59,"FF808080404142A48484")
163 CALL CHAR(95,"4242424242C24242C2C2")
165 CALL CHAR(112,"00000055FFFF81818141")
167 CALL CHAR(39,"000000AAFFFF81818182")
169 CALL CHAR(116,"42424242424342424343")
171 CALL CHAR(4,"4242424242C26242C2C2")
173 CALL CHAR(38,"82828282828282836518")
175 CALL CHAR(126,"41414141414141C1A618")
177 CALL CHAR(94,"00070810008043242010")
179 CALL CHAR(37,"00E010080001C2240408")
181 CALL CHAR(64,"1010100808081838FCFC")
183 CALL CHAR(42,"080808101010181C3F3F")
185 CALL CHAR(47,"FFFFFFFFFFFFFF7F3F0F")
187 CALL CHAR(46,"FFFFFFFFFFFFFFFEFCF0")
189 CALL CHAR(45,"FF010101028242252121")
191 SUBEND
193 SUB IM1
195 CALL COLOR("1BM")
197 LOCATE (10,19):PRINT "ABba":LOCATE (11,19):PRINT "CDdc":LOCATE (12,18)
199 PRINT "EFGgfe":LOCATE (13,17):PRINT "HI ih":LOCATE (14,17)
201 PRINT "JKL lkj":LOCATE (15,17):PRINT "MNOPPonm":LOCATE (16,17)
203 PRINT "QRSTTsrq":LOCATE (17,18):PRINT "UVWwvu":LOCATE (18,18)
205 PRINT "XY yx":LOCATE (19,18):PRINT "Z! +z":LOCATE (20,18)
207 PRINT "#$ ()":SUBEND
209 SUB IM2
211 CALL CHAR(93,"00000000FFFF"):LOCATE (19,12)
213 PRINT "]]]]]]":LOCATE (19,20):PRINT "]]":LOCATE (19,24):PRINT "]]]]]]"
215 CALL CHAR(33,"98888880FFFF24242810")
217 CALL CHAR(43,"19111110FFFF24241408")
219 CALL CHAR(90,"00000001FFFF01010101")
221 CALL CHAR(122,"00000080FFFF80808080")
223 CALL CHAR(91,"FFFFFFFFFFFFFFFFFFFF")
225 FOR I=18 TO 20:LOCATE (I,11):PRINT "[":LOCATE (I,30):PRINT "[":NEXT I
227 SUBEND
229 SUB IM3
231 CALL POKE(258,50,130):PAUSE 3:CALL POKE(259,0):PAUSE 2
233 FOR I=10 TO 15:LOCATE (I,17):PRINT " ":NEXT I
235 CALL CHAR(114,"20204055D5EA"):CALL CHAR(82,"040402AAAB57")
237 CALL CHAR(81,"01010101FFFF")
239 CALL CHAR(113,"80808080FFFF")
241 CALL CHAR(85,"C1414232820202020202")
243 CALL CHAR(117,"83824241414040404040")
245 LOCATE (15,18):PRINT "123456":LOCATE (16,17):PRINT "789<>=:?"
247 LOCATE (17,17):PRINT ";UVWwvu-":LOCATE (18,16):PRINT "MNXY yxnm"
249 LOCATE (19,16):PRINT "QRZ! +zrq":LOCATE (19,20):PRINT "]]"
251 SUBEND
253 SUB IM4:CALL CRI
255 LOCATE (20,11):PRINT " #$ () ":LOCATE (19,11)
257 CALL CHAR(90,"00000001010101010101"):CALL CHAR(33,"98888808040424242810")
259 CALL CHAR(43,"19111110202024241408"):CALL CHAR(122,"00000080808080808080")
261 PRINT " Z! +z ":LOCATE (18,11):PRINT " XY yx "
263 CALL CHAR(85,"01010202020202020202"):CALL CHAR(117,"80804040404040404040")
265 LOCATE (17,11):PRINT "[ UVWwvu [":LOCATE (16,11)
267 PRINT "[]]]]]QRSTTsrq]]]]][":LOCATE (15,11):PRINT "[ MNOPPonm ["
269 CALL CHAR(115,"F8FCFCFEFFFFFFFFF800"):CALL CHAR(83,"1F3F3F7FFFFFFFFF1F00")
271 CALL CHAR(114,"20204055D5EA00008080"):CALL CHAR(82,"040402AAAB5700000101")
273 LOCATE (14,17):PRINT "JKL lkj":LOCATE (13,17):PRINT "HI ih"
275 LOCATE (12,18):PRINT "EFGgfe":LOCATE (11,19):PRINT "CDdc":LOCATE (10,19)
277 PRINT "ABba":SUBEND
279 SUB IM5:CALL CRI
281 FOR I=10 TO 15:LOCATE (I,17):PRINT " ":NEXT I
283 LOCATE (14,19):PRINT "ABba":LOCATE (15,11):PRINT "[ CDdc ["
285 CALL CHAR(70,"00000000FFFF"):CALL CHAR(71,"0C1320C0FFFF0F080402")
287 CALL CHAR(102,"00000000FFFF"):CALL CHAR(103,"30C80403FFFFF0102040")
289 LOCATE (16,11):PRINT "[]]]]]]pFGgf']]]]]][":LOCATE (17,11)
291 PRINT "[ t _ [":LOCATE (18,18)
293 CALL CHAR(89,"8038448483D8880808D0"):CALL CHAR(121,"011C2221C11B1110100B")
295 PRINT "&Y^%y~":LOCATE (19,18)
297 PRINT "Z!@*+z":CALL CHAR(36,"1F17A7A7A3A1A0204080")
299 CALL CHAR(40,"F8E8E5E5C58505040201"):LOCATE (20,20):PRINT "/."
301 SUBEND
303 SUB IM6:CALL CRI
305 CALL CHAR(36,"1010A0A0A0A0A0204080"):CALL CHAR(40,"08080505050505040201")
307 LOCATE (20,19):PRINT "$ ("
309 CALL CHAR(43,"19111110202024241408"):CALL CHAR(33,"98888808040424242810")
311 LOCATE (19,18):PRINT "Z! +z"
313 CALL CHAR(89,"1113122424D8880808D0"):CALL CHAR(121,"88C8482424211110100B")
315 LOCATE (18,18):PRINT "XY yx":LOCATE (17,11):PRINT " UVWwvu "
317 CALL CHAR(82,"00000000000000000101"):CALL CHAR(114,"00000000000000008080")
319 LOCATE (16,11):PRINT " RSTTsr ":LOCATE (15,11)
321 PRINT " OPPo ":LOCATE (14,18):PRINT "&L l~":LOCATE (13,11)
323 CALL CHAR(71,"0C1320C0FFFF00000000"):CALL CHAR(103,"30C80403FFFFF0000000")
325 PRINT "[ t _ [":LOCATE (12,11):PRINT "[]]]]]]pFGgf']]]]]]["
327 LOCATE (11,11):PRINT "[ CDdc [":LOCATE (10,19):PRINT "ABba"
329 SUBEND
331 SUB IM7:CALL CRI
333 LOCATE (20,22):PRINT " ":CALL CHAR(42,"0804050505050201")
335 CALL CHAR(43,"80800000000080C0")
337 LOCATE (19,21):PRINT "*+ "
339 CALL CHAR(121,"1060202040C080808080"):CALL CHAR(64,"08050202020304050808")
341 LOCATE (18,21):PRINT "@y "
343 CALL CHAR(118,"01010101010202040890"):CALL CHAR(119,"80808080828242422120")
345 CALL CHAR(76,"808080A09F80C0404040"):CALL CHAR(108,"01010105F90103020202")
347 LOCATE (17,23):PRINT " ":LOCATE (14,18):PRINT " L l ":LOCATE (13,11)
349 CALL CHAR(73,"04020101010101010101"):CALL CHAR(105,"20408080808080808080")
351 PRINT " I i ":CALL CHAR(71,"0C1320C040700F")
353 CALL CHAR(103,"30C80403020EF0"):CALL CHAR(102,"07182040C0")
355 CALL CHAR(101,"E2200000010204040810"):LOCATE (12,11)
357 CALL CHAR(69,"47040000804020201008"):CALL CHAR(70,"E018040203")
359 CALL CHAR(38,"08040201"):CALL CHAR(126,"10204080")
361 PRINT " &EFGgfe~ ":CALL CHAR(94,"82818040404020101010")
363 CALL CHAR(47,"41810102020204080808"):CALL CHAR(37,"0000C020100808048444")
365 CALL CHAR(62,"00000304981010202122"):LOCATE (11,11)
367 PRINT " ^%CDdc>/ ":CALL CHAR(116,"42424242424242424242")
369 CALL CHAR(95,"42424242424242424242")
371 LOCATE (10,11):PRINT "[ t ABba _ [":LOCATE (9,11)
373 PRINT "[]]]]]p]]]]]]']]]]][":LOCATE (8,11):PRINT "[ ["
375 SUBEND
377 SUB IM8
379 CALL CHAR(118,"00008040281810101010"):CALL CHAR(119,"E1211010100808040201")
381 LOCATE (17,23):PRINT "u":LOCATE (18,21)
383 CALL CHAR(120,"40404080808080808000"):CALL CHAR(121,"88C8482424211110100B")
385 PRINT " yx":LOCATE (19,21):CALL CHAR(122,"00000080808080808080")
387 CALL CHAR(43,"19111110202024241408"):PRINT " +z":LOCATE (20,22):PRINT "()"
389 SUBEND
391 SUB CRI
393 A$=""
395 B$="C9AEB5D334AA1CAFA476F3AA73BDE3969AAA99B275478FECE22C6F183DB1CBA29ADE59"
397 C$=A$&B$
399 CALL SPEECH("L,"&C$):CALL SPEECH("A,")
401 SUBEND
403 SUB VICT(SC,NE,PO)
405 LOCATE (8,11):PRINT " "
407 LOCATE (9,11):PRINT " "
409 CALL CHAR(112,"00000000AB5581818141"):CALL CHAR(39,"00000000D5AA81818182")
411 LOCATE (10,11):PRINT " p ABba ' "
413 CALL CHAR(48,"00000000000000003F41"):CALL CHAR(49,"0000000000000000FC02")
415 CALL CHAR(50,"00000000000000008060"):CALL CHAR(51,"00000000000000000106")
417 LOCATE (11,16):PRINT "t02CDdc31_"
419 CALL CHAR(52,"8180808080804020100F"):CALL CHAR(57,"810101010101020408F0")
421 CALL CHAR(53,"80"):CALL CHAR(56,"01"):CALL CHAR(54,"110A0C08000000000004")
423 CALL CHAR(55,"88503010000000000020"):LOCATE (12,16):PRINT "456FGgf789"
425 CALL CHAR(72,"C03F"):LOCATE (13,17):PRINT "H":LOCATE (13,24)
427 CALL CHAR(104,"03FC"):PRINT "h":CALL CHAR(73,"1CE20101010101010101")
429 CALL CHAR(105,"38478080808080808080")
431 CALL COLOR("0GHLI"):LOCATE (4,1):PRINT "PPOOIIDDSS ::":LOCATE (5,1)
433 PRINT "PPOOIIDDSS ::":LOCATE (6,1):PRINT "EESSSSAAII NNoo::"
435 LOCATE (7,1):PRINT "EESSSSAAII NNoo::":LOCATE (8,1):PRINT " SSCCOORREE::"
437 LOCATE (8,1):PRINT "SSCCOORREE ::"
439 LOCATE (9,1):PRINT "SSCCOORREE ::":CALL COLOR("0BHF")
441 LOCATE (4,20):PRINT PO:LOCATE (5,20):PRINT PO:LOCATE (6,20):PRINT NE
443 LOCATE (7,20):PRINT NE:LOCATE (8,20):PRINT SC:LOCATE (9,20):PRINT SC
445 CALL COLOR("0BM"):LOCATE (21,1):PRINT "Appuie une touche":CALL COLOR("0BM")
447 DATA 133,.4,133,.4,118,.4,105,.4,100,1,100,1.3,79,.4,88,.4,100,.4,105,.4
449 DATA 118,1,133,1.3,133,.4,118,.4,105,.4,105,.4,100,.4,133,.4,133,1.3,118,.4
451 DATA 133,.4,149,.4,158,.4,176,.4,176,.4,199,1.3,100,.4,88,.4,100,.4,105,.4
453 DATA 118,1,133,1.3,133,.4,133,.4,118,.4,105,.4,100,.4,133,.4,133,1.3,118,.4
455 DATA 133,.4,149,.4,158,.4,176,.4,199,1.3
457 RESTORE 447:FOR I=1 TO 45:READ A,B:CALL POKE(258,A,135)
459 PAUSE B:CALL POKE(259,0)
461 CALL KEY1(A,B):IF A<>255 THEN 465
463 NEXT I:GOTO 457
465 CALL COLOR("1BM"):SUBEND
467 SUB DEF(SC,NE,PO):CLS
469 CALL CHAR(65,"00000000000000012AB5"):CALL CHAR(97,"000000000000008054AD")
471 CALL CHAR(66,"00000000000000818708"):CALL CHAR(98,"0000000000000081E110")
473 CALL CHAR(67,"5242CE46FBC34242426B"):CALL CHAR(99,"4A424362DFC3424242D6")
475 CALL CHAR(68,"0F304080FFFF1F1020C0"):CALL CHAR(100,"F00C0201FFFFF8080403")
477 CALL CHAR(69,"45464438"):CALL CHAR(101,"A262221C"):LOCATE (20,11)
479 PRINT "[ E e [":LOCATE (19,11):PRINT "[]]]]]]]CDdc]]]]]]]["
481 LOCATE (18,11):PRINT "[ ABba ["
483 CALL COLOR("0GHLI"):LOCATE (4,1):PRINT "PPOOIIDDSS ::":LOCATE (5,1)
485 PRINT "PPOOIIDDSS ::":LOCATE (6,1):PRINT "EESSSSAAII NNoo::"
487 LOCATE (7,1):PRINT "EESSSSAAII NNoo::":LOCATE (8,1):PRINT " SSCCOORREE::"
489 LOCATE (8,1):PRINT "SSCCOORREE ::"
491 LOCATE (9,1):PRINT "SSCCOORREE ::":CALL COLOR("0BHF")
493 LOCATE (4,20):PRINT PO:LOCATE (5,20):PRINT PO:LOCATE (6,20):PRINT NE
495 LOCATE (7,20):PRINT NE:LOCATE (8,20):PRINT SC:LOCATE (9,20):PRINT SC
497 CALL COLOR("0BM"):LOCATE (21,1):PRINT "Appuie une touche":LOCATE (15,11)
499 PRINT "!!!!!!!!rate!!!!!!!!":CALL COLOR("1BM")
501 DATA 118,.2,100,.2,105,.2,118,.2,133,.2,149,.2,158,.2,199,.2,149,.2,199,.2
503 DATA 149,.2,199,.2,149,.2,133,.2,118,.4,118,.2,100,.2,105,.2,118,.2,133,.2
505 DATA 149,.2,158,.2,149,.2,133,.4,149,.4,149,.2,149,.2,100,.2,100,.2,100,.2
507 DATA 100,.2,88,.2,88,.2,100,.4,118,.4,149,.2,149,.2,100,.2,100,.2,100,.2
509 DATA 100,.2,88,.2,88,.2,100,.4,118,.4,118,.2,100,.2,105,.2,118,.2,133,.2
511 DATA 149,.2,158,.2,199,.2,149,.2,199,.2,149,.2,199,.2,149,.2,133,.2,118,.4
513 DATA 118,.2,100,.2,105,.2,118,.2,133,.2,149,.2,158,.2,149,.2,133,.4,149,.4
515 RESTORE 501:FOR I=1 TO 70:READ A,B:CALL POKE(258,A,135)
517 PAUSE B:CALL POKE(259,0)
519 CALL KEY1(A,B):IF A<>255 THEN 523
521 NEXT I:GOTO 515
523 SUBEND
525 SUB TABL1
527 NE=0:PO=100
529 CLS:CALL HRON("M",3,1):CALL EXEC(50850):CALL IN:CALL IM1
531 CALL COLOR("0YM"):LOCATE (8,5)
533 PRINT "POIDS ";PO;" Kg":PAUSE 3:LOCATE (8,1):PRINT RPT$(" ",40)
535 CALL COLOR("1BM")
537 PAUSE 1:CALL IM2:PAUSE 2:CALL IM3
539 NE=NE+1:E=319:CALL LINE("B",0,2,319,2):CALL COLOR("0BM"):LOCATE (1,1)
541 PRINT "ENERGIE ->":CALL LINE("G",0,6,319,6):CALL COLOR("0GM"):LOCATE (2,1)
543 PRINT "CONCENTRATION ->":CALL COLOR("0YB"):LOCATE (2,30):PRINT PO;"Kg"
545 CALL COLOR("1BM"):RANDOMIZE
547 C=INTRND(319):CALL LINE("G",0,6,C,6):CALL LINE("M",C+1,6,319,6)
549 FOR I=1 TO 10:CALL KEY1(A,B):IF B<1 THEN 547 ELSE CALL IM4:GOTO 553
551 NEXT I
553 CALL KEY1(A,B):IF B<1 THEN E=E-100*PO/C ELSE CALL IM5:GOTO 559
555 SC=SC-1:IF E<0 THEN CALL LINE("M",0,2,319,2):CALL DEF(SC,NE,PO):GOTO 591
557 CALL LINE("B",0,2,E,2):CALL LINE("M",E+1,2,319,2):GOTO 553
559 SC=SC+PO:B=0
561 CALL KEY1(A,B):IF B<1 THEN E=E-100*PO/(C+20) ELSE CALL IM6:GOTO 567
563 SC=SC-1:IF E<0 THEN CALL LINE("M",0,2,319,2):CALL DEF(SC,NE,PO):GOTO 591
565 CALL LINE("B",0,2,E,2):CALL LINE("M",E+1,2,319,2):GOTO 561
567 SC=SC+PO:FOR I=1 TO 20
569 CALL KEY1(A,B):IF B<1 THEN E=E+PO*C/3000 ELSE CALL IM7:GOTO 575
571 IF E>318 THEN E=318
573 CALL LINE("B",0,2,E,2):CALL LINE("M",E+1,2,319,2):NEXT I
575 CALL KEY1(A,B):IF B<1 THEN E=E-100*PO/(C+20) ELSE CALL IM8:GOTO 581
577 SC=SC-1:IF E<0 THEN CALL LINE("M",0,2,319,2):CALL DEF(SC,NE,PO):GOTO 591
579 CALL LINE("B",0,2,E,2):CALL LINE("M",E+1,2,319,2):GOTO 575
581 SC=SC+PO:CALL COLOR("0YB"):LOCATE (4,1):PRINT "BONUS:"
583 CALL POKE(258,135,135):BO=INT(E):LOCATE (4,10):PRINT BO
585 CALL LINE("M",0,2,319,2):PAUSE 2
587 CALL POKE(259,0):SC=SC+BO:CALL COLOR("1BM"):CALL VICT(SC,NE,PO)
589 NE=0:BO=0:PO=PO+10:GOTO 529
591 IF NE=3 THEN CALL FIN(F,SC,PO):GOTO 593 ELSE 529
593 IF F=1 THEN 527 ELSE 595
595 SUBEND
597 SUB PRES:CALL HROFF
599 CALL POKE(50382,162,5,45,162,132,45,10):CALL EXEC(50382)
601 CLS "RCB":CALL COLOR("0RHL"):PRINT
603 A$="HHAALLTTEERROO"
605 FOR I=1 TO 13 STEP 2:FOR J=2 TO 19:LOCATE (J-1,I+13):PRINT " "
607 CALL POKE(258,40+5*J,135):LOCATE (J,I+13):PRINT SEG$(A$,I,2):NEXT J:NEXT I
609 CALL POKE(259,0):PAUSE 1:CALL COLOR("0RC"):FOR I=1 TO 18
611 CALL POKE(258,140-I*5,132):LOCATE (22,40):PRINT " ":NEXT I
613 CALL POKE(259,0):PAUSE 1:CALL COLOR("0RHL"):FOR I=1 TO 13 STEP 2
615 FOR J=20 TO 2 STEP -1:LOCATE (J+1,I+13):PRINT " "
617 CALL POKE(258,140-5*J,135)
619 LOCATE (J,I+13):PRINT SEG$(A$,I,2):NEXT J:NEXT I:CALL POKE(259,0)
621 CALL COLOR("0MHLF"):LOCATE (2,14):PRINT A$:PAUSE 3:CALL HROFF
623 CALL EXEC(50850):CLS "YMR"
625 LOCATE (1,14):PRINT A$:CALL COLOR("0bHLI"):LOCATE (2,14):PRINT A$:PAUSE 1
627 CALL COLOR("0YG"):FOR I=1 TO 40:LOCATE (3,I):PRINT CHR$(12)
629 CALL POKE(258,40+2*I,140):NEXT I:CALL POKE(259,0)
631 LOCATE (1,1):PRINT RPT$(CHR$(12),13):LOCATE (1,28):PRINT RPT$(CHR$(12),13)
633 LOCATE (2,1):PRINT RPT$(CHR$(12),13):LOCATE (2,28):PRINT RPT$(CHR$(12),13)
635 CALL IN:CALL IM1:PAUSE 2:A$="VEUX-TU LES REGLES ?"
637 CALL COLOR("0GM"): FOR I=1 TO LEN(A$): LOCATE (8,I+10): PRINT SEG$(A$,I,1)
639 NEXT I:B$=KEY$:IF B$="N" THEN 723:IF B$<>"O" THEN 637
641 CLS:LOCATE (8,1):PRINT RPT$(" ",40)
643 CALL HRON("M",2,1):CALL IM1:CALL IM2:CALL IM3
645 CALL COLOR("0BM"):LOCATE (4,1):PRINT "PHASE 1:"
647 PRINT "TU DOIS PRESSER UNE TOUCHE POUR QUE "
649 PRINT "L'HALTEROPHILE LEVE LA BARRE "
651 PRINT "ATTENTION AU TAUX DE CONCENTRATION QUI "
653 PRINT "VARIE REPRESENTE PAR UN TRAIT VERT.PLUS "
655 PRINT "L'HALTERO EST CONCENTRE,MOINS IL "
657 PRINT "GASPILLERA SON ENERGIE(TRAIT NOIR) ":LOCATE (12,1)
659 PRINT "APPUIE UNE TOUCHE"
661 CALL COLOR("1BM"):RANDOMIZE
663 CALL LINE("B",0,2,319,2)
665 C=INTRND(319):CALL LINE("G",0,6,C,6):CALL LINE("M",C+1,6,319,6)
667 FOR I=1 TO 10:CALL KEY1(A,B):IF B<1 THEN 665 ELSE GOTO 671
669 NEXT I
671 LOCATE (5,1):PRINT RPT$(" ",240):PRINT RPT$(" ",80):CALL IM4
673 CALL COLOR("0BM"):LOCATE (4,1):PRINT "PHASE 2:"
675 PRINT "TU DOIS PRESSER UNE TOUCHE AVANT QUE "
677 PRINT "L'HALTERO PERDE TOUTE SON ENERGIE. "
679 PRINT "L'HALTERO CONTINUE ALORS SON MOUVEMENT. "
681 PRINT "APPUIE UNE TOUCHE"
683 CALL LINE("B",0,2,200,2):CALL LINE("M",201,2,319,2)
685 CALL KEY1(A,B):IF A=255 THEN 685
687 LOCATE (5,1):PRINT RPT$(" ",120):CALL COLOR("1BM"):CALL IM5
689 CALL COLOR("0BM"):LOCATE (4,1):PRINT "PHASE 3:":LOCATE (6,1):PRINT "IDEM"
691 CALL KEY1(A,B):IF A=255 THEN 691
693 CALL COLOR("1BM"):CALL IM6
695 CALL COLOR("0BM"):LOCATE (4,1):PRINT "PHASE 4"
697 PRINT "LA,TU PEUX LAISSER L'HALTERO RECUPERER "
699 PRINT "MAIS ENSUITE L'HALTERO SE FATIGUE..."
701 CALL KEY1(A,B):IF A=255 THEN 701
703 LOCATE (5,1):PRINT RPT$(" ",240):CALL COLOR("1BM"):CALL IM7
705 CALL COLOR("0BM"):LOCATE (4,1):PRINT "DERNIERE PHASE:"
707 PRINT "TU DOIS PRESSER UNE TOUCHE POUR QUE"
709 PRINT "L'HALTERO FINISSE LE MOUVEMENT":PRINT "APPUIE UNE TOUCHE"
711 CALL KEY1(A,B):IF A=255 THEN 711
713 LOCATE (4,1):PRINT RPT$(" ",80):CALL COLOR("1BM"):CALL IM8
715 CALL COLOR("0BM"):LOCATE (4,1):PRINT "L'HALTERO A FINI SON MOUVEMENT.ALORS"
717 PRINT "1 BONUS T'EST ATTRIBUE SUIVANT L'ENERGIE"
719 PRINT "RESTANTE.POUR COMMENCER APPUIE 1 TOUCHE":PRINT " "
721 CALL KEY1(A,B):IF A=255 THEN 721
723 CALL HROFF:CALL EXEC(50850):CLS:SUBEND
725 SUB FIN(F,SC,PO)
727 CALL HROFF:CALL EXEC(50850):CALL COLOR("0YHLF")
729 LOCATE (3,15):PRINT "GGAAMMEE OOVVEERR"
731 LOCATE (4,15):PRINT "GGAAMMEE OOVVEERR":CALL COLOR("0GLF")
733 LOCATE (7,4):PRINT "SSCCOORREE":LOCATE (10,4):PRINT "PPOOIIDDSS"
735 CALL COLOR("0BH"):LOCATE (6,15):PRINT SC
737 LOCATE (7,15):PRINT SC:LOCATE (9,15):PRINT PO:LOCATE (10,15):PRINT PO
739 CALL COLOR("0BM"):LOCATE (20,1):PRINT "VEUX-TU REJOUER ?"
741 DATA 199,.4,133,.4,133,.4,118,.4,105,.4,100,.4,100,.6,79,.4,88,.4,100,.4
743 DATA 100,.4,105,.4,100,1.3
745 DATA 100,.2,88,.2,79,.4,79,.4,88,.4,100,.4,105,.2,118,.2,105,.4,133,.6
747 DATA 105,.4,100,.4,105,.4,118,.4,118,.4,133,1.6,133,.4,158,.2,149,.2,133,.4
749 DATA 118,.4,133,.4,133,.4,149,.4,158,.6,133,.4,149,.4,158,.4,176,.4,176,.4
751 DATA 199,1.6
753 FOR I=1 TO 2:RESTORE 741:FOR J=1 TO 13:READ A,B:CALL POKE(258,A,135)
755 PAUSE B:CALL KEY1(A,B):IF A=79 THEN F=1:GOTO 767
757 IF A=78 THEN F=0:GOTO 767
759 NEXT J:NEXT I:FOR I=1 TO 31:READ A,B:CALL POKE(258,A,135):PAUSE B
761 CALL KEY1(A,B):IF A=79 THEN F=1:GOTO 767
763 IF A=78 THEN F=0:GOTO 767
765 NEXT I:GOTO 753
767 CALL POKE(259,0):SC=0:IF F=1 THEN SUBEXIT
769 A$="SSAALLUUTT":CLS:CALL COLOR("0YHL"):FOR I=1 TO 9 STEP 2:PAUSE .1
771 LOCATE (I+8,I+15):PRINT SEG$(A$,I,2):CALL POKE(258,40+10*I,132):NEXT I
773 CALL COLOR("0GHL"):FOR I=2 TO 10 STEP 2:PAUSE .1
775 LOCATE (I+6,I+14):PRINT SEG$(A$,I-1,2):CALL POKE(258,40+10*I,132):NEXT I
777 PAUSE .1:CALL POKE(259,0):PAUSE 4:CALL COLOR("0MM")
779 FOR I=1 TO 17:LOCATE (22,40):PRINT " ":CALL POKE(258,140-6*I,132):NEXT I
781 CALL POKE(259,O):PAUSE 1:CLS "BCC":CALL HROFF:CALL COLOR("0BC")
783 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.