Bochum Welt est le nom de scène d’un artiste italien, spécialisé dans la musique électronique. Et sur Module 2, il y a du code BASIC pour le Commodore VIC-20. Pas dans le disque, attention, sur la pochette du disque.
Au lieu de vous mettre tous les articles précédents à chaque fois, je vous renvoie vers la page dédiée, elle explique ce que je fais avec les vinyles et liste toutes les pages qui contiennent les programmes, les explications, etc.
La pochette avec une image d’un jeu VIC-20
J’ai acheté la réédition récente (2024) de Module 2, qui est un disque vinyle vert. Sur l’arrière de la pochette, donc, il y a un programme en BASIC pour le Commodore VIC-20. Pour le code, j’ai utilisé CBM prg Studio (sous Windows) et Vice comme émulateur. Je ne connais pas bien le BASIC du VIC-20, mais il y a quelques caractères spéciaux que je ne comprenais pas et j’ai dû enlever un des caractères en ligne 60. J’ai aussi modifié la boucle en ligne 130 pour que ce soit moins long (100 au lieu de 1 000 itérations). Sinon, c’est sympa de voir que la réédition de 2024 a quelques raffinements par rapport à la version de 1996.
Le code
0 def fn a(module)=2
1 print "S{white}"
2 poke 36879,238
5 dim album$(2,7)
10 print "on '?' prompt, press return..."
20 print:print:print
30 for side=1 to 2
40 for track=1 to 7
50 read album$(side,track)
55 if album$(side,track)="" then goto 90
60 print "{blue}side";side;", track";track;
65 print "is entitled:{white}",,album$(side,track)"{blue}"
70 input g$:print
90 next track
100 next side
110 print "S{blue}":poke 36879,57
130 for x=1 to 100
140 print "bochum welt - module 2"
150 next x
200 data "mechanique","radiopropulsive","path","avtomaticesk"
210 data "extra life","b2 (live)",""
300 data "asteroids over berlin","mechanique (live)"
310 data "electro 1 (knightsbridge mix)","lunakhod"
320 data "extra life (take 2)","that's mutuality","over time"
Comment brancher un VIC-20
Le code PETSCII
Alors, dans le coin de la pochette, il y a du PETSCII. J’ai testé avec la méthode que j’avais utilisé pour la pochette d’un vinyle suédois sans succès. Même en utilisant une feuille de référence, j’obtiens un truc qui ressemble à l’alphabet (en grande partie) mais je n’ai pas trouvé de sens précis. Le résultat manuel ? @]DEFTYIJKLMNOPQRSTUVWXYZ[\&A0V9>?.
Le PETSCII
Le clavier
Avant
Après
Le disque de 1996
Il y a un petit souci du détail avec Bochum Welt. La version en vinyle de 1996 a en effet un code un peu différent, essentiellement parce que le nombre de piste n’est pas le même. Vous trouverez une vidéo sur le sujet chez l’indispensable 8-Bit Show And Tell. J’ai profité d’une capture de la pochette (je n’ai pas acheté le disque).
0 def fn a(module)=2
1 print "S"
2 poke 36879,238
5 dim album$(2,4)
10 print "on '?' prompt, press return..."
20 print:print:print
30 for side=1 to 2
40 for track=1 to 4
50 read album$(side,track)
60 print "side";side;", track";track;"is entitled ";album$(side,track)
70 input g$
80 print:print
90 next track
100 next side
110 print "S"
120 poke 36879,57
130 for x=1 to 100
140 print "bochum welt - module 2"
150 next x
200 data "avtomaticesk","radiopropulsive","paph","lunakhod"
300 data "asteroids over berlin","b2","mechanique","that's mutuality"
Le CD de 1996
C’est la même chose pour le CD : le code n’est pas identique et ne présente évidemment pas la différence entre les pistes et la face du vinyle. Et de la même façon, j’ai testé le code.
0 def fn a(module)=2
1 print "S"
2 poke 36879,238
5 dim cd$(8)
10 print "on '?' prompt, press return..."
20 print:print:print
30 for track=1 to 8
40 read cd$(track)
50 print "track";track;"is entitled ";cd$(track)
60 input g$
70 print:print
80 next track
90 print "S"
100 poke 36879,57
110 for x=1 to 100
120 print "bochum welt - module 2"
130 next x
200 data "avtomaticesk","radiopropulsive","paph","lunakhod"
300 data "asteroids over berlin","b2","mechanique","that's mutuality"
