Le module C7420, dénommé Basic Module, permet à tout possesseur d'un modèle de Videopac de programmer grâce à celle-ci et son clavier intégré directement en langage Basic Microsoft. Le module contient concrétement un ordinateur à part entière, et, fait amusant, peut se vanter d'être beaucoup plus puissant que le système sur lequel il se greffe ! Ainsi, le C7420 possède son propre microprocesseur, un Z80A à 4 MHz, sa propre mémoire avec 16 Ko de ROM et 16 Ko de RAM et peut se connecter à un magnétophone extérieur afin de pouvoir sauvergarder les programmes écrits ! rien que ça !

En programmation pure, le C7420 affiche 112 fonctions dont 24 reprogrammables et 192 caractères programmables par l'utilisateur. Il est très interressant de signaler qu'il est quasimment identique à quelques spécificités près au Basic des Philips VG5000 !

Autre module Videopac, le C7010 Chess Module.

Ci-joint le listing d'un casse-brique sur C7420 ! C'est peut être le seul jeu connu sur cette extension, et je me suis servi d'un listing en Basic VG5000 pour l'adapter au C7420. Bonne chance avec le clavier sensitif de votre Videopac+, et n'oubliez pas de sauvegarder votre programme sur cassette !

10 rem Briques, Philippe Dubois, mo5.com
25 setet 176,"20202020ff02020202ff"
26 setet 177,"000000183c3c18000000"
27 setet 178,"00000000000000000000"
40 init 7
45 print chr$(150);
50 for i=1 to 20
60 poke -32760+2*(i+9),127
70 poke -32760+80*i+20,127
75 poke -32760+80*i+54,127
80 next i
85 poke -31220,127
90 for i=1 to 7
100 for j=11 to 26
115 poke -32760+80*i+2*j,176
116 poke -32760+80*i+2*j+1,i-1+32
120 next j
125 print chr$(145);
130 next i
135 m=16
140 h=-1:k=-0.5:j=18:i=17:y=10
141 poke -31062+2*y,96
142 poke -31060+2*y,96
143 poke -31058+2*y,96
145 tx 0,0,0
150 a=action(0)
151 cursory m:print chr$(146);
170 y=y-(a=2 and y<15)+(a=4 and y>2)
171 poke -31064+2*y,32
172 poke -31056+2*y,32
176 if a=0 then goto 200
180 poke -31062+2*y,96
181 poke -31060+2*y,96
182 poke -31058+2*y,96
184 cursory 21:print chr$(146);
200 if i>22 then sound 0:end
201 if t=1 then poke z,32
205 cursory m:print chr$(146);
210 i=i+h:j=j+k
220 m=int(i):n=int(j)
222 z=-32762+80*m+2*n
225 c=peek(z)
228 if c=127 then k=-k:t=0:sound 4
229 if c=127 then goto 150
230 if c=32 then poke z,177:t=1
235 if c=32 then goto 150
250 if c=176 then poke z,177:t=1
255 if c=176 then goto 300
260 h=-h
261 t=0
265 sound 3
270 k=rnd(1)-rnd(1)
296 goto 150
300 s=s+5
310 sound 1
320 h=-h
330 goto 150

Commentaires dans les forums : 1

	Sujet	Auteur
	Re:Videopac C7420 Basic Module	CosmoNico Le 12/09/2002 à 07:00:00.