home *** CD-ROM | disk | FTP | other *** search
/ FreeWare Collection 2 / FreeSoftwareCollection2pd199x-jp.img / kxc / ms_dos / tf02mini / tfxpr11.bas < prev    next >
BASIC Source File  |  1990-06-14  |  3KB  |  96 lines
  1. 1000 OPEN "R",#1,"1:(7)towns2.TFX":CLS
  2. 1010 FIELD #1,7 AS A$
  3. 1015 I=0:FLGB=1
  4. 1020 READ X,Y,Z,FLG
  5. 1030     X=X+320:Y=Y+200
  6. 1040     IF FLGB=1 THEN LINE(X-Z/2,Y-Z/2)-(X-Z/2,Y-Z/2),PSET,7 ELSE LINE -(X-Z/2,Y-Z/2),PSET,7
  7. 1045     Z=Z+200:FLGB=FLG
  8. 1050     B$=CHR$(X MOD 256)+CHR$(X\256)
  9. 1060     B$=B$+CHR$(Y MOD 256)+CHR$(Y\256)
  10. 1070     B$=B$+CHR$(Z MOD 256)+CHR$(Z\256)
  11. 1080     B$=B$+CHR$(FLG)
  12. 1090     LSET A$=B$:PUT #1
  13. 1102 IF FLG=2 ELSE 1020 
  14. 1110 CLOSE #1
  15. 2000 DATA  50, 100,-120,0
  16. 2010 DATA 140, 100,-120,0
  17. 2020 DATA 140,-100,-120,0
  18. 2030 DATA  50,-100,-120,0
  19. 2040 DATA  50, 100,-120,1
  20. 2050 DATA  50, 100, 120,0
  21. 2060 DATA 140, 100, 120,0
  22. 2070 DATA 140,-100, 120,0
  23. 2080 DATA  50,-100, 120,0
  24. 2090 DATA  50, 100, 120,1
  25. 2100 DATA  50, 100,-120,0
  26. 2105 DATA  50, 100, 120,1
  27. 2110 DATA 140, 100,-120,0
  28. 2115 DATA 140, 100, 120,1
  29. 2120 DATA 140,-100,-120,0
  30. 2125 DATA 140,-100, 120,1
  31. 2130 DATA  50,-100,-120,0
  32. 2135 DATA  50,-100, 120,1
  33. 2140 DATA  50, 100, 120,0
  34. 2145 DATA  50, 100,-120,1
  35. 2200 DATA  50,  85,-120,0
  36. 2210 DATA 140,  85,-120,1
  37. 2220 DATA  50,  70,-120,0
  38. 2230 DATA 140,  70,-120,1
  39. 2240 DATA  50,  55,-120,0
  40. 2250 DATA 140,  55,-120,1
  41. 2260 DATA  55,  30,-120,0
  42. 2270 DATA  55,- 58,-120,0
  43. 2280 DATA 135,- 58,-120,0
  44. 2290 DATA 135,  30,-120,0
  45. 2300 DATA 120,  30,-120,0
  46. 2320 DATA 105,  40,-120,0
  47. 2330 DATA  85,  40,-120,0
  48. 2340 DATA  70,  30,-120,0
  49. 2350 DATA  55,  30,-120,1
  50. 2400 DATA  60,   5,-120,0
  51. 2410 DATA  60, -15,-120,0
  52. 2420 DATA  80, -40,-120,0
  53. 2430 DATA 110, -40,-120,0
  54. 2440 DATA 130, -15,-120,0
  55. 2450 DATA 130,   5,-120,0
  56. 2460 DATA 110,  30,-120,0
  57. 2470 DATA  80,  30,-120,0
  58. 2480 DATA  60,   5,-120,1
  59. 2500 DATA  50,  85,-110,0
  60. 2510 DATA  50, -85,-110,0
  61. 2520 DATA  50, -85, 110,0
  62. 2530 DATA  50,  85, 110,0
  63. 2540 DATA  50,  85,-110,1
  64. 2550 DATA 140,  85,-110,0
  65. 2560 DATA 140, -85,-110,0
  66. 2570 DATA 140, -85, 110,0
  67. 2580 DATA 140,  85, 110,0
  68. 2590 DATA 140,  85,-110,1
  69. 2600 'disp
  70. 2700 DATA  40, 100,-120,0
  71. 2710 DATA-140, 100,-120,0
  72. 2720 DATA-140, -80,-120,0
  73. 2730 DATA  40, -80,-120,0
  74. 2740 DATA  40, 100,-120,0
  75. 2750 DATA  40,  80, 120,0
  76. 2760 DATA-140,  80, 120,0
  77. 2770 DATA-140,-100, 120,0
  78. 2780 DATA  40,-100, 120,0
  79. 2790 DATA  40,  80, 120,1
  80. 2810 DATA-140, 100,-120,0
  81. 2812 DATA-140,  80, 120,1
  82. 2820 DATA-140, -80,-120,0
  83. 2822 DATA-140,-100, 120,1
  84. 2830 DATA  40, -80,-120,0
  85. 2832 DATA  40,-100, 120,1
  86. 2850 DATA-130,-100,-100,0 
  87. 2860 DATA-130,-100, 120,0 
  88. 2870 DATA  30,-100, 120,0 
  89. 2880 DATA  30,-100,-100,0 
  90. 2890 DATA-130,-100,-100,1 
  91. 2900 DATA-140,  80,-120,0 
  92. 2910 DATA  40,  80,-120,0 
  93. 2920 DATA  40, -50,-120,0 
  94. 2930 DATA-140, -50,-120,0 
  95. 2940 DATA-140,  80,-120,2 
  96.