home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 32 / 032.d81 / children (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  5KB  |  202 lines
  1. 1 print"[147][144]"chr$(142):poke53280,1:poke53281,1
  2. 2 s$="           --------------------------------------------------------"
  3. 20 print"[211] children [211]"
  4. 30 print"   press [return] to start printing"
  5. 40 print"    press the [space bar] to quit."
  6. 50 print"[149]print out as many forms as you need."
  7. 60 print"please update every three (3) months    (or sooner)."
  8. 65 poke198,.
  9. 70 geta$:ifa$<>chr$(13)anda$<>" "then70
  10. 80 ifa$=" "then1600
  11. 90 open15,4,15:close15:ifst=.then100
  12. 92 print" - error: your printer is not online. -"
  13. 94 fora=1to2000:next
  14. 96 print"[145]                                       [145][145][145]":goto65
  15. 100 print"       printing ... please wait."
  16. 103 print"                                       "
  17. 104 print"                                       "
  18. 105 open4,4,0
  19. 110 print#4,chr$(147)
  20. 120 print#4,chr$(13)
  21. 130 print#4,spc(10)"date:--------------"
  22. 140 print#4,
  23. 145 print#4,chr$(13)
  24. 150 print#4,spc(10)"name:------------------------------------------------"
  25. 160 print#4,
  26. 170 print#4,spc(10)"address:---------------------------------------------"
  27. 175 print#4,
  28. 180 print#4,spc(10)"city:-------------------- state:------------zip:-----"
  29. 185 print#4,
  30. 190 print#4,spc(10)"date of birth:-----------------"
  31. 195 print#4,
  32. 200 print#4,spc(10)"place of birth:--------------------------------------"
  33. 205 print#4,
  34. 210 print#4,spc(10)"name and address of present school:-----------------";
  35. 215 print#4,
  36. 220 tt=2:gosub1500
  37. 235 print#4,
  38. 240 print#4,spc(10)"teachers name:---------------------------------------"
  39. 245 print#4,
  40. 250 print#4,spc(10)"grade:--------------------"
  41. 255 print#4,
  42. 260 print#4,chr$(14)spc(10)"general description"chr$(15)
  43. 265 print#4,chr$(13)
  44. 270 print#4,spc(10)"sex:-----------height:-------------weight:-----------"
  45. 275 print#4,
  46. 280 print#4,spc(10)"color hair:-----------------eyes:-------------"
  47. 285 print#4,
  48. 290 print#4,spc(10)"scars or other identifying marks:"
  49. 292 tt=3:gosub1500
  50. 315 print#4,
  51. 330 print#4,spc(10)"personal habits:-------------------------------------"
  52. 332 tt=3:gosub1500
  53. 365 print#4,chr$(19)
  54. 370 print#4,chr$(13)
  55. 375 print#4,spc(10)"page 2"
  56. 380 print#4,chr$(147)
  57. 385 print#4,chr$(14)spc(15)"medical data"chr$(15)
  58. 390 print#4,
  59. 395 print#4,spc(10)"list medical problems if any:"
  60. 400 tt=4:gosub1500
  61. 435 print#4,
  62. 440 print#4,spc(10)"medications:-----------------------------------------"
  63. 445 tt=2:gosub1500
  64. 465 print#4,
  65. 470 print#4,spc(10)"allergies:-------------------------------------------"
  66. 475 tt=2:gosub1500
  67. 495 print#4,
  68. 500 print#4,spc(10)"fears:-----------------------------------------------"
  69. 505 tt=2:gosub1500
  70. 525 print#4,
  71. 530 print#4,spc(10)"favorite foods:--------------------------------------"
  72. 535 tt=2:gosub1500
  73. 555 print#4,
  74. 560 print#4,spc(10)"food dislikes:---------------------------------------"
  75. 565 tt=2:gosub1500
  76. 585 print#4,
  77. 590 print#4,spc(10)"name and address of doctor:--------------------------"
  78. 595 tt=1:gosub1500
  79. 605 print#4,
  80. 610 print#4,spc(10)"name and address of any hospital admittance:"
  81. 615 tt=3:gosub1500
  82. 645 print#4,chr$(19)
  83. 650 print#4,
  84. 655 print#4,chr$(147)
  85. 660 print#4,
  86. 665 print#4,spc(10)"page 3"
  87. 670 print#4,chr$(13)
  88. 675 print#4,spc(10)"names,addresses and phone numbers of three playmates";
  89. 678 print#4," of child:"
  90. 680 print#4,
  91. 683 forx=1to3
  92. 685 print#4,spc(10)"name:------------------------------------------------"
  93. 690 print#4,
  94. 695 print#4,spc(10)"address:---------------------------------------------"
  95. 700 print#4,
  96. 705 print#4,spc(10)"phone:-----------------------------------------------"
  97. 710 print#4,
  98. 715 next
  99. 720 print#4,
  100. 770 print#4,chr$(13)
  101. 785 print#4,spc(10)"name,addresses and phone numbers of 3 relatives ";
  102. 790 print#4,"known to child:"
  103. 795 print#4,
  104. 797 forx=1to3
  105. 800 print#4,spc(10)"name:------------------------------------------------"
  106. 805 print#4,
  107. 810 print#4,spc(10)"address:---------------------------------------------"
  108. 815 print#4,
  109. 820 print#4,spc(10)"city:--------------------state:---------phone:-------"
  110. 825 print#4,
  111. 830 next
  112. 835 print#4,
  113. 900 print#4,chr$(19)
  114. 905 print#4,
  115. 910 print#4,chr$(147)
  116. 915 print#4,spc(10)"page 4"
  117. 920 print#4,
  118. 925 print#4,spc(10)"list places that are known geographicly to the child:"
  119. 930 forx=1to20
  120. 935 print#4,
  121. 940 print#4,s$
  122. 945 next
  123. 955 print#4,chr$(19)
  124. 960 print#4,
  125. 965 print#4,chr$(147)
  126. 970 print#4,spc(10)"page 5"
  127. 975 print#4,chr$(13)
  128. 985 print#4,chr$(14)spc(10)"photo:"chr$(15)
  129. 990 print#4,
  130. 995 print#4,spc(20)"[176]                                  [174]"
  131. 1005 forg=1to5
  132. 1010 print#4,
  133. 1015 next
  134. 1020 print#4,spc(30)"[176]            [174]"
  135. 1025 forh=1to10
  136. 1030 print#4,
  137. 1035 next
  138. 1040 print#4,spc(30)"[173]            [189]"
  139. 1050 form=1to5
  140. 1055 print#4,
  141. 1060 next
  142. 1065 print#4,spc(20)"[173]                                  [189]"
  143. 1075 print#4,
  144. 1080 print#4,spc(10)"date photo was taken:-------------------------------"
  145. 1085 print#4,
  146. 1090 print#4,spc(10)"where was photo taken:------------------------------"
  147. 1095 tt=1:gosub1500
  148. 1105 print#4,
  149. 1110 print#4,spc(10)"age of child when photo was taken:------------------"
  150. 1115 print#4,
  151. 1120 print#4,chr$(19)
  152. 1125 print#4,
  153. 1130 print#4,chr$(147)
  154. 1135 print#4,spc(10)"page 6"
  155. 1140 print#4,
  156. 1145 print#4,spc(10)"list childs favorite tv programs, and times and ";
  157. 1150 print#4,"channel shown:"
  158. 1152 tt=7:gosub1500
  159. 1165 print#4,
  160. 1175 print#4,spc(10)"childs religous affiliation:------------------------"
  161. 1180 print#4,
  162. 1185 print#4,spc(10)"name and location of church:------------------------"
  163. 1190 tt=1:gosub1500
  164. 1200 print#4,
  165. 1205 print#4,spc(10)"pastors name:---------------------------------------"
  166. 1210 print#4,
  167. 1215 print#4,chr$(19)
  168. 1220 print#4,
  169. 1225 print#4,chr$(147)
  170. 1230 print#4,spc(10)"page 7"
  171. 1235 print#4,
  172. 1240 print#4,spc(10)"fingerprints:"
  173. 1245 print#4,chr$(13)
  174. 1250 print#4,spc(10)"left hand:"
  175. 1255 print#4,
  176. 1260 forx=1to10
  177. 1265 print#4,
  178. 1270 next
  179. 1275 print#4,spc(10)"right hand:"
  180. 1280 forx=1to10
  181. 1285 print#4.
  182. 1290 next
  183. 1295 print#4,chr$(19)
  184. 1300 print#4,
  185. 1305 print#4,chr$(147)
  186. 1310 print#4,spc(10)"page 8"
  187. 1315 print#4,chr$(13)
  188. 1320 print#4,spc(10)"list any other information you think necessary:"
  189. 1330 forx=1to25
  190. 1335 print#4,
  191. 1340 print#4,s$
  192. 1345 next
  193. 1350 print#4,chr$(19)
  194. 1355 close4,4,0
  195. 1360 run
  196. 1500 forxx=1tott
  197. 1510 print#4,:print#4,s$
  198. 1520 next:return
  199. 1600 open15,8,15,"r0:hello connect=hello connect":input#15,er:close15
  200. 1605 print"[147]";:ifer<>63thenend
  201. 1610 load"hello connect",8
  202.