Editrice EDICOMP – LIST Anno III – Gennaio 1985 – Trascrizione: Francesco Fiorentini
Gli amici del DIZIONARIO dei VIDOEGIOCHI, raggiungibili al sito: https://www.dizionariovideogiochi.it/, stanno portando avanti un’opera di scansione della mitica rivista LIST.
A questo indirizzo potete trovare tutte le scansioni gia’ effettuate della rivista:
https://www.dizionariovideogiochi.it/doku.php?id=LIST%20(rivista).
Qui invece troverete la rivista mensile dell’anno III – Numero 1 – di Gennaio 1985 da cui e’ stato estratto il listato di questo articolo:
https://www.dizionariovideogiochi.it/doku.php?id=list_-_anno_iii_-_1
Il gioco Salta la rana non e’ altro che un clone del piu’ famoso Frogger, realizzato con i caratteri ridefiniti dell’ORIC 1. Potevamo forse lasciarci sfuggire questa occasione per propervelo? Certo che no!
Suggerimento: alle righe da 3000 a 3015 per il livello 1 e da 7000 a 7040 per il livello 2, sono definiti i pattern delle auto. Modificatele per aumentare/diminuire la difficolta’ del gioco…
Titolo: Salta la rana
Piattaforma: ORIC
Linguaggio: Basic
Versione originale: Fabrizio Cuminetti
Pubblicazione: LIST – Nr. 1
Anno: 1985 – Gennaio
Trascrizione: Francesco Fiorentini
Anno: 2025
Note: Emulatore suggerito: Oricutron.
Selezionate ORIC-1 come Hardware
Scopo del gioco
Aiutate la rana ad attraversare la strada, evitando il traffico dell’ora di punta.
UIsate i tasti:
Z – Sinistra
X – Destra
; – Su’
. – Giu’
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.
Una volta avviato l’emulatore cliccate il pulsante destro del mouse e scegliete l’opzione Hardware Options…, dopodiche’ selezionate Oric-1 come hardware (si vedano le immaginio sotto).
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. Eventualmente salvate uno snapshot dopo ogni operazione di incollamento, giusto per evitare di dover ricominciare sempre da capo.
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: Salta la rana – 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
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
15 REM# #
20 REM# SALTA LA RANA #
25 REM# #
30 REM# F.C. STRIKE LIST-84 #
35 REM# #
40 REM##############################
45 REM
50 REM
55 CLS
56 PRINTCHR$(6)CHR$(17)
57 RE=700
58 GOSUB8000 : REM U.D.G.
59 GOSUB9000
60 PU=0
65 U=5
70 PAPER7:INK0
80 GOSUB5000 : REM PREPARA SCHERMO
90 GOSUB3000
95 FORA=2TO26:S=INT(RND(1)*2)+1:PLOT0,A,S:NEXT
96 PLOT0,14,16
100 A=26
110 B=19
112 PLOT9,0,STR$(PU)
120 PLOTB,A," "
125 PLOT1,24,A$:PLOT1,22,B$:PLOT1,12,A$:PLOT1,10,B$
130 X$=KEY$
140 IFX$=""THEN160
160 IFX$=";"THENA=A-1
165 Q=SCRN(B,A)
170 IFX$="."ANDA<26THENA=A+1
175 PLOT1,14,C$
180 IFX$="Z"ANDB>1THENB=B-1
190 IFX$="X"ANDB<37THENB=B+1
200 PLOT1,20,A$:PLOT1,18,B$:PLOT1,8,A$:PLOT1,6,B$
210 PLOT1,16,A$:PLOT1,4,A$
220 Q=SCRN(B,A)
225 IFQ=61THENPU=PU+100:PING:PLOT9,0,STR$(PU):GOTO100
230 IFQ<>32THEN4000 REM-PERDE 1 VITA
235 IFPU=500THENGOSUB7000
240 PLOTB,A,"#$"
250 L$=LEFT$(A$,1):R$=RIGHT$(A$,37)
255 L2$=LEFT$(C$,37):R2$=RIGHT$(C$,1)
260 L1$=LEFT$(B$,37):R1$=RIGHT$(B$,1)
270 A$=R$+L$:B$=R1$+L1$
275 C$=R2$+L2$
280 GOTO120
3000 A$=" '% '% '% "
3010 B$="%& %& %& %& "
3015 C$="/ "
3020 RETURN
4000 EXPLODE:WAIT50
4001 U=U-1:IFU=0THEN6000
4010 PLOT21,0,STR$(U)
4030 GOTO100
5000 CLS
5010 PLOT3,0,"PUNTI ":PLOT1,0,1:PLOT15,0,"VITE 5":PLOT10,0,7:PLOT0,0,20
5020 FORA=0TO37:PLOTA,2,"=":NEXT
5025 PLOT26,0," RECORD "
5028 PLOT34,0,STR$(RE)
5030 PLOT0,2,0
5040 PLOT0,14,16
5050 FORA=1TO26:S=INT(RND(1)*5)+1:PLOT0,A,S
5060 RETURN
6000 PLOT22,0,"0"
6010 WAIT300:CLS
6020 PRINT:PRINT:PRINT:PRINT"SFORTUNATO!"
6025 PRINT"HAI PERSO TUTTE LE VITE!"
6030 PRINT:PRINT"MA HAI RAGGIUNTO ";PU;" PUNTI"
6040 IFPU>RETHENPRINT:PRINT:PRINT"ORA HAI IL NUOVO RECORD DI ";PU;" PUNTI"
6050 IFPU>RETHENRE=PU
6060 PRINT:PRINT:PRINT"VUOI GIOCARE ANCORA? S/N"
6070 GETA$
6080 IFA$="N"THENEND
6090 IFA$="S"THENGOTO59
6100 GOTO6070
7000 PLOT3,14,"ED ORA ANCORA PIU DIFFICILE!!!"
7010 A$=" '& '% '% '& '% '% "
7020 C$="/ / / / / / / "
7040 B$=" %& '& %& '& %& %& "
7045 PU=PU+200:PLOT9,0,STR$(PU)
7050 WAIT300:PLOT3,14," "
7060 RETURN
8000 FORA=46360 TO 46423
8010 READ D
8020 POKEA,D
8040 NEXT
8045 RETURN
8050 DATA 1,3,5,15,7,2,4,8,32,48,40,60,56,16,8,4,63,63,63,63,63,63,24,24
8060 DATA 48,48,48,63,63,63,6,4
8070 DATA 3,3,3,63,63,63,24,24,48,48,48,63,63,63,6,6
8080 DATA 0,0,31,31,31,63,1,1,0,0,60,60,60,63,32,32
9000 PAPER0:INK7:CLS
9010 Z$=" SALTA LA RANA SALTA LA RANA "
9020 X$=CHR$(96)+" FABRIZIO C. —STRIKE—LIST1984 "
9030 REPEAT
9040 PLOT1,2,Z$:PLOT1,26,X$
9050 G$=LEFT$(Z$,37):F$=RIGHT$(Z$,1)
9060 Z$=F$+G$
9070 T$=LEFT$(X$,37):Y$=RIGHT$(X$,1)
9080 X$=Y$+T$
9090 PLOT0,4,"AIUTA LA RANA AD ATTRAVERSARE LA STRADA"
9100 PLOT0,6,"SE CI RIESCI...100 PUNTI OGNI VOLTA!"
9110 PLOT0,8,"PROVACI... E BUONA FORTUNA!!!!"
9120 PLOT0,12,"USA I TASTI "
9130 PLOT0,14,"Z — SINISTRA X — DESTRA "
9140 PLOT0,16,"; — SU . — GIU"
9150 PLOT4,22,"PREMI UN TASTO PER COMINCIARE"
9160 PLOT2,22,12
9170 A$=KEY$
9180 UNTILA$<>""
9190 RETURN
