Supercommodore 64/128, anno 8, n° 39

68 Pages·15.1 MB·Italian

by  Gruppo Editoriale Jackson

LA RIVISTA JACKSON PER GLI UTENTI COMMODORE 64/ 12 8 Anno 7 -Numero 39
L.8500 -Frs. 12. 75
RMSTA UFFICIALMEllTE (•
~CllMISCIUTADA -.
COMMODOllE ITWAllA
• Megasqueeze • VDC Monitor + • Sheerluck•
• Custom Cursor • Minimap • State of the art: Sport •
• lsolation • Magnaprint • Race Ace •

AVVISO
Si cOllUli<o me I noow indirizzo del'Uffido Abbonamenti
del Grvwa Ecilofde Jodson è I seguente:
YIO Amendob, 45 · 20037 Paderno~ IMO
lei. 02,199043119·127·133 Fax. 02,199042386
ANNO VI -N" 39 GENNAIO 1991
Ili K• :rmRE Rf,:;P();>OSA8!LE
IJ:.Ol0Rcln1.1
COOM:l)INA.MENTO R•:OAZIONALE
J\ft.ltlO Cl,jlllU.CU [I]
S>:<iRETERJA l>I RWAZIONE ABC del BASIC RUBRICA
Elcnll fl'c"'
[[]
REDAZIONI.; Conosci l'Informatica? QUIZ
M.a,.Jmiliano Amkoh. DTV Studio
CD
HANNO ("01..LABORAT O Tips & Tricks TRUCCHI
Ccsatt l"almttn. \t.Nno MMtiA. ~ l..m.s
IMPACL~7.IONE ELETTRONll:A I lettori ci scrivono POSTA O]]
IYTPS111Cho
mJ
l.'tU't!RTL'lA t;(;NAH<'A Bassem (Il parte) ARTICOLO
\\'1lm;a(knn.1ni
[]]]
VDC Monitor+ UTIUTY
I].[]
Su ercommodore Clips RUBRICA
[fil
Sheerluck GAME
- - -
rn:J
GROUP l'l 111.tSllER Black Hawk - --- SUPERGAME
Picn:wnonlo P~kn11r.a
[]f]
l>IHRZIONE l:OOKlllNA~IENTO OP>'.RA TIVO Recensioni GIOCHI
Oruk-fh• J'l'.il~a:"""-"*
@[)
P11Bl.1Sllfilt AK>'.A <:ONSUM.J::R La Superclassifica - - -- TOP TEN
Filippo<"•f\&'~ lliJ
DIREZIOW. llEDAZJONF. Guida all'Input SERVICE
tY.~.P.:o Ob..!.M9 '•2V01I? 1.&dt.1u1:' -3o1 6T2e1l:3O R".E.MIN-1A8 1I 00
8 Gadget GAME
P\IDRl,l\;I rA'
RViO~M ltAob l. L9 A-L2J0102 I4l CMl'dola<tlTOR OT Sdl:l (l1>2 fih467 State of the art: Sport ARTICOLO [fil
~~: '(:r3~a.r·F~~:-~~37a ffiJ
Tutto per la casa UTILITY
UlRr.ZtONEAMi\'11NISTRATIVA
TVI ç~l: R0u21~6~ll4in8i I. 1f;2u.. 2: 002112649 2M8i2i.:i3m8o Isolati on GAME ~
S&llV. 1.IWALE fil]
Via l~ctro Mi;sc-v1i. 14-20J22Milano Magnaprint - --- UTIUTY
Vlli1f1l 'AImCIcOno oA&IJa.l lJO$N -A20M0f1.7~ P*I rno L>ugnn.no(MI) Angolo Geos RUBRICA [ill
hx: 02J!)?(M?.'K6
Tfnc(l:' 0~2lJìW.t0i.1M3'1f td9ì-.1o2r7t-:1J343. J(0D.1c7i .g]i(o)r)n i di tn3tU'di, Programmazione l.m. RUBRICA lliJ
TLd'T:~El.t~.A3lt3O.' iAL;\L\ltKKl'ISG Orizzonti RUBRICA [ill
STA\WA [fil
<ln(od>< f>W-....,. S. Gi.n..oM.(Mll Custom Cursor UTILITY
Ul:SOA~:' cS.mOC IPAlTotb; ·l~i·~n C:Kt-:p tnc. Los AllOS lfill•. mio Divagazioni RUBRICA [ill
Robi~ ts l.lnc'o 9'Ml22 Cal1iomla T d: 001...; I S.9ia920"-8
~~7~~ ~;i:_rn,~i1QN11. .~ Conde dc ~ver, Minimap UTILITY ~
Ti:t 401736$ • 4012}80. F.u: 4012781
[fil
UtSTRIBUZIONf. Megasqueeze UTILITY
SOOlf>Vi. . :t.utt1ti. 25 • 2012S Milolno
~pcdi1io1~ Jn 11.bbonJ1n~1110 postale: Gnip1m 111/70 Race Ace GAME lli:l
Pn:o110 llellt ti\'hl:t: L 8.500 (1,.""ti.~U:l)
PArmc:ucnui ucl.c: lla ti\'1!>u; LL. 1172..5(0~0 (di...oo) Compro ... Vendo ... Scambio RUBRICA ~
Arn'CtUO: '-2.,.000
/\bborwinw:nlo: LL. 7141.08.00000 (ctd--is.i~o"otb) ) MLX SERVICE !fil
L 149.600(ça. .- .eeu)
L. !20.000 (cbs<o)
"~'* "~"'("""'' ..- l/ln/lcl9h.l e!Udri numeri 1'Sdti
Al"TORl'l.,.AZlO.l\'E
Tni..di M. .... n.1.UddY-llU(assct,.)
Trib. di M1f:.tM n.."1dd2IU37 C~> Il Gruppo Editoriale Jackson pubblica anche le seguenti ri•iste:
!;:::t~~~~i='°~~~~:;;i~~~~:~~~~~~c;.;~c:~~ ~kr:~!hi.~~~.
Tr~i,,.sitlfic Oati e TclCC'Omunk-..1 1()ni • Wau Stru:mcnli M~M.~Ji • R1tt Elenronica • Amip Mag:vJnt ·Ami._., Ga~ •
l'C Softw;vc • G11id::a Video~iochi.
SUPER COMMODORE C64/128 3
ABC del BASIC
In questo e nel prossimo numero affronte il programma per controllare i riflessi. Nel
remo un nuovo tema, vedremo infatti frattempo, avremo modo di imparare
come accedere ai timer del 64 dal linguag qualche cosa di nuovo sul BASIC. Prima,
gio BASIC. Avete letto bene, il 64 ha più rendiamo schermo e bordo di colore nero
I timer
di un timer incorporato: precisamente ne con un paio di POKE già usate in passato.
ha due. uno molto esano e l'altro un po' Nello stesso tempo, puliremo lo schem10
Larry Cotton
meno. Per ora seriv ere mo un programma e definiremo qu<ilche variabile.
che utilizza il timer meno preciso per
misurare i tempi di reazione. Spendiamo 10 POKE 53280,0:POKE
prima qualche parola in merito ai timer inserendo questa semplice linea: 53281,0:PRINT CHR$
stessi. (147) :BT=lOO :FL=l:
Come· i lettori più fedeli ricorderanno, 10 PRINT TI"{UP}":GOTO 10 I=l:L=39
quando usiamo le variabili all'interno di
un programma dobbiamo essere cauti Ora, battendo TI= O, si causa un errore di Ora riponiamo la linea che abbiamo usato
nell 'atlri buire loro dei nomi. Pere sempio, sintassi, visto che TI è una variabile che si per studiare la funzione RND (random).
mentre NUMBER = 6 è valido, TIME= 6 può soltanto leggere. E' però possibile Essa utiliz:ui TI per assicurare l'assoluta
non loè. regolarla ricorrendo all'altra variabile casualità della prima pausa.
Questo perché NUMBER (NU) non si riservata ai timer, TT$. Inserendo PRINT
gnifica una variabile riservata, a differen TIS, vedremo un numero a sei cifre in un 20 RN=RND(-TI/101)
za di TJME (TI). Come fare per sapere particolare formato: HHMMSS. H sta per
quali variabili sono riservate? TI modo ore, M per minuti ed S per secondi. Per calcolare il tempo di reazione di un
migliore è di consultare la Programmer's La variabile riservata TIS conta da utente, stamperemo sullo schermo una
Rcference Guide. Scoprirete così che esi 000000 (il momento in cui accendiamo il linea orizzontale colorata ed aspetteremo
stono due variabili, TI e TIS. riservate ai computer) a 235959 (23 ore, 59 minuti e che venga premuta la barra spaziatrice.
timer. 59 secondi dopo) per poi iniziare da capo. Questa slriscia colorata sarà composta <la
Quindi se TT$ è 042307, il computer è caratteri di spaziatura in inverse, che defi
TI ET1$ stato acceso per 4 ore, 23 minuti e 7 niamo immediatamente.
Accendiamo il computer (se il vostro è già secondi circa. Scrivo circa perché il jiffy
acceso, spegnetelo e riaccendetelo). Non clock non è molto preciso, ma di questo 30 C$=CHR$(18}+CHR$(160)
appena vediamo il messaggio READ Y ed parleremo pi11 diffusamente il mese pros
il cursore lampeggiante, scriviamo simo. CHR$( 18) cambia ciò che segue in inver
PRTNTTT seguito da RETURN. Dovreb Per azzerare TI e TI$ mentre il computer se, e CHRS(l6) è il carattere di spazio.
be apparire un numero sullo schermo. è in funzione, inseriamo TI$= "000000". Quindi C$ è uno spazio in inverse. Diamo
Digitiamo ancora PRINTTT e confennia Poi digitiamo PRTNT TJ o PRlNT TI$ all'utente la possibilità di scegliere il
mo con RETURN. Un altro numero, diverse voit e per verificare che siano state numero di controlli da effettuare;:.
maggiore del precedente, verrà stampato. veramente azzerate.
Continuando di questo passo vedremo Possiamo regolare TI$ come preferiamo, 40 INPUT "{DOWN} {WHT}
numeri sempre più grossi. Cosa sta suc anche secondo l'orario. Provateci. Se QUANTE LINEE (MAX
cendendo? sono le 9.15 di mattina, scriviamo 15)";NB:IF NB<l OR NB>
Quando il computer viene acceso, un TI$="091500" seguito da RETURN. Da 15 THEN PRINT"{3
orologio interno, che Commodore ha questo momento in poi, impartendo UP}":GOTO 40
chiamato jiffy clock, inizia a scattare ogni PRlNT TI$ vediamo l'ora esatta. .. più o
1/ 60 di secondo. Queste frazioni di secon meno. I valori massimi per TI e Tl$ sono Abbiamo usato INPUT ed lF-THF.:N per
do vengono infatti chiamate jiffy. I nume rispettivamente 5 L8 3999 (24 X 60 X 60 X catturare le risposte dell'utente e per
ri che avete appena visto sul monitor sono 60 -I) e "235959". contenerle entro limiti ragionevoli. Ora
dunque i jiffy tTascorsi dall'accensione diamo un messaggio al nostro utente.
del computer. Controllo riflessi
Nel modo programma, possiamo consta Ora che abbiamo delineato complessiva 50 PRINT " { CLR} { 2 DOWN}
tare il rapido incremento del jiffy clock mente TI e TI$, incominciamo ad inserire PREMI SPAZIO QUANDO
4 SUPER COMMODORE C64/128
VEDI QUALCOSA." biamo farlo. PRINT J; :PRINT
60 PRINT " {DOWN) IL NUMERO
IN CODA ALLA BARRA E' IL 120 K=K+I:GET AS:IF A$<>" In questa linea la variabileJ viene usata in
TEMPO DI REAZIONE": {SPACE}"THEN PRINT C$; diversi modi: prima è il tempo di reazione
PRINT"{DOWN}IN :IF K<L THEN 120 in jiffy, poi il tempo in secondi, con parec
SECONDI." chie cifre dopo la virgola. Infine il suo
70 IF GL=O THEN GL=l: La variabile K incrementa di un 'unità valore viene arrotondato a due cifre e
PRINT"PREMI SPAZIO ogni volta che viene stampato uno spazio. stampato in caratteri inverse al termine
PER INIZIARE."; La usiamo per constatare se la riga ha della barra orizzontale.
"GOTO 90 raggiunto il bordo dello schermo. Se ciò Fino a che viene premuto spazio, non
80 PRINT "{DOWN)PREMI accade, l'utente ha un tempo di reazione vogliamo succeda nient'altro. Per assicu
SPAZIO PER molto lungo oppure non presta attenzione rarcene, usiamo un altro registro speciale,
RICOMINCIARE." al test. La condizione IF-THEN confronta il 197.
il valore crescente di K con L (regolato a
Tutti pronti... 39 alla Linea 10). Se è minore di 39, il 160 IF PEEK(l97)•60
Fate caso al messaggio un poco diverso bordo dello schermo non è stato ancora THEN 160
delle linee 70 ed 80, una per la prima linea raggiunto. Il programma torna al princi
colorata, l'altra per le successive. Ora pio della linea, incrementa K, controlla la Nel numero di dicembre abbiamo visto
aspettiamo che l'utente legga il messag tastiera per individuare un'eventuale come usare PEEK( 197). Ricorderete che
gio. pressione della barra spaziatrice, e conti la locazione 197 rappresenta il registro
nua a stampare spazi in inverse. per la matrice di tastiera. Nel caso speci
90 GET A$:IF A$<>": Se la riga tocca il limite estremo dello fico, per il tempo di pressione della barra
{SPACE)"THEN 90 schenno, dobbiamo azzerare il contatore spaziatrice, il oompuiter rimane in loop.
di canitteri ed informare l 'utentedella sua Non appena il tasto viene rilasciato vo
E' un classico loop per attendere la ri~i><>­ spaventosa prestazione. gliamo innescare due meccanismi: il buf
sta dell'utente, solo allora incomincia fer di tastiera verrà nuovamente pulito ed
l'azione. 130 IF K=L THEN K=O: al valore di TL, Oa l! 'inizio, devesommar
PRINT: PRINT" {W HT} si J. La variabileTLrappresentail totale di
100 PRINT CHR$ (147) :FOR U~l TROPPO TARDI!": tutli i tempi di reazione, e verrà utilizzato
TOINT(800*RND(l)) GOTO 230 più tardi per trovare il tempo medio.
+30:NEXT U:POKE 198,0:
PRINT "{REO}; A vendo già terminato il prognimma e 170 POKE 198,0:TL=TL+J
sapendo che è relativamente breve, bo
Cosi puliamo lo schenno ed aspettiamo usato un GOTO anziché un GOSUB. Per Contatore di barre
per un periodo di tempo casuale. Dopo, una programmazione più ordinata ed effi Dobbiamo inrrodurre a questo punto un
puliamo il buffer di tastiera(POKE 198,0) ciente (specialmente per i listati più lun contatore D, che tiene conto del numero di
e cambiamo in rosso il colore del cursore. ghi) si preferiscono le subroutine. righe colorate stampate. Lo confrontiamo
Utilizzando un tempo indeterminato si con il numero specificato dall'utente (il
evita qualsiasi anticipazione da pane del Come vanno i riflessi? valore NB catturato alla linea 40).
l'utente. Alla fine della pausa stampiamo OK, l'utente ha premuto la barra, quindi
il primo spazio in inverse della riga ed possiamo controllare il valore di TI. 180 D=D+l:IF D+NB
azzeriamo il jiffy clock. THEN 240
140 J=TI:K=O
110 PRINT C$;:TI$="000000" Abbiamo così esaurito lo spazio previsto
La variabile I assume il valore che TI ha in per la nostra rubrica in questo numero di
... Via! questo istante e K, il contatore caratteri, SuperCommodore. Cercate di terminare
Ora il valore di TI è O, ed il calcolatore di viene azzerato. Svolgiamo qualche opera da soli il programma.
reazione sta funzionando. zione matematica per convertire il tempo Nella parte restante, che vedremo nel
Il punto e virgola dopo C$ è molto impor di reazione da jiffi in secondi. Poi, arro prossimo numero, si alternano righe rosse
tante, fa sl che gli spazi in inverse della tonderemo il risultato in un numero di due e blu, si provvede per le reazioni anticipa
riga vengano stampati uno dopo l'alrro. cifre. te e .vengono stampati i tempi di reazione
Ora conrrol liamo la tastiera per vedere se medi ed i migliori.
l'utente ha reagito all'apparire del primo 150 J=J/60:J=INT
C> Cnmp1,1e Pu.blicatùJns 1990. Tuu/ I diritti .tmu> rLtervali.
carattere. E' molto improbabile, ma dob- (J*l00+.5)/100: Anicofo sradotto dal numero di nu1g15lo '90 di C. G,
SUPER COMMODORE C64/128 5
Conosci l'informatica
e il tuo C64/128?
1. Che sigla ha il microproce.~sore monta essere collegati insieme istru7.ioni
to sul Commodore 64? hJ sono meno costosi dei loro simili a d} dare un nome al programmn
due stati e) risolvere i calcoli elementari
a) 68000 r} hanno un più basso assorbimenio
b} 6510 di corrente. quindi consumano
C) Z80 meno 9. Nel disegno di figura, identificate le
d) 80386 permettono di avere a aree di memoria del C64 contrassegnate
eJ 8080 disposizione tre livelli logici in modo diverso.
distinti
vengono alimentati con una
2 A<.I ogni comando BASIC corrisponde corrente di intensità costante
un numero che rappresenta il comando
stesso e che viene poi incerprctato dal
calcolatore. Come si chiama tale numero? 6. Quando si lavora con numeri binari è
preferibile utilizzare la rappresentazione
a) block esadcdmale invece che quella decimale
h} sprite perché:
e') carattere di riconoscimento
di funzione a) è un misto tra cifre e caratteri
e) 1okcn b) il sistema esadecimale è più
fm.:ilmence utili:ti:.abile dalle I
pen;onc
.l I sistemi basati su microprocessore cl il sistema esadecimale dà una I 0000
sono più flessibili dei sistemi a "logica rapprescnta7.ione meno compatta
1
cablata" in quanto: d) i numeri esadecimali sono legati ai
numeri binari da relazioni più
u} il microprocessore ha una velocità semplici la) traltcggiata = ROM
e una potenza superiore <') i numeri decimali sono legati ai grigia = dispositivi di I/O
/)) usufrniscono di un hardware numeri binari da relazioni più bianca =RAM
specializzato semplici b) traucggiara = RAM
e) usano chip LSI grigia= ROM Kemal
d) il loro funzionamento è I bianca = ROM Basic
controllato da software 7. Inserendo una cartuccia nello slot di e) traueggiata = dispositivi di 1/0
e} sono più veloci e.~pansione del C64. si attivano due lince grigia = RAYI
di controllo che hanno il potere di modifi- , bianca= ROM
care appropriatamente la memoria: come d) traneggiatu = ROM Kemal
.f, Nelle 256 pagine di 256 byte ciascuna. si chiamano tali linee'! grigia = ROM vi<.leo
gli indirizzi vengono fonnati da: bianca= ROM Basic
a) HIRAM e LORAM e) traueggiata =dispositivi di 1/0
a) due byte che, combinati. danno il b) F.XROM e GAME grigia= ROM
numero di indirizzo e·) CHAREN e HIRAM bianca= RAM
b) quanro byte, i primi due per la d) LORAM e EXROM
pagina e) CHAREN e GAME
e) due byte, il primo per la pagina, il t IO. L'equivalente binario di B9 (hcx) è:
secondo per l'indirizzo del byte
dJ un solo byte di cui i primi due bit 8. In un programma scritto in assemblcr. a) 10010111
per la pagina lo scopo delle label è quello di: b) 11010101
,., due bit di cui uno di pagina e:) 10111001
u) identificare delle loca7.ioni cui d) 11010001
altre istruzioni l'anno riferimento e) I JOJ 1100
:.. I dri'w arre <tati sono utili in quanto: b) indicare il punto <.li partenza del
programma
pe::r.~::0:10 :I più dispO>ilÌ\ i di e 1 ~piegare la funzione delle I 'ed<'rc' le 1'iJpos1e a pa'.li1111 1-
Tips& Tricks
A cura di A. (",auanco
l.!)6 1
PROGRAM MEKGR 150 DATA 44,3,169,19?.,141, EASYLOADIR
45, 3,32
Incorporate i programmi BASIC con 160 DATA 212,/.25,165,186, Eccovi una uti lity indispensabile per ogni
questa cona, veloce routine per il C64. E' 201,8,144,91 possessore di drive. Caricate la directory
richiesta l'unità drive. 170 DATA 169,1,166,:86, schiacciando ~olo due 1asti quindi dovrete
Ecco come usarlo. Il progmmma Merge 160,3,32,186 solo muovere il cursore sopra il nome del
stampa il messaggio PROGRAM MER 180 DATA 255,32,192,255, file c schiacciare Return per caricare i I
GE INSTALLED ATxxxxx, in cui xxxxx 32,175,24!:>,162 programma. Solo per C64 con drive.
è l'indirizzo iniziale. Program Mcrge 190 DATA 1,32,198,255,32, Con Easy LoaDIR, è molto facile aprire
incorpora un programma in memoria con 7.28, 2!:>5, 32 una directory. dovrete semplicemente
uno su disco. Usate la seguente sintassi 200 DATA 228,255,32,183, schiacciare$ e quindi return. La directory
per incorporare il progn1mma sudiscocon 255,201,0,208 dcl dischelto presente nel drive R apparirà
uno in memoria: 210 DATA 58,169,202,160, sullo schenno. Per bloccare lo sconimen
SYS 49152,"filename",drive# 192,32,30,:71 to della list premete sulla barra spaziatri
in cui filenamc è il nome dcl programma 220 DATA 162,1,32,198,255, ce. Schiacciate qualsiasi tas10 per vedere
che deve c.~sere incorporato e drive# è il 32,228,255 il resto. Per fermare la directory schiac
numero del dispositivo drive nel quale è 230 DATA 32,228,255,32, ciare RUN/STOP.
collocato il programma. 183,255,201 ,0
240 DATA 208,40,32,228, 15 POKE 646,14:POKE53280,
20 PRINT"{CLR} (WHJ'l'E} (3 255,133,20,32 l4:POKE!:l3281,6
SPC}COPYRIGHT 1988 250 DATA 228,255,133,21, 20 PRINT" {CLR)PLEAS~:
COMPUTI':! PUB. / INC. " 169, o, Hl, 239 WAlT:"
30 PRIN'i'Tì\B (11) "A l.L 260 JAfA 192,32,2?.8,255, 30 )'f{JN':'" { 4 CUR. GIU)
RIGHTS RESERVl::O": 172,239,192,153 "TAB ( 14) "EJ>.SY LOA {R VS
SA-49:.52 270 DATA 251,:.,7.01,0,240, ON}DIR"
40 Vl=SA+96:Hl INT(Vl/ 47,238,7.39 40 PRINT"{2 CUR.G1U}(l2
256) :Ll Vl-Hl*256:V2= 280 DATA 192,208,238,169, SPC}COPYRIGHT 1988"
SA+l97:H2=INT(V2/ 211, 160, 192, 3?. 45 PR1NT"(CUR.GIU}(7 SPC}
256) :L2=V2-H2*256 290 DATA 30,171,173,235, COMPUTE! PUBLTCATTONS,
50 F'ORI=SATOSA+2311: READD: 192,141,2,3 INC."
CK=CK+D:POKEI,D:NEXT 300 DATA 173,236,192,141, 50 PRINT"(CUR.GIUl"TAB
60 H'CK<>29233THEN 3,3,173,237 (11) "ALL RIGHTS
PRINT"*•• ERROR IN 310 DATA 192,141,44,3,173, RESERVED"
DATA S'i'l\TEl".ENTS ***" 238,192,14:. 60 RE~ READ ANO STORE
:END 320 DATA 4!:>,3,169,1,32, MACHINE LA~GUAGE DATA
70 POKESA+28,Ll :POKESA+3 195,255,37. 70 FORAD=52736T053152:
3,Hl:POK~SAt38,L2:POKE 330 DATA 204,255,76,116, READDT:POKEAD,DT:X•
SA+43,H2 164,132,11,32 X+DT:IFAD=52803THENX
80 PRINTCHR$(147);" 310 DATA 19,166,76,167, =X-DT
PROGRAM MERGE INSTAL 164,169,1,76 80 PRINTCHR${19) ;TAB(l3);
LED AT";SA:END 350 DATA 49,243,13,77,69, RIGHT$("00"+MID$(STRS
90 REM :-1.A.CH!NE J.ANGUACE 82,·11,13 (53152-AD),2),3)
01\'!'A 360 DATA 78,71,0,13,63, 90 NEXTAD:IFX<>45626TH~N
100 DA:A 32,231,255,173, 70,73,76 PRINT"DATA STATEMENT
2,3,141,235 370 DATA 69,32,78,79,84, ERROR.":S'IOP
110 DATA 192,173,3,3,141, 32,70,79 100 REM INSTALL PROGRAM
?.36,192,173 380 DATA 85,78,68,32,32, WEDGE AND END
120 DATA 44,3,141,237,192, 69,82,82 110 SYS52736:END
l'/3,45,3 390 DATA 79,8?.,0 120 REM M.~CHINE LANGUAGE
130 DATA 141,238,192,169, DATA
96,141,2,3 130 DATA 238,33,208,173,0,
140 DATA 169,197.,111,3,3, 3,?01,50
169,197,141 140 DATA 208,7,173,1,3,
SUPER COMMODORE C64/128 7
201,206,240 207,162,153,160 POWER PO!CE 64
150 DATA 22,173,0,3,141, 470 DATA 207,32,26,207,32, 20 PRINT"{CLR} {BLACK} (3
62,206,173 228,255,76 SPC}COPYRIGHT 1988
160 DATA 1,3,141,63,206, 480 DATA 232,206,173,134, COMPUTE! PUB., INC."
169,50,141 2,72,173,33 30 PRINTTAB(ll} "ALL
170 DATA 0,3,169,206,141, 490 DATA 208,141,134,2, RIGHTS RESERVED"
1,3,169 138,32,30,171 35 PRINT"{CUR.GIU}POWER
180 DATA 45,160,207,32,30, 500 DATA 104,141,134,2,96, POKE INSTALLED."
171, 206, 33 147,32,32 40 FORI•679T0728:READA:
190 DATA 208,96,224,11, 510 DATA 32,32,32,32,32, POKEI,A:X=X+A:NEXT
208,7,32,121 32,32,32 so IFX<>5022THENPRINT"
200 DATA 0,201,36,240,3, 520 DATA 32,32,32,32, 69, {CUR.GIU)DATA
76, 139, 227 65,83,89 STATEMENT ERROR.":STOP
210 DATA 104,104,162,8,32, 530 DATA 32,76,79,65,18, 60 SYS679
115, O, 240 68,73,82 70 DATA 169,178,141,8,3,
220 DATA 16,32,158,183, 540 DATA 13,13,32,32,32, 169,2,141,9,3
224,8,240,9 67,79,80 80 DATA 96,32,115,0,201,
230 DATA 224,9,240,5,162, 550 DATA 89,82,73,71,72, 151, 240, 6, 32, 121
14,76,55 84,32,49 90 DATA 0,76,231,167,32,
240 bATA 164,142,161,207, 560 DATA 57,56,56,32,67, 115,0,32,36,184
32,98,206,76 79,77,80 100 DATA 32,121,0,240,242,
250 DATA 6,169,169,2,162, 570 DATA 85,84,69,33,32, 230,20,208,2,230
159,160,207 80,85,66 110 DATA 21,32,241,183,32,
260 DATA 32,189,255,169,1, 580 DATA 76,46,44,32,73, 39,184,76,197,2
174,161,207 78,67,46
270 DATA 160,0,32,186,255, 590 DATA 13,32,32,32,32, POWER POICE128
32,192,255 32,32,32 20 PRINT" {CLR} {BLACK} { 3
280 DATA 32,183,255,201,0, 600 DATA 32,32,32,65,76, SPC)COPYRIGHT 1988
208,77,162 76,32,82 COMPUTE ! PUB. INC."
I
290 DATA 1,32,198,255,32, 610 DATA 73,71,72,84,83, 30 PRINTTAB(ll)"ALL
228,255,32 32,82,69 RIGHTS RESERVED"
300 DATA 228,255,169,13, 620 DATA 83,69,82,86, 69, 40 FORI-2816T02865:READ
32,210,255,165 68,13,13 A:POKEI,A:X•X+A:NEXT
310 DATA 145,16,57,32,204, 630 DATA 0,32,68,193,0, 4 5 IFX•4 688THENPRINT"
255,32,228 58,76,207 {CUR.GIU}POWER POKE
320 DATA 255,201,32,208,7, 640 DATA 0,44,56,44,49,58, ACTIVATED."
32,228,255 0,36,48 50 IFX<>4688THENPRINT"
330 DATA 201,0,240,249, {CUR.GIU}DATA
169, 1, 141, 162 STATEMENT ERROR.":STOP
340 DATA 207,162,145,160, 60 SYS2816
207,32,26,207 70 DATA 169,11,141,8,3,
169,11,141,9,3
350 DATA 162,1,32,198,255,
80 DATA 96,32,128,3,201,
32,228,255 151,240,6,32,134
POWERPOKE
360 DATA 32,228,255,32, 90 DATA 3,76,243,74,32,
228,255,133,57 Velocizzate il BASIC con questa corta 128,3,32,229,128
370 DATA 32,228,255,133, ucility che aggiunge una nuova dimensio 100 DATA 32,134,3,240,242,
58,32,183,255 ne dinamica ai comandi POKE utilizzabi 230,22,208,2,230
380 DATA 201,0,240,18,169, li su C64 e 128. Il comando POKE può 110 DATA 23,32, 9,136,32,
255,133,58 agire solo su un byte alla volta ed è quindi 232,128,76,30,l
390 DATA 32,204,255,169, molto lento.
13,32,210,255 Un loop FOR/NEXT che carica un lungo
400 DATA 169,1,32,195,255, programma in memoria può richiedere un
96,32,201 lungo tempo di esecuzione. "Power
410 DATA 189,162,149,160, POKE" altera la sintassi del comando f119l
207,32,26,207 POKE per farlo diventare più versatile. La COLOR LISTER
420 DATA 32,228,255,201,0, nuova sintassi sarà: POKEaddr,byte
240, 155, 72 [,byte.byte, ... bytel Usate i colori per riuscire ad eliminare
430 DATA 32,210,255,104, Per esempio ecco due linee: facilmente gli errori dai vosbi program
201,34,208,240 IO FORX=l024T01029:READ mi. Color Lister è un programma in L.M.
440 DATA 169,0,133,212, Y:POKEX,Y:NEXT molto corto stoccato nella routine BASIC
206,162,207,240 20 DATA 72,69,76.76,79,33 LIST. Quando scrivete RUN, il leader
450 DATA 231,169,0,133, che possono essere semplificate in una Basic carica il L.M. in memoria. Installate
199,169,48,13 sola con Power POKE: Color Lister all'inizio della programma
460 DATA 161,207,141,154, 10 POKE1024,72,69,76,76,79,33 zione caricando il programma e scruac-
8 SUPER COMMODORE C64/128
dando RUN. Per vedere come lavora logo Commodore) per far apparire la frase 280 OPEN15,8,15,"I0":
Color Lisler scrivete NEW e poi chiamate scelta. E' richiesto il drive. Per attivare le CLOSE15:IFST<>OTHEN370
i seguenti programmi esanamente come funzioni definite scrivete SYS51200. Le 290 OPEN1,8,15:0PEN2,8,2,
in questo listato: chiavi di definizione sono accessibili in "0:"+N$+",P,W":IFST<>O
10 REMA quattro modi. La seguente tabella vi THEN340
20 PRlNT'HELLO" mostra come definirne 16: f1 f3 f5 fl 300 PRINTl2,CHR$(0)
30 REMB Function key l 2 3 4 CHR$(200);
40 PRINT'GOODBYE" Con Shift 5 6 7 8 310 FORK•51200T051350+C:
Ora scrivete LIST e vedrete il listato in ConCTRL9101112 PRINTi2,CHR$(PEEK
due colori. Per cambiarli dovrete spostare Con chiave logo 13 14 15 16 (K));:NEXT
di una riga il comando REM. REM può 320 IFST<>OTHEN340
essere immediatamente seguita da un 20 PRINT"{CLR} {BLACK} {3 330 PRINT"SAVE COMPLETED.
numero da I a 8 o una leuera dalla A alla SPC}COPYRIGHT 1988 ":GOT0350
H. I numeri rappresentano i colori da I a 8, COMPUTE ! PUB. , INC. " 34 O PRINT" {REO} ERROR: { 2
mentre le lettere i colori da 9 a 16. 30 PRINTTAB(ll)"ALL SPC} {LT.GREEN}";
Per uscire da Color Lister schiacciate RIGHTS RESERVED": 350 GETl1,E$:PRINTE$;:IF
RUN/STOP o RESTORE. Per disabilita GOSUB390 E$<>CHR$(13)THEN350
re il programma scrivete il seguente 40 F$ (l)="LOAD"+CHR$ (34) 360 CLOSEl:CLOSE2:PRINT
comando: 50 F$(2)="SAVE"+CHR$(34) "{CLR}":SYS51200:END
POKE 774,26:POKE775, I6 7 60 F$(3)="PRINT"+CHR$(34) 370 PRINT" {RED}DISK ERROR
70 F$(4)-"P{SH 0)53281,0: : {2 SPC} {LT.GREEN}"
20 PRINT"{CLR}{BLUE}{3 P{SH 0}53280,0: •+CHR$ 380 PRINT"{2 CUR.DES)
SPC}COPYRIGHT 1988 (152)+"LIST"+CHR$(13) INSERT DISK ANO PRESS
COMPUTE ! PUB. I INC. Il 80 F$(5)="GOTO" A l<EY.":WAIT198,15:
30 PRINTTAB(l0)"ALL 90 F$(6)="GOSUB" GETA$:GOT0280
RIGHTS RESERVED" 100 F$(7)="FORI=lT0500: 390 FORI=51200T051349:
40 FORI=828T0916:READA: NEXT" READA:X•X+A:POKEI,
POKEI,A:X•X+A:NEXT 110 F$(8)="LOAD"+CHR$(34) A:NEXT
50 IFX<>l1017THENPRINT +"$"+CHR$(34)+",8" 400 IFX<>l9573THEN
"{CUR.GIU)ERROR IN 120 F$(9)="0PEN4,4:CMD4 PRINT"ERROR IN ML DATA
DATA STATEMENTS.":STOP :LIST" STATEMENTS.":STOP
55 IFX=11017THENPRINT" 130 F$(10)="0PEN15,8,15,"+ 410 RETURN
{CUR.GIU}COLOR LISTER CHR$(34)+"VO"+CHR$(34) 420 DATA 169,124,160,200,
INSTALLED." +":CLOSE15" 32,30,171,120,169,20
60 DATA 169,75,141,6,3, 140 F$(~l)="OPEK15,8,15,"+ 430 DATA 141,20,3,169,200,
169,3,141,7,3 141,21,3,88,96
CHR$(34)+"IO"+C~RS(34)
70 DATA 169,0,133,251,96, +":CLOSE15" 440 DATA 165,197,201,64,
8,133,252,132,253 150 F$(12)="LIST0-150"+ 208,5,133,253,76,49
80 DATA 134,254,173,141, CHR$(13) 450 DATA 234,197,253,240,
2,208,251,165,251,208 160 F$(13)="LIST151-300"+ 249,133,253,201,3,144
90 DATA 12,165,252,201, CHR$ (13) 460 DATA 243,201,7,176,
143,208,42,169,1, 133 170 F$(14)="LIST300-450"+ 239,41,3,133,254,173
100 DATA 251,208,36,165, CHR$ (13) 470 DATA 141,2,208,5, 165,
252,201,49,144,26,201 180 F$(15)="LIST451-600"+ 254,76,65,200,170
110 DATA 57,144,14,201,65, CHR$ (13) 480 DATA 189,142,200,5,25
144,18,201,73,176 190 F$ (16) ="RUN"+CHR$ (13) 4,162,150,160,200,134
120 DATA 14,41,15,105,7, 200 FORP=lT016:L=LEN(F$ 490 DATA 251,132,252,160,
208,5,56,41,15 (P)) :FORI=lTOL 0,170,240,17, 177,251
130 DATA 233,1, 141,134,2, 210 POKE51350+C,ASC(MID$ 500 DATA 208,3,202,240,9,
169,0,133,251,166 (F$ (P), I, 1)) :C=C+l: 230,251,208,245,230
140 DATA 254,164,253,165, NEXT:POKE51350+C,0: 510 DATA 252,76,78,200,20
252,40,76,26,167 C=C+l :NEXT 0,177,251,240,185,201
220 PRINT" {CLR} {CUR.GIU} 520 DATA 13,240,11,32,210,
ALL KEYS ARE DEFINED." 255,200,208,242,230
230 INPUT"DO YOU WISH TO 530 DATA 252,76,95,200,
SAVE THIS VERSION{2 141, 119,2,162,1,134
SPC}Y{3 COR.SIN}";Q$: 540 DATA 198,76,28,200,83,
FUNCTION IFQ$="Y"THEN260 85,80, 69,82,75
KEY MAGICIAN 240 IFQ$<>"N"THEN230 550 DATA 69,89,32,69,78,
250 PRINT"{CLR}":END 65, 66, 76, 69, 68
Function Key Magician vi dà la possibili 260 INPUT"FILENAME";N$: 560 DATA 46,0,0,4,8,0,12,
tà d.i creare e salvare 16 macro chiavi-fun L=LEN(N$) :IFL<10RL> 0,0,0
zione. Bastedì poi schiacciare uno dei 16THEN260
tasti funzione (o una chiave funzione 270 PRINT"{CUR.GIU}PLEASE
congiunta con lo Shift, CTRL o la chiave WAIT ... "
SUPER COMMODORE C64/128 9
i lettori
ci scrivono
COME PROTF.GGERE
I GAME?
Suno 11n 1•ostra tenore da malto tempo.
Pnsseggu nwtn· numeri di Supercammo
dore C641128, malgrado abbia smarrito
fa maggior parte di essi durame 1111 traslo
co. /11 q11e.~ti anni non Yi lto mai scriuo.
que.vta è lo prima l'olta e spero l'lte mi
rispondiate. li/ manccm:a di 11110 maffhi-
110 da .\'1Ti1·ere spero e/te il mio saiffo .~io
ime/leggibile anclte cosi. Ma 1·<•11ia1110 al
d11nq11e: i11111ofri giochi, 1111a mito carica
ti. alfa richieslll del LIST. 11on l'ieue 1'is11a
fi::ato t11ffn il listato. bensì 1111a sola linea,
11na SYS seguita da un nu111ero. Vorrei
111e11ere q11esto speciale prote:inne 11ei
mieipmgrammi. infatti il trucco del REM
SHIFTIL 11011 è 1110/w efficace pe/'fhé
basw canrellare la sua linea d1e 01110111a
rica111ent<' 1•ie11e l'i.mali::ato 111110 il pro
gramma. 111 a11esa di 1111a 1·ostra risposta.
colgo /'ocrnsio11e perfare le mie migliori
co11grat11la:io11i alla l'Ostro ffcelleme ri
vista.
M. La coni - A ve;;ano ( AQ) :ione a "scaui'·. molto fal.1·aw. esiste 11110 carntteri cus1om per 256. POKM9252.y
m11ti11e che possa animare i rnratreri al con y compreso tra 50 e 234 che copre
r
Quello della protc:lione dei giochi è un fabetici dal basso verso alto con 1111 l'arca di schenno visibile. SYS49152A$
disc;orso sul quale potremmo soffennarci mm·imemo continuo. come quello cfte si dtt ini7.io al processo di scrolling della
a lungo. ma che, crediamo. non ne valga ouiene animando 11110 sprite? In auesa di siringa prima impostata. Un qui1110
mollo la pena visto che sul Commodore 1111 riscomro. di.uimameme saluto. wmando (SYS 49588) cancella la Siringa
64 non esis1e sis1ema di proiezione che cd elimina lo scrolling.
non ~ia già s1a10 scopcno dai pira1i e reso A. Polito -Vii/amare (SA)
di pubblico dominio. La SYS seguita <la l><J
un numero di cui lei parla. non è una forma Esis1e una rou1inc di scroUing tcs10. la
di protezione. bensì l'indiri7.ro di parlcm:a abbiamo pubblicala sul numero 35 nella
del programma serino in linguaggio mac· rubrica Tips & Tricks col numero 99: non
china. ranr'è vero che digiwndo in modo stiamo quindi a ripeterla, le basterà sfo
dircuo la SYS e dando il RUN si vedrà gliare raie rivista e banerc con un po' di TV O MONITOR PRR C128?
partire 1ranquillamentc il programma che pa:ticnza il listalo forrnatoesscnzialmente
non po1r11 venire listato se non con raiu10 das1atcmcntdi DATA (circa due colonne Sono in posses.wdi tm C 128. Oo1·1•mloar
di un programma assemblato~. in rullo) in quanto l<t rou1ine è scrina in q11istare 1111 monitor a colori. ma sap<·11do
linguaggio macchina. Ricordiamo che che ormai qualsiasi marca di tele1·i.wre
raie routine mene a disposizione quanro mrmto ingressi l'ideo e audio sepamti
C>;<I comandi c.:he sono: AS = "SPRITE Tl:'ST inglobati 11ella presa SCART. eo ppor111-
SCROLLEN" dove AS rappresen1a una 1w doma11darsi: è meglio 1111 1ele1·isore
variabile stringa valida fino a 256 carauc do/lito della suddella presa oppure 1111
ri. POKE49534.11 fa puntare il program monitor?
SJ>RITE TRST SCROLLER ma al 1ipo di carauerc che si vuole usare. S. Cortini -PAOO\IA
La cifra 11 è il byte allo dell'indirizzo di
Spe11abile Reda:ione. l'orrei sapere se è par1enza del sei di caratteri (208 per le Il van1aggio del monitor sta solo nella
possibile.far 1111101•ere i carat1eri alfabeti· maiuscole, 216 per le minuscole). Defi maggior larghezza di banda rispeuo al
l'i del C64 dal hasso verso /'alto. lo ci hn nendo nuovi cara11eri, per ottenere 11, si televisore il che gli dona una qualità
provalo. ma ho orren11to solo 11n'a11ima- divide l'indirizzo di partem:a del set dei migliore. Per coniro. il televisore svolge
10 SUPER COMMOOORE C64/128