Newsgroup: it.comp.macintosh
Titolo: Grande Basic

La nostalgia per le vecchie cose!
Ah, che bello ritrovare i posti dell'infanzia.
Qualche giorno fa ho ritirato fuori, dalla scatola di latta dei
biscotti della nonna, due dischetti da 800 kb targati Microsoft Quick
Basic for Apple Macintosh System.
Come molti i voi sapranno, il QB non gira sui PowerMac. Inoltre il mio
Classic e' nella mani della sorella, che non lo molla nemmeno... le ho
offerto unma manciata di celeron non connessione gratuita fino
all'eta' pensionabile (a quel momento le faranno scontare tutto il
maltolto, recuperando contributi inps, inail, inpdap, fondi pensioni,
fondi azionistici, tutto!).
NON HA ACCETTATO!
Poco male. Ho tirato giu' il buon emulatore vMac, ho rovistato nella
scatola alla ricerca di un system decente e che c'e' di meglio di
6.0.7?
E cosi' ho recurato il tutto.
Chiaramente avevo uno scopo ben preciso. Stavo picchiando il capo con
la stampa di etichette su modulo continuo. Dopo varie prove con tutti
i programmi del mondo ho adottato la seguente tecnica:
- dallo stack HyperCard con il quale gestisco il database degli
indirizzi da stampare, ho scritto un file di testo ASCII con tre righe
per ogni record cosi'
     NOME&COGNOME
     INDIRIZZO
     CAP&CITTA
- con QB che girava appunto sull'emulatore di Mac Plus, ho scritto un
programmi di pochissime righe':
   doc$=FILES$(1,"TEXT")  rem fa apparire la finestra di dialogo per
aprire il file
   IF doc$="" THEN END
   OPEN doc$ FOR INPUT AS #1
   WHILE NOT EOF(1)
     LINE INPUT #1, stringa1
     LINE INPUT #1, stringa2
     LINE INPUT #1, stringa3
     LPRINT stringa1
     LPRINT stringa2
     LPRINT stringa3
     FOR i=1 to 3
       LPRINT        rem serve per saltare all'etichetta successiva
    NEXT
  WEND
END
- ho compilato il tutto
- ho copiato il programmino sul disco del PowerMac
- ho acceso l'ImageWriter
- ho lanciato il programma ed ho ottenuto le mie etichette.
Con un po' di accorgimenti e' tuttora possibile creare programmi che
girano sul PowerMac (grazie alla compatibilita' all'indietro) con
QuickBasic.
In questo modo e' stato possibile stampare direttamente con
l'istruzione LPRINT sulla ImageWriter fregandosene di form, report
ecc... pensati per le stampanti di pagina e non per le stampanti a
righe.
Puo' darsi che ci siano molte altre soluzioni, che io ignoro per ...
ignoranza. Ma ho ottenuto il risultato. E questo mi basta.
A questo punto ho voglia di esplorare fino a quanto ci si puo'
spingere.
Ho tirato fuori un gioco che avevo fatto in QB: fa uso intensivo di
risorse e chiamate alla ROM per sfruttarne le routine grafiche e non.
Sul PowerMac si blocca (ma non subito). Devo scoprire perche'.
Ciao, Marco G.

 END
Sighhhh *sospiro*. Quanti ricordi. Il mitico BASIC.
Ciao, Conan
-- 
Hai una domanda sul Mac da fare? Guarda prima nelle FAQ di ICM:
http://www.faqintosh.com

 
(Remove the hyphen! Spambusters at work!)
listen to aaria (two and a Mac): 
http://www.mp3.com/aaria
*** He who laughs last thinks slowest ***

 Ciao, Conan
Mi ricordo quando a sei anni usavo il Commodore 64. Bei tempi!!!!
Iniziai a fare li il primo programma in Basic. :)

 giovinastri non avete mai provato l'ebbrezza del GOTO!
10 PRINT "A chi giovinastro???"
20 INPUT "Ma quanti anni hai tu?"; G%
30 IF G% < 35 THEN 10
40 PRINT "Ciao, Conan"
50 END


 
(Remove the hyphen! Spambusters at work!)
listen to aaria (two and a Mac): 
http://www.mp3.com/aaria
*** I couldn't repair your brakes, so I made your horn louder. ***

 
(Remove the hyphen! Spambusters at work!)
listen to aaria (two and a Mac): 
http://www.mp3.com/aaria
*** I couldn't repair your brakes, so I made your horn louder. ***