CLS : INPUT "Name of Character"; F$
F$ = "C:\SIDEWALK\" + F$ + "\" + F$
CLS : SCREEN 0
DIM RC(12, 4), RC$(4, 4)
OPEN F$ + ".RCT" FOR INPUT AS #1
INPUT #1, A: INPUT #1, B: INPUT #1, C
FOR I = 1 TO 4: FOR J = 1 TO 12
INPUT #1, RC(J, I): NEXT J: NEXT I
CLOSE #1
READ A$, B$, C$: PRINT A$, A: PRINT B$, B: PRINT C$, C
FOR J = 1 TO 4: FOR I = 1 TO 4: READ RC$(I, J): LOCATE J * 3 + 4, I * 13 - 11: PRINT RC$(I, J)
NEXT I: NEXT J
FOR I = 1 TO 12: FOR J = 1 TO 4: LOCATE J * 3 + 5, I * 4 - 2 + INT((I - .1) / 3): PRINT RC(I, J): NEXT J: NEXT I
LOCATE 1, 25: INPUT NA: IF NA > 0 THEN A = NA: LOCATE 1, 15: PRINT A
LOCATE 2, 25: INPUT NA: IF NA > 0 THEN B = NA: LOCATE 2, 15: PRINT B
LOCATE 3, 25: INPUT NA: IF NA > 0 THEN C = NA: LOCATE 3, 15: PRINT C
FOR J = 1 TO 4: FOR I = 1 TO 12: LOCATE J * 3 + 6, I * 4 - 3 + INT((I - .1) / 3): INPUT NA
IF NA > 0 THEN RC(I, J) = NA: LOCATE J * 3 + 5, I * 4 - 2 + INT((I - .1) / 3): PRINT RC(I, J)
NEXT I: NEXT J
OPEN F$ + ".rct" FOR OUTPUT AS #1
WRITE #1, A: WRITE #1, B: WRITE #1, C
FOR I = 1 TO 4: FOR J = 1 TO 12
WRITE #1, RC(J, I): NEXT J: NEXT I
CLOSE #1
SYSTEM
DATA "jump range","attack range","air var"
DATA "far away","jump range","kinda close","Really Close"
DATA "far away","jump range","kinda close","Really Close"
DATA "far away","jump range","kinda close","Really Close"
DATA "far away","jump range","kinda close","Really Close"