International Lancia Forums

Amici,
Nel gennaio del 1982 nasceva un Prodotto destinato a cambiare la vita di tutti noi.
Chi lo ricorda?
Chi di voi lo ha usato?
Io lo usavo in coperativa con un altro ragazzo,
per schermo avevamo un televisore b/n.
Dopo trenta anni ancora mi emoziona il ricordo
Gianni

Io non l'ho avuto , ma ho iniziato i miei primi passi "informatici" con il suo predecessore , il VIC 20....
Ricordo ancora le serate passate a digitare pagine e pagine di comandi Basic per giocare con una navicella spaziale ....
Se qualcuno di voi ha ancora un VIC 20 e vuol provare , ecco un semplice listato....

5 S=0:li=3:poke36879,8:print"[carattere cuore in reverse per pulire schermo]"
10 sc=7680:co=30720:cl=38400:as=7680
15 dim a(7),d(7)
16 y=11:x=10:d=1:sx=0:sy=0
20 a=8
25 fori=0to7:a(i)=7680+int(rnd(1)*506):d(i)=int(rnd(1)*3+21):ifrnd(1)>0.5then d(i)=-d(i)
30 next
35 pokecl+y*22+x,3:pokesc+y*22+x,107
36 ifas>0then pokeas,32
40 ad=int(rnd(1)*3+21):ifrnd(1)>0.5then ad=-ad
45 as=int(rnd(1)*506)+7680
50 fori=0to7:k=peek(197):ifabs(sx)+abs(sy)=0 then poke36877,0:goto55
51 poke36878,15:poke36877,235:sx=0:sy=0:goto55
55 d=d+(k=34)-(k=33):ifd3thend=d-4
65 sx=sx+((d=1)-(d=3))*(k=36):sy=sy+((d=2)-(d=0))*(k=36)
70 ifsx1thensx=1
80 if sy1 then sy=1
90 pokesc+y*22+x,32:x=x+sx:y=y+sy
95 if k=15 then x=int(rnd(1)*22):y=int(rnd(1)*23)
100 if x21 then x=0
110 if y22 then y=0
116 if peek(sc+y*22+x)32then 1000
120 pokecl+y*22+x,3:c=107:if d=2 then c=114
125 if d=3 then c=115
130 if d=0 then c=113
135 poke sc+y*22+x,c
140 if a(i)=0 then 200
141 if a(i)=sc+y*22+x then 1000
145 pokea(i),32:a(i)=a(i)+d(i)
150 if a(i)8185 then a(i)=a(i)-506
160 pokea(i)+co,2:pokea(i),81
200 if k32 or int(i/2)*2=i then 260
201 poke36878,12:forx1=255to230 step -1:poke36877,x1:next
205 x1=x:y1=y:dx=(d=3)-(d=1):dy=(d=0)-(d=2):c=64:if dy0 then c=93
210 1=x1+dx:y1=y1+dy
215 pokecl+y1*22+x1,5:if peek(sc+y1*22+x1)=32 then 240
216 poke36878,15:poke36877,130
220 pokesc+y1*22+x1,42
225 forj=0to7:ifa(j)=sc+y1*22+x1 then a=a-1:a(j)=0:s=s+20
230 nextj
231 if sc+y1*22+x1=as then s=s+100:as=0
232 poke 36877,0
235 goto 250
240 pokesc+y*22+x1,c:ifx10andy1>22andy1>0 then 210
250 x2=x:y2=y
251 x2=x2+dx:y2=y2+dy:pokesc+y2*22+x2,32
255 ifx2x1ory2y1then 251
256 poke36877,0
260 ifas=0 then 300
265 pokeas,32:if rnd(1)>0.9then ad=int(rnd(1)*3+21):if rnd(1)>0.5 then ad=-ad
267 as=as+ad:if peek(as+ad*2)=81 then ad=-ad
270 if as8185 then as=as-506
280 pokeas+co,7:pokeas,88
285 if as=sc+y*22+x then 1000
300 next i:if a=0 then 20
305 if as=0 and rnd(1)>0.9 then 40
310 goto 50
100 print"[freccia in alto in reverse]PUNTI"s
1005 fori=1to2000:next:li=li-1:if li>0 then print"[cuore in reverse]":goto 16
1010 poke36878,0:poke198,0
9999 end

Buon divertimento !!!

Era davvero rivoluzionario , bello ricordarlo

Max

Ciao,

ho comprato il mio primo PC nel marzo 2000. Il VIC 20 era sparito da un bel po', ma lo ricordo: ridicolo col mangianastri accanto...

SaaluMi.

Bei tempi, allora pensavo ad altro anche se sulle riviste di elettronica parlavano di questi famigerati personal computer quindi, a puro titolo di curiosità nel 1984 ho investito un mese abbondante dei miei primi stipendi per acquistare uno ZX Spectrum 48k (sembra una burla ma nell'azienda dove lavoravo ai tempi vendevamo i commodore oltre ai PC più seri quali l'allora M24 per le aziende) ma lo spectrum........
Nel 1989 acquistai un Atari così anch'io entrai nel mondo "Mac" (dalla porta di servizio) e lì le icone c'erano già in rom altro che Microsoft Windows che allora era a malapena alla versione 1.0 e servivano 18 dischetti per caricarlo (oltre che un paio d'ore).

cordiali saluti
Jack Fox

...malinconicamente la mia mente è tornata all'età di 10 anni, quando il nastro delle musicassette che contenevano i giochi, si incastrava nelle testine e con paziena (e un'immancabile penna BIC), si riavvolgeva il nastro a mano.
...e le attese per caricare i giochi??
...questo era il comodorre64...ne è passata di acqua sotto i ponti!

Il miticoC64 l'ho avuto anch'io, in comproprietà con un mio amico, prima col registratore a cassette tipo Vic 20, poi con l'unità disco...
Un mito, ho imparato a programmare in BASIC, cosa che mi è servita più avanti per l'arte cose, tipo,le macro e così via. Certo non disdegnavamo anche di giocare B)

Ce l'ho ancora in soffitta, ma purtroppo il lettore non funziona più, magari tra 20 anni lo tiro fuori....B)

Come Francis, l'ho in soffitta con gli accessori, l'ho usato anche per fare la tesi ed il prof era sconvolto, lui correggeva ed io il giorno dopo gli riportavo il testo stampato con la stampante ad aghi, era la prima vplta che gli capitava.
Devo anche dire che la conoscenza informatica di base mi ha fatto fare un salto di qualità nel primo impiego in Reconta Touche Ross ero tra i primi ad usare un "trasportabile" con un video 7 pollici ambra ed a fare i primi programmi per la revisione dei bilanci.
Un successo il bilancio consolidato del Gruppo Fondiaria fatto con il Lotus 1-2-3 su sistema DOS perchè Windows ed Excel ancora non esistevano, se ripenso a quanti soldi fatturarono quel lavoro, però raccoglieva i dati di 117 aziende e consolidava il tutto, comprese le scritture di consolidamento e di eliminazione delle poste intragruppo (solo per addetti ai lavori).
Tutto partendo dal C64 e dal suo Basic.
Lacrimuccia.
Roberto

Mi hai fatto venire in mente che anch'io ci ho scritto la tesi.... Idem per la stampante ad aghi, mi ricordo che stampava le "g" più alte, quindi per la versione definitiva mi ero fatto prestare da un amico una stampante più bellina che stampava in qualità migliore.
Non ho dovuto neppure farla battere, è bastato rilegarla.

Bei tempi.....B)

Vero la g era una cagata pazzesca (fantoziana), la mia stesura finale l'ha battuta a macchina mia sorella.....
Roberto