[zxspectrum] Proposta
- From: "Stefano Bodrato" <stefano_bodrato@xxxxxxxxxxx>
- To: <zxspectrum@xxxxxxxxxxxxx>
- Date: Fri, 3 Apr 2009 10:32:29 +0200
Hey, non ho nulla in contrario sugli off-topic, ma qui lo Spectrum langue !
Proporrei qualcosa alla portata di tutti che riporti la lista in tema.. che
ne direste di un bel concorso ?
Tema: scrivere una routine per il CLS.
Queste le regole:
1 - Vietato copiare, ad esempio lasciate in pace le routine usate in
LOAD'N'RUN, che tanto le conosciamo tutti.
2 - Il colore può essere scelto dal programmatore ma non può più essere
cambiato. Il font con cui il testo di base viene stampato, deve essere
quello standard.
3 - si può partecipare in due categorie: base (il gommoso a 48K senza
espansioni) ed estesa (tutto il resto: ZX 128, cloni, interfacce aggiunte,
hardware proprietario, ecc..). Ad esempio, se volete usare il comando CLS
#, usare il paging video dello Spectrum 128 o costruire dell'hardware per
generare effetti in sovraimpressione al segnale TV, dovete concorrere nella
categoria estesa.
4 - Il linguaggio di programmazione usato non è vincolante: va bene
anche una GO SUB a un sottoprogramma BASIC.
5 - Si possono proporre fino a 4 diversi effetti di CLS, che devono
essere localizzati: all'inizializzazione del programma, dopo la prima pagina
(di testo), dopo la seconda pagina (di grafica), all'uscita dal programma.
Se lo si desidera il primo e l'ultimo CLS possono non essere personalizzati.
6 - E' d'obbligo usare il seguente scheletro di programma BASIC (spero di
non aver fatto errori):
(Codice di inizializzazione dalla riga 5 alla riga 19: caricamento
blocchi dati, CLS, impostazione INK PAPER e BORDER e nome o nickname del
concorrente in n$)
20 PRINT "Concorrente: "; n$
30 PRINT
40 PRINT " Concorso 'CLS con lo Spectrum'"
50 PRINT
60 PRINT "Questa e' una pagina di testo disupporto alle routine per
il CLS"
80 PRINT
90 PRINT "Per vedere il primo dei blocchi"
100 PRINT "video scomparire dallo schermo"
110 PRINT "dovete ora concentrarvi, e con"
120 PRINT "la dovuta delicatezza premere untasto; osservate
attentamente ed"
130 PRINT "esprimete il vostro giudizio."
140 PRINT
150 FOR x=1 TO 9: FOR y=65 TO 65+31
160 PRINT CHR$(x);
170 NEXT y: NEXT x
180 PAUSE 1: PAUSE 0
(riga 200: CLS.. GO SUB, RAND USR, o quanto necessario)
210 FOR x=0 to 255 STEP 5: PLOT x,0: DRAW 255-x,175: NEXT x
220 PRINT "Concorrente: "; n$
230 PRINT AT 8,8; "Premere un tasto"
240 PAUSE 1: PAUSE 0
(riga 300: CLS.. GO SUB, RAND USR, o quanto necessario)
250 PRINT "FINE !"
240 PAUSE 1: PAUSE 0
250 CLS (o quel che si vuole)
260 STOP
(il resto è spazio a disposizione per eventuali subroutine)
7 - Termine per la consegna dei lavori: fine Settembre
8 - Ogni partecipante alla lista potrà dare il suo voto ai lavori,
su una scala da 1 a 5
.... che ne dite ?
Other related posts:
