home *** CD-ROM | disk | FTP | other *** search
/ Explore the World of Soft…ids, Adults, Educational / RocelcoInc-ExploreTheWorldOfSoftware-KidsAdultsEducational-Vol2-Shareware.iso / educate / disk044 / ll.bas < prev    next >
Encoding:
BASIC Source File  |  1987-08-05  |  20.4 KB  |  301 lines
  1. 10 ' AMANDA'S LETTER LOTTO
  2. 20 ' Copyright 1986, 1987 - Steven C. Hudgik
  3. 30 ' All Rights Reserved
  4. 40 ' This software is provided on a shareware basis.  It MAY NOT be sold,
  5. 50 ' except for a fee to cover the cost of duplication and shipping, or
  6. 60 ' made part of any other software, computer program or publication.
  7. 70 ' This software may be dublicated and given away.
  8. 80 '
  9. 90 CLS:DIM A$(25),LT%(5)
  10. 100 CLEAR:G%=1:FOR I=1 TO 5:LT%(I)=0:NEXT I
  11. 105 ON ERROR GOTO 5000
  12. 110 B%=0:H%=67
  13. 120 KEY 1,CHR$(156):KEY 2,CHR$(157):KEY 3,CHR$(158):KEY 4,CHR$(159):KEY 5,CHR$(160):KEY 6,CHR$(248):KEY 7,CHR$(249):KEY 8,CHR$(250):KEY 9,CHR$(251):KEY 10,CHR$(252)
  14. 130 OPEN "R",#1,"LETTERS.DAT",20
  15. 140 FIELD #1,2 AS A$(1),2AS A$(2),2AS A$(3),2AS A$(4),2AS A$(5),2AS A$(6),2AS A$(7),2AS A$(8),2AS A$(9),2AS A$(10)
  16. 150 GET #1,1:CAPS%=CVI(A$(10)):MD%=CVI(A$(1))
  17. 160 IF MD%=1 THEN 170 ELSE IF MD%=2 THEN 190 ELSE 180
  18. 170 C1%=CVI(A$(2)):C2%=CVI(A$(3)):C3%=CVI(A$(4)):GOTO 200
  19. 180 C1%=7:C2%=0:C3%=0:GOTO 200
  20. 190 C1%=15:C2%=1:C3%=0
  21. 200 DEF SEG=&HFFA6
  22. 210 GOSUB 1640
  23. 220 COLOR C1%,C2%,C3%:CLS:LOCATE 10,12:PRINT"PUSH ANY KEY ";
  24. 230 L$=INKEY$:IF (SC%=1 AND L$=CHR$(27)) THEN SC%=0 ELSE 250
  25. 240 LL$="":GOTO 220
  26. 250 H%=H%+1:IF H%=91 OR H%<65 THEN H%=65
  27. 260 IF L$=CHR$(32) THEN 420 ELSE IF L$=CHR$(5) THEN 590 ELSE IF L$=CHR$(24) THEN 530 ELSE IF LEN(L$)=0 THEN 230
  28. 270 AA=ASC(L$):IF AA=0 THEN L$=CHR$(167)
  29. 280 CNT%=CNT%+1:IF CNT%>5 OR CNT%<1 THEN CNT%=1
  30. 290 LT%(CNT%)=H%
  31. 300 GOSUB 1840
  32. 310 IF KD%=4 OR MD%=1 OR MD%=3 THEN 330
  33. 320 H$=INKEY$:H$=INKEY$:C1%=C1%+1:C2%=C2%+3:C3%=C3%+7:PRINT:PRINT
  34. 330 IF SC%=0 OR LL$<>"Y" THEN 340
  35. 333 LOCATE 1,23+L%:PRINT L$:L%=L%+2
  36. 340 FOR I=5 TO 9:H$=INKEY$:H$=INKEY$:A=INSTR(A$(I),L$)
  37. 342 IF A<>0 THEN 360
  38. 343 NEXT I
  39. 350 GOTO 420
  40. 360 FOR H=1 TO 15:H$=INKEY$:NEXT H
  41. 370 FOR H=1 TO 10:H$=INKEY$:H$=INKEY$:H$=INKEY$:H$=INKEY$:SOUND RND*1000+37,2:NEXT H
  42. 380 IF SC%=0 THEN 410 ELSE LOCATE 25,(I*2)+35
  43. 390 PRINT A$(I);:A$(I)=CHR$(248):Y=Y+1:IF Y<5 THEN 410 ELSE LOCATE 2,5:R=(SCR%+2)*4.562:LL$="":KD%=0:L%=0:SC%=0:PRINT "A WINNER!!";:PRINT USING"  YOUR SCORE IS: ### ";R;
  44. 400 SCR%=0:Y=0:GET #1,1:FOR H=2 TO 26:SOUND RND*1000+H%,2:NEXT H
  45. 410 H$=INKEY$:H$=INKEY$:LOCATE 10,5:PRINT"PUSH ANY KEY... ";:A=0:GOTO 440
  46. 420 FOR H=1 TO 35:H$=INKEY$:NEXT H
  47. 430 IF SC%=0 THEN 440 ELSE IF SCR%>-1 THEN 440 ELSE LOCATE 2,5:PRINT" SORRY, THE GAME IS OVER. ";:SC%=0:KD%=0:L%=0:LL$="":SCR%=0:LOCATE 4,5:PRINT CHR$(7);:PRINT" PUSH ANY KEY ";:L$=INPUT$(1):RETURN 250
  48. 440 IF KD%=4 OR MD%=1 OR MD%=3 THEN 230
  49. 450 IF BL%=1 THEN 560
  50. 460 IF C1%>15 THEN C1%=0
  51. 470 IF C2%>15 THEN C2%=C2%-15
  52. 480 IF C3%>15 THEN C3%=C3%-15
  53. 490 IF C2%=13 THEN C2%=14
  54. 500 IF C1%=C2% THEN C1%=C1%+1 ELSE IF (C1%=2 AND C2%=10) THEN C2%=C2%+1 ELSE IF (C1%=3 AND C2%=11) THEN C2%=C2%+1
  55. 510 IF C1%=15 THEN C1%=0
  56. 520 GOTO 230
  57. 530 IF C1%>15 THEN C1%=C1%-16 ELSE C1%=C1%+16
  58. 540 IF BL%=1 THEN BL%=0 ELSE BL%=1
  59. 550 L$="X":H$="H":GOTO 270
  60. 560 IF C1%>31 THEN C1%=16
  61. 570 IF C1%=20 AND C2%=12 THEN C1%=21
  62. 580 GOTO 470
  63. 590 IF C1%>15 THEN C4%=C2%+1 ELSE C4%=C1%
  64. 600 IF C1%<>7 THEN 620 ELSE K1%=7
  65. 610 K2%=0:GOTO 630
  66. 620 K1%=15:K2%=1
  67. 630 COLOR K1%,K2%:SC%=0:CLS:GET #1,1:PRINT STRING$(28,176);" AMANDA'S LETTER LOTTO ";STRING$(29,176):COLOR K2%,K1%,C3%:IF MD%=3 THEN W$="MONOCHROME" ELSE IF MD%=2 THEN W$="MULTIPLE COLORS" ELSE W$="THREE COLOR"
  68. 640 LOCATE 25,1:PRINT" DISPLAY IS SET FOR "W$" ";
  69. 650 LOCATE 25,40:PRINT" F9 - THE AUTHOR ";
  70. 660 LOCATE 25,62:PRINT" F10 - EXIT TO DOS ";
  71. 670 COLOR K1%,K2%:GOSUB 680:GOSUB 690:GOSUB 700:GOSUB 710:GOSUB 720:GOSUB 740:GOSUB 750:COLOR K2%,K1%:GOSUB 760:COLOR K1%,K2%:GOTO 770
  72. 680 LOCATE 4,25:H%=1:PRINT" F1 - MULTIPLE COLORS ":RETURN
  73. 690 LOCATE 6,25:H%=2:PRINT" F2 - SET THREE COLORS ":RETURN
  74. 700 LOCATE 8,25:H%=3:PRINT" F3 - MONOCHROME ":RETURN
  75. 710 LOCATE 10,25:H%=4:PRINT" F4 - TURN BLINKING ON/OFF ":RETURN
  76. 720 LOCATE 12,25:H%=5:PRINT" F5 - CAPITAL LETTERS ";:IF CAPS%=1 THEN PRINT"[ON ] " ELSE PRINT"[OFF] "
  77. 730 RETURN
  78. 740 LOCATE 14,25:H%=6:PRINT" F6 - SET AWARD LETTERS ":RETURN
  79. 750 LOCATE 16,25:H%=7:PRINT" F7 - LETTER LOTTO ":RETURN
  80. 760 LOCATE 18,25:H%=8:PRINT" F8 - PLAY GAME ":RETURN
  81. 770 LOCATE 21,25:PRINT" SELECT ONE OF THE ABOVE: "
  82. 780 COLOR K1%,K2%:LOCATE 21,51:H$=INKEY$:K%=K%+1:IF K%<65 OR K%>90 THEN K%=65
  83. 790 IF LEN(H$)=0 THEN 780 ELSE IF LEN(H$)>1 THEN 820 ELSE IF H$=CHR$(13) THEN 870
  84. 800 IF H$=CHR$(156) THEN 950 ELSE IF H$=CHR$(157) THEN 990 ELSE IF H$=CHR$(158) THEN 1180 ELSE IF H$=CHR$(159) THEN 1220 ELSE IF H$=CHR$(160) THEN 900 ELSE IF H$=CHR$(248) THEN 1260 ELSE IF H$=CHR$(252) THEN 1250 ELSE IF H$=CHR$(249) THEN 1480
  85. 810 IF H$=CHR$(251) THEN 3000 ELSE IF H$=CHR$(250) THEN 220 ELSE 780
  86. 820 M$=RIGHT$(H$,1):M=ASC(M$):IF M=72 THEN 830 ELSE IF M=80 THEN 850 ELSE 780
  87. 830 GOSUB 880:IF H%=1 THEN H%=8 ELSE H%=H%-1
  88. 840 COLOR K2%,K1%:GOSUB 880:GOTO 780
  89. 850 GOSUB 880:IF H%=8 THEN H%=1 ELSE H%=H%+1
  90. 860 GOTO 840
  91. 870 IF H%=1 THEN 950 ELSE IF H%=2 THEN 990 ELSE IF H%=3 THEN 1180 ELSE IF H%=4 THEN 1220 ELSE IF H%=5 THEN 900 ELSE IF H%=6 THEN 1260 ELSE IF H%=7 THEN 1480 ELSE IF H%=8 THEN 220 ELSE 780
  92. 880 IF H%=1 THEN GOSUB 680 ELSE IF H%=2 THEN GOSUB 690 ELSE IF H%=3 THEN GOSUB 700 ELSE IF H%=4 THEN GOSUB 710 ELSE IF H%=5 THEN GOSUB 720 ELSE IF H%=6 THEN GOSUB 740 ELSE IF H%=7 THEN GOSUB 750 ELSE IF H%=8 THEN GOSUB 760
  93. 890 RETURN
  94. 900 IF CAPS%=1 THEN CAPS%=0 ELSE CAPS%=1
  95. 910 GET #1,1:LSET A$(10)=MKI$(CAPS%)
  96. 920 PUT #1,1
  97. 930 GOTO 590
  98. 940 L$="*":GOTO 250
  99. 950 C1%=15:C2%=1:C3%=2:GET #1,1
  100. 960 MD%=2:LSET A$(1)=MKI$(2)
  101. 970 PUT #1,1
  102. 980 COLOR C1%,C2%,C3%:GOTO 590
  103. 990 CLS:GOSUB 1160
  104. 1000 LOCATE 15,5:PRINT"F10 - EXIT"
  105. 1010 LOCATE 8,35:PRINT"SELECT A COLOR FOR THE LETTERS: ";:H$=INPUT$(1)
  106. 1020 IF H$=CHR$(156) THEN C1%=0 ELSE IF H$=CHR$(157) THEN C1%=15 ELSE IF H$=CHR$(158) THEN C1%=4 ELSE IF H$=CHR$(159) THEN C1%=1 ELSE IF H$=CHR$(160) THEN C1%=2 ELSE IF H$=CHR$(248) THEN C1%=14 ELSE IF H$=CHR$(252) THEN 590
  107. 1030 CLS
  108. 1040 GOSUB 1160:LOCATE 12,5:PRINT"F6 - GREY  ":LOCATE 14,5:PRINT"F7 - PURPLE":LOCATE 17,5:PRINT"F10 - EXIT":LOCATE 9,35:PRINT"SELECT A BACKGROUND COLOR: ";:H$=INPUT$(1)
  109. 1050 IF H$=CHR$(156) THEN C2%=0 ELSE IF H$=CHR$(157) THEN C2%=7 ELSE IF H$=CHR$(158) THEN C2%=4 ELSE IF H$=CHR$(159) THEN C2%=1 ELSE IF H$=CHR$(160) THEN C2%=2 ELSE IF H$=CHR$(248) THEN C2%=3 ELSE IF H$=CHR$(249) THEN C2%=5
  110. 1055 IF H$=CHR$(252) THEN 590
  111. 1060 IF C1%=C2% THEN CLS ELSE 1080
  112. 1070 LOCATE 25,1:COLOR 0,7:PRINT" THIS COLOR COMBINATION WILL NOT WORK.  CHOOSE ANOTHER BACKGROUND COLOR.";:COLOR 15,1:GOTO 1040
  113. 1080 COLOR C1%,C2%,0:CLS
  114. 1090 GOSUB 1160:LOCATE 14,5:PRINT"F7 - GREY":LOCATE 16,5:PRINT"F8 - LIGHT BLUE":LOCATE 18,5:PRINT"F9 - LIGHT RED":LOCATE 21,5:PRINT"F10 - EXIT":LOCATE 10,35:PRINT"SELECT A BORDER COLOR: ";:H$=INPUT$(1)
  115. 1100 IF H$=CHR$(156) THEN C3%=0 ELSE IF H$=CHR$(157) THEN C3%=7 ELSE IF H$=CHR$(158) THEN C3%=4 ELSE IF H$=CHR$(159) THEN C3%=1 ELSE IF H$=CHR$(160) THEN C3%=2 ELSE IF H$=CHR$(248) THEN C3%=14 ELSE 1120
  116. 1110 GOTO 1130
  117. 1120 IF H$=CHR$(249) THEN C3%=8 ELSE IF H$=CHR$(250) THEN C3%=9 ELSE IF H$=CHR$(251) THEN C3%=12 ELSE IF H$=CHR$(252) THEN 590 ELSE C3%=0
  118. 1130 MD%=1:GET #1,1:LSET A$(1)=MKI$(1):LSET A$(2)=MKI$(C1%):LSET A$(3)=MKI$(C2%):LSET A$(4)=MKI$(C3%):COLOR C1%,C2%,C3%
  119. 1140 PUT #1,1
  120. 1150 GOTO 590
  121. 1160 LOCATE 2,5:PRINT"F1 - BLACK":LOCATE 4,5:PRINT"F2 - WHITE":LOCATE 6,5:PRINT"F3 - RED ":LOCATE 8,5:PRINT"F4 - BLUE":LOCATE 10,5:PRINT"F5 - GREEN":LOCATE 12,5:PRINT"F6 - YELLOW"
  122. 1170 RETURN
  123. 1180 C1%=7:C2%=0:C3%=0:MD%=3:GET #1,1
  124. 1190 MD%=3:LSET A$(1)=MKI$(3)
  125. 1200 PUT #1,1
  126. 1210 COLOR C1%,C2%,C3%:GOTO 590
  127. 1220 IF C1%>15 THEN C1%=C1%-16 ELSE C1%=C1%+16
  128. 1230 IF BL%=1 THEN BL%=0 ELSE BL%=1
  129. 1240 GOTO 590
  130. 1250 COLOR 7,0,0:CLS:PRINT" A M A N D A ' S    L E T T E R   L O T T O   I S    F I N I S H E D ":PRINT:PRINT:SYSTEM
  131. 1260 COLOR C1%,C2%:CLS:PRINT STRING$(30,176);" SET AWARD LETTERS ";STRING$(30,176);:GOSUB 1270:COLOR C2%,C1%:GOSUB 1290:COLOR C1%,C2%:GOSUB 1300:GOSUB 1310:GOSUB 1320:GOSUB 1330:GOSUB 1340:H%=5:GET #1,1:GOTO 1350
  132. 1270 FOR I=4 TO 14 STEP 2:LOCATE I,18:PRINT CHR$(249):NEXT I
  133. 1280 RETURN
  134. 1290 LOCATE 4,20:H%=5:PRINT " "A$(5)" ":RETURN
  135. 1300 LOCATE 6,20:H%=6:PRINT " "A$(6)" ":RETURN
  136. 1310 LOCATE 8,20:H%=7:PRINT " "A$(7)" ":RETURN
  137. 1320 LOCATE 10,20:H%=8:PRINT " "A$(8)" ":RETURN
  138. 1330 LOCATE 12,20:H%=9:PRINT " "A$(9)" ":RETURN
  139. 1340 LOCATE 14,20:H%=10:PRINT " EXIT ":RETURN
  140. 1350 LOCATE 18,5:PRINT" HIGHLIGHT THE LETTER TO BE CHANGED ":LOCATE 20,5:PRINT" THEN PUSH A NEW LETTER OR PUSH THE SPACE BAR TO MAKE A BLANK "
  141. 1360 COLOR C1%,C2%:LOCATE 1,1,0:H$=INKEY$:IF LEN(H$)>1 THEN 1390 ELSE IF LEN(H$)=0 THEN 1360 ELSE IF H%=10 THEN 1460
  142. 1370 IF H$=" " THEN LSET A$(H%)=CHR$(255) ELSE LSET A$(H%)=H$
  143. 1380 GOTO 1420
  144. 1390 M$=RIGHT$(H$,1):M=ASC(M$):IF M=72 THEN 1400 ELSE IF M=80 THEN 1420 ELSE 1360
  145. 1400 GOSUB 1440:IF H%=5 THEN H%=10 ELSE H%=H%-1
  146. 1410 COLOR C2%,C1%:GOSUB 1440:GOTO 1360
  147. 1420 GOSUB 1440:IF H%=10 THEN H%=5 ELSE H%=H%+1
  148. 1430 GOTO 1410
  149. 1440 IF H%=5 THEN GOSUB 1290 ELSE IF H%=6 THEN GOSUB 1300 ELSE IF H%=7 THEN GOSUB 1310 ELSE IF H%=8 THEN GOSUB 1320 ELSE IF H%=9 THEN GOSUB 1330 ELSE IF H%=10 THEN GOSUB 1340
  150. 1450 RETURN
  151. 1460 PUT #1,1
  152. 1470 LOCATE 1,1,1:GOTO 590
  153. 1480 L%=0:Y=0:H%=0:SC%=1:SCR%=25:PRINT" SELECTING LETTERS ";
  154. 1490 IF LT%(5)<65 THEN LT%(5)=K%
  155. 1500 IF LT%(1)<65 THEN LT%(1)=H%
  156. 1510 H%=H%+1:FOR I=1 TO 4:IF LT%(I)<65 THEN 1580 ELSE IF LT%(I)=LT%(5) THEN 1550
  157. 1512 NEXT I
  158. 1520 FOR I=1 TO 3:IF LT%(I)=LT%(4) THEN 1550
  159. 1521 NEXT I
  160. 1530 FOR I=1 TO 2:IF LT%(I)=LT%(3) THEN 1550
  161. 1531 NEXT I
  162. 1540 IF LT%(1)=LT%(2) THEN 1550 ELSE 1600
  163. 1550 LT%(I)=LT%(I)+3:IF LT%(I)>90 THEN LT%(I)=LT%(I)-25
  164. 1560 IF H%=200 THEN 1600
  165. 1570 GOTO 1510
  166. 1580 LT%(I)=K%+I:IF LT%(I)>90 THEN LT%(I)=LT%(I)-24
  167. 1590 GOTO 1510
  168. 1600 FOR I=1 TO 5:A$(I+4)=CHR$(LT%(I)):NEXT I
  169. 1610 CLS:LOCATE 12,20,1:PRINT"DISPLAY SELECTIONS (Y/N): ";:LL$=INPUT$(1)
  170. 1620 IF LL$="Y" OR LL$="y" THEN LL$="Y" ELSE LL$=""
  171. 1630 KD%=4:L=0:GOTO 220
  172. 1640 IF MD%=3 THEN 1650 ELSE 1730
  173. 1650 COLOR 7,0,0:CLS:LOCATE 5,5:PRINT CHR$(218);STRING$(68,196);CHR$(191)
  174. 1660 FOR I=6 TO 15:LOCATE I,5:PRINT CHR$(179);:PRINT TAB(74) CHR$(179):NEXT I
  175. 1670 LOCATE 16,5:PRINT CHR$(192);STRING$(68,196);CHR$(217)
  176. 1680 LOCATE 7,28:PRINT"AMANDA'S LETTER LOTTO"
  177. 1690 LOCATE 9,28:PRINT"MS/PC-DOS Version 1.01"
  178. 1700 LOCATE 11,23:PRINT"Copyright 1987 - Steven C. Hudgik"
  179. 1710 LOCATE 13,13:PRINT"Published by HomeCraft Computer Products - Tualatin, OR"
  180. 1720 LOCATE 1,1,0:GOTO 1810
  181. 1730 COLOR 2,0,4:CLS:LOCATE 5,5:PRINT CHR$(218);STRING$(68,196);CHR$(191)
  182. 1740 FOR I=6 TO 15:LOCATE I,5:PRINT CHR$(179);:PRINT TAB(74) CHR$(179):NEXT I
  183. 1750 LOCATE 16,5:PRINT CHR$(192);STRING$(68,196);CHR$(217)
  184. 1760 COLOR 14,0,4:LOCATE 7,29:PRINT"AMANDA'S LETTER GAME"
  185. 1770 COLOR 9,0,4:LOCATE 9,28:PRINT"MS/PC-DOS Version 1.01"
  186. 1780 LOCATE 11,23:PRINT"Copyright 1987 - Steven C. Hudgik"
  187. 1790 COLOR 5,0,4:LOCATE 13,13:PRINT"Published by HomeCraft Computer Products - Tualatin, OR"
  188. 1800 LOCATE 1,1,0:GOTO 1810
  189. 1810 FOR I=1 TO 10000 STEP 2:I=I-1*1:L$=INKEY$:IF LEN(L$)>0 THEN 1830
  190. 1811 NEXT I
  191. 1820 RETURN
  192. 1830 COLOR C1%,C2%,C3%:RETURN 250
  193. 1840 COLOR C1%,C2%,C3%:IF CAPS%=1 THEN 1850 ELSE 1870
  194. 1850 AA=ASC(L$):IF (AA>96 AND AA<123) THEN AA=AA-32
  195. 1860 L$=CHR$(AA)
  196. 1870 IF L$=CHR$(13) THEN L$="+"
  197. 1880 FOR I=1 TO 40:H$=INKEY$:NEXT I
  198. 1890 IF SC%=0 THEN CLS:PRINT
  199. 1900 LL%=1:IF SC%<>1 THEN 1930 ELSE LOCATE 25,60:PRINT USING" PLAYS LEFT: ## ";SCR%;
  200. 1910 SCR%=SCR%-1
  201. 1920 LOCATE 1,5:PRINT"LETTERS SELECTED: ":LOCATE 25,27:PRINT" WINNING LETTERS: ";
  202. 1930 LOCATE 25,1,0:PRINT" ^E - EXIT TO MENU ";
  203. 1940 N=ASC(L$)
  204. 1950 LOCATE 6,1
  205. 1960 FOR L=0 TO 7:A=PEEK(N*8+L+14)
  206. 1970 A$=""
  207. 1980 FOR J=0 TO 7:M=A AND 1
  208. 1990 W=32+M*187:H$=INKEY$
  209. 2000 A$=CHR$(W)+CHR$(W)+CHR$(W)+A$
  210. 2010 A=(A-M)/2
  211. 2020 NEXT J
  212. 2030 H$=INKEY$:H$=INKEY$:PRINT SPC(28)A$
  213. 2040 H$=INKEY$:H$=INKEY$:H$=INKEY$:PRINT SPC(28)A$
  214. 2050 NEXT L
  215. 2060 FOR I=1 TO 12:H$=INKEY$:NEXT I
  216. 2070 RETURN
  217. 3000 CLS:PRINT STRING$(30,178);" AUTHOR INFORMATION ";STRING$(30,178)
  218. 3010 PRINT:PRINT"   This software was created by Steve Hudgik (that's me).  It was written"
  219. 3020 PRINT"to entertain my daughter Amanda and my son Zachary and to"
  220. 3030 PRINT"help them learn about the alphebet and computers.  It's"
  221. 3040 PRINT"worked well for them and I hope your children have many hours of"
  222. 3050 PRINT"fun using Amanda's Letter Lotto.":PRINT
  223. 3060 PRINT"   If you like this software, and find that it is being used, I"
  224. 3070 PRINT"would appreciate it very much if you could send a donation of $5 to"
  225. 3080 PRINT"help pay for the effort that went into creating Amanda's Letter"
  226. 3090 PRINT"Lotto.  Make your check out to either Amanda Hudgik or Zachary"
  227. 3100 PRINT"Hudgik (Amanda is now 4 and Zachary is 2 years old).  We'll be"
  228. 3110 PRINT"using any donations to help start a college fund for Amanda and
  229. 3120 PRINT"Zachary.":PRINT
  230. 3130 PRINT"   Our address is:  P.O. Box 974"
  231. 3140 PRINT"                    Tualatin,  OR   97062"
  232. 3150 LOCATE 24,5:PRINT"Push ESC to return to menu, any other key for";:LOCATE 25,5,1:PRINT"information on other HomeCraft products... ";
  233. 3160 H$=INKEY$:IF LEN(H$)=0 THEN 3160 ELSE IF ASC(H$)=27 THEN 630
  234. 3170 CLS:PRINT STRING$(20,177);" HOME MONEY MANAGER II ";STRING$(20,177):PRINT
  235. 3180 PRINT"Would you like to simplify balancing your checkbook?":PRINT:PRINT"HMM-II can do it for you.  Most home financial software promises a lot, and":PRINT"in most cases delivers what is promised.  However, it is usually"
  236. 3190 PRINT"so complex that you may spend months getting it set up and running."
  237. 3200 PRINT"HMM-II promises and delivers a lot - but in a way that is designed":PRINT"for the typical HOME user.  HMM-II is not for investors":PRINT"or financial managers.  It is for the average person who wants"
  238. 3210 PRINT"powerful and complete home finacial software.":PRINT:PRINT"HMM-II provides 12 separate check registers and an additional 12 registers":PRINT"for your credit accounts.  There are 900+ possible expense categories."
  239. 3220 PRINT"With HMM-II you can change an entry at any time and that change":PRINT"will be reflected in ALL data files.  A wide variety of printed":PRINT"reports ease the burden at tax time.":PRINT
  240. 3225 PRINT"HMM-II can print any size check, even the ones you are now using.":PRINT"Plus, HMM-II will track your budget and provide comparison reports":PRINT"that show how well you're doing.":PRINT
  241. 3230 PRINT"HMM-II sells for $49.95 (that's right $49.94!).  A 100+ page manual":PRINT"is included.  HMM-II requires an IBM or compatible computer w/256K.";
  242. 3250 LOCATE 25,15:PRINT"PUSH ANY KEY FOR NEXT PAGE...";:H$=INPUT$(1)
  243. 3260 CLS:PRINT STRING$(24,176);" HOME INSURANCE ";STRING$(24,176):PRINT:PRINT"Home Insurance is a home inventory and record keeping system.  Plus,":PRINT"it provides a life insurance calculator and an insurance policy"
  244. 3270 PRINT"data base to aid you with planning your insurance needs.":PRINT:PRINT"The inventory section allows you to enter information on 1500 items (per data":PRINT"file - multiple files can also be used).  You can record descriptions,"
  245. 3280 PRINT"model and serial numbers, original and replacement costs,":PRINT"the date of purchase, who owns the item, where it is located, and what":PRINT"type of item it is."
  246. 3290 PRINT:PRINT"Other features provide automatic adjustment for inflation or":PRINT"depreciation; a summary of values by owner, location or item type; plus":PRINT"a variety of ways to search your inventory.  For example, you can search"
  247. 3300 PRINT"for all the items with a replacement cost above $1000, or you can":PRINT"list everything with the word 'glass' in the description.":PRINT
  248. 3310 PRINT"Home Insurance costs $24.95 and, like HMM-II, it comes with a complete":PRINT"printed manual.  An IBM or compatible computer with 196K":PRINT"is required."
  249. 3320 LOCATE 24,15:PRINT"PUSH ANY KEY FOR THE NEXT PAGE...";:H$=INPUT$(1)
  250. 3330 CLS:PRINT STRING$(30,178);" HOME LOAN ";STRING$(30,178):PRINT TAB(22)"The Home Financial Calculator":PRINT:PRINT"Home Loan provides all of the financial calculations you are likely to need"
  251. 3340 PRINT"around your home, in an easy to use menu driven format.":PRINT:PRINT"Home Loan can calculate loan payments and display them in a table that":PRINT"lets you compare various terms, loan amounts, and interest rates."
  252. 3350 PRINT"You can generate amortization tables that include irregular":PRINT"prepayments or balloon payments.  Home Loan can calculate present value,":PRINT"future value, and the value of an annuity.":PRINT
  253. 3360 PRINT"Home Loan also provides sections to help with retirement planning and":PRINT"planning for you children's college education.":PRINT:PRINT"Home Loan sells for $24.95 and comes with complete documentation.  An IBM or"
  254. 3370 PRINT"compatible computer with 196K is required.";:LOCATE 25,15:PRINT"PUSH ANY KEY FOR NEXT PAGE...";:H$=INPUT$(1)
  255. 3380 CLS:PRINT STRING$(20,177);" PERSONAL ASSET MANAGER<tm> ";STRING$(20,177):PRINT:PRINT"The Personal Asset Manager<tm> (PAM) combines all three of the":PRINT"previously described programs into one software package.  For $79.95"
  256. 3390 PRINT"you get:":PRINT:PRINT"HOME MONEY MANAGER II":PRINT:PRINT"HOME INSURANCE":PRINT:PRINT"HOME LOAN":PRINT:PRINT"Plus an added feature that helps calculate and track the costs for up to":PRINT"12 vehicles.":PRINT
  257. 3400 PRINT"PAM requires an IBM or compatible computer with 256K of memory.":PRINT:PRINT"Any of the software described here can be ordered directly from:":PRINT:PRINT"HomeCraft":PRINT"P.O. Box 974":PRINT"Tualatin, OR  97062
  258. 3410 LOCATE 25,1:PRINT"Push ESC to quit or any key for an order form...";
  259. 3420 H$=INKEY$:IF LEN(H$)=0 THEN 3420 ELSE IF ASC(H$)=27 THEN 630
  260. 3430 GOTO 20000
  261. 4000 GOTO 630
  262. 5000 CLS:LOCATE 10,1:PRINT"Letter Lotto has several layers of protection"
  263. 5010 PRINT"against keyboard errors.  However, you have found one we didn't"
  264. 5020 PRINT"think of.  Sorry about that.":PRINT:PRINT"This error is code number: "ERR:LOCATE 20,1
  265. 5030 PRINT"Push any key to start playing again... ";:H$=INPUT$(1):RESUME 630
  266. 20000 CLS:PRINT TAB(27)"HOMECRAFT COMPUTER PRODUCTS"
  267. 20010 PRINT:PRINT TAB(26)"SHAREWARE SOFTWARE ORDER FORM
  268. 20020 LOCATE 8,25:PRINT"ENTER YOUR NAME: ";:LINE INPUT NM$
  269. 20030 LOCATE 10,5:PRINT"ENTER COMPANY NAME AND SUITE NUMBER: ";:LINE INPUT CPNY$
  270. 20040 LOCATE 12,6:PRINT"ENTER UPS SHIPING ADDRESS (street): ";:LINE INPUT STRT$
  271. 20050 LOCATE 14,15:PRINT"ENTER CITY, STATE AND ZIP: ";:LINE INPUT CSZ$
  272. 20060 CLS:PRINT STRING$(30,177);" HOMECRAFT SOFTWARE ";STRING$(30,177):LOCATE 4,20:PRINT"<1> Home Loan ($24.95)"
  273. 20070 LOCATE 6,20:PRINT"<2> Home Insurance ($24.95)"
  274. 20080 LOCATE 8,20:PRINT"<3> Home Money Manager ($29.95)
  275. 20090 LOCATE 10,20:PRINT"<4> Home Money Manager II ($49.95)
  276. 20100 LOCATE 12,20:PRINT"<5> Personal Asset Manager ($79.95)
  277. 20110 LOCATE 14,20:PRINT"<6> Exit"
  278. 20120 LOCATE 17,12:PRINT"Push the number for the software you are registering: ";:H$=INPUT$(1):IF H$="6" THEN 630 ELSE IF VAL(H$)>6 OR VAL(H$)=0 THEN 20000 ELSE LOCATE 18,10:PRINT"Enter brand and model computer you have: ";:LINE INPUT CMPR$
  279. 20130 LOCATE 20,10:PRINT"Enter your VISA or MASTER CARD number"
  280. 20140 LOCATE 21,10:PRINT"or just push ENTER if you are sending a check: ";:LINE INPUT VISA$
  281. 20150 IF VISA$=CHR$(13) THEN 20160 ELSE LOCATE 23,10:PRINT"Enter expiration date: ";:LINE INPUT DAT$
  282. 20160 CLS:PRINT"BE SURE YOUR PRINTER IS ON.":LOCATE 5,1:PRINT"Push any key to print order form or the letter X to eXit. ";:J$=INPUT$(1):IF J$="x" OR J$="X" THEN 40
  283. 20170 LPRINT:LPRINT:LPRINT TAB(23)"HOMECRAFT COMPUTER PRODUCTS"
  284. 20180 LPRINT:LPRINT:LPRINT TAB(23)"SOFTWARE ORDER FORM":LPRINT:LPRINT:LPRINT
  285. 20190 LPRINT:LPRINT:LPRINT"SHIP TO: "NM$;SPACE$(30) DATE$:LPRINT TAB(9) CPNY$:LPRINT TAB(9) STRT$:LPRINT TAB(9) CSZ$
  286. 20200 LPRINT:LPRINT:LPRINT STRING$(75,45):LPRINT:LPRINT"QUANTITY               DESCRIPTION                  PRICE
  287. 20210 LPRINT:LPRINT"    1               ";:IF H$="1" THEN 20220 ELSE IF H$="2" THEN 20230 ELSE IF H$="3" THEN 20240 ELSE IF H$="4" THEN 20250 ELSE IF H$="5" THEN 20260
  288. 20220 LPRINT"   HOME LOAN                   $24.95":GOTO 20290
  289. 20230 LPRINT" HOME INSURANCE                $24.95":GOTO 20290
  290. 20240 LPRINT"HOME MONEY MANAGER             $29.95":GOTO 20290
  291. 20250 LPRINT"HOME MONEY MANAGER II          $49.95":GOTO 20290
  292. 20260 LPRINT"PERSONAL ASSET MANAGER         $79.95":GOTO 20290
  293. 20270 LPRINT:LPRINT "For an "CMPR$:LPRINT:LPRINT:LPRINT
  294. 20280 LPRINT:LPRINT:LPRINT"CREDIT CARD NUMBER: "VISA$"      "DAT$
  295. 20290 LPRINT:LPRINT "For a "CMPR$" computer":LPRINT:LPRINT:LPRINT
  296. 20300 LPRINT:LPRINT STRING$(75,45)
  297. 20310 LPRINT:LPRINT:LPRINT"CREDIT CARD NUMBER: "VISA$"      "DAT$
  298. 20320 LPRINT:LPRINT:LPRINT:LPRINT"MAIL THIS FORM TO: HomeCraft":LPRINT TAB(20)"P.O. BOX 974":LPRINT TAB(20)"TUALATIN, OR  97062"
  299. 20330 FOR H%=1 TO 27:LPRINT:NEXT H%
  300. 20340 GOTO 630
  301. eCraft":LPRINT TAB(20)"P.O. BOX 974":LPRINT TAB(20)"T