10 REM 11 REM CONT 12 REM 13 DIM SO%(15,5),WIZ%(21),KA%(8),KB%(8),KC%(8),OB$(9),OB%(9,8) 20 FOR I = 1 TO 5: READ A: POKE 36863 + I,A: NEXT I: CALL 36864 30 DATA 162,4,76,160,3: REM BACK_MACRO 35 GOSUB 40000 40 A = USR (1): & S1:A = USR (0) 50 & RECALL "CADRE2",16384: CALL 17308: POKE - 16304,0 60 & RECALL "GAME2",16384 70 & READ "PLAYER": INPUT NM$,NA%: & END 80 IF NA% > = 10 THEN & RUN "T",20480 100 & RUN "C",20480 40000 REM LOAD 40010 A$ = "PLAYER": & READ A$: INPUT NM$,NA%,NM%,CY%,CX%,CL%,RA%,NJ% 40020 FOR I = 1 TO 8: INPUT KA%(I),KB%(I),KC%(I): NEXT I 40030 INPUT GP%,XP%,WZ%: FOR I = 1 TO 21: INPUT WIZ%(I): NEXT I 40035 IF KC%(5) + WIZ%(5) > 0 THEN & END : RETURN 40040 FOR I = 1 TO 4: INPUT EQ%(I): NEXT I: INPUT ENC%(1),ENC%(2),OB% 40050 IF OB% = 0 THEN 40070 40060 FOR I = 1 TO OB%: INPUT OB$(I): FOR J = 1 TO 8: INPUT OB%(I,J): NEXT J: NEXT I 40070 FOR I = 1 TO 15: INPUT SO%(I,1),SO%(I,2),SO%(I,3),SO%(I,4),SO%(I,5): NEXT I 40080 & END :WIZ%(17) = 0: HTAB 6: VTAB 12: PRINT "Je ressuscite votre perso..." 40210 & DEL A$: & DEF A$,4: & PRINT A$: PRINT NM$: PRINT NA%: PRINT NM%: PRINT CY%: PRINT CX%: PRINT CL%: PRINT RA%: PRINT NJ%: FOR I = 1 TO 8: PRINT KA%(I): PRINT KA%(I): PRINT KA%(I): NEXT I 40220 PRINT GP%: PRINT XP%: PRINT WZ%: FOR I = 1 TO 21: PRINT WIZ%(I): NEXT I: FOR I = 1 TO 4: PRINT EQ%(I): NEXT I: PRINT ENC%(1): PRINT ENC%(2): PRINT OB% 40225 IF OB% = 0 THEN 40240 40230 FOR I = 1 TO OB%: PRINT OB$(I): FOR J = 1 TO 8: PRINT OB%(I,J): NEXT J: NEXT I 40240 FOR I = 1 TO 15: PRINT SO%(I,1): PRINT SO%(I,2): PRINT SO%(I,3): PRINT SO%(I,4): PRINT SO%(I,5): NEXT I 40250 & END : RETURN