1 DEFINT A-Z
3 CLEAR 2500
4 KEY1,"goto600"+CHR$(13)
5 MAXFILES=5
10 DIM D$(256):DIM P(256)
20 PRINT"caricamento dati"
30 GOTO2000
40 STOP
50 GOTO500
90 INPUT"salvataggio dati=S";S$
95 IFS$<>"s"ORS$<>"S"THENSTOP
500 PRINT"immissione dati"
501 INPUT"start";S
502 FOR F=STO256
510 INPUT D$(F)
515 INPUT P(F)
520 PRINT(F-1),D$(F),P(F)
530 NEXTF
600 INPUT"start mem";S
602 INPUT"S=stampante";S$
603 IF S$="S"THEN OPEN"com:87N1D" FOR OUTPUT AS #2
610 FORV=STOS+1024
620 A=PEEK(V)
625 W=V:A=A+1
630 IFP(A)=1THENVS=PEEK(V+1):W=V:V=V+1:GOTO635
633 IFP(A)=2THEN VS=PEEK(V+1)+256*PEEK(V+2):W=V:V=V+2
635 PRINTW;TAB(7)A-1;TAB(13)D$(A);TAB(23)VS'TAB(30)W-32768'TAB(35)CHR$(AAND127)
636 'IFS$="S"THENPRINT#2,W;" ";A-1;" ";D$(A);" ";VS
637 IFS$="S"THENLPRINTCHR$(14);W;" ";A-1;" ";D$(A);" ";VS;CHR$(10)
639 VS=0
640 NEXTV
1040 STOP
2000 OPEN"ram:dati"FOR INPUT AS #1
2010 FOR F=1TO256
2020 INPUT #1,D$(F):INPUT #1,P(F)
2030 NEXT F:CLOSE
2040 CLS:GOTO600
3000 OPEN"ram:dati"FOR OUTPUT AS #1
3005 PRINT"salvo dati"
3010 FORF=1TO256
3020 PRINT #1,D$(F):PRINT #1,P(F)
3030 NEXT:CLOSE
3040 STOP
4020 NEXT
5000 INPT"star mem per poke";ST
5010 FOR F=STTOST+100
5015 INPUTA
5020 POKEF,A:PRINT F,A
5030 NEXT
5040 GOTO600
8000 INPUT"nr * 2poke";NR
8010 INPUT"mem";M
8020 POKEM,NR-256*INT(NR/256)
8030 POKE(M+1),INT(NR/256):PRINTPEEK(M);"- ";PEEK(M+1)
8040 GOTO8000