UTILITAIRE -> Bureautique et communication               

This is it! Your very own Karaoke machine on your CPC. Well, very nearly anyway. This excellent routine allows you to enter and save as many song lyrics as you like, so budding collectors of famous songs, start here. When you've entered your lyrics, simply press option three, plug in your joystick, turn on your ghetto blaster and use the joystick to scroll the lyrics across the screen, allowing you to keep up with your fave sounds,

Simple, but effective, this one's guaranteed to break the ice at parties.

Paru sous forme de listing dans le magazine Amstrad Computer User Issue 81 : August 1991

Auteur : David HALL

Si des ROMs sont activées (faisant baisser le HIMEM) ou la ROM AMSDOS est désactivée, la police n'est pas affichée correctement.

Ce bug peut être corrigé en modifiant quelques lignes et en insérant quelques commandes :
AVANT :

1 m$="Song Lyric Generator":n$="/\/\/\/\/\/\/\/\/\/\":INK 0,0:BORDER 0:PAPER 0:gr$="nobody":na$="nothing":POKE 20001,255:IF PEEK(19000)=0 THEN SYMBOL AFTER 31:MEMORY 14999:l=19000:READ a$:FOR t=1 TO LEN(a$) STEP 2:POKE l,VAL("&"+MID$(a$,t,2)):l=l+1:NEXT
10 FOR t=1 TO LEN(z$):POKE w,ASC(MID$(z$,t,1)):w=w+1:NEXT:RETURN

APRES :

1 m$="Song Lyric Generator":n$="/\/\/\/\/\/\/\/\/\/\":INK 0,0:BORDER 0:PAPER 0:gr$="nobody":na$="nothing":POKE 20001,255:IF PEEK(19000)=0 THEN SYMBOL AFTER 31:h=HIMEM+1:h1=INT(h/256):h2=h-h1*256:MEMORY 14999:l=19000:READ a$:GOSUB 10
10 IF l=19000 THEN FOR t=1 TO LEN(a$) STEP 2:POKE l,VAL("&"+MID$(a$,t,2)):l=l+1:NEXT:POKE 19039,h2:POKE 19040,h1:RETURN ELSE FOR t=1 TO LEN(z$):POKE w,ASC(MID$(z$,t,1)):w=w+1:NEXT:RETURN