home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload / ShartewareOverload.cdr / games / eamon_d.zip / WEAPINIT.BAS < prev    next >
BASIC Source File  |  1984-01-31  |  896b  |  37 lines
  1. 10 OPEN "O",#1,"WEAPONS.DAT"
  2. 20 READ NW
  3. 30 PRINT#1,NW
  4. 40 FOR I=1 TO NW
  5. 50 READ A$:PRINT#1,A$
  6. 60 READ A$:PRINT#1,A$
  7. 70 FOR J=1 TO 8
  8. 80 READ A:PRINT#1,A
  9. 90 NEXT J
  10. 100 NEXT I
  11. 110 CLOSE#1
  12. 120 END
  13. 130 DATA 7
  14. 140 DATA AXE
  15. 150 DATA There is a standard Marcos axe here.
  16. 160 DATA 25,2,5,0,0,1,1,4
  17. 170 DATA SPEAR
  18. 180 DATA There is a standard Marcos spear here.
  19. 190 DATA 20,2,5,0,0,1,1,5
  20. 200 DATA MACE
  21. 210 DATA There is a standard Marcos mace here.
  22. 220 DATA 15,2,5,0,0,3,1,5
  23. 230 DATA BOW
  24. 240 DATA There is a standard Marcos bow here.
  25. 250 DATA 40,2,5,0,0,4,1,6
  26. 260 DATA SWORD
  27. 270 DATA There is a standard Marcos sword here.
  28. 280 DATA 50,2,10,0,0,5,1,6
  29. 290 DATA RAPIER
  30. 300 DATA There is a very good looking dagger here.
  31. 310 DATA 75,2,5,0,15,5,1,8
  32. 320 DATA DAGGER
  33. 330 DATA There is a very good looking dagger here.
  34. 340 DATA 10,3,1,0,-10,2,1,4
  35. 
  36. 310 DATA 75,2,5,0,15,5,1,8
  37. 320