10 OPEN "O",#1,"WEAPONS.DAT"
20 READ NW
30 PRINT#1,NW
40 FOR I=1 TO NW
50 READ A$:PRINT#1,A$
60 READ A$:PRINT#1,A$
70 FOR J=1 TO 8
80 READ A:PRINT#1,A
90 NEXT J
100 NEXT I
110 CLOSE#1
120 END
130 DATA 7
140 DATA AXE
150 DATA There is a standard Marcos axe here.
160 DATA 25,2,5,0,0,1,1,4
170 DATA SPEAR
180 DATA There is a standard Marcos spear here.
190 DATA 20,2,5,0,0,1,1,5
200 DATA MACE
210 DATA There is a standard Marcos mace here.
220 DATA 15,2,5,0,0,3,1,5
230 DATA BOW
240 DATA There is a standard Marcos bow here.
250 DATA 40,2,5,0,0,4,1,6
260 DATA SWORD
270 DATA There is a standard Marcos sword here.
280 DATA 50,2,10,0,0,5,1,6
290 DATA RAPIER
300 DATA There is a very good looking dagger here.
310 DATA 75,2,5,0,15,5,1,8
320 DATA DAGGER
330 DATA There is a very good looking dagger here.
340 DATA 10,3,1,0,-10,2,1,4

310 DATA 75,2,5,0,15,5,1,8
320 