10 rem DEBITEST tests debiles pour CPC
20 cls:pen 3:locate 5,2:print "LOGICIEL de REGLAGES pour CPC":pen 2
30 locate 1,5: print "Certains programmes exploitent a fond   les performances du CPC. Il est de ce   fait obligatoire de proceder a quelques tests de conformite."
40 locate 1,10:print "Apres ces verifications, le programme secharge de refaire certains reglages     electroniques sur votre ordnateur."
50 locate 1,15:print "Cette revision restera active meme apresextinction de l'appareil."
60 pen 1:locate 6,20: input "Si vous etes pret tapez ENTER",R$
70 cls:print "TEST du TOSHING 644 :"
80 locate 1,5:input "Enfoncez ensemble le SHIFT de GAUCHE et la touche ENTER :",R$
90 gosub 3000
100 for n=300 to 644:locate 18,12:print N: next: print
110 print "resultat 94 % - Ajustage en cours"
120 gosub 3000
130 cls: print "TEST du Quartz norme DIN 6539634 B :"
140 locate 1,5:print"Au BIP sonore secouez legerement le     clavier pendant 4 secondes environ"
150 gosub 3000:print chr$(7)
160 gosub 3000:print chr$(7);"stop !"
170 locate 2,15: print "Stabilite de frequence 0.00056 % : OK !": gosub 3000:gosub 3000
180 cls:print "TEST du WHIZZING methode Gougnaff :":print
190 print "Voyez-vous un nombre en bas de l'ecran?":print
200 line input "reponse O ou N et RETURN ",R$:print
210 print "Pressez les DEUX touches SHIFT jusqu'a ce qu'un nombre apparaisse":gosub 3000:print
220 for n=1 to 15
230 sound 5,0,50,13,0,0,n:next
240 gosub 3000
250 locate 18,20:print "78566439":gosub 3000
260 cls:locate 1,12:print"Patience. On laisse refroidir le Z80...":gosub 3000
280 ink 0,13:ink 1,0:ink 2,26:cls
290 locate 1,12: print "La surface interieure de votre ecran a  ete remarquee comme etant...":gosub 3000
300 print:print " TRES SALE.":print:print:gosub 3000: print chr$(7)
310 print "Nous effectuons donc un nettoyage catho-dique intense. Attention ! Ne rester pasen face de l'ecran !!"
320 gosub 3000:gosub 3000
330 for n=640 to 0 step -1
340 plot n,0,2:drawr 0,400
350 next
360 paper 2:cls
370 locate 2,12:print "Votre CPC est remis a neuf pour UN AN"
380 gosub 3000
390 ink 0,1:ink 1,24:ink 2,20:paper 0:cls
400 end
3000 for w=1 to 4000:next:return