 1  ONERR  GOTO 1500
 10  &  RECALL "DATA.SPELLS",8064: &  RECALL "DATA.TRAPS",8165: &  RECALL "DATA.MONSTERS",19804
 20  &  RECALL "GAME",16384: &  RECALL "LIBRARY.SPRITE",3009
 70  DIM KA%(8),KB%(8),KC%(8),OB$(9),OB%(9,6)
 80  GOSUB 1000
 90 AD = 27136: REM LECTURE/ECRITURE A PARTIR DE $6A00
 100  FOR I = 1 TO 4:A$ = "MAP-" +  STR$ (I): &  RECALL A$,AD + (I - 1) * 2483: NEXT I
 200  FOR I = 1 TO 3:A$ = "DJN-" +  STR$ (I): &  RECALL A$,AD + (3 + I) * 2483: NEXT I
 600  REM  CARTE COURANTE
 610  REM   &DEL 
 620 J = 4:B$ = "MAP.": GOSUB 3000
 630 J = 3:B$ = "DJN.": GOSUB 3000
 700  REM &STORE
 710 J = 4:B$ = "MAP.":VL =  - 1: GOSUB 4000
 720 J = 3:B$ = "DJN.":VL = 3: GOSUB 4000
 730  REM  CREATION USER 
 735  &  READ "PLAYER": INPUT NM$,NA%,NU%,CY%,CX%,CL%,RA%
 740  FOR I = 1 TO 8: INPUT KA%(I),KB%(I),KC%(I): NEXT I
 750  INPUT GP%,XP%,AR%,PA%,PR%,EN%,OB%,LP%
 755  IF OB% = 0 THEN 765
 760  FOR I = 1 TO OB%: INPUT OB$(I): FOR J = 1 TO 6: INPUT OB%(I,J): NEXT J: NEXT I
 765  &  END :PL$ = "USER.PLAYER": &  DEL PL$: &  DEF PL$,2: &  PRINT PL$
 770  PRINT NM$: PRINT NA%: PRINT NU%: PRINT CY%: PRINT CX%: PRINT CL%: PRINT RA%
 775  FOR I = 1 TO 8: PRINT KA%(I): PRINT KB%(I): PRINT KC%(I): NEXT I
 780  PRINT GP%: PRINT XP%: PRINT AR%: PRINT PA%: PRINT PR%: PRINT EN%: PRINT OB%: PRINT LP%
 785  IF OB% = 0 THEN 795
 790  FOR I = 1 TO OB%: PRINT OB$(I): FOR J = 1 TO 6: PRINT OB%(I,J): NEXT J: NEXT I
 795  &  END : CLEAR 
 999  &  RUN "COMB",24576
 1000  HOME : &  READ "PLAYER": INPUT F$: &  END 
 1010  IF F$ = "*BLANKPLAYER*" OR F$ = "*START*" THEN  HOME : HTAB 9: VTAB 10: PRINT "INSEREZ LE PLAYER, SVP": WAIT  - 16384,128: POKE  - 16368,0: GOTO 1000
 1020  RETURN 
 1500  CALL 50688
 3000  FOR I = 1 TO J:A$ = B$ +  STR$ (I): &  DEL A$: NEXT I
 3010  RETURN 
 4000  FOR I = 1 TO J:A$ = B$ +  STR$ (I): &  STORE A$,AD + (VL + I) * 2483,2483: NEXT I
 4010  RETURN 
