Afin de contenter les possesseurs de CPC 464, voici les modifications minimales à apporter au programme EDIMUSIC pour qu'il fonctionne dans un environnement cassette (ou lecteur disque DD1).Le programme initial tirait parti de nouvelles instructions Basic caractéristiques du CPC 6128. Il va sans dire que le remplacement pur et simple de ces instructions par des CALL xxxx n'est pas la panacée ; mais cela évite un trop grand remaniement du programme et rien ne vous empêchera d'essayer d'effacer les petits défauts qui vont en résulter. On pourra constater notamment l'apparition de curseurs parasites à certains endroits des différentes fenêtres d'affichage, mais cela ne gêne en aucune façon l'utilisation du programme. Son mode d'emploi reste celui qui a été publié dans le n° 13 de CPC. | Instr. Basic 6128 | A rempl. par (464) | | CURSOR 0 | CALL &BB8D | | CURSOR 1 | CALL &BB8A | | CLEAR INPUT | CALL &BB03 (ou rien) | | FRAME | CALL &BD19 |
CURSOR 0 ou 1 efface ou place un curseur sur l'écran du 6128. CLEAR INPUT vide le tampon d'entrée du clavier et permet d'effacer tout caractère de commande d'EDIMUSIC lors d'un changement de mode d'édition. FRAME est le strict équivalent du CALL &BD19 bien connu des utilisateurs de 464. Vous remplacerez donc chaque occurence de ces termes par les "CALL" adéquats : il vous faudra un peu de patience car il y en a un peu partout (l'usage d'un traitement de texte sur une version sauvegardée en ASCII pourra vous aider efficacement). En ce qui concerne la gestion des erreurs disque ou cassette, le 464 a été un peu bâclé de ce côté-là... donc rien à faire, sinon supprimer purement et simplement les lignes allant de 4050 à la fin du programme. Puis remplacer le : IF ERR = 32 THEN 4050 en IF ERR = 32 THEN 3990 à la ligne 3960.Cela termine les modifications du programme EDIMUSIC pour qu'il tourne sur un CPC 464.A vous maintenant, les joies de la création musicale ! N.B. : En cas d'interruption du programme lors d'un accès cassette (ou disque) avec apparition d'un message "Break in..." , taper : GOTO 360 pour relancer le programme (sans perte des variables). CPC n°16 | 
