start tok64 d64-ef7i0H
1 md=10916:sp=12094:gp=12156:oc=12230:cc=12233:cr=12465:ww=12592:rp=12628
2 POKE53280,.:POKE53281,.:POKE788,52:DIMa$(112):PRINTCHR$(142):so=12955:ez=13047
3 s=1:a=0:REM set sound & ascii convert defaults   1=on - 0=off
4 PRINT"{clear}{yellow}":k=7:a$="{reverse on}U{sh asterisk*23}I":GOSUB10
5 k=8:a$="{reverse on}{sh -}{space*4}ultra seq-print{space*4}{sh -}":GOSUB10
6 k=9:a$="{reverse on}{sh -}{space*6}version 5.5{space*6}{sh -}":GOSUB10
7 k=10:a$="{reverse on}{sh -}{space*2}r.w. (bob k7) kober{space*2}{sh -}":GOSUB10
8 k=11:a$="{reverse on}J{sh asterisk*23}K":GOSUB10
9 GOSUB229:ON-(PEEK(2025)=7)GOTO13:GOTO25
10 m=LEN(a$):FORi=1TOm/2:PRINT"{home}":FORj=1TOk:PRINT"{down}";:NEXT
11 PRINTSPC(20-i)LEFT$(a$,i)RIGHT$(a$,i):NEXT
12 RETURN
13 FORi=1TO1000:NEXT:FORi=1TO8:SYS59626:NEXT:POKE2025,2
14 k=6:a$="{pink}these m/l routines are used ":GOSUB10
15 k=7:a$="{light gray}{D*27} ":GOSUB237:GOSUB10:GOSUB229
16 k=9:a$="{cyan}read/print/scroll":GOSUB237:GOSUB10:GOSUB229
17 k=11:a$="{light green}mi's{space*2}directory":GOSUB237:GOSUB10:GOSUB229
18 k=13:a$="{156}it's curtains":GOSUB237:GOSUB10:GOSUB229
19 k=15:a$="{orange}2-col. read":GOSUB237:GOSUB10:GOSUB229
20 k=17:a$="{light blue}snap-shot":GOSUB237:GOSUB10:GOSUB229
21 k=19:a$="{yellow}ezdir":GOSUB237:GOSUB10:GOSUB229
22 k=23:a$="{dark gray}any key to start{up}":GOSUB10:POKE198,.:WAIT198,1:POKE198,0
23 POKE150,160:SYSsp:GOTO25
24 POKE150,160:SYSgp:POKE198,.:WAIT198,1:POKE198,.
25 POKE53280,.:POKE53281,.
26 SYScc:POKE53272,21:PRINT"{clear}"TAB(8)"{black}{reverse on}U{sh asterisk*21}I"
27 PRINTTAB(8)"{reverse on}{sh -}{space*6}main menu{space*6}{sh -}"
28 PRINTTAB(8)"{reverse on}J{sh asterisk*21}K"
29 FORi=1TO300:NEXT:POKE2,5:POKE878,20:SYSoc
30 IFbobTHENPOKE150,168:SYSgp:GOTO49
31 PRINTTAB(43)"{white}use{space*6}embedded <cr>{space*6}ignore"
32 PRINTTAB(2)"{pink}{cm t*36}"
33 PRINTTAB(3)"{yellow}{reverse on}{sh pound}{space*2}{cm asterisk}{reverse off}{pink}{space*25}{yellow}{orange}{reverse on}{sh pound}{space*2}{cm asterisk}{light gray}{reverse off}"
34 PRINTTAB(3)"{reverse on}{yellow} f1 {reverse off}{pink}{space*2}send output to screen{space*2}{reverse on}{orange} f2 {reverse off}"
35 PRINTTAB(3)"{yellow}{cm asterisk}{reverse on}{space*2}{reverse off}{sh pound}{pink}{space*24}{yellow} {orange}{cm asterisk}{reverse on}{space*2}{reverse off}{sh pound}"
36 PRINTTAB(42)"{light blue}{cm t*36}"
37 PRINTTAB(3)"{brown}{reverse on}{sh pound}{space*2}{cm asterisk}{reverse off}{space*25}{156}{reverse on}{sh pound}{space*2}{cm asterisk}"
38 PRINTTAB(3)"{reverse on}{brown} f3 {reverse off}{space*2}{light blue}40 columns to printer{space*2}{reverse on}{156} f4 {reverse off}"
39 PRINTTAB(3)"{brown}{cm asterisk}{reverse on}{space*2}{reverse off}{sh pound}{space*25}{156}{cm asterisk}{reverse on}{space*2}{reverse off}{sh pound}"
40 PRINTTAB(42)"{light green}{cm t*36}"
41 PRINTTAB(3)"{gray}{reverse on}{sh pound}{space*2}{cm asterisk}{reverse off}{space*25}{pink}{reverse on}{sh pound}{space*2}{cm asterisk}"
42 PRINTTAB(3) "{reverse on}{gray} f5 {reverse off} {light green} 80 columns to printer{space*2}{reverse on}{pink} f6 {reverse off}"
43 PRINTTAB(3)"{gray}{cm asterisk}{reverse on}{space*2}{reverse off}{sh pound}{space*25}{pink}{cm asterisk}{reverse on}{space*2}{reverse off}{sh pound}"
44 PRINTTAB(42)"{156}{cm t*36}"
45 PRINTTAB(3)"{blue}{reverse on}{sh pound}{space*2}{cm asterisk}{reverse off}{space*25}{green}{reverse on}{sh pound}{space*2}{cm asterisk}"
46 PRINTTAB(3) "{reverse on}{blue} f7 {reverse off}{156} disk housekeeping{space*2}{orange}quit {reverse on}{green} f8 {reverse off}"
47 PRINTTAB(3)"{blue}{cm asterisk}{reverse on}{space*2}{reverse off}{sh pound}{space*25}{green}{cm asterisk}{reverse on}{space*2}{reverse off}{sh pound}"
48 IFbo=0THENbob=1:POKE150,168:SYSsp
49 POKE198,.:CLOSE15:OPEN15,8,15:GOTO231
50 GETa$:ON-(a$="a")GOTO99:ON-(a$="s")GOTO230:IFa$<"{f1}"ORa$>CHR$(141)THEN50
51 f$=RIGHT$(STR$(ASC(a$)-132),1)
52 ON(ASC(a$)-132)GOTO53,55,57,128,54,56,58,123,228:GOTO50
53 GOSUB75:GOSUB59:GOTO71
54 f$="2":GOTO53
55 f$="3":POKE600,0:GOSUB76:GOSUB59:ONcolGOTO70,195
56 f$="4":POKE600,1:GOSUB76:GOSUB59:ONcolGOTO70,195
57 f$="5":GOSUB77:GOSUB59:GOTO70
58 f$="6":GOSUB77:GOSUB59:GOTO70
59 PRINT"{home}":POKE214,x-2:PRINT:PRINT"{gray}{space*2}($=directory m=menu){up*2}"
60 POKE19,32:INPUT"{yellow}{space*2}enter seq filename {light green}${left}";ff$
61 IFff$="m"THEN30
62 IFff$<>"$"THENSYScc:x1=34:RETURN
63 CLOSE15:OPEN15,8,15:IFff$="$"THENPRINT#15,"i":INPUT#15,e,e$:IFeTHENPRINT"{clear}":GOSUB119
64 IFeTHEN26
65 SYScc:PRINTCHR$(142):SYSmd:PRINT:CLOSE15:OPEN15,8,15:SYScc
66 IFPEEK(598)=34THEN26
67 x1=0:ff$=""
68 ff=PEEK(580+x1):IFff=34THENRETURN
69 ff$=ff$+CHR$(ff):x1=x1+1:GOTO68
70 OPEN4,4,7:GOSUB112:IFqqTHEN26
71 OPEN2,8,2,ff$:GOSUB118:ON-(e<>0)GOTO26:GOSUB84
72 CLOSE2:CLOSE4:SYS65511:OPEN15,8,15:x1=0
73 GOSUB81:POKE214,23:PRINT:PRINT"{space*8}{reverse on}{pink} Press f5 for the Menu {reverse off}{space*8}{up}"
74 GETa$:ON-(a$<>CHR$(135))GOTO74:GOTO26
75 FORx=6TO8:POKE781,x:SYS59903:NEXT:RETURN
76 FORx=11TO13:POKE781,x:SYS59903:NEXT:GOSUB78:RETURN
77 FORx=16TO18:POKE781,x:SYS59903:NEXT:RETURN
78 POKE214,11:PRINT:PRINTTAB(6)"{reverse on}{red}1{green}{reverse off} or {reverse on}{light blue}2{green}{reverse off} columns?"
79 GETcol$:IFcol$<"1"ORcol$>"2"THEN79
80 col=VAL(col$):RETURN
81 ON-(s=0)GOTO236:FORl=54272TO54295:POKEl,0:NEXT:POKE54296,15:POKE54277,8:POKE54278,255
82 POKE54276,23:FORy=1TO3:f2=8:POKE54273,2:FORx=1TO5:POKE54287,f2:f2=f2*1.4
83 NEXT:NEXT:FORw=1TO8:POKE54287,f2:f2=f2*1.07:NEXT:POKE54278,15:RETURN
84 rp$="PRINTER":IFf$="1"ORf$="2"THENrp$="READER "
85 SYScc:PRINTCHR$(14):PRINT"{clear}"TAB(2)"{black}{reverse on}***********************************"
86 PRINTTAB(2)"{reverse on}*{space*4}F"f$" ULTRA{sh space}SEQ-FILE{sh space}"rp$"{space*4}*"
87 PRINTTAB(2)"{reverse on}***********************************"
88 POKE214,23:PRINT:PRINT"Hold shift to pause - Press f6 to abort{up*2}"
89 FORi=1TO300:NEXT:POKE2,12:POKE878,20:SYSoc
90 POKE214,23:PRINT:PRINT"{pink}Hold shift to pause - {yellow}Press f6 to abort{up*2}{green}"
91 ONVAL(f$)GOTO92,93,94,95,96,97
92 SYSrp,40,0,0:x1=0:RETURN
93 SYSrp,39,1,0:x1=0:RETURN
94 GOSUB98:SYSrp,40,0,1:x1=0:RETURN
95 GOSUB98:SYSrp,39,1,1:x1=0:RETURN
96 GOSUB98:SYSrp,80,0,1:xi=0:RETURN
97 GOSUB98:SYSrp,79,1,1:xi=0:RETURN
98 FORi=1TO5:PRINT#4:NEXT:RETURN
99 a=1-a:POKE820,a
100 GOTO234
101 POKE198,.:WAIT198,1:FORx=11TO13:POKE781,x:SYS59903:NEXT:PRINT"{up*4}":GOTO310
102 ON-(s=0)GOTO236:FORl=54272TO54295:POKEl,0:NEXT:POKE54296,15:POKE54277,8:POKE54278,255
103 POKE54276,21:POKE54287,40:FORz=1TOt:FORf1=255TO0STEP-6:POKE54273,f1:NEXTf1
104 FORf1=0TO255STEP50:POKE54273,f1:NEXTf1:NEXTz:FORf2=15TO0STEP-.1
105 POKE54296,f2:NEXT:POKE54277,128:POKE54278,250:RETURN
106 ON-(s=0)GOTO236:FORl=54272TO54295:POKEl,0:NEXT:POKE54296,15
107 POKE54277,8:POKE54278,255:POKE54276,23
108 FORz=1TO1:f1=10:FORy=1TO6:f2=30:POKE54273,f1:FORx=1TO3:POKE54287,f2
109 f2=f2/1.2:NEXTx:f1=f1*1.5:NEXTy:FORw=1TO30:POKE54273,f1
110 POKE54287,5:FORv=1TO5:NEXTv
111 f1=f1/1.5:NEXTw:NEXTz:POKE54278,15:RETURN
112 CLOSE4:IFst=0THENOPEN4,4,7:qq=0:RETURN
113 PRINT"{home}{down*6}{pink}{space*6}the printer is not on line"
114 PRINT"{space*5}turn it on, and press any key"
115 PRINT"{down*2}{space*8}press f5 for the menu":GOSUB106
116 WAIT198,1:GETa$:IFa$="{f5}"THENqq=1:RETURN
117 OPEN4,4,7:GOTO112
118 INPUT#15,e,e$:IFe=0THENRETURN
119 PRINT"{white}{clear}{down*5}{space*9}disk error encountered{down*2}"
120 PRINTTAB(20-LEN(e$)/2)e$:GOSUB106
121 PRINT"{down*4}{space*10}any key to continue"
122 WAIT198,1:CLOSE2:CLOSE4:RETURN
123 k=21:a$=" {reverse on}{yellow}{space*5}are you sure?{space*5}":GOSUB10
124 WAIT198,1:GETa$:ON-(a$="y")GOTO126:PRINT"{up*3}"
125 GOTO30
126 PRINT"{home}{reverse on}{pink}{down*22}";:PRINTTAB(8)" use ultra again, soon "
127 POKE198,.:t=3:GOSUB102:SYS65126
128 ff=0
129 PRINT"{home}{light gray}":POKE214,8:PRINT
130 PRINTTAB(6)"{reverse on}U{sh asterisk*25}I"
131 PRINTTAB(6)"{reverse on}{sh -}{space*25}{sh -}"
132 PRINTTAB(6)"{reverse on}{sh -} disk house keeping menu {sh -}"
133 PRINTTAB(6)"{reverse on}{sh -} {cm y*23} {sh -}"
134 PRINTTAB(6)"{reverse on}{sh -}{space*25}{sh -}"
135 PRINTTAB(6)"{reverse on}{sh -} 1. scratch a file{space*7}{sh -}"
136 PRINTTAB(6)"{reverse on}{sh -} 2. re-name a file{space*7}{sh -}"
137 PRINTTAB(6)"{reverse on}{sh -} 3. format (new) a disk{space*2}{sh -}"
138 PRINTTAB(6)"{reverse on}{sh -} 4. view directory{space*7}{sh -}"
139 PRINTTAB(6)"{reverse on}{sh -} 5. return to main menu{space*2}{sh -}"
140 PRINTTAB(6)"{reverse on}{sh -}{space*25}{sh -}"
141 PRINTTAB(6)"{reverse on}J{sh asterisk*25}K"
142 POKE198,.:WAIT198,1:GETa$:ON-(a$="{f5}")GOTO30:IFa$<"1"ORa$>"5"THEN142
143 k=VAL(a$)
144 ONkGOTO150,175,188,240,30
145 POKE512,32:RETURN
150 PRINT"{clear}{orange}":POKE53280,.:POKE53281,.
151 PRINTTAB(40)"{reverse on}{space*40}";
152 PRINT"{reverse on}{space*4}this routine will scratch a file{space*4}";
153 PRINT"{reverse on}{space*40}"
154 PRINTTAB(42)"{green}enter 'm' to return to the menu."
155 PRINTTAB(42)"enter '$' to list the file directory."
156 PRINT"{yellow}{-*40}";
157 IFff=34THEN161
158 POKE19,32:INPUT"{light gray}{down*2} enter filename {pink}${left}";ff$:POKE19,.:PRINT
159 IFff$="$"THENGOSUB63:GOTO150
160 IFff$="m"THEN26
161 b$="{light gray}scratch seq file {pink}"+CHR$(34)+ff$+CHR$(34)
162 ff=0:PRINT"{down*2}"TAB(21-LEN(b$)/2)b$
163 PRINTTAB(90)"{yellow}are you sure?? (y/n)"
164 GETk$:IFk$=""THEN164
165 IFk$<>"y"THENff$="":GOTO150
166 b$="{down} scratching {reverse on} "+ff$+" ":PRINTTAB(20-LEN(b$)/2)b$
167 PRINT#15,"s0:"ff$
168 INPUT#15,er,er$,t,b:IFk=2ORk=3THENRETURN
169 g9$=LEFT$(er$,4)+RIGHT$(er$,10)
170 e9$="{reverse on} "+ff$+" {reverse off} "+g9$
171 IFt=.THENPRINTTAB(48)"**** file not found ****":GOSUB106:GOTO150
172 IFt=.THENFORi=1TO1500:NEXT:GOTO150
173 PRINTTAB(60-LEN(e9$)/2)e9$
174 GOSUB81:FORi=1TO1000:NEXT:GOTO26
175 FORx=20TO23:POKE781,x:SYS59903:NEXT
176 PRINT"{home}{white}":POKE214,20:PRINT:PRINTTAB(9)"old name = ";
177 IFff=34THENff=0:PRINT"{white}"ff$;:pn$=ff$:POKE783,.:GOTO180
178 POKE19,32:INPUT"${left}";pn$:POKE19,.:PRINT:IFpn$="4"THEN30
179 IFpn$="$"THENff$=pn$:POKE150,96:SYSsp:GOSUB63:POKE150,96:SYSgp:GOTO176
180 POKE214,21:PRINT
181 PRINTTAB(9)"new name = ";
182 POKE19,32:INPUT" {left}";nn$:POKE19,.:POKE781,21:SYS59903:POKE214,21:PRINT
183 IFnn$="4"THEN30
184 cn$ ="{reverse on} "+pn$+" {reverse off} is {reverse on}"+nn$+" {reverse off}":IFLEN(cn$)<33THENcn$ = cn$+"{space*6}"
185 PRINT "{yellow}"TAB(22-LEN(cn$)/2)cn$"{up*2}":PRINT#15,"r0:"+nn$+"="+pn$
186 GOSUB118:IFeTHEN26:REMrwk
187 GOSUB81:GOTO26
188 PRINT TAB(2)"{reverse on}{yellow}{space*10}{-*3}warning{!*3}{-*3}{space*10}"
189 PRINT"{white}{space*2}all data on the disk to be formatted"
190 PRINT"{space*2}will be destroyed - ok to continue?"
191 POKE198,.:WAIT198,1:GETa$:POKE198,.:IFa$<>"y"THEN30
192 PRINT"{up}{light blue}{space*3}okay - formatting takes 90 seconds"
193 PRINT#15,"n0:dc bug{space*2}-files,db":GOSUB168:IFer<>0THENGOSUB119
194 GOTO30
195 CLOSE4:OPEN4,4,7:GOSUB112:IFqqTHEN26
196 l=0:PRINT"{clear}{dark gray}":POKE53280,11:POKE53281,11
197 POKE53272,23:PRINT"{home}"TAB(3)"{reverse on}{space*34}"
198 PRINTTAB(3)"{reverse on} << Reading File Into an Array >> "
199 PRINTTAB(3)"{reverse on}{space*34}"
200 POKE787,25:POKE2,15:SYSoc
201 IFlTHENPRINT"{home}"TAB(43)"{reverse on}{light gray} << Reading File Into an Array >> "
202 POKE214,23:PRINT
203 PRINT"{space*2}{pink}HOLD SHIFT{light green} to Pause {-*4} {yellow}F6{light green} to Abort{up*3}{cyan}":IFlTHENl=0:GOTO206
204 OPEN2,8,2,ff$:GOSUB118:IFeTHEN25
205 yy=1:POKEcr-2,0:SYScr
206 FORk=1TO112:a$(k)="":NEXT:u=0
207 ON-(PEEK(cr-3)<>0)GOTO215:IFPEEK(cr-2)>80THENPOKE(cr-2),0
208 FORx=0TOPEEK(cr-2):aa$=CHR$(PEEK(512+x))
209 a$(yy)=a$(yy)+aa$:IFLEN(a$(yy))>40THENyy=yy+1
210 NEXT:SYSso:POKE214,19:PRINT:PRINTa$(yy):yy=yy+1:ON-(PEEK(600)=0)GOSUB145:SYSww
211 IFPEEK(653)=1THENPOKE214,23:PRINT:PRINT"{space*2}{pink}RELEASE{light green} to Continue {up}":u=1
212 IFPEEK(653)=1THENON-(PEEK(197)=6)GOTO226:GOTO211
213 IFuTHENPRINT"{space*2}{pink}HOLD SHIFT{light green} to Pause {-*4} {yellow}F6{light green} to Abort{up*3}{cyan}":u=0
214 ON-(yy=112)GOTO217:PRINT:GOTO207
215 FORx=0TOPEEK(cr-2)-1:aa$=CHR$(PEEK(512+x)):a$(yy)=a$(yy)+aa$:NEXT
216 SYSso:POKE214,19:PRINT:PRINTa$(yy):CLOSE2:SYS65511:OPEN4,4,7
217 PRINT"{home}"TAB(44)"{reverse on}{light gray}{space*6}<< Data to Printer >>{space*5}"
218 FORi=1TO5:PRINT#4:NEXT
219 IFyy/2<>INT(yy/2)THENyy=yy+1
220 i1=yy/2:FORii=1TOi1
221 PRINT#4,a$(ii);TAB(40-LEN(a$(ii)));a$(ii+i1)
222 IFPEEK(653)=1THENPOKE214,23:PRINT:PRINT"{space*2}{pink}RELEASE{light green} to Continue {up}":u=1
223 IFPEEK(653)=1THENON-(PEEK(197)=6)GOTO226:GOTO222
224 IFuTHENPRINT"{space*2}{pink}HOLD SHIFT{light green} to Pause {-*4} {yellow}F6{light green} to Abort{up*3}{cyan}":u=0
225 NEXT:FORi=4:NEXT
63999 REM "Invalid BASIC input d64-ef7i0H
stop tok64
(bastext 1.0)