Melbourne House – METEORIC Programming – Anno 1983 – Trascrizione: Francesco Fiorentini
Tempo fa ho acquistato il libro METEORIC Programming – For the ORIC-1 pubblicato in originale da Melbourne House nel 1983
La copia in mio possesso si tratta di una ristampa pubblicata nel 2022 da parte di Acorn Books.
Il libro contiene un gran numero di listati per il computer ORIC-1 ed ho deciso di digitarne qualcuno per arricchire la nostra libreria di RetroLiPS.
Questo listato intitolato Asteroids in Space vi mette nei panni di un astronauta.
Stai viaggiando nello spazio quando incontri una tempesta spaziale. Devi evitare gli asteroidi muovendoti a destra e a sinistra utilizzando i tasti “w” e “e”. Dopo un po’ di tempo ti ritrovi nel cuore della tempesta e devi farti strada tra asteroidi molto più grandi. Alla fine ti schianterai e ti verrà assegnato un punteggio di sopravvivenza.
COME FUNZIONA IL PROGRAMMA
Questo programma utilizza la funzione PRINT per scorrere lo schermo verso l’alto. Quando il display viene fatto scorrere, la tua nave si muove insieme a tutto il resto, quindi viene sovrascritta con spazi e poi stampata di nuovo nella posizione corretta, in questo modo la tua nave rimane sulla stessa linea mentre tutto il resto si muove. Le creature e le astronavi appaiono in modo casuale nella parte inferiore dello schermo. Lo schermo viene fatto scorrere di due righe ogni ciclo in modo che non ci siano troppi ostacoli sullo schermo in un dato momento.
MIGLIORARE IL PROGRAMMA!
Il programma è stato mantenuto volutamente semplice per consentirti di migliorarlo. Innanzitutto, puoi creare più livelli utilizzando il set di caratteri definito dall’utente su Oric. Potresti includere l’opzione di sparare agli oggetti sullo schermo, aggiungendo i loro valori al tuo punteggio, e così via!
Attenzione: la collisione dei caratteri non e’ perfetta. Ho provato a correggerla, ma nonostante gli sforzi profusi non sono riuscito a migliorarla. Esperti di ORIC-1 cercasi per aiuto in questo frangente.
Se volete saperne di piu’ riguardo all’ORIC, una macchina poco conosciuta in Italia, vi consiglio di leggervi gli articoli “Un fantasmagORICo home computer” parte 1 e 2, apparsi sui numeri 10 ed 11 della nostra rivista a firma di David La Monaca.
Titolo: Asteroids in Space
Piattaforma: ORIC
Linguaggio: Basic
Versione originale: John Vander Reyden
Pubblicazione: METEORIC Programming
Anno: 1983
Trascrizione: Francesco Fiorentini
Anno: 2025
Note: Ho ridisegnato il carattere del protagonista. Nella versione originale si trattava di un ‘omino’ astratto. L’idea di un umano che viaggiasse nello spazio non mi convinceva, l’ho quindi sostiuito con un’astronave (riga 520).
Nota bene: i caratteri dell’ORIC sono 6×8 non 8×8.
Scopo del gioco
Stai viaggiando nello spazio quando incontri una tempesta spaziale. Devi evitare gli asteroidi muovendoti a destra e a sinistra utilizzando i tasti “w” e “e”.
Buon divertimento!
Qui di seguito trovate il codice da copiare sul vostro computer Oric.
Il codice é pronto per essere copiato su un emulatore, consigliamo Oricutron.
Per caricare il codice sull’emulatore, una volta copiato il codice sottostante nella clipboard, pulsante destro e quindi Paste from Clipboard.
Attenzione: l’emulatore Oricutron potrebbe dare problemi con il copia ed incolla, suggeriamo di copiare/incollare il listato in due/tre volte anziche’ in una singola operazione.
Attenzione – Ci siamo resi conto che nel listato i caratteri ‘>’ e ‘<‘ potrebbero venir sostituiti dai rispettivi encoding html ‘>’ e ‘<’. Nel caso, sostituite questi valori nel listato prima di copiarlo sull’emulatore.
Listato: Asteroids in Space – Oric – Basic
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
37
38
39
40
41
42
43
44
110 REM
120 PAPER0 : INK7 : CLS
130 PRINT CHR$(17)
140 PLOT 15 , 2 , "FIND THE GAP...."
150 PLOT 15 , 3 , "ASTEROIDS IN SPACE"
160 FOR J=35 TO 38
170 FOR I=0 TO 7
180 READ K
190 POKE 46080+I+(J*8),K
200 PLOT P, X , "&"
210 NEXT I
220 NEXT J
230 A$="#"
240 N=0
250 T=1
260 P=19 : X=10
270 R=INT(RND(1)*35)+3
280 PLOT R-1 , 26 , CHR$(INT(RND(1)*7)+1)
290 PLOT R , 26 , A$
300 PLOT P , X-2 , " "
310 PLOT P, X, "&" : PLOT P-1, X , CHR$(2) : PLOT P+1, X , CHR$(0)
320 N=N+T
330 IF N=50 THEN A$="$%"
340 IF N=54 THEN T=2
350 PLOT P , X-1 , " "
360 PLOT P , X , "&"
380 IF SCRN(P+T,X+2)<>32 THEN 450
390 IF SCRN(P-T,X+2)<>32 THEN 450
390 IF SCRN(P,X+2)<>32 THEN 450
400 X$=KEY$
410 IF X$="W" THEN PLOT P, X, " " : P=P-T : IF P<3 THEN P=37
420 IF X$="E" THEN PLOT P, X, " " : P=P+T : IF P>37 THEN P=3
430 PRINT : PRINT
440 GOTO 270
450 EXPLODE
460 PRINT"your survival rating ";N
470 PRINT CHR$(17)
480 PRINT"do you want another game, Y/N" : INPUT A$ : IF A$="Y"THEN RUN
490 DATA 45,45,30,61,51,30,33,63
500 DATA 36,34,35,63,63,35,34,36
510 DATA 9,17,49,63,63,49,17,9
520 DATA 33,33,63,30,30,12,12,0
530 END
