Rivista: Tu Micro (ES) – N.ro: 01 / maggio 1984 – Trascrizione: David La Monaca
Un gioco semplice ma accattivante per Oric-1 base (16K), Slalom ci trasporta sulle piste innevate per sfidarci con discese veloci e piene di ostacoli. Ne presentiamo due versioni: la prima è quella originale pubblicata sulla rivista spagnola Tu Micro, la seconda è quella riscritta e migliorata da Petar Petrov nel giugno del 1988, che abbiamo trovato sul forum Defend Force.
La prima versione apparve sul numero 1 di Tu Micro, una rivista stampata in Spagna che pubblicava listati di programmi e giochi per diversi sistemi a 8 bit, porta la firma di P.M. Del Moral. La seconda versione chiamata СЛАЛОМ (Slalom) è nettamente più giocabile e sfrutta le capacità dell’Oric-1 mediante i comandi POKE, PLOT e SCRN. Originariamente includeva solo messaggi e scritte in testo cirillico ed era stata progettata per girare su Pravetz 8D, una serie di home computer (cloni bulgari) compatibili con Oric. La versione che pubblichiamo qui è stata tradotta in inglese.
In Slalom impersonate uno sciatore slalomista pronto a gettarsi sulle velocissime piste delle gare di Coppa del Mondo per ottenere il miglior tempo. Dopo la schermata d’apertura, verrete avvertiti dell’inizio della gara in programma e subito dopo verrete catapultati sulla pista. Lo scorrimento verticale utilizza lo SCROLL del BASIC dell’Oric e degli alberi che compaiono casualmente costituiranno gli ostacoli da evitare per raggiungere l’arrivo. I tasti freccia a sinistra e freccia a destra (oppure i tasti P ed O nella versione Del Moral) vi saranno utili per virare nelle due direzioni ed evitare ostacoli e bandierine disseminate lungo il tracciato. La partita termina quando non riuscite ad evitare un ostacolo e… beh, vi ci schiantate contro! Capirete presto che un pino di montagna non è esattamente morbido e penetrabile come un cumulo o un pupazzo di neve fresca! Per voi si apriranno immediatamente le porte dell’ospedale e ci metterete un po’ prima di poter tornare a gareggiare. Dopo aver mostrato i dati della gara appena finita, il gioco vi proporrà una nuova partita, che potrete naturalmente accettare per rifarvi della precedente brutta figura.
Titolo: Slalom
Piattaforma: Oric-1
Genere: Gioco
Linguaggio: BASIC
Autore versione originale: P. M. Del Moral / Petar Petrov
Pubblicazione: Tu Micro n. 1, maggio 1984
Elaborazione: David La Monaca
Anno: 2026 (aprile)
Download: file .TAP
Note: un ringraziamento speciale a Cristiano Bei per la segnalazione
Qui di seguito trovate il codice in linguaggio BASIC da copiare sul vostro Oric-1/Atmos originale oppure su un emulatore. Per PC Windows 10/11 suggeriamo Oricutron.
Di seguito le istruzioni per caricare il listato sull’emulatore Oricutron:
– Lanciare l’emulatore Oricutron e premere F1 > Insert Tape… > Oric-Slalom-Petrov.tap
– Digitare CLOAD”” e premere il tasto Return per far partire il gioco
Buon divertimento!
Download link: Oric-Slalom-Petrov.tap – Oric-Slalom-DelMoral.tap
Attenzione – Nel listato i caratteri ‘>’ e ‘<‘ potrebbero essere stati sostituiti dai rispettivi codici di encoding HTML ‘>’ e ‘<’. Nel caso siano presenti, sostituite questi valori nel listato prima di caricarlo nell’editor CBM Prg Studio.
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
1 CLS
2 FOR I=1 TO 32
3 READ N$:N=VAL("#"+N$):POKE 46599+I+32*8,N
4 NEXT
5 POKE #24E,1:POKE #24F,1:PRINT CHR$(17):PRINT CHR$(6)
6 CLS:Y=8:F=7
7 X=20
8 C=33 OR C=47 OR C=99
9 I=I+1
10 D=(1+37*RND(1)):IF D<=3 THEN 10
11 IF I >= 150 AND I <= 299 THEN GOSUB 29:GOTO 15
12 IF I >= 300 AND I <= 599 THEN GOSUB 30:GOTO 15
13 IF I >= 600 THEN GOSUB 31:GOTO 25
14 PLOT D,24,"a"
15 K$=KEY$:PRINT " "
16 IF K$=CHR$(9) THEN X=X+1:GOTO 19
17 IF K$=CHR$(8) THEN X=X-1
18 IF X<3 THEN X=3
19 IF X>38 THEN X=38
20 PLOT X,F,"&"
21 IF SCRN(X,Y)=65+32 THEN 24
22 IF SCRN(X,Y)=66+32 OR SCRN(X,Y)=67+32 THEN 24
23 IF SCRN(X,Y)=68+32 THEN 24 ELSE 9
24 EXPLODE:PRINT"YOU CRASHED IN ICE";I;"METERS"
25 POKE #24E,32:POKE #24F,4:PRINT CHR$(17):PRINT CHR$(6)
26 PRINT "PRESS 'Y' TO CONTINUE";
27 INPUT A$:IF A$="Y" THEN CLEAR:GOTO 5
28 CALL 583
29 PLOT D,24,"bc":RETURN
30 PLOT D,24,"ddd":RETURN
31 PLOT 15,4,"F I N A L ":FOR I=2 TO 38:PLOT I,6,"=":NEXT
32 RETURN
33 DATA C,C,1E,29,C,1E,28,C,1,3,3,1F,7F,FF,FF,FF
34 DATA 80,C0,E0,E0,FF,FF,FF,0
35 DATA 18,3C,3C,FF,FF,FF,FF,FF
