home *** CD-ROM | disk | FTP | other *** search
/ Run Magazine ReRun 1985 Fall / rerun-1985-fall.d64 / test maker (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1985-01-01  |  2.3 KB  |  78 lines
  1. 5 poke53280,1:poke53281,1:poke646,2
  2. 10 dm=int(fre(0)/60)+10:ifdm>250thendm=250
  3. 20 ll=22:ifpeek(44)=8thenll=40:dm=250
  4. 40 p1=ll/2-6:p2=p1+ll+3:dn$="":printchr$(14):a=1
  5. 50 dimq$(dm,2):dimrn%(dm)
  6. 70 print"[147]"tab(p1)"[209][213][197][211][212][201][207][206][211]!":printtab(p1)"[157][157][157][198]ile editor program"
  7. 75 gosub1100
  8. 100 print"[147]"tab(p1)"*** [205][197][206][213][146] ***"
  9. 105 printtab(p2)"[215][146]rite
  10. 108 [139]n[177]0[167][153][163]p2)"valwaitdit":[153][163]p2)"(NULL)waitave
  11. 110 printtab(p2)"[204][146]oad"
  12. 120 gosub1010
  13. 122 ifx$="w"thengosub200:goto100
  14. 124 ifx$="l"thengosub600:goto100
  15. 125 ifn=0then120
  16. 126 ifx$="e"thengosub300:goto100
  17. 128 ifx$="s"thengosub500:goto100
  18. 130 goto120
  19. 199 rem write subroutine
  20. 200 ifn=dmthenprint"[147][198]ile full":gosub1100:return
  21. 205 fm=peek(51)-peek(49)+256*(peek(52)-peek(50)):iffm<300thenfm=fre(0)
  22. 210 iffm<300thenprint"[147]"fm"bytes left":print"[208]ress any key":gosub1010
  23. 220 print"[147]"dn$"[197]nter menu[146] when done":print""tab(p1)"[157]*** [215][210][201][212][197][146] ***
  24. 230 n[178]n[170]1:[153]"(NULL)uestion #"n:[133]"";q$(n,1)
  25. 240 [139]q$(n,1)[178]"menu"[167]q$(n,1)[178]"":n[178]n[171]1:[142]
  26. 250 [153]"atnnswer               ":[133]"cmdcmdcmd";q$(n,2)
  27. 260 [137]200
  28. 299 [143] edit subroutine
  29. 300 [141]390
  30. 310 [133]"(NULL)hat number";r$:r[178][197](r$):[139]r[179]1[176]r[177]n[167]300
  31. 320 [139]r[177]n[167][142]
  32. 325 [141]390:[153]"#"r"":[153]q$(r,1)
  33. 330 [153]""q$(r,2):[153][163]p1)"cmdcmdcmdcmdcmd(NULL)waitext lenwaithange str$waitrop (NULL)waitenu
  34. 340 gosub1010
  35. 342 ifx$="n"thenr=r+1:goto320
  36. 344 ifx$="m"thenreturn
  37. 346 ifx$="d"then450
  38. 348 ifx$="c"then400
  39. 360 goto340
  40. 390 print"[147]"tab(p1)"*** [197][196][201][212][146] ***":return
  41. 399 rem change subroutine
  42. 400 print"[145][145]":fori=1toll:print"[160]";:next:print"[145][145][145][145]revised question[146]
  43. 410 [133]"cmdcmd";q$(r,1):[153]"revised answerwait":[133]"cmdcmd";q$(r,2):[137]320
  44. 449 [143] drop subroutine
  45. 450 [153]"onon":[129]i[178]1[164]ll:[153]" ";:[130]:[153]"str$rop":[141]1300:[139]x$[179][177]"y"[167]320
  46. 455 [139]r[178]n[167]470
  47. 460 [129]i[178]r[164]n[171]1:q$(i,1)[178]q$(i[170]1,1):q$(i,2)[178]q$(i[170]1,2):[130]:[153]"valntry deleted"
  48. 470 n[178]n[171]1:[141]1200:[137]320
  49. 499 [143] save subroutine
  50. 500 [153]"load(NULL)atn(NULL)val":[141]1300:[139]x$[179][177]"y"[167][142]
  51. 505 [153]"load"[163]p1)"*** (NULL)atn(NULL)valwait ***
  52. 510 print"[206]ame of file":inputnf$:gosub1000
  53. 520 open2,8,2,"0:"+nf$+",s,w":print#2,n
  54. 530 fori=1ton:print#2,q$(i,1);chr$(13);q$(i,2):next
  55. 540 close2:print"[198]ile "nf$:print"saved":gosub1100:return
  56. 599 rem load subroutine
  57. 600 ifn=0thengosub690:goto650
  58. 605 print"[147][204][207][193][196]":gosub1300:ifx$<>"y"thenreturn
  59. 608 gosub690
  60. 610 print"[212]here is currently a  file in memory.":print"[196]o you want to:
  61. 620 [153][163]p1)"(NULL)waiteplace file":[153][163]p1)"(NULL)waiterge files
  62. 630 gosub1010
  63. 632 ifx$="r"thengosub690:print"[210]eplace file":n=1:goto650
  64. 634 ifx$="m"thengosub690:print"[205]erge files":goto650
  65. 636 goto630
  66. 650 print"[206]ame of file":inputnf$:gosub1000:open2,8,2,"0:"+nf$+",s,r":input#2,w
  67. 660 n=n+1:input#2,q$(n,1),q$(n,2):ifst=0then660
  68. 670 close2:print"[198]ile "nf$:print"now in memory with":printn" entries
  69. 680 [153][163]p1)"(NULL)ress any keywait":[141]1010:[142]
  70. 690 [153]"load"[163]p1)"*** (NULL)(NULL)atnstr$wait ***":[142]
  71. 999 [143] miscellaneous subroutines
  72. 1000 [153]"right$nsert question file disk. (NULL)ress any keywhen ready."
  73. 1010 [161]x$:[139]x$[178]""[167]1010
  74. 1020 [142]
  75. 1100 [129]t[178]1[164]1500:[130]:[142]
  76. 1200 [129]t[178]1[164]500:[130]:[142]
  77. 1300 [153]"atnre you sure? ((NULL)/(NULL))":[137]1010
  78.