Buongiorno Vic-Commandos, appuntamento con lo studio di listati.
Oggi vi presento Lem, ovvero un giochino semplice, con il nostro LEM dobbiamo raccogliere tutti i serbatoi di carburante, stando attenti a non schiantasi contro le montagne. Semplice, ma non siamo qui a giudicare il gioco, ma il suo listato; vi allego un file zip con estensione modificata, dove trovare il file eseguibile e il file html con il listato da studiare. – Buono studio.
MB
https://www.facebook.com/groups/commodorevic20italia/
0 REM WWW.HEBDOGICIEL.FR PAR OUESSAN
10 SYS65017:CLR:GOSUB300:SYS673
20 PRINT"♥":POKE36867,25:FORI=7680TO8185:POKEI,6:NEXT:AD=7833
25 FORI=7812TO7833:POKEI,5:NEXT
30 POKE36879,43:Z=1:D=7793:POKED-1,Z-1:POKED,Z:SW=36877:VOL=SW+1:TI$="000001"
35 GOSUB500:GOSUB400
40 SYS673:POKE7701,6:POKED-1,6:POKED-2,6:GOSUB500
50 K=PEEK(37151):IFK=62ORK=126THEN80
60 IF(K=122ORK=58)ANDD<>7683THEND=D-22
70 IF(K=118ORK=54)ANDD<>7903THENPOKE7682,6:POKE7683,6:D=D+22
80 U1=PEEK(D-1):U=PEEK(D):IFU=4ORU=3ORU=5ORU1=4ORU1=3ORU1=5THENPOKED-1,7:POKED,8:GOTO110
90 IFU=2ANDU1=2THENSC=SC+2:GOSUB400:GOSUB600:GOSUB600:GOTO100
95 IFU=2ORU1=2THENSC=SC+1:GOSUB400:GOSUB600
100 POKED-1,Z-1:POKED,Z:GOTO150
110 FORI=1TO15:POKESW,128+1*5:POKEVOL,15-I:POKE36864,13
120 POKE36864,12:FORJ=1TO30:NEXT:NEXT:POKESW,0
130 IFPEEK(37151)<>30ANDPEEK(37151)<>94THEN130
140 RUN20
150 X=INT(RND(1)*3):P=PEEK(AD-1)
160 IFX=0THEN220
170 IFX=1THEN260
180 IFP=5ORP=3THEN210
190 IFAD=7921THEN150
200 AD=AD+22
210 POKEAD,4:GOTO40
220 IFP=4THEN250
230 IFAD=7723THEN150
240 AD=AD-22
250 POKEAD,3:GOTO40
260 IFP=5ORP=3THEN290
270 IFAD=7921THEN150
280 AD=AD+22
290 POKEAD,5:POKEAD-22,2:GOTO40
300 POKE51,255:POKE52,23:POKE55,255:POKE56,23
302 FORG=0TO159:READA:POKE6144+G,A:NEXT
305 XX=384:FORI=768TO927STEP2:POKE6144+I,255-PEEK(32768+XX):POKE6145+I,255-PEEK(32768+XX)
306 XX=XX+1:NEXT
310 FORI=256TO263:POKE6144+I,0:NEXT:POKE36869,254
320 FORI=673TO733:READA:POKEI,A:NEXT:RETURN
360 DATA0,0,0,0,0,0,1,2,4,15,21,31,15,5,8,28,0,0,0,0,0,0,128,64,32,240,168,248,240,160,16,56,0,0,0,0,0,0,0,0,0,8,20,34,65,34,20,8,1,1,2,2,4,4,8,8,16,16,32,32,64,64,128,128
365 DATA128,128,64,64,32,32,16,16,8,8,4,4,2,2,1,1,255,255,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,2,17,8,4,112,4,8,17,2,0,0,0,0
369 DATA0,0,0,32,68,8,16,7,16,8,68,32,0,0,0,0,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,169,0,141,207,2,105,21,24,141,218,2,32,206,2,138,201,220,240
380 DATA6,105,1,24,76,163,2,162,21,169,6,157,22,30,224,219,240,8,138,105,22,24,170,76,188,2,96,162,1,189,22,30,202,157,22,30,232,232,224,22,208,243,96
400 PRINT"ESQQQQQQQQQQQ]]●●●●●●●●●●●●●●●●"MID$(STR$(SC),2)"┼UP│":RETURN
500 A$=MID$(TI$,5):PRINT"ESQQQQQQQQQQQ"A$:IFA$="00"THEN130
510 RETURN
600 POKESW-1,255:POKEVOL,15:POKESW-1,0:POKEVOL,0:RETURN
