home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 29 / 029.d81 / placemnt (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  23KB  |  652 lines
  1. 10 poke649,1
  2. 20 print"[147][144]":poke53281,1:poke53280,1:print""
  3. 30 print"[197][206][212][197][210] [212][207][196][193][217]'[211] [196][193][212][197]":print"([197][216]: 07/01/86 )"
  4. 40 input"";dt$
  5. 41 iflen(dt$)<>8then10
  6. 42 d1$=left$(dt$,2):d2$=mid$(dt$,4,2):d3$=mid$(dt$,7,2)
  7. 43 ifval(d1$)>0andval(d1$)<13then45
  8. 44 goto10
  9. 45 ifval(d2$)>0andval(d2$)<32then47
  10. 46 goto10
  11. 47 ifval(d3$)>85then49
  12. 48 goto10
  13. 49 ifmid$(dt$,3,1)<>"/"ormid$(dt$,6,1)<>"/"then10
  14. 70 ul$="[175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175]"
  15. 80 pe$="......................................."
  16. 90 sp$="                                                  "
  17. 100 zq$=""
  18. 110 print"[147]":wt=0:lx=40:dima$(24),l(24),b$(24),cn(220),a(24):l(1)=0:forx=1to23
  19. 120 l(x+1)=l(x)+1:next:k=0:gosub3250
  20. 130 dimh(22):open2,8,2,"copyrite,s,r"
  21. 140 x=2:gosub3000:x=3:gosub3000:x=7:gosub3000:x=8:gosub3000:x=9:gosub3000
  22. 150 x=14:gosub3000:x=16:gosub3000:x=21:gosub3000:x=22:gosub3000:print"[147]"
  23. 160 gosub3060:gosub3040:gosub3140
  24. 170 gosub3250
  25. 180 x$=left$(dt$,2):cn(10)=val(x$):x$=mid$(dt$,4,2):cn(11)=val(x$)
  26. 190 x$=right$(dt$,2):cn(12)=val(x$)
  27. 200 a$(1)="       [197][206][212][197][210] [211][212][213][196][197][206][212][160][201][206][198][207][210][205][193][212][201][207][206]"
  28. 210 forx=3to12:input#2,a$(x):next:y=0:forx=3to12:iflen(a$(x))>ytheny=len(a$(x))
  29. 220 next:y=y+1:a$(12)=a$(12)+" "
  30. 230 forx=3to12:forxx=1toy-len(a$(x)):z$=z$+" ":next:a$(x)=z$+a$(x):z$="":next
  31. 240 yy=y+2:b$(3)=dt$
  32. 250 forx=4to10:input#2,s$:next
  33. 260 forx=4to12:ready:b$(x)=left$(pe$,y):a(x)=y
  34. 267 next:print"[147]"
  35. 270 data10,15,1,20,15,2,5,0,2
  36. 280 gosub1380:print"":gosub10000
  37. 530 ifb$(6)="m"orb$(6)="f"thenb$(6)=chr$(asc(b$(6))+128)
  38. 540 ifb$(6)=""thenb$(6)="[205]"
  39. 550 ifb$(11)="a"thenb$(11)="[193]"
  40. 560 print""left$(zq$,14)ul$:printtab(15)"[195][207][210][210][197][195][212][201][207][206][211]"
  41. 570 print"[193]. [208]ress number of item to be corrected."
  42. 580 print"[194]. [208]ress <[216]> if no corrections are         necessary."
  43. 590 ifb$(6)="m"orb$(6)="f"thenb$(6)=chr$(asc(b$(6))+128)
  44. 600 ifb$(6)=""thenb$(6)="[205]"
  45. 610 ifb$(6)<>"[205]"andb$(6)<>"[198]"thenb$(6)="[205]"
  46. 620 print""left$(zq$,4)a$(3);"       ";b$(3):forx=4to12:lh=x:y=x-3:y$=str$(y)
  47. 625 ifx=11then640
  48. 627 ifx=12thenlh=11:y=y-1:y$=str$(y)
  49. 630 y$=right$(y$,len(y$)-1):print""left$(zq$,l(x+2))a$(x);"   <";y$;"> ";b$(lh);
  50. 635 next:goto650
  51. 640 y$=right$(y$,len(y$)-1):print""left$(zq$,l(lh+2))a$(lh);:next
  52. 650 getx$:ifx$=""then650
  53. 655 ifx$="[216]"orx$="x"then740
  54. 660 ifval(x$)<1orval(x$)>8then650
  55. 670 forx=14to21:print""left$(zq$,l(x+2))left$(sp$,45);:next:x=val(x$)+3:lh=x
  56. 680 print""left$(zq$,16)"      [212]ype new entry for [201]tem #";x$;":";:ifx=11thenlh=12
  57. 690 z=(34-a(x))/2:print""left$(zq$,18)spc(z)left$(pe$,a(lh))"  ([197]nter)"
  58. 695 :p9=z+40*18:wt=9:w=x:j=18:r4=z:gosub10010
  59. 700 remprint""left$(zq$,18)spc(z)"";:b$(x)="":wt=9:lh=16:gosub330
  60. 710 print"[147]":forx=1to3:print""left$(zq$,l(x+2))a$(x);:next:goto560
  61. 740 forx=9to17:input#2,x$:next
  62. 770 b$(2)="9":goto850
  63. 780 return:gosub3255
  64. 800 print"[147]"left$(zq$,12)"[208]lease make a note of it. [201]t will save  time later.";
  65. 810 print""left$(zq$,8)"[211]tudent number:"
  66. 830 sn=1003:print""left$(zq$,8)tab(15)sn:foru=1to1500:next
  67. 840 cn(9)=sn:gosub3255:return
  68. 850 ifb$(11)="[193]"thengs$=" "+b$(11)+b$(6):goto880
  69. 860 g=val(b$(11)):g$=str$(g):g$=right$(g$,len(g$)-1):gs$=g$+b$(6)
  70. 870 iflen(gs$)<3thengs$="0"+gs$
  71. 880 b$(16)=gs$:b=val(b$(2))+64:ia$=str$(b):ia$=right$(ia$,2):b$(15)=ia$
  72. 890 ad$=left$(b$(3),2)+mid$(b$(3),4,2)+right$(b$(3),2):b$(14)=ad$:goto1090
  73. 900 gosub780
  74. 901 sa$=b$(4):sb$=b$(5):sc$=b$(7):sd$=b$(8)+b$(9)+b$(10):sg$=b$(14)
  75. 910 sh$=b$(15):si$="000":sj$="000":se$="[193][193]0000000000001":sf$=b$(16)
  76. 920 h(1)=10:h(2)=15:h(3)=20:h(4)=30:h(5)=15:h(6)=3:h(7)=6:h(8)=2:h(9)=3:h(10)=3
  77. 930 return
  78. 1090 forx=1to24:a$(x)="":next
  79. 1100 xs=6:gosub3040:forx=6to11:gosub3050:next
  80. 1110 forx=13to15:gosub3050:next
  81. 1120 x=17:gosub3050:gosub3060
  82. 1130 gosub3040:xs=3:forx=5to9:gosub3050:next:forx=11to14:gosub3050:next:x=15
  83. 1140 gosub3050:gosub3130:print"[147]":gosub3060:gosub3130:gosub3250
  84. 1150 jx=0:gosub3570:jx=od
  85. 1160 rem********** tachistoscope
  86. 1170 ss=0:l=1:c=0:ww=215:pt=150:nw=1:k=13
  87. 1180 goto1400
  88. 1190 sl=0
  89. 1200 forw=2to5
  90. 1210 ift$(w)=t$(1)thent$(6)=str$(w-1)
  91. 1220 iflen(t$(w))>slthensl=len(t$(w))
  92. 1230 next
  93. 1240 ift$(6)=""thenstop
  94. 1250 print"[147]"left$(zq$,10)"[192][192][192][192][192][192][192][192][192] [215]atch here for flash [192][192][192][192][192][192][192][192][192]";:gosub3180
  95. 1260 print"[147]":fory=1to50:next
  96. 1270 aa=(lx-len(t$(1)))/2
  97. 1280 print""left$(zq$,10)tab(aa)t$(1):fory=0topt:next:print"[147]"
  98. 1290 print""left$(zq$,8)tab(11)"[211]elect the word(s)"
  99. 1295 printtab(9)"that matched the flash."
  100. 1300 print""left$(zq$,4)"[198]lashword #"right$(str$(x),len(str$(x))-1)":"
  101. 1310 sl=((lx-sl)/2)-3:mn=2
  102. 1311 ifsl<0thensl=0
  103. 1320 forw=2to5:print""left$(zq$,8+mn+w)tab(sl)str$(w-1);"."t$(w):mn=mn+1:next
  104. 1325 gosub5700
  105. 1330 gosub3190:gosub3250
  106. 1340 cn(k)=pt:k=k+1:cn(k)=nw:k=k+1:cn(k)=f:k=k+1:iff=val(t$(6))thencn(k)=1
  107. 1350 iff=val(t$(6))thenc=c+1:ki=ki+1:k=k+1:goto1370
  108. 1360 cn(k)=0:k=k+1
  109. 1370 goto1620
  110. 1380 forxx=1to12:print""left$(zq$,l(xx+2))a$(xx)"  "b$(xx):next:return
  111. 1390 rem********** getting list of five
  112. 1400 forx=1to20
  113. 1410 fory=1to5:input#2,t$(y):next
  114. 1420 xy$=left$(t$(1),1):xy=val(xy$):yx=len(t$(1)):t$(1)=right$(t$(1),yx-1)
  115. 1430 fory=1to5
  116. 1440 a(1)=1:a(6)=len(t$(y))+2
  117. 1450 forz=2to5
  118. 1460 forkk=a(z-1)tolen(t$(y)):ifmid$(t$(y),kk,1)=" "thengosub1480
  119. 1470 next:goto1490
  120. 1480 a(z)=kk+1:kk=len(t$(y)):return
  121. 1490 next
  122. 1500 onnwgoto1510,1520,1530,1550,1560
  123. 1510 t$(y)=mid$(t$(y),a(xy),a(xy+1)-a(xy)+1-2):goto1560
  124. 1520 t$(y)=mid$(t$(y),a(xy),a(xy+2)-a(xy)-1):goto1560
  125. 1530 ifxy>2thent$(y)=mid$(t$(y),a(3),a(6)-2):goto1560
  126. 1540 t$(y)=mid$(t$(y),a(1),a(4)-2):goto1560
  127. 1550 t$(y)=mid$(t$(y),a(2),a(6)-a(2))
  128. 1560 next
  129. 1570 gosub1190
  130. 1580 next
  131. 1590 cn(ww)=cn(ww)+1000
  132. 1600 gosub3360:gosub5260:print"[147]":gosub3060
  133. 1610 gosub1800:gosub3130:gosub3280:goto1780
  134. 1620 ifc=3then1645
  135. 1630 ifcn(k-1)=1then1710
  136. 1640 goto1720
  137. 1645 ifnw<=5thencn(ww)=pt
  138. 1650 ifcn(k-1)=1thenifcn(k-5)=1thenifcn(k-9)=1thenc=0:goto1680
  139. 1660 ifcn(k-1)=1thenc=1:goto1710
  140. 1670 c=0:goto1720
  141. 1680 nw=nw+1:cn(nw)=pt:ww=ww+1
  142. 1690 ifnw>5thennw=5:ww=220:goto1710
  143. 1700 pt=100+nw*30:return
  144. 1710 fc=.1:pt=pt-int(pt*fc):return
  145. 1720 fc=.4:pt=pt+int(pt*fc):return
  146. 1780 rem***** load first story on screen
  147. 1790 sz=1:goto1850:rem:first story
  148. 1800 forx=1to24
  149. 1820 input#2,a$(x)
  150. 1830 next
  151. 1840 return
  152. 1850 print"[147]":gosub3060:gosub3570:qs=od
  153. 1860 ifsz=3thengosub2830:goto1930
  154. 1870 ifsz=2then1890
  155. 1880 gosub2010
  156. 1890 getf$:iff$=""then1890
  157. 1920 print"[147]":ifsz=2thengosub3250
  158. 1930 gosub3570:qt=(od-qs)
  159. 1940 ifqt=0then1890
  160. 1950 qt=qt/60
  161. 1960 wm=int(139/qt):ww$=str$(wm):ww$=right$(ww$,len(ww$)-1):cn(k)=wm:k=k+1
  162. 1970 gosub5190
  163. 1980 ifsz=2thengosub3560:goto2510
  164. 1990 ifsz=3then2710
  165. 2000 goto2030
  166. 2010 gosub3040:forx=1to4:gosub3050:next:forx=6to8:gosub3050:next
  167. 2015 forx=10to13:gosub3050:next
  168. 2020 return
  169. 2030 a$(5)=ww$+" words per minute. [212]hat's "+wm$
  170. 2040 print"[147]":gosub3080:gosub3130:gosub3250
  171. 2050 forx=1to10
  172. 2060 gosub5250:u=0
  173. 2070 print"[147]":a$(1)="[209]uestion #"+right$(str$(x),len(str$(x))-1)+":":print""a$(1)
  174. 2080 z=0:fory=2to5:iflen(cc$(y))>zthenz=len(cc$(y))
  175. 2090 next:z=z+3:ifz>40thenz=40
  176. 2100 pp=(int(lx-z)/2):p=(int(lx-len(cc$(1)))/2)
  177. 2120 ifp<0thenp=1
  178. 2130 ifpp<0thenpp=1
  179. 2140 print""left$(zq$,4)tab(p)cc$(1);:bc=7
  180. 2150 fory=7to10:print""left$(zq$,bc)tab(pp)str$(y-6);". ";cc$(y-5);
  181. 2155 bc=bc+2:iflen(cc$(y-5))>40thenbc=bc+1
  182. 2160 next:gosub3240:print"[147]"
  183. 2170 cn(k)=f:k=k+1:cn(k)=0
  184. 2180 a$(0)=a$(0)+f$
  185. 2190 iff<>ccthenk=k+1:goto2210
  186. 2200 cn(k)=1:k=k+1
  187. 2210 cn(k)=asc(cc$):k=k+1
  188. 2220 next
  189. 2230 gosub3250:gosub2370
  190. 2240 ifsz=2thengosub2270:k=k+3:goto2590
  191. 2250 ifsz=3thengosub2270:goto2760
  192. 2260 tc=cn(k-4)*10:tc$=str$(tc)+"%":ifsz>1thenreturn
  193. 2270 gosub3560:a$(1)=str$(sz):a$(2)=str$(cn(k-4)*10)+"%":a$(3)=str$(cn(k-3))
  194. 2280 a$(4)=str$(cn(k-2)):a$(5)="[195]orrect":if