Aperto QBasic 
 2 
 Tipo seguenti nove righe nella finestra di comando : 
 
 filenum % = Freefile 
 
 APERTO filename.pal $ FOR INPUT AS # filenum % 
 
 PER DummyColour % = 0 a 255 
 
 INPUT # filenum % , r, g , b 
 
 OUT & H3C8 , DummyColour % 
 
 OUT & H3C9 , r 
 
 OUT & H3C9 , g 
 
 OUT & H3C9 , b 
 
 AVANTI DummyColour % 
 3 
 Sostituire "nomefile " con il nome del file GIF . Non includere l'estensione " . Gif" . Premere "Invio " per estrarre le informazioni palato gif che controlla il display . 
 4 
 Tipo le seguenti due righe nella finestra di comando , di nuovo sostituendo " nomefile". 
 
 DEF SEG = & HA000 
 
 BLOAD " filename.bsv " 
 
 Premere " Invio". Il GIF verrà visualizzato sul monitor . 
 
              
sistemi © www.354353.com