UTILIDAD -> Utilidades de cinta y disco               

Paru sous forme de listing dans le magazine Amstrad Computer User Issue 90 : May 1992

Auteur : Geoff SHORT

Le programme ne fonctionne qu'avec du BASIC 1.1 parce que des paramètres supplémentaires sont utilisés dans quelques commandes MOVE, mais il est possible de les modifier afin de le faire fonctionner avec du BASIC 1.0 en remplaçant ces commandes avec la commande PLOT :

AVANT :

2 k$=STRING$(11,8):CLG 1:PEN#1,0:PAPER#1,1:MODE 2:INPUT"Insert Disc & Press ENTER ",c$:TAG:MOVE 0,396,0,0:PRINT SPC(20)t$SPC(20):MOVE 0,14:PRINT" SCANNING DIRECTORY"SPC(61):TAGOFF:PLOT 0,398,1:DRAWR 640,0:PLOT 0,16:DRAWR 640,0:CAT:x=1:y=5:p=1:r=0
4 PLOT 0,0:DRAW 0,398:DRAWR 638,0:DRAW 638,16:DRAW 0,16:MOVE 0,396,0:PRINT t$:TAGOFF:WINDOW 2,39,3,23:WINDOW#1,1,40,25,25:CLS#1:INPUT"Load Notes";c$:IF UPPER$(c$)<>"N" THEN OPENIN"discmemo.dat":WHILE NOT EOF:r=r+1:INPUT#9,a$(r,1),a$(r,2):WEND:CLOSEIN

APRES :

2 k$=STRING$(11,8):CLG 1:PEN#1,0:PAPER#1,1:MODE 2:INPUT"Insert Disc & Press ENTER ",c$:TAG:PLOT 0,396,0:PRINT SPC(20)t$SPC(20):MOVE 0,14:PRINT" SCANNING DIRECTORY"SPC(61):TAGOFF:PLOT 0,398,1:DRAWR 640,0:PLOT 0,16:DRAWR 640,0:CAT:x=1:y=5:p=1:r=0
4 PLOT 0,0:DRAW 0,398:DRAWR 638,0:DRAW 638,16:DRAW 0,16:PLOT 0,396,0:PRINT t$:TAGOFF:WINDOW 2,39,3,23:WINDOW#1,1,40,25,25:CLS#1:INPUT"Load Notes";c$:IF UPPER$(c$)<>"N" THEN OPENIN"discmemo.dat":WHILE NOT EOF:r=r+1:INPUT#9,a$(r,1),a$(r,2):WEND:CLOSEIN