10  REM 
 11  REM START
 12  REM 
 20 FC = 6: GOSUB 4000:AD = 4096
 30 N = 4: FOR NA = 1 TO 4: GOSUB 5000: NEXT NA
 40 FC = 3: GOSUB 4000:AD = 4096
 50  FOR NA = 1 TO 4: GOSUB 6000: NEXT NA
 60 FC = 6: GOSUB 4000:AD = 4096
 70  FOR NA = 10 TO 13: GOSUB 5000: NEXT NA
 80 FC = 4: GOSUB 4000:AD = 4096
 90  FOR NA = 10 TO 13: GOSUB 6000: NEXT NA
 100 FC = 6: GOSUB 4000:AD = 4096
 110 NA = 5: GOSUB 5000:N = 1: FOR NA = 6 TO 9: GOSUB 5000: NEXT NA: FOR NA = 14 TO 16: GOSUB 5000: NEXT NA
 120 FC = 3: GOSUB 4000:AD = 4096
 130 N = 4:NA = 5: GOSUB 6000:N = 1:NA = 6: GOSUB 6000:NA = 7: GOSUB 6000
 140 FC = 5: GOSUB 4000
 150 NA = 8: GOSUB 6000:NA = 9: GOSUB 6000
 160 FC = 4: GOSUB 4000
 170  FOR NA = 14 TO 16: GOSUB 6000: NEXT NA
 180 FC = 2: GOSUB 4000
 200  HOME : &  RUN "CONT",20480
 4000  REM 
SEEK F?

 4010  HOME : HTAB 11: VTAB 12: PRINT "Ins{rez la face ";FC
 4020  WAIT  - 16384,128: POKE  - 16368,0
 4030  &  READ "FACE": INPUT FL: &  END 
 4040  IF FL <  > FC THEN 4020
 4050  RETURN 
 5000  REM 
LOAD MAP

 5010  FOR I = 1 TO N:A$ = "MAP." +  STR$ (NA) + "." +  STR$ (I): HTAB 1: VTAB 1: PRINT  SPC( 20): HTAB 1: VTAB 1: PRINT "CHARGE: ";A$: &  RECALL A$,AD:AD = AD + 2484: NEXT I: RETURN 
 6000  REM 
SAVE MAP

 6010  FOR I = 1 TO N:A$ = "MAP." +  STR$ (NA) + "." +  STR$ (I): HTAB 1: VTAB 1: PRINT  SPC( 20): HTAB 1: VTAB 1: PRINT "SAUVE: ";A$: &  DEL A$: &  STORE A$,AD,2483:AD = AD + 2484: NEXT I: RETURN