0 TRAP 100:DIM FILE$(100),DIS$(5)›5 DATA D0,D1,H0,H1,D2,D3,D4›10 GOSUB 1000›15 FILE$(3,14)=":COURSES.BIN"›20 IF DIS$="D4" THEN PRINT "ERREUR: FICHIER COURSES.BIN NON TROUVE !":POKE 752,0:END ›30 READ DIS$›35 FILE$(1,2)=DIS$›40 TRAP 200›45 POSITION 1,12:PRINT FILE$›50 OPEN #1,4,0,FILE$›53 TRAP 100›55 X=10:CPT=499›60 FOR I=20000 TO 30000:GET #1,A:POKE I,A›70 CPT=CPT+1:IF CPT<>500 THEN GOTO 90›80 POSITION X,15:PRINT CHR$(130):X=X+2:CPT=0›90 NEXT I›100 CLOSE #1›110 Y=USR(20000)›200 CLOSE #1›210 GOTO 20›1000 GRAPHICS 0:POKE 752,1:POKE 82,1›1010 POSITION 10,2:PRINT "VROOM VERSION 1.00 2009"›1020 POSITION 1,4:PRINT "EXEMPLE DE DEVELOPPEMENT EN ASSEMBLEUR 6502, EDITE ET ASSEMBLE A PARTIR DU"›1030 PRINT "PROGRAMME ASM6502"›1040 PRINT "VOUS POUVEZ RETROUVEZ LES SOURCES DE CE PETIT JEU AINSI QUE ASM6502 SUR LE    SITE SUPERTOS.FREE.FR"›1050 PRINT :PRINT "CHARGEMENT EN COURS..."›2000 RETURN ›