home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 73 / 073.d81 / diskovery (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  4KB  |  159 lines
  1. 100 poke53281,0:poke53280,0:print""
  2. 105 poke52,56:poke56,56
  3. 110 sys57812"pharmfont",8,0:poke780,0:poke781,0:poke782,56:sys65493
  4. 112 sys57812"ss 1990",8,0:poke780,0:poke781,60:poke782,3:sys65493
  5. 115 poke53272,31:dimb$(70),d$(70)
  6. 120 fori=0to3:readtb(i):next
  7. 125 data2,10,20,30
  8. 130 fori=0to61
  9. 132 readb$(i),d$(i)
  10. 134 next
  11. 140 tp$="[158][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
  12. 142 bx$="[158][221]                          [221]"
  13. 144 bt$="[158][173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]"
  14. 200 print"[147]          [159][212][200][197] [205][201][199][200][212][217] [156][204][207][193][196][211][212][193][210]"
  15. 210 print"        [159][208][210][197][211][195][210][201][208][212][201][207][206] [212][210][193][206][211][204][193][212][207][210]"
  16. 220 print"[158][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
  17. 225 fori=0to17
  18. 230 print"[221]                                     [221]"
  19. 235 next
  20. 240 print"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]"
  21. 250 print" [195][210][211][210] [154]keys/[210][197][212][213][210][206]  [201][154] - [201]nfo  [209][154] - [209]uit"
  22. 260 print"[152]"
  23. 300 poke214,5:print:j=-1:fori=0to61
  24. 310 j=j+1:j=jand3
  25. 320 printtab(tb(j))b$(i);:ifj=3thenprint
  26. 330 next
  27. 340 sys828,1
  28. 350 gosub60000
  29. 360 z=z+1:geta$:ifa$=""andz<300then360
  30. 370 sys831,1
  31. 400 x=0:y=0
  32. 405 poke198,0
  33. 410 poke214,y+5:print
  34. 420 printtab(tb(x))""b$(x+y*4)"[145]"
  35. 430 geta$:ifa$="i"then700
  36. 432 ifa$<>"[145]"anda$<>""anda$<>""anda$<>"[157]"anda$<>"q"anda$<>chr$(13)then430
  37. 435 ifa$=chr$(13)then500
  38. 437 ifa$="q"then600
  39. 439 printtab(tb(x))"[152]"b$(x+y*4)
  40. 440 ifa$<>"[145]"then450
  41. 445 y=y-1:ify<0theny=15
  42. 446 ify=15andx>1theny=14
  43. 447 goto405
  44. 450 ifa$<>""then460
  45. 455 y=y+1:ify>15theny=0
  46. 456 ify=15thenifx>1theny=0
  47. 457 goto405
  48. 460 ifa$<>""then470
  49. 465 x=x+1:ifx>3thenx=0
  50. 466 ify=15andx=2thenx=0
  51. 467 goto405
  52. 470 ifa$<>"[157]"then480
  53. 475 x=x-1:ifx<0thenx=3
  54. 476 ify=15andx=3thenx=1
  55. 477 goto405
  56. 500 sys828,1:k=x+y*4
  57. 510 poke214,9:print
  58. 520 printtp$
  59. 522 printbx$
  60. 524 printbx$"[145]"
  61. 530 print"[156]"tab(20-(len(b$(k))/2))b$(k)
  62. 540 printbx$
  63. 550 printbx$"[145]"
  64. 560 print"[159]"tab(20-(len(d$(k))/2))d$(k)
  65. 570 printbx$
  66. 580 printbt$
  67. 590 poke214,23:print:print"             [154][208]ress any key             ":poke198,0
  68. 595 geta$:ifa$=""then595
  69. 597 sys831,1:goto405
  70. 600 open15,8,15,"r0:hello connect=hello connect":input#15,er:close15
  71. 610 ifer<>63thenprint"[147]":end
  72. 620 print"[147][144]load"chr$(34)"hello connect"chr$(34)",8"
  73. 630 print"run"
  74. 640 poke631,13:poke632,13:poke198,2:end
  75. 700 sys828,1
  76. 710 poke214,8:print
  77. 720 printtp$:printbx$
  78. 730 printbx$"[145]":printtab(8)"[159][208]rogram by [198]ender [212]ucker"
  79. 740 printbx$
  80. 750 printbx$"[145]":printtab(9)"[153][212]ranslations from the"
  81. 760 printbx$"[145]":printtab(8)"[153][206]ew [217]ork [208]ublic [204]ibrary"
  82. 770 printbx$"[145]":printtab(13)"[153][196]esk [210]eference"
  83. 780 printbx$:printbt$
  84. 790 goto590
  85. 1130 data"[255]","of each
  86. 1132 [131]"a.c.","before meals
  87. 1134 data"ad","so as to make
  88. 1136 [131]"add.","let there be added; add
  89. 1138 data"ad lib.","as needed or desired
  90. 1140 [131]"agit.","shake
  91. 1142 data"aq.","water
  92. 1144 [131]"b.(i)d.","twice daily
  93. 1146 data"[223]","with
  94. 1148 [131]"cap.","take, or capsule
  95. 1150 data"coch.","a spoonful
  96. 1152 [131]"d.","give
  97. 1154 data"dil.","dilute or dissolve
  98. 1156 [131]"str$x","diagnosis
  99. 1158 data"fldxt.","fluid extract
  100. 1160 [131]"ft.","make
  101. 1162 data"ft.mist.","make a mixture
  102. 1164 [131]"ft.pulv.","make a powder
  103. 1166 data"gr.","a grain
  104. 1168 [131]"gtt.","drops
  105. 1170 data"[200].","hour
  106. 1172 [131]"haust.","a draft
  107. 1174 data"[200]x","history
  108. 1176 [131]"in d.","daily
  109. 1178 data"lot.","a lotion
  110. 1180 [131]"get","heart murmur
  111. 1182 data"[162]","minim
  112. 1184 [131]"tab(","micron
  113. 1186 data"[163][163]","micromicron
  114. 1190 [131]"o.","a pint
  115. 1192 data"ol.","oil
  116. 1194 [131]"oz.","ounce
  117. 1196 data"p.c.","after meals
  118. 1198 [131]"pil.","pills
  119. 1200 data"p.r.n.","as circumstances require
  120. 1202 [131]"pulv.","powder
  121. 1204 data"[208]x","past history
  122. 1206 [131]"q.(i)d.","four times daily
  123. 1208 data"q.l.","as much as you please
  124. 1210 [131]"q.s.","as much as will suffice
  125. 1212 data"q.v.","as much as you like
  126. 1214 [131]"to","take this prescription
  127. 1216 data"rep.","repeat
  128. 1218 [131]"(NULL)h+","positive blood factor
  129. 1220 data"[210]h-","negative blood factor
  130. 1222 [131]"fn","1/1000th of a second
  131. 1224 data"[167]","without
  132. 1226 [131]"(NULL)","to be written on the label
  133. 1228 data"[211]ig.","to be written on the label
  134. 1230 [131]"sol.","solution
  135. 1232 data"s.o.s.","if necessary
  136. 1234 [131]"thenthen","one half
  137. 1236 data"tab.","tablet
  138. 1238 [131]"t.(i.)d.","three times daily
  139. 1240 data"ut dict.","as directed
  140. 1242 [131]"w/v","weight in volume
  141. 1244 data"[169]","ounce
  142. 1246 [131]"+step","fluid ounce
  143. 1248 data"[172]","dram
  144. 1250 [131]"+*","fluidram
  145. 1252 data"[175]","scruple
  146. 1254 [131]"mod. praesc.","in the manner prescribed
  147. 10000 open15,8,15,"s0:diskovery":close15:save"diskovery",8:end
  148. 60000 b9$="                                   "
  149. 60010 poke214,10:print:print"[155][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][152]"
  150. 60020 fori=0to7:printb9$:next:print"[151][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][152]"
  151. 60030 b9$(0)="[208][210][197][211][195][210][201][208][212][201][207][206] [212][210][193][206][211][204][193][212][207][210]
  152. 60040 b9$(1)[178]"by ascender (NULL)ucker
  153. 60050 b9$(2)="([195]) 1990 by [211]oftdisk, [201]nc."
  154. 60060 b9$(3)="[208]ublished on [204][207][193][196][211][212][193][210] #73"
  155. 60070 b9$(4)="[211]ubscriptions 1-800-831-2694"
  156. 60080 b9$(5)="[193]ll [210]ights [210]eserved"
  157. 60090 poke214,12:print:fori=0to5:printtab(20-(len(b9$(i))/2))""b9$(i):next
  158. 60099 return
  159.