home *** CD-ROM | disk | FTP | other *** search
/ Rockford Magazine / Rockford_Magazine_026_19xx_-_de_Disk_1_of_2_Side_A.d64 / textmaster_rof (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  5KB  |  86 lines
  1. 105 poke53280,0:poke53281,0:ifpeek(53272)<>23thenpoke53272,23
  2. 110 gosub9010
  3. 120 ifsf$="m"thengosub8010
  4. 130 ifsf$="s"thengosub7010
  5. 140 ifsf$="l"thengosub6010
  6. 150 ifsf$="w"thengosub1010
  7. 160 ifsf$="p"thengosub5010
  8. 170 ifsf$="e"thengosub8510
  9. 180 ifsf$="n"thengosub4010
  10. 190 goto120
  11. 1010 sf$="m":ifn$<>""then1030
  12. 1011 print"[147][212]extmaster":print"[198]ile has no name.":print"[208]lease press [198]1 [203][197][217]
  13. 1012 [161]g$:[139]g$[179][177]"input"[167]1012
  14. 1013 [153]"load(NULL)lease access either (NULL)(NULL)atnstr$ or (NULL)atn(NULL)val":[142]
  15. 1030 [153]e$"(NULL)(NULL)right$(NULL)valwait "[202](n$,4,20)[163]29)"(NULL)ine":[141]10000:[158]4847:[158]5503:[142]
  16. 2010 [151]53272,23:[153]"load(NULL)val(NULL)(NULL)(NULL)atn(NULL)(NULL)val(NULL)"
  17. 2011 [153]"by left$arold peekrochmann and (NULL)aurice (NULL)arose
  18. 2012 print"[212]his program may be used and copied":print"freely by [195]anadian [211]chools.
  19. 2013 [153]"lenourtesy lenommodore lenanada (NULL)td.      "
  20. 2014 [129]x[178]1[164]9001:[130]:[158]5613:n$[178]""
  21. 2020 [129]x[178]55296[164]56319:[151]x,1:[130]:[142]
  22. 3010 [159]1,8,15,"i0":[160]1:[159]1,8,2,"$0":[158]6347:[160]1:sl[178]176:fl[178]sl[170]1:l[178]0:n[178]0:[158]4847
  23. 3070 [129]x[178]1184[164]2023:l[178]l[170]1:[139][194](x)[178]32[167]3090
  24. 3080 l[178]0:n[178]n[170]1:[151]x[171]3,fl:[151]x[171]2,sl:sl[178]sl[170]1:x[178]x[170]17:[139]sl[178]186[167]fl[178]fl[170]1:sl[178]176
  25. 3090 [139]l[179]40[167][130]
  26. 3100 [142]
  27. 4010 [153]"load":[141]10000:sf$[178]"w":[153]e$"(NULL)atn(NULL)valwait ";:[139]n$[178]""[167][153]"ascile has no name":[137]4110
  28. 4020 [153]""[202](n$,4):[153]"lenhange name? (NULL)val(NULL)(NULL)(NULL)(NULL)closeor asc1 (NULL)val(NULL)
  29. 4030 getg$:ifg$=""then4030
  30. 4040 ifg$="[133]"thenreturn
  31. 4050 ifg$<>chr$(13)then4030
  32. 4110 print"[193]ssign name.... [210][197][212][213][210][206]":open1,0:input#1,n$:close1:ifn$=""then4110
  33. 4112 sys4847
  34. 4115 forx=1tolen(n$):c=asc(mid$(n$,x,9))
  35. 4116 if(c<91andc>47)or(c>192andc<219)orc=32thennext:goto4118
  36. 4117 print"[201]nvalid name":goto4110
  37. 4118 ifleft$(n$,3)<>"at-"thenn$="at-"+n$
  38. 4119 return
  39. 5010 sf$="w":printe$"[208][210][201][206][212][146] [208]rinter ready? [210][197][212][213][210][206] or [198]1 [203][197][217]"
  40. 5052 getge$:ifge$=chr$(133)thenreturn
  41. 5054 ifge$<>chr$(13)then5052
  42. 5063 open3,4:sys5100:close3:return
  43. 6010 sf$="m":printe$"[147][204][207][193][196]":gosub10000:gosub3010:sys4847
  44. 6020 print"[199]ive file number (0 for [205][197][206][213]) - [210][197][212][213][210][206]
  45. 6023 [159]1,0:[132]1,in$:[160]1:in[178][197](in$):[139]in[178]0[167][153]"load":[142]
  46. 6030 [139]in[179]10[176]in[177]n[170]9[167]me$[178]"(NULL)(NULL)close(NULL)(NULL)lenleft$closeascright$(NULL)val":[137]6300
  47. 6040 [153]""[166]20):[129]x[178]1[164]in[171]9:[153][166]20);:[130]:[159]3,3:[132]3,n$:[160]3
  48. 6042 [129]x[178]16[164]1[169][171]1:[139][202](n$,x,1)[178]" "[167][130]
  49. 6043 n$[178][200](n$,x):[139][200](n$,3)[179][177]"at-"[167]6290
  50. 6050 [141]9070:[151]4846,1:[158]5613:[153]e$"(NULL)(NULL)(NULL) (NULL)(NULL)atnstr$right$(NULL)chr$wait "[202](n$,4):sf$[178]"w"
  51. 6060 [159]1,8,15,"i0":[160]1:[147]n$,8,3:[158]4847
  52. 6290 me$[178]"(NULL)(NULL)(NULL)closeatnclose(NULL)val(NULL)(NULL)closeascright$(NULL)val"
  53. 6300 [153]:[153]""me$:[129]x[178]1[164]1000:[130]:[153]"on               ":[137]6020
  54. 7010 [139]n$[178]""[167][141]4010
  55. 7015 [153]e$"(NULL)atn(NULL)valwait disk in str$0? (NULL)val(NULL)(NULL)(NULL)(NULL) or asc1 (NULL)val(NULL)
  56. 7020 getge$:ifge$=chr$(13)thengosub9070:goto7100
  57. 7030 ifge$=chr$(133)thensf$="m":return
  58. 7040 goto7020
  59. 7100 f$="0:"+n$:s$="s"+f$:printe$"[211]aving[146] "mid$(n$,4):open1,8,15,"i0":print#1,s$:close1
  60. 7160 ifpeek(145)=228thensys(62589)f$,8
  61. 7165 ifpeek(789)=234thensys(57812)f$,8
  62. 7170 sys5539:sys5088
  63. 7205 ifst<>0thenprint"[196][201][211][203] [197][210][210][207][210]"ds$:end
  64. 7300 gosub9070:print"[147]":sf$="w":sys4847:return
  65. 8010 printe$"[205][197][206][213][146]: [215][146]rite [204][146]oad [211][146]ave [208][146]rint [197][146]rase [206][146]ame":gosub10000
  66. 8070 getg$:ifg$="w"org$="l"org$="s"org$="p"org$="n"org$="e"thensf$=g$:return
  67. 8080 goto8070
  68. 8510 sf$="w":printe$"[197][210][193][211][197][146] [193][146]ll, [210][146]emainder or [198]1 [203][197][217]
  69. 8520 [161]g$:[139]g$[178]""[167]8520
  70. 8540 [139]g$[178]"r"[167]8600
  71. 8550 [139]g$[178]"a"[167][151]4846,0:[138]
  72. 8560 [139]g$[178][199](133)[167][142]
  73. 8570 [137]8520
  74. 8600 [158]6511:[142]
  75. 9010 [153]"load"
  76. 9070 [151]828,0:[151]829,32
  77. 9100 [151]830,0:[151]831,32
  78. 9130 [151]832,80:[151]833,4
  79. 9160 [151]834,96:[151]835,71
  80. 9190 [151]836,0:[151]837,32
  81. 9220 [151]838,1:[151]840,1:e$[178]"                                       "
  82. 9315 [158]6476:[158]4847:[139]sf$[178]""[167]sf$[178]"w"
  83. 9400 [151]839,1:[139][194](4846)[178]0[167][141]2010:[151]4846,1:[151]51,0:[151]52,32
  84. 9999 [142]
  85. 10000 [153]"tantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantan":[142]
  86.