daily pastebin goal
52%
SHARE
TWEET

ChartDraw_aqTIE.BAS

janpj May 16th, 2016 (edited) 84 Never
Upgrade to PRO!
ENDING IN00days00hours00mins00secs
 
  1. ' #############################################################
  2. '  Ref: https://cauldronofartandcraft.wordpress.com/chartdraw/
  3. ' #############################################################
  4. '-------------------------------------------------------------
  5. ' aqTIE.BAS --[QBasic]---- Wed--May 18--2016---- 10:12--CEST--
  6. '-------------------------------------------------------------
  7. ' UNDER_SCORE IN A LABEL GIVES ERROR IN QBasic!
  8. '-------------------------
  9. '' ON ERROR GOTO L63000
  10. '-------------------------
  11. CLEAR : '[,,stackspace?]
  12. '[cls]
  13.  
  14. '[sp$]
  15. sp$="TIE"
  16.  
  17. '[sw$]
  18. '[sx$]
  19. '[s%]
  20. '[g$]
  21.  
  22. '[xloc%]
  23. '[orig=6]
  24. xloc% = 3
  25.  
  26. OPEN "switch.sw0" FOR INPUT AS #1: '' [.\]
  27.  INPUT #1, sw$: '[Charts (base directory)]
  28.  INPUT #1, sx$: '[Temp charts (Charts directory)]
  29.  INPUT #1, s%
  30. CLOSE #1
  31.  
  32. '[g$] --[init=g$='i']--[draw-- g$='N']
  33. OPEN "choice.sw0" FOR INPUT AS #1: '' [.\]
  34.  INPUT #1, g$
  35. CLOSE #1
  36.  
  37. '' [LOCATE , , 0:] : ' '[loc,,0]
  38. LOCATE 1, 1, 1, 0, 7: ' [no 'stray' cursor']
  39.  
  40. LOCATE 19, 9: '--[blinking cursor 'key']
  41.   '' --[Basic:'WAIT' -?-]  --[default wait-time-loop & forced key-out ?]  --[for all '<key>'s ?]
  42.   ' ' ' [in$ = INPUT$(1)]--[draft template]--[Not here now!]
  43. CLS
  44.  
  45. '[in$]
  46. '[L$]
  47. '[fi$]
  48. fp$ = ""
  49. fq$ = ""
  50. '[PR$]
  51. '[u$]
  52.  
  53.  in$ = ""
  54.  L$ = " ": '[cls?][key off?]
  55.  fi$ = ""
  56.  u$ = ""
  57.  
  58.  IF g$ <> "N" THEN GOTO yy
  59.  LOCATE 1, 52: PRINT "           "
  60.  LOCATE 2, 52: PRINT "           "
  61.  LOCATE 3, 52: PRINT "           "
  62.  
  63. yy:
  64.  IF g$ = "i" THEN s% = 1: LOCATE xloc%, 3: PRINT sp$; : '--[locate;]
  65.  IF g$ = "N" THEN LOCATE xloc%, 3: PRINT sp$; : '--[locate;]
  66.  :
  67.  
  68. '' [PH% = 18: ??] ' ---???? ##
  69. '' [number of planets=8, Sun, Moon] [Node=11] --[np%>hp%?] --[cf2465] [=7= classic!] [Cf. Drawing]
  70. '' --[dialog prompt!? (to be implemented)]
  71.  
  72. NP% = 10:       ' [=7= classical! (lag input-prompt)]--[=10?]--[(np% + 1) = Pluto !!]: '[err inp np% > hp%?] ---
  73. hp% = np% + 1:  ' (12=incl. Node/ParsFort)
  74. PP% = hp% + 2:  ' --incl. axes [L20400+/L60000+]
  75. YS% = 2:        ' 3 house syst [incl. dim=0]
  76. :
  77.  bb% = 33
  78.  DIM b$(bb%):      '[s$(0) ?]
  79. '---
  80.  :
  81.  DIM N$(bb%):       ' [1,x](har,planet+axes)::(+ node/arab *!) [(x,0)=f%] #[N$(PP%)]#
  82.  DIM RX$(bb%):      '[(PP%)]-[(hp%)]-[??]
  83.  DIM H$(1, YS%, 3): '[mlmhus (har,syst,nr) :: + sek/tert/sol etc. ?]
  84.  DIM KH$(3)
  85.  :
  86.  '' [0=cyc ?]
  87.  DIM p$(bb%):     '[2,x[0:g$="p"][1:radix][2:g$="d"]*(changeorder?[L40000+]) #[p$(PP%)]# ''' ## g$ ##
  88.  DIM m$(1, 5)
  89.  DIM s$(12):      '[s$(0) ?]
  90. '----------------------------------
  91.  DIM k$(PP% + 1): '[=15 [k$(15)] ?]
  92. '----------------------------------
  93.  DIM z(1, PP%): '[?]
  94. '-------------------
  95.  
  96. '--string inits--------
  97. for m% = 1 to 12
  98.  s$(m%) = ""
  99. next m%
  100. '----------------------
  101. for m% = 1 to bb%
  102.  b$(m%) = ""
  103. next m%
  104. '----------------------
  105. for m% = 1 to bb%
  106. RX$(m%) = " "
  107. next m%
  108. '----------------------
  109.  
  110.  KH$(0) = "x": m$(0, 0) = "'realname'    ": F0$ = "name          "
  111.  KH$(1) = "y": m$(0, 1) = "0x.00.00      ": N0$ = "type          "
  112.  KH$(2) = "z": m$(0, 2) = "Place X       "
  113.  KH$(3) = "w": m$(0, 3) = "0x=00         ": 'time
  114. :             : m$(0, 4) = "0x0-00 X      ": 'long
  115. :             : m$(0, 5) = "0x0-00 Y      ": 'lat
  116. :
  117. : Z0$ = "zone"
  118. : D0$ = "ds"
  119. : h0$ = "height"
  120.  
  121. '---
  122. '[Label]
  123. '' New:
  124.  ' ' LOCATE (xloc% + 2), 68: PRINT "[DATA] <CR>";
  125.  ' ' LOCATE (xloc% + 3), 68: PRINT "[man]   <m>";
  126.  ' ' LOCATE (xloc% + 4), 68: PRINT "[set]   <s>";
  127.  :
  128.  ' ' LOCATE (xloc% + 5), 74: ' ' // --[Blinking cursor awaiting input]
  129.  
  130. '[Label]
  131. '' choose:
  132.  ' ' in$ = INKEY$: '--[I$ ?][Esc!?]
  133.  ' ' IF in$ = "m" THEN GOTO ManVals
  134.  ' ' IF in$ = "s" THEN GOTO SetVals
  135.  ' ' IF in$ <> CHR$(13) THEN GOTO choose
  136. '---
  137.  
  138.  LOCATE (xloc% + 2), 68: PRINT "           ";
  139.  LOCATE (xloc% + 3), 68: PRINT "           ";
  140.  LOCATE (xloc% + 4), 68: PRINT "           ";
  141.  
  142.  GOTO dialog1
  143. '---
  144.  
  145. '---
  146. ' ' ManVals: '---------------
  147.  ' ' LOCATE 8, 68:  PRINT "Unfinished!";
  148.  ' ' LOCATE 9, 68:  PRINT "See manual ";
  149.  ' ' LOCATE 10, 68: PRINT "           ";
  150.  ' ' FOR m% = 1 TO 10000: NEXT m%: '--['WAIT'?]
  151.  '-----------------------                
  152.  ' ' GOTO New:
  153.  
  154.  
  155. ' ' SetVals: '---------------
  156.  ' ' LOCATE 8, 68:  PRINT "Unfinished!";
  157.  ' ' LOCATE 9, 68:  PRINT "See manual ";
  158.  ' ' LOCATE 10, 68: PRINT "           ";
  159.  ' ' FOR m% = 1 TO 10000: NEXT m%: '--['WAIT'?]     ' - [The thought here is to enable AUTOMATIC input of positions & data.]
  160.  '------------------------                          '   [(run-time - set within 'A's program lines)                        ]
  161.  ' ' GOTO New
  162.  
  163. '[Label]
  164. dialog1:
  165.  
  166. '[Default]:
  167.  ' ' // [Len(sp$)= then xloc% plus]
  168.  if fi$ = "" then LOCATE (xloc%), 16: PRINT "[Temp]";
  169. '---
  170.  
  171. :
  172.  IF fi$ = "" THEN fi$ = sx$: ' ' ' [GOTO dialog2]--[Template--Not here now!]
  173.  '                           ' ' ' [fi$ = sw$ + fi$ + "\"]
  174. :'---
  175. '[Default]
  176. IF fp$ = "" THEN fp$ = "astro-1.txt"
  177. :
  178.  
  179.  
  180. locate ,,0
  181. locate (xloc% + 16),1: print "x";
  182. for m% = 2 to 11: locate (xloc% + m%), 3
  183. print; "                                                                             ";: '[BlankLineLen=(80-3);]
  184. next m%
  185. locate (xloc% + 1),3: print "WAIT...";
  186.  
  187.  
  188. '[Label]
  189. L6000:
  190. '#--
  191. ' ' ' ' ' '|---change order !?----------------------|' ' ' ' ' '
  192. ' ' ' ' ' '|F0$ = "name          "                  |' ' ' ' ' '
  193. ' ' ' ' ' '|N0$ = "type          "                  |' ' ' ' ' '
  194. ' ' ' ' ' '|:
  195. ' ' ' ' ' '| m$(0, 0) = "'realname'    "            |' ' ' ' ' '
  196. ' ' ' ' ' '| m$(0, 1) = "0x.00.00      ": ' date  |' ' ' ' ' '
  197. ' ' ' ' ' '| m$(0, 2) = "Place X       "            |' ' ' ' ' '
  198. ' ' ' ' ' '| m$(0, 3) = "0x=00         ": ' time  |' ' ' ' ' '
  199. ' ' ' ' ' '| m$(0, 4) = "0x0-00 X      ": ' long  |' ' ' ' ' '
  200. ' ' ' ' ' '| m$(0, 5) = "0x0-00 Y      ": ' lat   |' ' ' ' ' '
  201. ' ' ' ' ' '|:
  202. ' ' ' ' ' '| Z0$ = "zone"                           |' ' ' ' ' '
  203. ' ' ' ' ' '| D0$ = "ds": '[Daylight Saving"]        |' ' ' ' ' '
  204. ' ' ' ' ' '| h0$ = "height"                         |' ' ' ' ' '
  205. ' ' ' ' ' '|----------------------------------------|' ' ' ' ' '
  206.  
  207.  
  208. ' ' ###
  209. ' ' // [TEMP]--[SEE DEFs ABOVE]--[Edit]
  210. m$(1, 0) = "RealName"
  211. m$(1, 1) = "test1"
  212. m$(1, 3) = "test2"
  213. m$(1, 4) = "test3"
  214. m$(1, 5) = "test4"
  215. N1$ = "Type"
  216. m$(1, 2) = "GeoPlace"
  217. D1$ = "0"
  218. ' ' ###
  219. ' ' // TEMPORARY CODING: (write - input fm Charts)
  220. F1$ = "Alias name": '[TEMP?]--[Edit]
  221. ' ' N1$
  222. z1$ = "zone"
  223. ' ' // plus declare more vars here '' --edit--
  224. ' ' // ###
  225.  
  226.  
  227. '########## # # # # # ###########
  228. '[EDIT]: INPUT DIALOG - WHICH PRG
  229. '########## # # # # # ###########
  230.  
  231. '-----------------------------
  232. z$ = ""
  233. OPEN fi$ + fp$ FOR INPUT AS #1
  234. LINE INPUT #1, z$: ' ' ' ' ' z$ = right$(z$,37): ' ' ' ' if left$(z$,3) <> "-zi" then ERROR: ' ' ' 'EDIT edit ---OR---
  235. ' ' ' ' if left$(z$,3) <> "-YF" then ERROR: '' ### EDIT #####
  236. if LEFT$(z$,14) = "Astrolog 5.43a" then PR$ = "astrolog543a": fq$ = "astro-2.txt"
  237. : : : : if LEFT$(z$,14) = "Astrolog 542J" then PR$ = "astrolog542j07": fq$ = "astro-2.txt":  ' ' ' x2 - w-h-y-#####
  238. : : : : if MID$(z$,9,13) = "Astrolog 542J" then PR$ = "astrolog542j07": fq$ = "astro-2.txt": ' ' ' ' ' ' ' ' ' ' '
  239. if LEFT$(z$,3) = "Sun" then PR$ = "ZET9": fq$ = "astro-2.txt"
  240. ' ' if MID$(z$,9,xx) = then goto Astrowin365: '--[unfinished - temporarily disabled]
  241. CLOSE #1
  242. '-----------------------------
  243.  
  244. ' ' // + Open fq
  245. ' ' // Edit - CHECK THAT Astro-1 and Astro-2 are interrelated (or dedicated Identity folder)
  246.  
  247.  
  248.  
  249. ' # # # # # # # # #
  250. ''--else irregular
  251. ' # # # # # # # # #
  252.  
  253. '####################################
  254. '[p$(no axes)]-[??]-[cf. aqDRAW]    '
  255. '####################################
  256.  
  257.  
  258.  
  259. if PR$ = "astrolog543a" then goto astrolog
  260. if PR$ = "astrolog542j07" then goto astrolog
  261. if PR$ = "ZET9" then goto ZET9
  262.  
  263.  
  264. '[Label]
  265. ZET9:
  266.  s$(1) = "Ari"
  267.  s$(2) = "Tau"
  268.  s$(3) = "Gem"
  269.  s$(4) = "Cnc"
  270.  s$(5) = "Leo"
  271.  s$(6) = "Vir"
  272.  s$(7) = "Lib"
  273.  s$(8) = "Sco"
  274.  s$(9) = "Sgr"
  275.  s$(10) = "Cap"
  276.  s$(11) = "Aqr"
  277.  s$(12) = "Psc"
  278. :
  279.  b$(0) = "Earth  "
  280.  b$(1) = "Sun    "
  281.  b$(2) = "Moon   "
  282.  b$(3) = "Mercury"
  283.  b$(4) = "Venus  "
  284.  b$(5) = "Mars   "
  285.  b$(6) = "Jupiter"
  286.  b$(7) = "Saturn "
  287.  b$(8) = "Uranua "
  288.  b$(9) = "Neptune"
  289.  b$(10) = "Pluto "
  290. :
  291.  ' ' b$(11) = "Chi": ' --[fm 'astrolog']
  292.  ' ' b$(12) = "Cer"
  293.  ' ' b$(13) = "Pal"
  294.  ' ' b$(14) = "Jun"
  295.  ' ' b$(15) = "Ves"
  296.  b$(11) = "Node"
  297.  ' ' b$(17) = "Mea"
  298.  ' ' b$(18) = "Lilith"
  299.  ' ' b$(19) = "For"
  300.  ' ' b$(20) = "Ver"
  301.  ' ' b$(21) = "Eas"
  302. :
  303.  b$(22) = "I"
  304.  b$(23) = "II"
  305.  b$(24) = "III"
  306.  b$(25) = "IV"
  307.  b$(26) = "V"
  308.  b$(27) = "VI"
  309.  b$(28) = "VII"
  310.  b$(29) = "VIII"
  311.  b$(30) = "IX"
  312.  b$(31) = "X"
  313.  b$(32) = "XI"
  314.  b$(33) = "XII"
  315. :
  316.  rh% = 100: '' // [random high number - lines in saved ZET9 sheets may vary]
  317.  
  318. ' ' // --------------------------------------'
  319. ' ' // # p$(index) corresponds to b$(index) !
  320. ' ' // --------------------------------------'
  321.  
  322. ' ' // [z% / z$ ?]--[cf Menu+]
  323. OPEN fi$ + fp$ FOR INPUT AS #1
  324. FOR z% = 1 TO rh%
  325. z$ = ""
  326. LINE INPUT #1, z$
  327. for i% = 1 to bb%: ' ' // [hp%,pp%]-[?]
  328. if left$(z$,7) = b$(i%) and mid$(z$,26,1) = "-" then RX$(i%) = "r"
  329. if left$(z$,1) = b$(31) then x$ = mid$(z$,2,1): if x$ <> "I" and x$ <> "V" and x$ <> "X" then z$ = right$(z$,15): gosub calczet9: p$(hp% + 1) = z$: i% = bb%: '[involves tab]
  330. if left$(z$,1) = b$(22) then x$ = mid$(z$,2,1): if x$ <> "I" and x$ <> "V" and x$ <> "X" then z$ = right$(z$,15): gosub calczet9: p$(hp% + 2) = z$: i% = bb%: '[    -"-     ]
  331. next i%
  332. ' ' // [input #1, z$]
  333. if EOF(1) then z% = rh%
  334. ' ' // [if z% < bb% then input #1, z$]
  335. NEXT z%
  336. a% = 0: ' ' // --[redun L16000 ?]
  337. CLOSE #1
  338. '=-=-=
  339. OPEN fi$ + fq$ FOR INPUT AS #1
  340. FOR z% = 1 TO rh%
  341. z$ = ""
  342. LINE INPUT #1, z$
  343. for i% = 1 to bb%: ' ' // [hp%,pp%]-[?]
  344. if left$(z$,4) = left$(b$(i%),4) then z$ = mid$(z$,19,9):  p$(i%) = z$: i% = bb%: ' ' // [ERRCHK-Sheet-saved-as-Decimal!]
  345. ' ' // [z% / z$ ?]--[cf Menu+]
  346. ' ' // [approx -- see sub]
  347. next i%
  348. ' ' // [input #1, z$]
  349. if EOF(1) then z% = rh%
  350. ' ' // [if z% < bb% then input #1, z$]
  351. NEXT z%
  352. a% = 0: ' ' // --[redun L16000 ?]--[a%]
  353. CLOSE #1
  354. goto L7000
  355.  
  356.  
  357. '[Label]
  358. Astrowin365:
  359.  s$(1) = "ARI"
  360.  s$(2) = "TAU"
  361.  s$(3) = "GEM"
  362.  s$(4) = "CAN"
  363.  s$(5) = "LEO"
  364.  s$(6) = "VIR"
  365.  s$(7) = "LIB"
  366.  s$(8) = "SCO"
  367.  s$(9) = "SAG"
  368.  s$(10) = "CPR"
  369.  s$(11) = "AQU"
  370.  s$(12) = "PIS"
  371.  
  372. OPEN fi$ + fp$ FOR INPUT AS #1
  373.  '' '' '' '' INPUT #1, m$(1, 0)
  374.  '' '' '' '' INPUT #1, m$(1, 2)
  375.  '' '' '' '' INPUT #1, D1$: '--[ds]
  376.  '' '' '' '' input#1,h1$: '--[height]
  377. :
  378.  z$ = "": LINE INPUT #1, z$
  379.  z$ = "": LINE INPUT #1, z$: F1$ = z$
  380.  z$ = "": LINE INPUT #1, z$: m$(1, 1) = MID$(z$, 3, 11)
  381.  :      :              : Z1$ = MID$(z$, 18, 11): '--[zone]
  382.  :      :              : m$(1, 3) = MID$(z$, 32, 11)
  383.  :      :              : m$(1, 4) = MID$(z$, 47, 7)
  384.  :      :              : m$(1, 5) = MID$(z$, 57, 5)
  385. :
  386. :
  387. z$ = "": LINE INPUT #1, z$
  388. z$ = "": LINE INPUT #1, z$
  389. z$ = "": LINE INPUT #1, z$
  390. z$ = "": LINE INPUT #1, z$
  391. z$ = "": LINE INPUT #1, z$
  392. :
  393. FOR z% = 1 TO (NP% + 1)
  394.  LINE INPUT #1, z$: z$ = MID$(z$, 12, 9)
  395.  GOSUB calcastrowin: '[z% / z$ ?]--[cf Menu+]
  396.  p$(z%) = z$: ''[approx -- see sub]
  397. NEXT z%
  398. a% = 0: '--[redun L16000 ?]
  399.  
  400. '' #########################
  401. ''  + Retrograd [R] !!!
  402. '' #########################
  403. :
  404. z$ = "": LINE INPUT #1, z$
  405. z$ = "": LINE INPUT #1, z$
  406.  
  407. '' ##################################
  408. ''  + Node, PF, Asteroids, etc. !! ??
  409. '' ##################################
  410. :
  411. FOR z% = (hp% + 2) TO (hp% + 1) STEP -1: '--[mc --1, asc --2]
  412.  LINE INPUT #1, z$: z$ = MID$(z$, 12, 9)
  413. GOSUB calcastrowin: '[z% / z$ ?]--[cf Menu+]
  414. p$(z%) = z$: : : : : ' ' a p p r o x -- see sub --!!
  415. '' '' '' '' '' '' [PRINT #2, p$(z%)]
  416. NEXT z%
  417. a% = 0: '[redun L16000 ?]
  418. :
  419. '' #############
  420. ''  + Chiron !?
  421. '' ############
  422. :
  423. CLOSE #1
  424. goto L7000
  425.  
  426.  
  427. '[Label]
  428. astrolog:
  429. '[astrolog543a & astrolog542j07]
  430. '
  431. '---r-e-d-u-n-mayhap--#
  432. z$ = ""
  433. OPEN fi$ + fq$ FOR INPUT AS #1
  434. LINE INPUT #1, z$: '' z$ = right$(z$,37): ' ' ' ' if left$(z$,3) <> "-zi" then ERROR: ' ' ' 'edit--OR-
  435. ' ' ' ' if left$(z$,3) <> "-YF" then ERROR: '' ## EDIT ##
  436. if LEFT$(z$,3) = "-zi" then z$ = "astrolog"
  437. CLOSE #1
  438.  
  439. '##########################################################################
  440. ' THESE INPUT LINES WILL VARY ACCORDING TO 'astrolog.dat' AND the switches.
  441. ' (cf. 'astrolog' version) - (cf. sh/bat-scripts)
  442. ' These variables may be moved to and input#ed from a .dat-file
  443. '##########################################################################
  444.  s$(1) = "Ari"
  445.  s$(2) = "Tau"
  446.  s$(3) = "Gem"
  447.  s$(4) = "Can"
  448.  s$(5) = "Leo"
  449.  s$(6) = "Vir"
  450.  s$(7) = "Lib"
  451.  s$(8) = "Sco"
  452.  s$(9) = "Sag"
  453.  s$(10) = "Cap"
  454.  s$(11) = "Aqu"
  455.  s$(12) = "Pis"
  456.  
  457.  b$(1) = "Sun"
  458.  b$(2) = "Moo"
  459.  b$(3) = "Mer"
  460.  b$(4) = "Ven"
  461.  b$(5) = "Mar"
  462.  b$(6) = "Jup"
  463.  b$(7) = "Sat"
  464.  b$(8) = "Ura"
  465.  b$(9) = "Nep"
  466.  b$(10) = "Plu"
  467.  
  468.  b$(11) = "Chi"
  469.  b$(12) = "Cer"
  470.  b$(13) = "Pal"
  471.  b$(14) = "Jun"
  472.  b$(15) = "Ves"
  473.  b$(16) = "Nod"
  474.  b$(17) = "Mea"
  475.  b$(18) = "Lil"
  476.  b$(19) = "For"
  477.  b$(20) = "Ver"
  478.  b$(21) = "Eas"
  479.  
  480.  b$(22) = "Asc"
  481.  b$(23) = "2nd"
  482.  b$(24) = "3rd"
  483.  b$(25) = "IC": '[543a-nul-see below]
  484.  if PR$ = "astrolog542j07" then b$(25) = "I.C"
  485.  b$(26) = "5th"
  486.  b$(27) = "6th"
  487.  b$(28) = "Des"
  488.  b$(29) = "8th"
  489.  b$(30) = "9th"
  490.  b$(31) = "Mid"
  491.  if PR$ = "astrolog542j07" then b$(31) = "M.C"
  492.  b$(32) = "11t"
  493.  b$(33) = "12t"
  494.  
  495. '------------------------------------------------------------------------'
  496.  rh% = 100: ''[random high number - lines in 'astrolog' output may vary]
  497. '------------------------------------------------------------------------'
  498.  
  499. ' ' ' [z% / z$ ?]--[cf Menu+]
  500. OPEN fi$ + fp$ FOR INPUT AS #1
  501. FOR z% = 1 TO rh%
  502. z$ = ""
  503. INPUT #1, z$
  504. for i% = 1 to bb%: '[hp%,pp%]-[?]
  505. if left$(z$,3) = b$(i%) then if mid$(z$,20,3) = " R " then RX$(i%) = "r"
  506. next i%
  507. ' ' ' input #1, z$
  508. if EOF(1) then z% = rh%
  509. ' ' ' if z% < bb% then input #1, z$
  510. NEXT z%
  511. a% = 0: '--[redun L16000 ?]
  512. CLOSE #1
  513.  
  514. ''=-=-=
  515.  
  516. OPEN fi$ + fq$ FOR INPUT AS #1
  517. FOR z% = 1 TO rh%
  518. z$ = ""
  519. INPUT #1, z$
  520. for i% = 1 to bb%: '[hp%,pp%]-[?]
  521. if mid$(z$,5,3) = b$(i%) then z$ = mid$(z$,10,19): gosub calcastrolog: p$(i%) = z$: i% = bb%
  522. ' ' ' [543a: WATCH OUT: 'IC'-line contains a nul-character (ICnul:)]
  523. ' ' ' [z% / z$ ?]--[cf Menu+]
  524. ' ' ' [approx -- see sub]
  525. next i%
  526. ' ' ' input #1, z$
  527. if EOF(1) then z% = rh%
  528. ' ' ' if z% < bb% then input #1, z$
  529. NEXT z%
  530. a% = 0: '--[redun L16000 ?]
  531. CLOSE #1
  532.  
  533. '####################################
  534. 'p$(index) corresponds to b$(index) !
  535. '####################################
  536. p$(hp% + 1) = p$(31)
  537. p$(hp% + 2) = p$(22)
  538. '####################################
  539. '[p$(no axes)]-[??]-[cf. aqDRAW]
  540. goto L7000
  541.  
  542. '----------------
  543. '[other imports?]
  544. '----------------
  545.  
  546.  
  547. '[Label]
  548. L7000:
  549. '------------------------------------
  550. OPEN sx$ + "SWI.SWI" FOR OUTPUT AS #1
  551. PRINT #1, PR$
  552. CLOSE #1
  553. '------------------------------------
  554. '--[e.g. (AstroWin365) + (identity)]
  555.  
  556. '-------------------------------'
  557. ' goto open pdat.dat for output '
  558. '-------------------------------'
  559. '
  560. ' ' ' // [7010 : IF sp$ = "qATIE.BAS" THEN OPEN fi$ + "\pdat.dat" FOR OUTPUT AS #2]
  561. OPEN sx$ + "PDAT.DAT" FOR OUTPUT AS #2
  562. ' ' ' // [7020 : IF sp$ = "B" THEN OPEN ms$ + "\pdat.tmp" FOR OUTPUT AS #2]
  563. 7200 WRITE #2, m$(1, 0)
  564. 7210 WRITE #2, F1$
  565. 7220 WRITE #2, N1$
  566. 7230 WRITE #2, m$(1, 2)
  567. 7240 WRITE #2, Z1$: REM:zone
  568. 7242 WRITE #2, D1$: REM:ds
  569. 7250 : : : ' write #2,h1$: ' '[height]
  570. 7270 WRITE #2, m$(1, 1)
  571. 7280 WRITE #2, m$(1, 3)
  572. 7290 WRITE #2, m$(1, 4)
  573. 7300 WRITE #2, m$(1, 5)
  574. :
  575. 7350 FOR z% = 1 TO hp%
  576. 7360 PRINT #2, p$(z%)
  577. 7370 NEXT z%
  578. 7450 CLOSE #2
  579.  
  580. :
  581. '[angles/axes] ///
  582. OPEN sx$ + "ANGDAT.DAT" FOR OUTPUT AS #2
  583.  FOR z% = (hp% + 1) TO (hp% + 2): '--[mc to asc !!]
  584.  PRINT #2, p$(z%)
  585.  NEXT z%
  586.  a% = 0: '[redun L16000 ?]
  587. CLOSE #2
  588.  
  589.  
  590. '[ws$ ??]
  591. OPEN sx$ + "IDENTITY.TIE" FOR OUTPUT AS #2: '' [.\]
  592. PRINT #2, fi$: '--[if sp$=3=B <> X -- or always ?]--[^4 --amap]!
  593. print #2, fp$
  594. CLOSE #2
  595.  
  596.  
  597.  IF g$ = "i" THEN s% = 2: g$ = "z": '--['z'] --[t e m p o r a r y !!]--[ws$ ??]--
  598.  
  599.  
  600.  OPEN "switch.sw0" FOR OUTPUT AS #3: '' '--[.\]
  601.  PRINT #3, sw$
  602.  PRINT #3, sx$
  603.  PRINT #3, s%
  604.  CLOSE #3
  605.  
  606. '[ws$ ??]
  607. OPEN "choice.sw0" FOR OUTPUT AS #1: '' '--[.\]
  608.  PRINT #1, g$
  609. CLOSE #1
  610.  
  611.  
  612.  
  613. if g$ = "N" then goto N
  614. LOCATE (xloc% + 1), 3: PRINT "TIE-> DRAW (loading)";" - WAIT...";: GOTO xx:
  615. N:
  616. LOCATE 1, 52: PRINT "TIE        "
  617. LOCATE 2, 52: PRINT "-> DRAW    "
  618. LOCATE 3, 52: PRINT "(loading)  ": '[;]-[WAIT?]
  619. xx:
  620.  
  621. CHAIN "aqDRAW.BAS": '' --[.\]
  622. '---------------------
  623. :
  624. '[redunexit:]
  625. GOTO Irregular
  626. END
  627.  
  628.  
  629.  
  630. '[Label]
  631. BackOut:
  632. '--------------------------------------
  633. '[exit to system]
  634. ''---[kill [c:] '.swi' etc. fm here ?]
  635. ''---[ (- eller syst: .bat-file ?    ]
  636. '--------------------------------------
  637.  PRINT :  ' [??]--[clear buffer in order to get back to DOS proper ?]
  638.  ' CLEAR: ' [??] -[why don't we always get out into DOS/system, but just to QBasic (loaded prg)]-[??]
  639.  SYSTEM
  640. '=====
  641. '--[BackOut]
  642. '' ########
  643.  
  644.  
  645.  
  646. '' ===== ===== ===== ===== =====
  647.  ' ' // --[::FOR M=10 TO PP%::]--
  648.  
  649. '[Label]
  650. calczet9:
  651.  :
  652.  a% = VAL(LEFT$(z$, 2)): ' ' //: : :: // '' '' '' (N$(1,M),2)
  653.  r$ = MID$(z$, 4, 2):    ' ' //: : :: // '' '' '' (N$(1,M),3,2): ''[,4,2]'' --[right$(z$, 2) ??]
  654.  q$ = MID$(z$, 7, 2)
  655.  s$ = RIGHT$(z$, 3):     ' ' //: : :: // '' '' '' (N$(1,M),3)
  656.  
  657. r = VAL(r$)
  658. rz = r * 60
  659. ' ' // [r$ = STR$(r)] --[No!]
  660. r = VAL(q$)
  661. r = r + rz
  662. :
  663. z$=MID$(z$,9,3)
  664. rz = val(z$)
  665. r = r + rz
  666. :
  667. r = (r / (60*60))
  668. ' ' // ::::stop:::
  669. ' ' // r = (r*60)/100
  670. ' ' // :::stop::
  671.  
  672.  ' ' // [z / z%]--[?]
  673.  FOR z = 0 TO 11
  674.   IF s$ = s$(z + 1) THEN a% = a% + (z * 30): z = 11
  675.  NEXT z
  676. :::if a% >  360 then stop::: ' ' // --[DEBUG]
  677. loopz: if a% > 360 then a% = (a% - 360): goto loopz
  678. :
  679.  p = a% + r
  680.  :
  681.  ' ' // i$ = STR$(a%): i$ = MID$(i$, 2)
  682.  i$ = STR$(p): i$ = MID$(i$, 2)
  683.  IF a% < 100 THEN i$ = "0" + i$
  684.  IF a% < 10 THEN i$ = "0" + i$
  685.  z$ = i$
  686.  :
  687. RETURN: '--[zet9 input-file]
  688.  
  689.  ' ' // --[::NEXT M::]--
  690. '' ===== ===== ===== ===
  691.  
  692. '[Label]
  693. calcastrowin:
  694. :
  695.  a% = VAL(LEFT$(z$, 2)): ': : :: '' '' '' (N$(1,M),2))
  696.  s$ = MID$(z$, 4, 3): ': : : : : '' '' '' (N$(1,M),3)
  697.  r$ = MID$(z$, 8, 2): ': : : : : '' '' '' (N$(1,M),3,2): ''[,4,2]'' --[right$(z$, 2) ??]
  698.  :
  699.  r = VAL(r$)
  700.  r = r / 60
  701.  '' ''[r$ = STR$(r)]--[No!]
  702.  :
  703.  FOR z = 0 TO 11
  704.   IF s$ = s$(z + 1) THEN a% = a% + (z * 30): z = 11
  705.  NEXT z
  706.  
  707.  p = a% + r
  708.  
  709.  :
  710.  '' '' i$ = STR$(a%): i$ = MID$(i$, 2)
  711.  i$ = STR$(p): i$ = MID$(i$, 2)
  712.  IF a% < 100 THEN i$ = "0" + i$
  713.  IF a% < 10 THEN i$ = "0" + i$
  714.  ' ' ' ' ' --[IF m = 1 THEN p$(hp% + 1) = i$ + "." + r$]: : : ''[(1,x) ??]--
  715.  ' ' ' ' ' --[IF m = 4 THEN p$(hp% + 2) = i$ + "." + r$]--
  716.  '' ''[z$ = i$ + "." + r$] --[No!]
  717.  z$ = i$
  718.  :
  719.  ' ' ' ' ' --[::NEXT M::]--
  720. RETURN: '--[astrowin input-file]
  721. '' ===== ===== ===== ===== =====
  722.  
  723. '[Label]
  724. calcastrolog:
  725. :
  726.  a% = VAL(LEFT$(z$, 2)): ': : :: '' '' '' (N$(1,M),2)
  727.  s$ = MID$(z$, 4, 3):    ': : :: '' '' '' (N$(1,M),3)
  728.  r$ = MID$(z$, 8, 2):    ': : :: '' '' '' (N$(1,M),3,2): ''[,4,2]'' --[right$(z$, 2) ??]
  729.  :
  730.  r = VAL(r$)
  731.  r = r / 60
  732.  '' ''[r$ = STR$(r)]--[No!]
  733.  :
  734.  FOR z = 0 TO 11
  735.   IF s$ = s$(z + 1) THEN a% = a% + (z * 30): z = 11
  736.  NEXT z
  737.  p = a% + r
  738.  :
  739.  '' '' i$ = STR$(a%): i$ = MID$(i$, 2)
  740.  i$ = STR$(p): i$ = MID$(i$, 2)
  741.  IF a% < 100 THEN i$ = "0" + i$
  742.  IF a% < 10 THEN i$ = "0" + i$
  743.  ' ' ' ' ' --[IF m = 1 THEN p$(hp% + 1) = i$ + "." + r$]: : : ''[(1,x) ??]--
  744.  ' ' ' ' ' --[IF m = 4 THEN p$(hp% + 2) = i$ + "." + r$]--
  745.  '' ''[z$ = i$ + "." + r$] --[No!]
  746.  z$ = i$
  747.  :
  748.  ' ' ' ' ' --[::NEXT M::]--
  749. RETURN: '--[astrolog input-file]
  750. '' ===== ===== ===== ===== =====
  751.  
  752.  
  753. '[Label]
  754. Irregular:
  755. : : : : : locate xloc%+10,10: print "IRREGULAR": stop: '' --[t e m p o r a r y]
  756. : '' ---loc!?---'cls'?---[autoexec.bat: 'break=off' !?]*
  757. : LOCATE xloc%, 6: PRINT "[tie]  'A' is started with '<a> <CR>' in base directory!"
  758. : LOCATE xloc%, 7: PRINT "<key>;"
  759. : in$ = INPUT$(1)
  760. : CLEAR
  761. : SYSTEM
  762. :
  763. : '[-- astrap.bat -- a.bat (erase switches, etc.) -- end]
  764.  
  765. '------
  766. L63000:
  767.  ' on error* --loc!?---
  768.  ': PRINT "nofile / pls insert...": : : ':[like in syst-bat?]
  769.  ': ON ERROR GOTO 0: : : REM::'end' or --syst*?*
  770.  ': : : : : : : : : : in$ = INPUT$(1): : CLEAR : SYSTEM
  771.  ':
  772.  '---
  773.  'END
  774.  
  775.  
  776. '---'
  777. ' aqTIE.BAS
  778. '---'
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
 
Top