home *** CD-ROM | disk | FTP | other *** search
/ Run Magazine ReRun 1992 May & June / rerun-1992-05-06.d64 / magazindex (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  11KB  |  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]