home *** CD-ROM | disk | FTP | other *** search
/ Run Magazine ReRun 1992 May & June / rerun-1992-05-06.d64 / magazindex (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1992-01-01  |  11.1 KB  |  313 lines
  1. 10 poke53280,0:poke53281,0:poke808,225
  2. 20 print"[147]":d=214:x=11:gosub490:printspc(10)"[155][204][207][193][196][201][206][199] [195][200][193][210][193][195][212][197][210] [211][197][212]"
  3. 30 ifa=0thena=1:load"index font",8,1
  4. 40 goto2930
  5. 50 pokeb,11:print"[147]"
  6. 60 print"    [161][162][163][164][165][166][155][167][168][169][170][171][172][173][170][171][174][175][176][177][178][181][182][179][180][183][184]"
  7. 70 print"   [154][187][192][192][192][192][188] [155][167][168][169][170][171][172][173][170][171][174][175][176][177][178][181][182][179][180][183][184]":printj$:return
  8. 80 x=2:gosub490:print"[154]"u$:gosub490:print"[154][201][206][196][197][216]:"tab(27)"[205][193][195][210][207][211]:":printp$
  9. 90 ifn=0thenfi$="[206]o [201]ndex"
  10. 100 gosub490:printspc(8)"[154]"fi$tab(35)""m$:return
  11. 110 x=24:y=24:goto130
  12. 120 x=21:y=24
  13. 130 fori=xtoy:poke781,i:sys59903:next:return
  14. 140 poked,x:print:fori=0tol:printspc(s+1)"[155]"m$(i):next:poke198,0
  15. 150 poked,x+y:print:printspc(s)"[155][220]"m$(y)"[255][146][145]":gosub670
  16. 160 printspc(s)"[220]"m$(y)"[255]":ifg$=""theny=y+1:ify>ltheny=0
  17. 170 ifg$="[145]"theny=y-1:ify<0theny=l
  18. 180 ifg$=chr$(13)theng=y+1:return
  19. 190 ifg$=""thenreturn
  20. 200 goto150
  21. 210 q$="":poke198,0
  22. 220 getg$:print"[155][221][157]";:ifg$=""then220
  23. 230 ifg$=chr$(13)thenprint" ":return
  24. 240 if(g$=chr$(20)andlen(q$))thenq$=left$(q$,len(q$)-1):goto310
  25. 250 if(g$=chr$(20)andlen(q$)=0)orlen(q$)=>lthen220
  26. 260 gosub320:iff=1theng$=left$(g$,l-len(q$)):goto300
  27. 270 if(g$>chr$(31)andg$<chr$(34))or(g$=>"#"andg$<",")or(g$>","andg$<":")then300
  28. 280 if(g$>":"andg$<"^")or(g$>"[192]"andg$<"[219]")org$="[186]"then300
  29. 290 goto220
  30. 300 q$=q$+g$
  31. 310 printg$;:f=0:goto220
  32. 320 ifg$="[144]"theng$=f$(0):f=1
  33. 330 ifg$=""theng$=f$(1):f=1
  34. 340 ifg$=""theng$=f$(2):f=1
  35. 350 ifg$="[159]"theng$=f$(3):f=1
  36. 360 ifg$="[129]"theng$=f$(4):f=1
  37. 370 ifg$="[149]"theng$=f$(5):f=1
  38. 380 ifg$="[150]"theng$=f$(6):f=1
  39. 390 ifg$="[151]"theng$=f$(7):f=1
  40. 400 ifg$="[133]"theng$=f$(8):f=1
  41. 410 ifg$=chr$(137)theng$=f$(9):f=1
  42. 420 ifg$="[134]"theng$=f$(10):f=1
  43. 430 ifg$="[138]"theng$=f$(11):f=1
  44. 440 ifg$="[135]"theng$=f$(12):f=1
  45. 450 ifg$="[139]"theng$=f$(13):f=1
  46. 460 ifg$="[136]"theng$=f$(14):f=1
  47. 470 ifg$="[140]"theng$=f$(15):f=1
  48. 480 return
  49. 490 poked,x:print:return
  50. 500 gosub490:printtab(11)chr$(a)"[191][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][223]"
  51. 510 fori=1tol:printtab(11)chr$(a)"[187]               [188][146][151][255]":next
  52. 520 printtab(11)chr$(a)"[190][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][189][146][151][255]"
  53. 530 printtab(12)"[151][221][221][221][221][221][221][221][221][221][221][221][221][221][221][221][221][189]":poked,x+1:print:return
  54. 540 fori=0to3:print"[154][195][212][210][204]"i+1":[155]"f$(i):next:fori=4to7
  55. 550 print"[154][195][205][196][210]"i-3":[155]"f$(i):next:fori=8to14step2:print"   [154][198]"i-7":[155]"f$(i)
  56. 560 next:fori=9to15step2:print"   [154][198]"i-7":[155]"f$(i):next:return
  57. 570 print"           [154][[205]][146][155]acro [196]isplay ":return
  58. 580 print"[154][[209]][146][155]uit                 [154][[195][210][211][210]][146][155] [203]eys [208]age":return
  59. 590 x=21:gosub490:print" [155][192][192][192][192][192][192][192][192][192][192][192][192]":print" [197]rase [195]urrent [198]ile? [152]":goto640
  60. 600 x=22:gosub490:printu$:l=14:gosub1020:return
  61. 610 open15,8,15:print#15,"r0:"+na$+"="+na$:input#15,er,er$:close15:return
  62. 620 open15,8,15:input#15,er,er$:close15:return
  63. 630 x=23:gosub490:print" [154] [211][212][193][212][213][211]: [146]"er,er$""
  64. 640 pokez+24,15:pokez+5,45:pokez+6,165:pokez+4,33:pokez+1,6:pokez,5
  65. 650 fori=1to250:next:pokez+4,32:pokez+1,0:pokez,0
  66. 660 poke198,0
  67. 670 getg$:ifg$=""then670
  68. 680 return
  69. 690 x=3:gosub490:print"[191][192][192][192][192][192][192][192][223][155] [205]acro [196]efinitions [146][191][192][192][192][192][192][192][192][223]"
  70. 700 fori=1to16:print"[220]"e$"        [255]":next
  71. 710 print"[190][221][221][221][221][221][221][221][221][221][189][155] [208]ress [193]ny [203]ey [146][190][221][221][221][221][221][221][221][221][221][189]"
  72. 720 x=4:gosub490:gosub540:goto660
  73. 730 gosub50:x=2:gosub490
  74. 740 print"[154]"u$:gosub490:print"[154]"t$tab(26)"#     [207][198]":return
  75. 750 x=2:gosub490:printtab(28)"[154]        ":gosub490:printtab(27)""qtab(34)n
  76. 760 printp$:printu$:print"[155][221][221][221][221][221][221][221][221][221][221] "e$
  77. 770 print"[154]1:"ar$"[146] "e$:printv$e$:print"[154]2:"au$"[146] "e$:printv$e$
  78. 780 print"[154]3:"mg$"[146] "e$:printv$e$:print"[154]4:"dt$"[146] "e$:printv$e$
  79. 790 print"[154]5:"pg$"[146] "e$:printv$e$:print"[154]6:"sb$"[146] "e$:print"[155][192][192][192][192][192][192][192][192][192][192] "e$
  80. 800 printu$:printu$:printj$:return
  81. 810 gosub750:x=6:gosub490:fori=0to5:print"[155]"s$re$(i,q)"":next:return
  82. 820 x=21:gosub490:print"[154][[210]][146][155]ecord [200]ardcopy      [154][[201]][146][155]ndex [200]ardcopy"
  83. 830 gosub580:pokeb,27
  84. 840 gosub660:ifg$=""thenreturn
  85. 850 ifg$=""andleft$(t$,11)<>k$thenq=q+4:return
  86. 860 ifg$="[145]"andq>1thenq=q-2:return
  87. 870 ifg$="[157]"andleft$(t$,11)<>k$andq>5thenq=q-6:return
  88. 880 ifg$="r"thenc=1:gosub2810:goto820
  89. 890 ifg$="i"thenc=2:gosub2810:goto820
  90. 900 ifg$="q"thenq=n:return
  91. 910 goto840
  92. 920 q=q+1:ifq>nthenreturn
  93. 930 ifleft$(re$(a,q),len(q$))<>q$then920
  94. 940 gosub810:gosub820:goto920
  95. 950 n=n+1:x=21:gosub490:print"[154]           [201]nserting [210]ecord            "
  96. 960 printr$:gosub110:fori=ntoq+1step-1:forx=0to5:re$(x,i)=re$(x,i-1):next:next
  97. 970 fori=0to5:re$(i,q)="*":next:return
  98. 980 x=21:gosub490:print"[154]           [196]eleting [210]ecord             ":printr$
  99. 990 gosub110:fori=q+1ton:forx=5to0step-1:re$(x,i-1)=re$(x,i):next:next:n=n-1
  100. 1000 ifq>nthenq=n
  101. 1010 return
  102. 1020 x=21:gosub490:print" [155][192][192][192][192][192][192][192][192][192][192][192][192]":print" [198]ilename: ";:gosub210:return
  103. 1030 x=21:gosub490:print" [211]tart [193]t [210]ecord: ";:l=3:gosub210:q=val(q$):return
  104. 1040 x=21:gosub490:print" [211]earch [198]or: ";:l=25:gosub210:return
  105. 1050 x=23:gosub490:print" [204]oading [154]"q$" [155]- [211]tand by...":return
  106. 1060 x=x+2:poked,x:print:printspc(s)e$:poked,x:print:printspc(s);:gosub210
  107. 1070 ifq$=""thenq$="*":poked,x:print:printspc(s)q$
  108. 1080 return
  109. 1090 l=27:s=10:gosub1060:ifq$="*"thenq$=un$
  110. 1100 q$=left$(q$,l):return
  111. 1110 poke648,4:print"[147]":printlen(m$)tab(6)m$
  112. 1120 fori=0to15:printlen(f$(i))tab(6)f$(i):next:return
  113. 1130 open3,3,3:print"":input#3,m$:fori=0to15:input#3,f$(i):next:close3
  114. 1140 x=val(left$(m$,4)):m$=mid$(m$,6,x):fori=0to15:x=val(left$(f$(i),4))
  115. 1150 f$(i)=mid$(f$(i),6,x):next:poke648,192:return
  116. 1160 pokeb,11:print"[147]"
  117. 1170 gosub60:gosub80
  118. 1180 m$(0)=" [195][210][197][193][212][197] [201][206][196][197][216]    ":m$(1)=" [204][207][193][196] [201][206][196][197][216]      "
  119. 1190 m$(2)=" [197][196][201][212] [210][197][195][207][210][196][211]    ":m$(3)=" [193][196][196] [210][197][195][207][210][196][211]     "
  120. 1200 m$(4)=" [211][193][214][197] [201][206][196][197][216]      ":m$(5)=" [196][197][198][201][206][197] [205][193][195][210][207][211]   [155]"
  121. 1210 m$(6)=" [204][207][193][196] [205][193][195][210][207][211]     [155]":m$(7)=" [211][193][214][197] [205][193][195][210][207][211]     [155]"
  122. 1220 m$(8)="[154] [201][206][196][197][216] [196][201][210][197][195][212][207][210][217] [155]":m$(9)="[154] [211][197][193][210][195][200] [205][197][206][213]     [155]"
  123. 1230 m$(10)="[154] [197][216][201][212] [208][210][207][199][210][193][205]    [155]"
  124. 1240 x=4:gosub490:print"          [221][221][221][221][221][221][221][221][221][221][221][221][221][221][221][221][221][221][221]  "
  125. 1250 print"          [155][220]     [204][201][194][210][193][210][217]     [255]  "
  126. 1260 print"          [155][146][191][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][223]  "
  127. 1270 fori=0to10:print"          [146][155][220]"m$(i)"[255]  ":next
  128. 1280 print"          [155][146][190][221][221][221][221][221][221][221][221][221][221][221][221][221][221][221][221][221][189]  "
  129. 1290 print"        [221][221][221][221][221][221][221][221][221][221][221][221][221][221][221][221][221][221][221][221][221][221][221]"
  130. 1300 gosub120:pokeb,27:ifm=1then2480
  131. 1310 ifc=1thenc=0:goto3050
  132. 1320 ifef=1thenef=0:goto2760
  133. 1330 x=7:y=0:s=10:l=10:gosub140:ifg$=""then3090
  134. 1340 onggoto1350,1410,1490,1750,1890,2020,2260,2300,2360,2450,3090
  135. 1350 x=20:gosub490:printm$(0):ifn=0then1380
  136. 1360 gosub590:ifg$<>"y"then1300
  137. 1370 gosub1110:clr:m=1:gosub2950:gosub1130:gosub60:gosub80
  138. 1380 m$(0)=" [195][210][197][193][212][197] [201][206][196][197][216]":gosub600:ifq$=""then1180
  139. 1390 na$="i."+q$:gosub610:ifer=63then2350
  140. 1400 t$=m$(0):fi$=mid$(na$,3):goto1770
  141. 1410 x=20:gosub490:printm$(1):ifn=0then1440
  142. 1420 gosub590:ifg$<>"y"then1300
  143. 1430 gosub1110:clr:m=1:gosub2950:gosub1130:gosub60:gosub80
  144. 1440 gosub600:ifq$=""then1180
  145. 1450 na$="i."+q$:gosub610:ifer=62then2350
  146. 1460 gosub1050:open2,8,2,na$+",s,r":input#2,a$:lm%=val(a$):input#2,a$:n=val(a$)
  147. 1470 input#2,a$:av%=val(a$):forq=1ton:fori=0to5:input#2,re$(i,q):next:next
  148. 1480 close2:fi$=mid$(na$,3):gosub620:gosub80:gosub120:goto2760
  149. 1490 ifn=0then2460
  150. 1500 ifn>50thengosub1030:ifq>nthen1240
  151. 1510 ifn<50thenq=1
  152. 1520 t$=m$(2):gosub730:ifq=0thenq=1
  153. 1530 gosub810
  154. 1540 x=21:gosub490:print"[154][[197]][146][155]dit [198]ield";:gosub570
  155. 1550 print"[154][[201]][146][155]nsert [210]ecord        [154][[196]][146][155]elete [210]ecord ":gosub580:pokeb,27
  156. 1560 gosub660:ifg$=""andq<nthenq=q+1:goto1530
  157. 1570 ifg$=""andq=nthen1560
  158. 1580 ifg$=""andq<n-4thenq=q+5:goto1530
  159. 1590 ifg$="[145]"andq>1thenq=q-1:goto1530
  160. 1600 ifg$="[157]"andq>5thenq=q-5:goto1530
  161. 1610 ifg$="i"andn+1<=lm%thengosub950:ef=1:goto1530
  162. 1620 ifg$="d"andn-1=>1thengosub980:ef=1:goto1530
  163. 1630 ifg$="q"then1880
  164. 1640 ifg$="m"thengosub690:goto1530
  165. 1650 ifg$<>"e"then1560
  166. 1660 x=21:gosub490:print"[154]         [211]elect [198]ield [212]o [197]dit          ":printr$
  167. 1670 gosub110:s=11:l=27
  168. 1680 gosub660:ifg$="1"thenx=4:gosub1060:re$(0,q)=left$(q$,l):ef=1:goto1530
  169. 1690 ifg$="2"thenx=6:gosub1060:re$(1,q)=left$(q$,l):ef=1:goto1530
  170. 1700 ifg$="3"thenx=8:gosub1060:re$(2,q)=left$(q$,l):ef=1:goto1530
  171. 1710 ifg$="4"thenx=10:gosub1060:re$(3,q)=left$(q$,l):ef=1:goto1530
  172. 1720 ifg$="5"thenx=12:gosub1060:re$(4,q)=left$(q$,l):ef=1:goto1530
  173. 1730 ifg$="6"thenx=14:gosub1060:re$(5,q)=left$(q$,l):ef=1:goto1530
  174. 1740 goto1540
  175. 1750 ifn=0then2460
  176. 1760 t$=m$(3):ifn+1>lm%then1180
  177. 1770 gosub730
  178. 1780 n=n+1:q=n
  179. 1790 gosub750:print"[154][[193]][146][155]dd [210]ecord";:gosub570
  180. 1800 print"[154][[209]][146][155]uit      "e$:pokeb,27
  181. 1810 gosub660:ifg$="m"thengosub690:goto1790
  182. 1820 ifg$="q"thenn=n-1:goto1880
  183. 1830 ifg$<>"a"then1810
  184. 1840 x=21:gosub490:print"[154] [205]aximum [195]haracters [201]n [197]ach [198]ield:  27 ":printr$
  185. 1850 gosub110:gosub750:ef=1:x=4:s=11:l=27
  186. 1860 fori=0to5:gosub1060:re$(i,n)=left$(q$,l):next:ifn=lm%then1940
  187. 1870 goto1780
  188. 1880 ifef=0then1160
  189. 1890 ifn=0then1330
  190. 1900 ef=1:x=20:gosub490:printj$
  191. 1910 print"[154]            [211]ave [206]ew [201]ndex?            ":printr$:gosub110
  192. 1920 gosub660:ifg$="n"thenef=0:goto1160
  193. 1930 ifg$<>"y"then1920
  194. 1940 ift$=m$(0)then1990
  195. 1950 x=21:gosub490:print"[154]          [211]cratching [207]ld [198]ile          "
  196. 1960 open15,8,15:print#15,"s0:i."+fi$:print#15,"u:"
  197. 1970 x=21:gosub490:print" [195]alculating [205]emory [213]se - [208]lease [215]ait  "
  198. 1980 v%=fre(0):av%=(u%-v%)/n:lm%=u%/av%:close15:iflm%>400thenlm%=400
  199. 1990 x=21:gosub490:print"[154]            [211]aving [206]ew [198]ile            "
  200. 2000 open2,8,2,"i."+fi$+",s,w":print#2,lm%:print#2,n:print#2,av%:forq=1ton
  201. 2010 forx=0to5:print#2,re$(x,q):next:next:print#2:close2:gosub620:goto1160
  202. 2020 gosub50
  203. 2030 x=2:gosub490:print"[154]    [208]ress [203]ey [195]ombination [212]o [196]efine    ":printp$
  204. 2040 printspc(10)"^[192][192][192][223][155] [205][193][216][201][205][213][205] [204][197][206][199][212][200] [146][191][192][192][192][192]_":gosub540
  205. 2050 printj$:print"[154]          [208]ress [211][208][193][195][197] to exit          ":printr$:pokeb,27
  206. 2060 gosub660:ifg$="[144]"thenx=3:gosub1090:f$(0)=left$(q$,27):goto2030
  207. 2070 ifg$=""thenx=4:gosub1090:f$(1)=q$:goto2030
  208. 2080 ifg$=""thenx=5:gosub1090:f$(2)=q$:goto2030
  209. 2090 ifg$="[159]"thenx=6:gosub1090:f$(3)=q$:goto2030
  210. 2100 ifg$="[129]"thenx=7:gosub1090:f$(4)=q$:goto2030
  211. 2110 ifg$="[149]"thenx=8:gosub1090:f$(5)=q$:goto2030
  212. 2120 ifg$="[150]"thenx=9:gosub1090:f$(6)=q$:goto2030
  213. 2130 ifg$="[151]"thenx=10:gosub1090:f$(7)=q$:goto2030
  214. 2140 ifg$="[133]"thenx=11:gosub1090:f$(8)=q$:goto2030
  215. 2150 ifg$=chr$(137)thenx=15:gosub1090:f$(9)=q$:goto2030
  216. 2160 ifg$="[134]"thenx=12:gosub1090:f$(10)=q$:goto2030
  217. 2170 ifg$="[138]"thenx=16:gosub1090:f$(11)=q$:goto2030
  218. 2180 ifg$="[135]"thenx=13:gosub1090:f$(12)=q$:goto2030
  219. 2190 ifg$="[139]"thenx=17:gosub1090:f$(13)=q$:goto2030
  220. 2200 ifg$="[136]"thenx=14:gosub1090:f$(14)=q$:goto2030
  221. 2210 ifg$="[140]"thenx=18:gosub1090:f$(15)=q$:goto2030
  222. 2220 ifg$=" "then2240
  223. 2230 goto2060
  224. 2240 fori=0to15:iff$(i)=un$thenm$="[206]o":next:goto1160
  225. 2250 m$="[217]es":goto1160
  226. 2260 x=20:gosub490:printm$(6):l=14:gosub1020:ifq$=""then1300
  227. 2270 na$="m."+q$:gosub610:ifer<>63then2350
  228. 2280 gosub1050:open2,8,2,na$+",s,r":fori=0to15:input#2,f$(i):next:close2
  229. 2290 gosub620:m$="[217]es":goto1170
  230. 2300 ifm$="[206]o"then1330
  231. 2310 x=20:gosub490:printm$(7):l=14:gosub1020:ifq$=""then1300
  232. 2320 na$="m."+q$:gosub610:ifer<>62then2350
  233. 2330 open2,8,2,na$+",s,w":fori=0to15:print#2,f$(i):next:close2
  234. 2340 gosub620:goto1300
  235. 2350 gosub630:goto1180
  236. 2360 gosub50:print"[154]  [205][193][199][193][218][201][206][197] [201][206][196][197][216][197][211] [193][206][196] [205][193][195][210][207][211] [207][206] [196][201][211][203]  "
  237. 2370 print"[154]  <[211][200][201][198][212]> [208]auses          <[195][205][196][210]> [197]nds  ":printp$:pokeb,27
  238. 2380 x=12:y=13:open1,8,0,"$0:?.*":get#1,a$
  239. 2390 get#1,g$,g$,g$,g$,h$,i$:printasc(h$+chr$(0))*256+asc(g$+chr$(0))i$;
  240. 2400 fori=1tox:get#1,g$,h$:printg$h$;:next:print:ifh$<>""thenx=y:wait654,1,1
  241. 2410 ifpeek(653)=2then2430
  242. 2420 ifh$<>""thenpoke198,0:goto2390
  243. 2430 close1:printj$:print"[154]             [208]ress [193]ny [203]ey             "
  244. 2440 printr$:gosub660:goto1160
  245. 2450 ifn>0then2480
  246. 2460 x=14:a=28:l=2:gosub500:prints$"[206]o [193]ccess [213]ntil"
  247. 2470 prints$" [201]ndex [204]oaded!":gosub640:goto1240
  248. 2480 m$(0)=" [193][204][204] [210][197][195][207][210][196][211]   ":m$(1)=" [194][217] [193][210][212][201][195][204][197]    [155]"
  249. 2490 m$(2)=" [194][217] [193][213][212][200][207][210]     [155]":m$(3)=" [194][217] [205][193][199][193][218][201][206][197]   [155]"
  250. 2500 m$(4)=" [194][217] [196][193][212][197]       [155]":m$(5)=" [194][217] [211][213][194][202][197][195][212]    [155]"
  251. 2510 m$(6)="[154] [198][201][204][197] [193][206][193][204][217][211][201][211] [155]":m$(7)="[154] [204][201][194][210][193][210][217] [205][197][206][213]  [155]"
  252. 2520 x=4:gosub490:print"        [221][221][221][221][221][221][221][221][221][221][221][221][221][221][221][221][221]  "
  253. 2530 print"        [155][220]    [211][197][193][210][195][200]     [255]  [151] "
  254. 2540 print"        [155][146][191][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][223]  [146][151][192]"
  255. 2550 fori=0to7:print"        [155][146][220]"m$(i)"[255]  [146][155] [255]":next
  256. 2560 print"        [155][146][190][221][221][221][221][221][221][221][221][221][221][221][221][221][221][221][189]  [146][155] [255]"
  257. 2570 print"      [221][221][221][221][221][221][221][221][221][221][221][221][221][221][221][221][221][221][221][221][221][146][155] [255]"
  258. 2580 printspc(8)"[166][166][146][151][220] [197][216][201][212] [208][210][207][199][210][193][205]    [155][255]":printtab(12)"[155][221][221][221][221][221][221][221][221][221][221][221][221][221][221][221][221][189]"
  259. 2590 gosub120:x=7:y=0:s=8:l=7:m=1:gosub140:ifg$=""thenm=0:goto1180
  260. 2600 onggoto2610,2660,2680,2700,2720,2740,2760,2800
  261. 2610 ifn<50thenq=0:goto2630
  262. 2620 gosub1030:ifq>nthen2480
  263. 2630 t$=" [211][197][193][210][195][200] [193][204][204] [210][197][195][207][210][196][211]":gosub730
  264. 2640 q=q+1:ifq>nthen1160
  265. 2650 gosub810:gosub820:goto2640
  266. 2660 q=0:gosub1040:ifq$=""then2480
  267. 2670 t$=k$+"[193][210][212][201][195][204][197]":gosub730:a=0:gosub920:goto1160
  268. 2680 q=0:gosub1040:ifq$=""then2480
  269. 2690 t$=k$+"[193][213][212][200][207][210]":gosub730:a=1:gosub920:goto1160
  270. 2700 q=0:gosub1040:ifq$=""then2480
  271. 2710 t$=k$+"[205][193][199][193][218][201][206][197]":gosub730:a=2:gosub920:goto1160
  272. 2720 q=0:gosub1040:ifq$=""then2480
  273. 2730 t$=k$+"[196][193][212][197]":gosub730:a=3:gosub920:goto1160
  274. 2740 q=0:gosub1040:ifq$=""then2480
  275. 2750 t$=k$+"[211][213][194][202][197][195][212]":gosub730:a=5:gosub920:goto1160
  276. 2760 x=10:a=154:l=6:gosub500:prints$"[154] [198][201][204][197] [193][206][193][204][217][211][201][211]:"
  277. 2770 prints$" [193]vailable:":prints$" [201]n [205]emory:":prints$" [210]emaining:"
  278. 2780 prints$"[193]vg.[204]ength:":x=13:gosub490:prints$s$""lm%:prints$s$""n
  279. 2790 prints$s$""lm%-n:prints$s$""av%:gosub660:ifm=1then2480
  280. 2800 m=0:goto1180
  281. 2810 open2,4,2:close2:ifst=0then2840
  282. 2820 x=21:gosub490:print"          [208]rinter [206]ot [207]nline!          ":printr$
  283. 2830 gosub110:c=0:goto640
  284. 2840 ifc=1thena=q:gosub2860:gosub2880:c=0:return
  285. 2850 fora=1ton:gosub2860:gosub2880:next:c=0:return
  286. 2860 x=21:gosub490:print"             [208][210][201][206][212][201][206][199] #                ":printr$
  287. 2870 gosub110:x=21:gosub490:printspc(23)""a:return
  288. 2880 open4,4,7:cmd4:print#4,"   "fi$" [210]ecord #"a:print#4,"   "right$(p$,38)
  289. 2890 print#4,"   "ar$": "re$(0,a):print#4,"   "au$": "re$(1,a)
  290. 2900 print#4,"   "mg$": "re$(2,a):print#4,"   "dt$": "re$(3,a)
  291. 2910 print#4,"   "pg$": "re$(4,a):print#4,"   "sb$": "re$(5,a)
  292. 2920 print#4:close4:return
  293. 2930 poke53265,11:poke56576,(peek(56576)and252):poke53272,peek(53272)and15
  294. 2940 poke648,192:print"[147]":poke53272,(peek(53272)and240)or2:clr
  295. 2950 u$="                                       ":e$=left$(u$,27):m$="[206]o"
  296. 2960 p$="[155][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][192][192]":r$=p$+"":s$=""
  297. 2970 j$="[155][221][221][221][221][221][221][221][221][221][221][221][221][221][221][221][221][221][221][221][221][221][221][221][221][221][221][221][221][221][221][221][221][221][221][221][221][221][221][221]":b=53265:av%=162:d=214:c=1
  298. 2980 ar$=" [193][210][212][201][195][204][197]":au$="  [193][213][212][200][207][210]":mg$="[205][193][199][193][218][201][206][197]":dt$="    [196][193][212][197]":pg$="    [208][193][199][197]"
  299. 2990 sb$=" [211][213][194][202][197][195][212]":z=54272:k$=" [211][197][193][210][195][200] [194][217] ":un$="[213]ndefined                 [219]"
  300. 3000 v$="[155][219][219][219][219][219][219][219][219][219][219][146] ":fi$="[206]o [201]ndex"
  301. 3010 dima,ef,er,f,g,i,l,lm%,m,n,q,s,t,u%,v%,x,y,a$,er$,g$,h$,i$,na$,q$,t$
  302. 3020 dimre$(5,400),f$(15),m$(10):fori=0to15:f$(i)=un$:next
  303. 3030 u%=fre(0)-av%:lm%=u%/av%:ifm=1thenm=0:c=0:return
  304. 3040 goto1160
  305. 3050 x=9:a=154:l=7:gosub500:prints$"[154]  [205][193][199][193][218][201][206][196][197][216]":prints$"    ^_1992"
  306. 3060 prints$" [210][213][206] [205]agazine":prints$"  & [212]ech[205]edia"
  307. 3070 prints$"[208]ublishing [201]nc.":prints$"  [215]ritten [194]y"
  308. 3080 prints$"  [199]ary [206]oakes":gosub660:goto1240
  309. 3090 x=14:a=28:l=2:gosub500:prints$" [197]xit [208]rogram!"
  310. 3100 prints$" [193]re [217]ou [211]ure?":gosub640:ifg$<>"y"then1240
  311. 3110 pokeb,11:poke56576,(peek(56576)and252)or3:poke53272,21:poke648,4
  312. 3120 poke53280,14:poke53281,6:poke808,237:print"[147][142][154]":pokeb,27
  313.