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"[147][158]":K=7:A$="[213][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][201]":GOSUB10
5 K=8:A$="[221]    ULTRA SEQ-PRINT    [221]":GOSUB10
6 K=9:A$="[221]      VERSION 5.5      [221]":GOSUB10
7 K=10:A$="[221]  R.W. (BOB K7) KOBER  [221]":GOSUB10
8 K=11:A$="[202][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][203]":GOSUB10
9 GOSUB229:ON-(PEEK(2025)=7)GOTO13:GOTO25
10 M=LEN(A$):FORI=1TOM/2:PRINT"":FORJ=1TOK:PRINT"";: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$="[150]THESE M/L ROUTINES ARE USED ":GOSUB10
15 K=7:A$="[155][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196] ":GOSUB237:GOSUB10:GOSUB229
16 K=9:A$="[159]READ/PRINT/SCROLL":GOSUB237:GOSUB10:GOSUB229
17 K=11:A$="[153]MI'S  DIRECTORY":GOSUB237:GOSUB10:GOSUB229
18 K=13:A$="[156]IT'S CURTAINS":GOSUB237:GOSUB10:GOSUB229
19 K=15:A$="[129]2-COL. READ":GOSUB237:GOSUB10:GOSUB229
20 K=17:A$="[154]SNAP-SHOT":GOSUB237:GOSUB10:GOSUB229
21 K=19:A$="[158]EZDIR":GOSUB237:GOSUB10:GOSUB229
22 K=23:A$="[151]ANY KEY TO START[145]":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"[147]"TAB(8)"[144][213][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][201]"
27 PRINTTAB(8)"[221]      MAIN MENU      [221]"
28 PRINTTAB(8)"[202][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][203]"
29 FORI=1TO300:NEXT:POKE2,5:POKE878,20:SYSOC
30 IFBOBTHENPOKE150,168:SYSGP:GOTO49
31 PRINTTAB(43)"USE      EMBEDDED <CR>      IGNORE"
32 PRINTTAB(2)"[150][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
33 PRINTTAB(3)"[158][169]  [223][146][150]                         [158][129][169]  [223][155][146]"
34 PRINTTAB(3)"[158] F1 [146][150]  SEND OUTPUT TO SCREEN  [129] F2 [146]"
35 PRINTTAB(3)"[158][223]  [146][169][150]                        [158] [129][223]  [146][169]"
36 PRINTTAB(42)"[154][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
37 PRINTTAB(3)"[149][169]  [223][146]                         [156][169]  [223]"
38 PRINTTAB(3)"[149] F3 [146]  [154]40 COLUMNS TO PRINTER  [156] F4 [146]"
39 PRINTTAB(3)"[149][223]  [146][169]                         [156][223]  [146][169]"
40 PRINTTAB(42)"[153][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
41 PRINTTAB(3)"[152][169]  [223][146]                         [150][169]  [223]"
42 PRINTTAB(3) "[152] F5 [146] [153] 80 COLUMNS TO PRINTER  [150] F6 [146]"
43 PRINTTAB(3)"[152][223]  [146][169]                         [150][223]  [146][169]"
44 PRINTTAB(42)"[156][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
45 PRINTTAB(3)"[169]  [223][146]                         [169]  [223]"
46 PRINTTAB(3) " F7 [146][156] DISK HOUSEKEEPING  [129]QUIT  F8 [146]"
47 PRINTTAB(3)"[223]  [146][169]                         [223]  [146][169]"
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$<"[133]"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"":POKE214,X-2:PRINT:PRINT"[152]  ($=DIRECTORY M=MENU)[145][145]"
60 POKE19,32:INPUT"[158]  ENTER SEQ FILENAME [153]$[157]";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"[147]":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"        [150] [208]RESS F5 FOR THE [205]ENU [146]        [145]"
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)"1[146] OR [154]2[146] 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$="[208][210][201][206][212][197][210]":IFF$="1"ORF$="2"THENRP$="[210][197][193][196][197][210] "
85 SYSCC:PRINTCHR$(14):PRINT"[147]"TAB(2)"[144]***********************************"
86 PRINTTAB(2)"*    [198]"F$" [213][204][212][210][193][160][211][197][209]-[198][201][204][197][160]"RP$"    *"
87 PRINTTAB(2)"***********************************"
88 POKE214,23:PRINT:PRINT"[200]OLD SHIFT TO PAUSE - [208]RESS F6 TO ABORT[145][145]"
89 FORI=1TO300:NEXT:POKE2,12:POKE878,20:SYSOC
90 POKE214,23:PRINT:PRINT"[150][200]OLD SHIFT TO PAUSE - [158][208]RESS F6 TO ABORT[145][145]"
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"[145][145][145][145]":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"[150]      THE PRINTER IS NOT ON LINE"
114 PRINT"     TURN IT ON, AND PRESS ANY KEY"
115 PRINT"        [128]RH_S[255][255][135][255][255][255]y[255][255][255][255] MENU":GOSUB106
116 WAIT198,1:GETA$:IFA$="[135]"THENQQ=1:RETURN
117 OPEN4,4,7:GOTO112
118 INPUT#15,E,E$:IFE=0THENRETURN
119 PRINT"[147]         DISK ERROR ENCOUNTERED"
120 PRINTTAB(20-LEN(E$)/2)E$:GOSUB106
121 PRINT"          ANY KEY TO CONTINUE"
122 WAIT198,1:CLOSE2:CLOSE4:RETURN
123 K=21:A$=" [158]     ARE YOU SURE?     ":GOSUB10
124 WAIT198,1:GETA$:ON-(A$="Y")GOTO126:PRINT"[145][145][145]"
125 GOTO30
126 PRINT"[150]";:PRINTTAB(8)" USE ULTRA AGAIN, SOON "
127 POKE198,.:T=3:GOSUB102:SYS65126
128 FF=0
129 PRINT"[155]":POKE214,8:PRINT
130 PRINTTAB(6)"[213][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][201]"
131 PRINTTAB(6)"[221]                         [221]"
132 PRINTTAB(6)"[221] DISK HOUSE KEEPING MENU [221]"
133 PRINTTAB(6)"[221] [183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183] [221]"
134 PRINTTAB(6)"[221]                         [221]"
135 PRINTTAB(6)"[221] 1. SCRATCH A FILE       [221]"
136 PRINTTAB(6)"[221] 2. RE-NAME A FILE       [221]"
137 PRINTTAB(6)"[221] 3. FORMAT (NEW) A DISK  [221]"
138 PRINTTAB(6)"[221] 4. VIEW DIRECTORY       [221]"
139 PRINTTAB(6)"[221] 5. RETURN TO MAIN MENU  [221]"
140 PRINTTAB(6)"[221]                         [221]"
141 PRINTTAB(6)"[202][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][203]"
142 POKE198,.:WAIT198,1:GETA$:ON-(A$="[135]")GOTO30:IFA$<"1"ORA$>"5"THEN142
143 K=VAL(A$)
144 ONKGOTO150,175,188,240,30
145 POKE512,32:RETURN
150 PRINT"[147][129]":POKE53280,.:POKE53281,.
151 PRINTTAB(40)"                                        ";
152 PRINT"    THIS ROUTINE WILL SCRATCH A FILE    ";
153 PRINT"                                        "
154 PRINTTAB(42)"ENTER 'M' TO RETURN TO THE MENU."
155 PRINTTAB(42)"ENTER '$' TO LIST THE FILE DIRECTORY."
156 PRINT"[158]----------------------------------------";
157 IFFF=34THEN161
158 POKE19,32:INPUT"[155] ENTER FILENAME [150]$[157]";FF$:POKE19,.:PRINT
159 IFFF$="$"THENGOSUB63:GOTO150
160 IFFF$="M"THEN26
161 B$="[155]SCRATCH SEQ FILE [150]"+CHR$(34)+FF$+CHR$(34)
162 FF=0:PRINT""TAB(21-LEN(B$)/2)B$
163 PRINTTAB(90)"[158]ARE YOU SURE?? (Y/N)"
164 GETK$:IFK$=""THEN164
165 IFK$<>"Y"THENFF$="":GOTO150
166 B$=" SCRATCHING  "+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$=" "+FF$+" [146] "+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"":POKE214,20:PRINT:PRINTTAB(9)"OLD NAME = ";
177 IFFF=34THENFF=0:PRINT""FF$;:PN$=FF$:POKE783,.:GOTO180
178 POKE19,32:INPUT"$[157]";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" [157]";NN$:POKE19,.:POKE781,21:SYS59903:POKE214,21:PRINT
183 IFNN$="4"THEN30
184 CN$ =" "+PN$+" [146] IS "+NN$+" [146]":IFLEN(CN$)<33THENCN$ = CN$+"      "
185 PRINT "[158]"TAB(22-LEN(CN$)/2)CN$"[145][145]":PRINT#15,"R0:"+NN$+"="+PN$
186 GOSUB118:IFETHEN26:REMRWK
187 GOSUB81:GOTO26
188 PRINT TAB(2)"[158]          ---WARNING!!!---          "
189 PRINT"  ALL DATA ON THE DISK TO BE FORMATTED"
190 PRINT"  WILL BE DESTROYED - OK TO CONTINUE?"
191 POKE198,.:WAIT198,1:GETA$:POKE198,.:IFA$<>"Y"THEN30
192 PRINT"[145][154]   OKAY - FORMATTING TAKES 90 SECONDS"
193 PRINT#15,"N:ULTRA SEQ-FILES,RK":GOSUB168:IFER<>0THENGOSUB119
194 GOTO30
195 CLOSE4:OPEN4,4,7:GOSUB112:IFQQTHEN26
196 L=0:PRINT"[147][151]":POKE53280,11:POKE53281,11
197 POKE53272,23:PRINT""TAB(3)"                                  "
198 PRINTTAB(3)" << [210]EADING [198]ILE [201]NTO AN [193]RRAY >> "
199 PRINTTAB(3)"                                  "
200 POKE787,25:POKE2,15:SYSOC
201 IFLTHENPRINT""TAB(43)"[155] << [210]EADING [198]ILE [201]NTO AN [193]RRAY >> "
202 POKE214,23:PRINT
203 PRINT"  [150][200][207][204][196] [211][200][201][198][212][153] TO [208]AUSE ---- [158][198]6[153] TO [193]BORT[145][145][145][159]":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"  [150][210][197][204][197][193][211][197][153] TO [195]ONTINUE [145]":U=1
212 IFPEEK(653)=1THENON-(PEEK(197)=6)GOTO226:GOTO211
213 IFUTHENPRINT"  [150][200][207][204][196] [211][200][201][198][212][153] TO [208]AUSE ---- [158][198]6[153] TO [193]BORT[145][145][145][159]":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""TAB(44)"[155]      << [196]ATA TO [208]RINTER >>     "
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"  [150][210][197][204][197][193][211][197][153] TO [195]ONTINUE [145]":U=1
223 IFPEEK(653)=1THENON-(PEEK(197)=6)GOTO226:GOTO222
224 IFUTHENPRINT"  [150][200][207][204][196] [211][200][201][198][212][153] TO [208]AUSE ---- [158][198]6[153] TO [193]BORT[145][145][145][159]":U=0
225 NEXT:FORI=1TO5:PRINT#4:NEXT:IFYY>111THENYY=1::L=1:GOTO201
226 T=1:GOSUB102:CLOSE2:SYSCC:PRINT"[147]":POKE53280,.:POKE53281,.:SYS65511
227 OPEN15,8,15:BOB=0:GOTO26
228 POKE2025,7:RUN
229 FORD=1TO1200:NEXT:RETURN
230 S=1-S:GOSUB237
231 PRINT"[158] SOUND":IFSTHENPRINT"  ON "
232 IFS=0THENPRINT"  OFF"
234 PRINT""TAB(33)"[145][145]ASCII":IFATHENPRINT""TAB(34)"[145]ON "
235 ON-(A=1)GOTO50:PRINT""TAB(34)"[145]OFF":GOTO50
236 RETURN
237 ON-(NS=1)GOTO236:FORI=54272TOI+23:POKEI,.:NEXT
238 SI=54272:POKESI+1,106:POKESI+5,12:POKESI+6,15
239 POKESI+24,15:POKESI+15,30:POKESI+4,21:RETURN
240 SYSEZ
241 POKE214,23:PRINT:PRINTTAB(10)"[158] ANY KEY TO CONTINUE ";:WAIT198,1:POKE198,.
242 GOTO25