home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Rockford Magazine
/
Rockford_Magazine_026_19xx_-_de_Disk_2_of_2_Side_A.d64
/
textmaster_rof
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2023-02-26
|
5KB
|
86 lines
105 poke53280,0:poke53281,0:ifpeek(53272)<>23thenpoke53272,23
110 gosub9010
120 ifsf$="m"thengosub8010
130 ifsf$="s"thengosub7010
140 ifsf$="l"thengosub6010
150 ifsf$="w"thengosub1010
160 ifsf$="p"thengosub5010
170 ifsf$="e"thengosub8510
180 ifsf$="n"thengosub4010
190 goto120
1010 sf$="m":ifn$<>""then1030
1011 print"[147][212]extmaster":print"[198]ile has no name.":print"[208]lease press [198]1 [203][197][217]
1012 [161]g$:[139]g$[179][177]"input"[167]1012
1013 [153]"load(NULL)lease access either (NULL)(NULL)atnstr$ or (NULL)atn(NULL)val":[142]
1030 [153]e$"(NULL)(NULL)right$(NULL)valwait "[202](n$,4,20)[163]29)"(NULL)ine":[141]10000:[158]4847:[158]5503:[142]
2010 [151]53272,23:[153]"load(NULL)val(NULL)(NULL)(NULL)atn(NULL)(NULL)val(NULL)"
2011 [153]"by left$arold peekrochmann and (NULL)aurice (NULL)arose
2012 print"[212]his program may be used and copied":print"freely by [195]anadian [211]chools.
2013 [153]"lenourtesy lenommodore lenanada (NULL)td. "
2014 [129]x[178]1[164]9001:[130]:[158]5613:n$[178]""
2020 [129]x[178]55296[164]56319:[151]x,1:[130]:[142]
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
3070 [129]x[178]1184[164]2023:l[178]l[170]1:[139][194](x)[178]32[167]3090
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
3090 [139]l[179]40[167][130]
3100 [142]
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
4020 [153]""[202](n$,4):[153]"lenhange name? (NULL)val(NULL)(NULL)(NULL)(NULL)closeor asc1 (NULL)val(NULL)
4030 getg$:ifg$=""then4030
4040 ifg$="[133]"thenreturn
4050 ifg$<>chr$(13)then4030
4110 print"[193]ssign name.... [210][197][212][213][210][206]":open1,0:input#1,n$:close1:ifn$=""then4110
4112 sys4847
4115 forx=1tolen(n$):c=asc(mid$(n$,x,9))
4116 if(c<91andc>47)or(c>192andc<219)orc=32thennext:goto4118
4117 print"[201]nvalid name":goto4110
4118 ifleft$(n$,3)<>"at-"thenn$="at-"+n$
4119 return
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]"
5052 getge$:ifge$=chr$(133)thenreturn
5054 ifge$<>chr$(13)then5052
5063 open3,4:sys5100:close3:return
6010 sf$="m":printe$"[147][204][207][193][196]":gosub10000:gosub3010:sys4847
6020 print"[199]ive file number (0 for [205][197][206][213]) - [210][197][212][213][210][206]
6023 [159]1,0:[132]1,in$:[160]1:in[178][197](in$):[139]in[178]0[167][153]"load":[142]
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
6040 [153]""[166]20):[129]x[178]1[164]in[171]9:[153][166]20);:[130]:[159]3,3:[132]3,n$:[160]3
6042 [129]x[178]16[164]1[169][171]1:[139][202](n$,x,1)[178]" "[167][130]
6043 n$[178][200](n$,x):[139][200](n$,3)[179][177]"at-"[167]6290
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"
6060 [159]1,8,15,"i0":[160]1:[147]n$,8,3:[158]4847
6290 me$[178]"(NULL)(NULL)(NULL)closeatnclose(NULL)val(NULL)(NULL)closeascright$(NULL)val"
6300 [153]:[153]""me$:[129]x[178]1[164]1000:[130]:[153]"on ":[137]6020
7010 [139]n$[178]""[167][141]4010
7015 [153]e$"(NULL)atn(NULL)valwait disk in str$0? (NULL)val(NULL)(NULL)(NULL)(NULL) or asc1 (NULL)val(NULL)
7020 getge$:ifge$=chr$(13)thengosub9070:goto7100
7030 ifge$=chr$(133)thensf$="m":return
7040 goto7020
7100 f$="0:"+n$:s$="s"+f$:printe$"[211]aving[146] "mid$(n$,4):open1,8,15,"i0":print#1,s$:close1
7160 ifpeek(145)=228thensys(62589)f$,8
7165 ifpeek(789)=234thensys(57812)f$,8
7170 sys5539:sys5088
7205 ifst<>0thenprint"[196][201][211][203] [197][210][210][207][210]"ds$:end
7300 gosub9070:print"[147]":sf$="w":sys4847:return
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
8070 getg$:ifg$="w"org$="l"org$="s"org$="p"org$="n"org$="e"thensf$=g$:return
8080 goto8070
8510 sf$="w":printe$"[197][210][193][211][197][146] [193][146]ll, [210][146]emainder or [198]1 [203][197][217]
8520 [161]g$:[139]g$[178]""[167]8520
8540 [139]g$[178]"r"[167]8600
8550 [139]g$[178]"a"[167][151]4846,0:[138]
8560 [139]g$[178][199](133)[167][142]
8570 [137]8520
8600 [158]6511:[142]
9010 [153]"load"
9070 [151]828,0:[151]829,32
9100 [151]830,0:[151]831,32
9130 [151]832,80:[151]833,4
9160 [151]834,96:[151]835,71
9190 [151]836,0:[151]837,32
9220 [151]838,1:[151]840,1:e$[178]" "
9315 [158]6476:[158]4847:[139]sf$[178]""[167]sf$[178]"w"
9400 [151]839,1:[139][194](4846)[178]0[167][141]2010:[151]4846,1:[151]51,0:[151]52,32
9999 [142]
10000 [153]"tantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantan":[142]