Session end : 12h00m00s | Hide picture Sexe : OFF | Donations 2024 : 870.48 € |
10 IF PEEK(&9500)=0 THEN MEMORY &5000-1: LOAD"!CHICAGO1.BIN": LOAD"!CHICAGO2.BIN": LOAD"!CHICAGO3.BIN": LOAD"!CHICAGO4.BIN": POKE &9500,1
10 IF PEEK(&9500)=0 THEN OPENOUT"D":MEMORY &5000-1:CLOSEOUT: LOAD"!CHICAGO1.BIN": LOAD"!CHICAGO2.BIN": LOAD"!CHICAGO3.BIN": LOAD"!CHICAGO4.BIN": POKE &9500,1
90 GOSUB 1680
90 GOSUB 1680:HI=MAX(SC,HI)
1580 A$="NIVEAU":XL=32:YL=90:GOSUB 1400:CH=NIV:XL=46:YL=90:L=1:GOSUB 1440
1580 A$="NIVEAU":XL=32:YL=90:GOSUB 1400:CH=NIV:XL=46:YL=90:L=1:GOSUB
1440:XL=41:YL=9:L=5:GOSUB 1440
20 FOR A=DEB TO DEB+LONG STEP 16:SOM=0: FOR B=0 TO 15:READ A$:POKE A+B,VAL("&"+A$): SOM=SOM+VAL("&"+A$):NEXT: LIG=LIG+10:PRINT LIG: READ A$:IF SOM<>VAL("&"+A$) THEN PRINT"ERREUR EN LIGNE";LIG:END ELSE NEXT
20 FOR A=DEB TO DEB+LONG STEP 16:SOM=0: FOR B=0 TO 15:READ A$:POKE A+B,VAL("&"+A$): SOM=SOM+VAL("&"+A$):NEXT: PRINT LIG: READ A$:IF SOM<>VAL("&"+A$) THEN PRINT"ERREUR EN LIGNE";LIG:END ELSE LIG=LIG+10:NEXT
2650 DATA CC,88,20,20,80,80,82,82,80,80,20,20,31,39,39,30,05AB
2650 DATA CC,88,20,20,80,80,82,82,80,80,20,20,CC,88,00,00,062C
270 DATA FC,A8,00,20,00,80,41,00,40,00,10,00,04,00,00,00,02D9
270 DATA FC,A8,00,28,00,02,41,00,01,00,14,00,54,00,00,00,0278