1 REM**********************************
2 REM*        APPEND PER C64          *
3 REM* BY --F.M. SOFT-- 84100 SALERNO *
4 REM*          14.05.85              *
5 REM*        PER F.I.D.O PZ          *
6 REM**********************************
10 I=49152:T=0
20 READ A:IF A=-1 THEN 50
40 POKEI,A:I=I+1:T=T+A:GOTO20
50 IF T<>9910 THEN PRINT"[147]ERRORE NEI VALORI 'DATA'":END
60 PRINT"[147][158]VALORI 'DATA' OK !"
65 PRINT"ISTRUZIONI:":PRINT"CARICARE IL PROGRAMMA PRINCIPALE E POI"
70 PRINT"BATTERE:":PRINT"[158]SYS49152";CHR$(34);"NOME PRG SECONDARIO";
80 PRINTCHR$(34);",PERIFERICA"
85 NEW
90 :
100 DATA 169,000,133,010,032,212,225
110 DATA 165,045,056,233,002,170,165
120 DATA 046,233,000,168,165,010,032
130 DATA 213,255,032,051,165,165,045
140 DATA 164,046,056,233,002,133,087
150 DATA 152,233,000,133,088,160,000
160 DATA 177,087,208,027,200,177,087
170 DATA 208,022,165,087,024,105,002
180 DATA 133,045,133,047,133,049,165
190 DATA 088,105,000,133,046,133,048
200 DATA 133,050,096,160,000,177,087
210 DATA 133,089,200,177,087,133,088
220 DATA 165,089,133,087,076,040,192
230 DATA -1