menu.bas

#!basic-start=2
# OPENSPAND OS LAUNCHER - generated by build_menu.py, do not hand-edit.
# MC OPEN=16514 GETSLOT=16549 DRAWALL=16717 sptr=18805 T=18807 S=18808 N=18809 slotp=19276
1 REM [1][7][0][62][255][237][121][33][52][75][1][7][64][126][237][121][35][167][32][249][1][7][96][175][237][121][1][23][0][237][120][167][32][251][201][1][7][96][62][1][237][121][1][23][0][237][120][167][32][251][1][7][0][237][120][254][64][32][44][62][0][237][121][42][117][73][30][0][237][120][167][40][12][254][64][48][8][119][35][28][123][254][14][56][239][123][254][14][48][6][54][0][35][60][24][246][34][117][73][75][6][0][201][1][0][0][201][205][130][64][42][76][75][58][78][75][183][40][17][54][27][35][54][27][35][6][12][54][0][35][16][251][22][1][24][2][22][0][34][117][73][34][79][75][205][165][64][120][177][40][48][42][79][75][126][254][27][40][20][121][254][2][56][24][229][9][43][126][254][40][32][15][43][126][254][27][32][9][225][42][79][75][34][117][73][24][207][225][20][122][254][250][48][5][42][117][73][24][195][74][6][0][201][42][76][75][58][119][73][167][40][7][71][17][14][0][25][16][253][235][42][12][64][213][17][100][0][25][209][58][119][73][79][6][17][229][58][121][73][185][40][26][56][24][58][120][73][185][62][0][32][2][62][18][119][35][197][6][14][26][19][119][35][16][250][193][24][9][197][6][15][175][119][35][16][252][193][225][213][17][33][0][25][209][12][16][204][201][1][7][224][62][160][237][121][1][7][0][237][120][203][127][40][108][203][119][40][109][203][111][40][110][203][103][40][116][203][95][40][107][1][254][239][237][120][203][95][40][83][203][103][40][84][203][87][40][95][203][71][40][86][1][254][247][237][120][203][103][40][72][1][254][251][237][120][203][71][40][78][1][254][253][237][120][203][79][40][79][203][95][40][95][1][254][223][237][120][203][95][40][71][1][254][127][237][120][203][103][40][67][203][87][40][78][1][254][191][237][120][203][79][40][59][203][95][40][35][14][0][6][0][201][14][1][6][0][201][14][2][6][0][201][14][3][6][0][201][14][4][6][0][201][14][5][6][0][201][14][6][6][0][201][14][7][6][0][201][14][10][6][0][201][14][11][6][0][201][14][12][6][0][201][14][13][6][0][201][14][14][6][0][201][14][15][6][0][201][17][116][74][42][12][64][213][17][116][0][25][209][6][12][197][229][6][16][26][19][119][35][16][250][225][213][17][33][0][25][209][193][16][236][201][42][12][64][17][116][0][25][6][12][197][229][6][16][175][119][35][16][252][225][17][33][0][25][193][16][239][201][42][12][64][17][102][0][25][235][33][188][66][6][6][197][213][1][27][0][237][176][209][235][1][33][0][9][235][193][16][239][201][135][128][128][128][128][4][0][129][128][128][128][128][128][0][135][128][128][128][128][4][0][129][128][128][128][128][128][128][128][128][128][128][128][0][128][5][0][0][0][0][0][128][128][128][128][128][128][0][128][5][0][0][0][0][128][128][128][128][128][128][0][132][128][131][131][131][4][0][128][128][128][128][128][128][0][132][128][131][131][131][4][128][128][128][128][128][128][0][0][3][3][3][132][128][0][128][128][128][128][128][128][0][0][3][3][3][132][128][128][128][128][128][128][128][0][0][0][0][0][129][128][0][128][128][128][128][128][128][0][0][0][0][0][129][128][2][128][128][128][128][1][0][128][128][128][128][128][7][0][2][128][128][128][128][1][0][128][128][128][128][128][7][205][162][65][121][254][4][40][14][254][6][48][10][175][50][123][73][121][167][40][19][24][58][58][123][73][167][32][6][62][1][50][123][73][201][14][0][6][0][201][22][24][205][162][65][121][167][32][211][21][32][246][175][50][122][73][58][124][73][60][254][24][56][9][175][50][124][73][14][9][6][0][201][50][124][73][14][0][6][0][201][58][122][73][167][40][9][61][50][122][73][14][8][6][0][201][62][1][50][122][73][121][254][1][40][10][254][2][40][25][254][3][40][60][24][74][58][120][73][167][40][97][61][50][120][73][33][119][73][190][48][84][119][24][81][58][121][73][167][40][78][61][33][120][73][190][56][71][40][69][58][120][73][60][50][120][73][71][58][119][73][198][16][184][48][50][120][214][16][50][119][73][24][42][58][119][73][214][17][48][1][175][50][119][73][50][120][73][24][26][58][119][73][198][17][71][58][121][73][214][17][48][1][175][184][48][2][24][1][120][50][119][73][50][120][73][205][77][65][14][8][6][0][201][42][12][64][17][14][0][25][235][33][65][64][1][10][0][237][176][201][42][12][64][17][25][0][25][235][33][65][64][1][8][0][237][176][201][175][50][130][73][1][235][0][237][120][203][79][40][7][1][227][0][237][120][24][240][62][73][205][177][69][33][136][73][6][6][197][205][114][69][193][218][34][69][119][35][16][244][33][136][73][205][71][69][95][33][136][73][35][35][35][205][71][69][87][237][83][134][73][58][133][73][183][32][9][42][131][73][183][237][82][218][42][69][42][125][73][175][50][127][73][122][179][40][90][122][167][40][3][175][24][1][123][50][128][73][58][133][73][183][40][3][42][125][73][62][84][205][177][69][58][127][73][205][177][69][58][128][73][205][177][69][58][128][73][71][197][205][56][69][193][119][35][16][247][205][56][69][205][56][69][58][133][73][183][40][3][205][70][73][58][128][73][167][40][9][79][123][145][95][48][4][21][24][1][21][58][127][73][60][50][127][73][24][162][175][50][133][73][62][88][205][177][69][237][75][134][73][201][0][0][175][50][133][73][1][0][0][201][62][88][205][177][69][62][1][50][130][73][1][0][0][201][1][235][0][237][120][203][79][40][247][1][227][0][237][120][201][126][35][70][35][78][184][200][185][200][120][201][58][100][74][254][212][32][4][1][1][0][201][33][108][69][17][100][74][1][6][0][237][176][1][0][0][201][212][35][34][33][36][28][62][120][50][129][73][1][254][127][237][120][203][71][40][33][17][0][64][1][235][0][237][120][203][79][40][7][1][227][0][237][120][183][201][27][122][179][32][235][58][129][73][61][50][129][73][32][214][1][254][127][237][120][203][71][40][247][55][201][14][255][6][0][201][245][1][235][0][237][120][203][87][40][247][241][1][227][0][237][121][201][62][85][205][177][69][58][142][73][205][177][69][58][143][73][205][177][69][205][114][69][218][172][69][79][6][0][201][1][254][223][237][120][203][103][40][11][1][254][127][237][120][203][95][40][7][24][236][14][1][6][0][201][14][0][6][0][201][62][66][205][177][69][58][144][73][205][177][69][205][114][69][218][172][69][79][6][0][201][213][237][91][149][73][125][147][124][154][209][63][201][254][65][56][7][254][91][48][14][214][27][201][254][48][56][7][254][58][48][3][214][20][201][254][32][56][18][254][96][48][14][229][33][36][74][214][32][133][111][48][1][36][126][225][201][175][201][42][147][73][237][75][145][73][120][177][40][14][205][16][70][56][9][126][35][254][10][32][245][11][24][238][229][42][12][64][35][235][225][6][21][14][32][205][16][70][56][40][126][254][10][40][25][35][205][28][70][18][19][13][32][237][205][16][70][56][6][126][254][10][32][1][35][19][16][221][24][10][35][123][129][95][48][1][20][19][16][209][201][1][7][224][62][160][237][121][1][7][0][237][120][203][127][40][102][203][119][40][102][203][111][40][102][203][95][40][102][1][254][191][237][120][203][71][40][97][1][254][251][237][120][203][71][40][92][1][254][127][237][120][203][71][40][67][1][254][223][237][120][203][95][40][78][1][254][247][237][120][203][71][40][77][203][79][40][77][203][87][40][77][203][95][40][77][203][103][40][77][1][254][239][237][120][203][71][40][48][203][79][40][80][203][87][40][72][203][95][40][64][203][103][40][56][14][0][24][68][14][2][24][64][14][1][24][60][14][4][24][56][14][6][24][52][14][3][24][48][14][5][24][44][14][7][24][40][14][10][24][36][14][11][24][32][14][12][24][28][14][13][24][24][14][14][24][20][14][15][24][16][14][16][24][12][14][17][24][8][14][18][24][4][14][19][24][0][6][0][201][1][254][254][237][120][47][230][1][95][33][244][73][22][0][62][30][50][152][73][70][14][254][237][120][47][79][58][152][73][161][32][17][62][31][50][152][73][35][20][122][254][8][56][231][14][0][6][0][201][6][0][31][56][3][4][24][250][122][135][135][130][128][254][30][40][46][79][123][167][40][25][121][254][4][40][41][254][1][40][42][254][33][40][43][254][3][40][44][254][31][40][45][254][20][40][46][121][229][33][252][73][133][111][48][1][36][126][225][79][6][0][201][14][13][6][0][201][14][47][6][0][201][14][58][6][0][201][14][45][6][0][201][14][63][6][0][201][14][61][6][0][201][14][8][6][0][201][42][12][64][17][67][0][25][235][33][155][73][58][154][73][50][153][73][6][2][14][32][58][153][73][167][40][11][61][50][153][73][126][35][205][28][70][24][1][175][18][19][13][32][233][19][16][228][201][62][71][205][177][69][58][154][73][205][177][69][58][154][73][50][153][73][33][155][73][58][153][73][167][40][14][126][205][177][69][35][58][153][73][61][50][153][73][24][236][205][114][69][218][172][69][79][6][0][201][17][0][64][1][235][0][237][120][203][79][32][7][27][122][179][32][242][55][201][1][227][0][237][120][183][201][62][78][205][177][69][205][78][72][56][26][167][40][23][50][219][73][71][33][220][73][197][205][56][69][193][119][35][16][247][58][219][73][79][6][0][201][14][0][6][0][201][62][76][205][177][69][62][255][205][177][69][58][154][73][205][177][69][58][154][73][50][153][73][33][155][73][58][153][73][167][40][14][126][205][177][69][35][58][153][73][61][50][153][73][24][236][205][114][69][218][172][69][79][6][0][201][62][68][205][177][69][58][151][73][205][177][69][205][114][69][218][172][69][79][6][0][201][42][4][64][17][0][1][25][84][93][1][0][61][9][54][170][126][254][170][32][14][235][54][85][126][254][85][32][6][34][125][73][68][77][201][1][0][0][201][42][125][73][34][147][73][237][75][134][73][9][34][149][73][201][1][7][0][62][255][237][121][33][52][75][1][7][64][126][237][121][35][167][32][249][1][7][128][62][1][237][121][1][23][0][237][120][167][32][251][201][1][7][128][62][128][237][121][1][23][0][237][120][167][32][251][201][1][7][0][62][255][237][121][42][125][73][58][128][73][71][126][197][1][7][64][237][121][193][35][16][245][58][128][73][1][7][192][237][121][1][23][0][237][120][167][32][251][201][0][0][0][0][0][0][0][0][0][0][0][0][0][0][0][0][0][0][0][0][61][0][0][0][0][0][0][0][0][0][0][0][0][0][0][0][0][0][0][0][0][0][0][0][0][0][0][0][0][0][0][0][0][0][0][0][0][0][0][0][0][0][0][0][0][0][0][0][0][0][0][0][0][0][0][0][0][0][0][0][0][0][0][0][0][0][0][0][0][0][0][0][0][0][0][0][0][0][0][0][0][0][0][0][0][0][0][0][0][0][0][0][0][0][0][0][0][0][0][0][0][0][0][0][0][0][0][0][0][0][0][0][254][253][251][247][239][223][191][127][0][90][88][67][86][65][83][68][70][71][81][87][69][82][84][49][50][51][52][53][48][57][56][55][54][80][79][73][85][89][13][76][75][74][72][32][46][77][78][66][0][0][11][0][13][0][0][0][16][17][23][21][26][22][27][24][28][29][30][31][32][33][34][35][36][37][14][25][19][20][18][15][0][38][39][40][41][42][43][44][45][46][47][48][49][50][51][52][53][54][55][56][57][58][59][60][61][62][63][16][0][17][0][0][0][0][0][0][0][0][0][0][0][0][0][0][0][0][0][0][47][52][62][56][57][46][40][48][0][0][0][0][0][0][0][0][0][0][0][0][0][0][0][0][0][0][0][0][0][0][0][0][0][58][53][0][0][0][0][0][0][0][0][0][0][0][0][0][0][41][52][60][51][0][0][0][0][0][0][0][0][0][0][0][0][49][42][43][57][0][0][0][0][0][0][0][0][0][0][0][0][55][46][44][45][57][0][0][0][0][0][0][0][0][0][0][0][43][46][55][42][0][0][0][0][0][0][0][0][0][0][0][0][0][0][0][0][0][0][0][0][0][0][0][0][0][0][0][0][40][43][44][0][0][0][0][0][0][0][0][0][0][0][0][0][55][58][51][0][0][0][0][0][0][0][0][0][0][0][0][0][0][0][0][0][0][0][0][0][0][0][0][0][0][0][0][47][20][42][41][46][57][0][0][0][0][0][0][0][0][0][0][0][0][0][0][0][0][0][0][0][0][0][0][0][0][0][0][0][0][0][0][0][0][0][0][0][0][0][0][0]
2 LET D$="CLO SER"
3 LET E$="OPE SER 38400"
4 LET V$="SPACE=ABORT"
5 LET R=1
6 LET U=16
7 LET Z=0
8 LET ZA=19252
9 LET ZB=4
10 LET ZC=2
11 LET ZD=18842
12 LET ZE=11
13 LET ZF=6
14 LET ZG=13
15 LET ZH=7
16 LET ZI=256
17 LET ZJ=3
18 LET ZK=8
19 LET ZL=19044
20 LET ZM=18653
21 LET ZN=17503
22 LET ZO=18265
23 LET ZP=10
24 LET ZQ=21
25 LET ZR=18691
26 LET ZS=255
27 LET ZT=5
28 LET ZU=18808
29 LET ZV=9
30 LET ZW=18807
31 LET ZX=18832
32 LET ZY=15
33 POKE U,251
34 CLS
35 LET X=USR 17053
36 PRINT AT ZP,ZP;"OPENSPAND OS"
37 PRINT AT 12,ZG;"V2015"
38 LET V=17
39 LET B$="                                "
40 LET Y$="------------------------------"
41 LET Q$="/"
42 LET P=Z
43 POKE ZU,Z
44 POKE ZW,Z
45 LET O=Z
46 LET L=Z
47 LET W=Z
48 LET SB=PEEK 16388+ZI*PEEK 16389+ZI
49 POKE 19276,SB-ZI*INT (SB/ZI)
50 POKE 19277,INT (SB/ZI)
51 GOSUB 54
52 GOSUB 504
53 GOTO 133
54 PRINT AT R,Z;"READING SD CARD...";
55 POKE ZA,Z
56 POKE 19278,(P>Z)
57 FAST
58 LET N=USR 16621
59 SLOW
60 RETURN
61 FAST
62 POKE ZA,18
63 FOR I=R TO LEN N$
64 POKE ZA+I,CODE N$(I)
65 NEXT I
66 POKE ZA+LEN N$+R,Z
67 LET X=USR 16514
68 RETURN
69 LET N$=""
70 LET D=Z
71 LET SA=SB+14*PEEK (ZU)
72 FOR I=Z TO ZG
73 LET C=PEEK (SA+I)
74 IF C=Z THEN GOTO 78
75 LET N$=N$+CHR$ C
76 LET D=D+R
77 NEXT I
78 RETURN
79 POKE 18809,N
80 LET X=USR 16717
81 RETURN
82 LET C$=N$( TO D-R)+"C"
83 RETURN
84 GOSUB 82
85 LET F$=C$+";"+STR$ ZL
86 POKE ZL,Z
87 LOAD F$
88 LET CV=USR 17746
89 RETURN
90 POKE ZL,212
91 GOSUB 82
92 LET F$=">"+C$+";"+STR$ ZL+",6"
93 SAVE F$
94 RETURN
95 IF CV=Z THEN RETURN
96 LET G$="J="
97 FOR I=R TO ZT
98 LET G$=G$+CHR$ PEEK (ZL+I)
99 NEXT I
100 LLIST G$
101 RETURN
102 IF INKEY$<>"" THEN GOTO 102
103 LET G$=INKEY$
104 IF G$="" THEN GOTO 103
105 LET KC=CODE G$
106 RETURN
107 GOSUB 69
108 IF N=Z THEN GOTO 133
109 IF N$=".." THEN GOTO 133
110 IF N$(D)="/" THEN GOTO 133
111 GOSUB 84
112 FOR I=ZJ TO 14
113 PRINT AT I,U;B$( TO ZY)
114 NEXT I
115 PRINT AT ZJ,U;"SET KEYS"
116 PRINT AT ZT,U;"UP"
117 PRINT AT ZF,U;"DOWN"
118 PRINT AT ZH,U;"LEFT"
119 PRINT AT ZK,U;"RIGHT"
120 PRINT AT ZV,U;"FIRE"
121 PRINT AT ZE,U;"PRESS KEY"
122 LET F=R
123 PRINT AT ZB+F,ZY;">"
124 GOSUB 102
125 PRINT AT ZB+F,ZY;" "
126 POKE ZL+F,KC
127 PRINT AT ZB+F,22;CHR$ KC
128 LET F=F+R
129 IF F<=ZT THEN GOTO 123
130 GOSUB 90
131 GOSUB 504
132 GOTO 133
133 LET K=USR 17246
134 IF K=Z THEN GOTO 133
135 IF K=ZK THEN GOTO 133
136 IF K=ZV THEN GOTO 146
137 IF K=ZB THEN GOTO 148
138 IF K=ZF THEN GOTO 150
139 IF K=ZH THEN GOTO 107
140 IF K=ZP THEN GOTO 152
141 IF K=ZE THEN GOTO 185
142 IF K=12 THEN GOTO 217
143 IF K=ZG THEN GOTO 325
144 IF K=14 THEN GOTO 392
145 GOTO 133
146 GOSUB 549
147 GOTO 133
148 GOSUB 519
149 GOTO 133
150 CLS
151 STOP
152 CLS
153 PRINT AT ZE,ZK;"SERIAL LOAD..."
154 LET BA=USR ZM
155 IF BA=Z THEN GOTO 175
156 LPRINT E$
157 LET NL=USR 18536
158 IF NL=Z THEN LET N$="INBOX.P"
159 IF NL>Z THEN GOSUB 180
160 POKE ZA,18
161 FOR I=R TO LEN N$
162 POKE ZA+I,CODE N$(I)
163 NEXT I
164 POKE ZA+R+LEN N$,Z
165 LET OP=USR 18706
166 POKE 18821,R
167 FAST
168 LET RL=USR ZN
169 SLOW
170 LET CL=USR 18742
171 LPRINT D$
172 IF RL=Z THEN GOTO 177
173 PRINT AT ZV,ZC;"SAVED ";N$
174 GOTO 177
175 PRINT AT ZF,ZC;"NO FREE RAM"
176 GOSUB 102
177 GOSUB 54
178 GOSUB 504
179 GOTO 133
180 LET N$=""
181 FOR I=R TO NL
182 LET N$=N$+CHR$ PEEK (18908+I-R)
183 NEXT I
184 RETURN
185 CLS
186 PRINT AT ZB,ZC;"OS UPDATE"
187 PRINT AT ZC,ZC;V$
188 LPRINT E$
189 POKE 18830,223
190 POKE 18831,ZH
191 LET A=USR 17858
192 IF A=ZS THEN GOTO 384
193 IF A=Z THEN GOTO 209
194 PRINT AT ZF,ZC;"NEW VERSION READY"
195 PRINT AT ZH,ZC;"Y=YES N=NO"
196 LET A=USR 17885
197 IF A=Z THEN GOTO 213
198 LET BA=USR ZM
199 IF BA=Z THEN GOTO 213
200 PRINT AT ZV,ZC;"INSTALLING..."
201 FAST
202 LET RL=USR ZN
203 SLOW
204 IF RL=Z THEN GOTO 213
205 LPRINT D$
206 LET F$=">MENU.P;"+STR$ BA+","+STR$ RL
207 SAVE F$
208 LOAD "MENU.P"
209 PRINT AT ZF,ZC;"OS IS UP TO DATE"
210 LPRINT D$
211 GOSUB 102
212 GOTO 214
213 LPRINT D$
214 GOSUB 54
215 GOSUB 504
216 GOTO 133
217 CLS
218 LET O=Z
219 PRINT AT ZE,ZK;"LOADING..."
220 PRINT AT ZG,ZH;V$
221 POKE ZX,Z
222 GOSUB 314
223 IF A=Z THEN GOTO 265
224 LET X=USR ZR
225 LET L=Z
226 LET W=Z
227 CLS
228 POKE 18833,W-ZI*INT (W/ZI)
229 POKE 18834,INT (W/ZI)
230 LET X=USR 17994
231 IF O=Z THEN PRINT AT ZQ,Z;"LINK ";L;" ENT=GO U=URL Q=X  ";
232 IF O=R THEN PRINT AT ZQ,Z;"GET ";L;" ENT=GET U=NEW Q=X ";
233 LET K=USR 18076
234 IF K=Z THEN GOTO 233
235 IF USR 18076<>Z THEN GOTO 235
236 IF K=ZT THEN GOTO 265
237 IF K=ZF THEN LET L=Z
238 IF K=ZF THEN GOTO 231
239 IF K>=ZP THEN LET L=L*ZP+K-ZP
240 IF K>=ZP THEN GOTO 231
241 IF K=ZJ AND O=R THEN GOTO 344
242 IF K=ZJ THEN GOTO 249
243 IF K=ZB AND O=Z THEN GOTO 258
244 IF K=ZH THEN GOTO 268
245 IF K=ZC THEN LET W=W-19
246 IF K=R THEN LET W=W+19
247 IF W<Z THEN LET W=Z
248 GOTO 227
249 IF L=Z THEN GOTO 231
250 IF L>120 THEN GOTO 231
251 POKE ZX,L
252 GOSUB 314
253 LET L=Z
254 IF A=Z THEN GOTO 227
255 LET X=USR ZR
256 LET W=Z
257 GOTO 227
258 POKE ZX,ZS
259 GOSUB 314
260 LET L=Z
261 IF A=Z THEN GOTO 227
262 LET X=USR ZR
263 LET W=Z
264 GOTO 227
265 GOSUB 54
266 GOSUB 504
267 GOTO 133
268 CLS
269 IF O=Z THEN PRINT AT Z,Z;"URL?"
270 IF O=R THEN PRINT AT Z,Z;"SEARCH?"
271 IF O=ZC THEN PRINT AT Z,Z;"FOLDER NAME?"
272 IF O=ZJ THEN PRINT AT Z,Z;"NEW NAME?"
273 PRINT AT ZT,Z;"/=SH-V :=SH-Z -=SH-J"
274 PRINT AT ZF,Z;"DEL=SH-0"
275 POKE ZD,Z
276 LET X=USR 18412
277 LET K=USR ZO
278 IF K=Z THEN GOTO 277
279 IF USR ZO<>Z THEN GOTO 279
280 IF K=ZG THEN GOTO 292
281 IF K=ZK THEN GOTO 289
282 IF K<32 THEN GOTO 277
283 LET M=PEEK ZD
284 IF M>59 THEN GOTO 277
285 POKE 18843+M,K
286 POKE ZD,M+R
287 LET X=USR 18412
288 GOTO 277
289 LET M=PEEK ZD
290 IF M>Z THEN POKE ZD,M-R
291 GOTO 287
292 IF PEEK ZD=Z THEN GOTO 277
293 IF O=R THEN GOTO 327
294 IF O=ZC THEN GOTO 419
295 IF O=ZJ THEN GOTO 476
296 CLS
297 PRINT AT ZE,ZK;"LOADING..."
298 PRINT AT ZG,ZH;V$
299 LPRINT E$
300 LET A=USR 18460
301 IF A=ZS THEN GOTO 384
302 IF A=Z THEN GOTO 308
303 LET BA=USR ZM
304 IF BA=Z THEN GOTO 308
305 FAST
306 LET RL=USR ZN
307 SLOW
308 LPRINT D$
309 IF A=Z THEN GOTO 265
310 LET X=USR ZR
311 LET L=Z
312 LET W=Z
313 GOTO 227
314 LPRINT E$
315 LET A=USR 17915
316 IF A=ZS THEN LET A=Z
317 IF A=Z THEN GOTO 323
318 LET BA=USR ZM
319 IF BA=Z THEN GOTO 323
320 FAST
321 LET RL=USR ZN
322 SLOW
323 LPRINT D$
324 RETURN
325 LET O=R
326 GOTO 268
327 CLS
328 PRINT AT ZE,ZF;"SEARCHING..."
329 PRINT AT ZG,ZT;V$
330 LPRINT E$
331 LET NL=USR 18577
332 IF NL=ZS THEN GOTO 384
333 IF NL=Z THEN GOTO 376
334 LET BA=USR ZM
335 IF BA=Z THEN GOTO 376
336 FAST
337 LET RL=USR ZN
338 SLOW
339 LPRINT D$
340 LET X=USR ZR
341 LET L=Z
342 LET W=Z
343 GOTO 227
344 IF L=Z THEN GOTO 231
345 IF L>18 THEN GOTO 231
346 CLS
347 PRINT AT ZE,ZB;"DOWNLOADING ";L
348 PRINT AT ZG,ZB;"WAIT 10 SEC"
349 LPRINT E$
350 POKE 18839,L
351 LET A=USR 18632
352 IF A=ZS THEN GOTO 384
353 IF A=Z THEN GOTO 371
354 LET NL=USR 18536
355 LET BA=USR ZM
356 IF BA=Z THEN GOTO 371
357 FAST
358 LET RL=USR ZN
359 SLOW
360 LPRINT D$
361 IF RL=Z THEN GOTO 372
362 IF NL=Z THEN LET N$="INBOX.P"
363 IF NL>Z THEN GOSUB 180
364 LET F$=">"+N$+";"+STR$ BA+","+STR$ RL
365 SAVE F$
366 CLS
367 PRINT AT ZE,ZB;"SAVED ";N$
368 PRINT AT ZG,ZB;"PRESS A KEY"
369 GOSUB 381
370 GOTO 265
371 LPRINT D$
372 CLS
373 PRINT AT ZE,ZB;"DOWNLOAD FAILED"
374 GOSUB 381
375 GOTO 265
376 LPRINT D$
377 CLS
378 PRINT AT ZE,ZF;"NO MATCHES"
379 GOSUB 381
380 GOTO 325
381 IF USR ZO=Z THEN GOTO 381
382 IF USR ZO<>Z THEN GOTO 382
383 RETURN
384 LPRINT D$
385 CLS
386 PRINT AT ZE,ZK;"NO BRIDGE"
387 PRINT AT ZG,ZB;"PRESS A KEY"
388 GOSUB 381
389 GOSUB 54
390 GOSUB 504
391 GOTO 133
392 LET X=USR 17026
393 GOSUB 69
394 PRINT AT ZJ,U;"FILES:"
395 PRINT AT ZB,U;N$
396 PRINT AT ZF,U;"M=MOVE"
397 PRINT AT ZH,U;"R=RENAME"
398 PRINT AT ZK,U;"N=NEW DIR"
399 PRINT AT ZV,U;"Q=BACK"
400 LET K=USR ZO
401 IF K=Z THEN GOTO 400
402 IF USR ZO<>Z THEN GOTO 402
403 IF K=77 THEN GOTO 431
404 IF K=82 THEN GOTO 469
405 IF K=78 THEN GOTO 410
406 IF K=81 THEN GOTO 408
407 GOTO 400
408 GOSUB 504
409 GOTO 133
410 LET O=ZC
411 GOTO 268
412 LET N$=""
413 FOR I=R TO PEEK ZD
414 LET C=PEEK (18843+I-R)
415 IF C>=65 THEN LET N$=N$+CHR$ (C-27)
416 IF C>=48 THEN IF C<=57 THEN LET N$=N$+CHR$ (C-20)
417 NEXT I
418 RETURN
419 IF PEEK ZD=Z THEN GOTO 408
420 GOSUB 412
421 IF N$="" THEN GOTO 408
422 POKE ZA,ZQ
423 FOR I=R TO LEN N$
424 POKE ZA+I,CODE N$(I)
425 NEXT I
426 POKE ZA+LEN N$+R,Z
427 LET X=USR 16514
428 GOSUB 54
429 GOSUB 504
430 GOTO 133
431 GOSUB 69
432 IF D=Z THEN GOTO 408
433 IF N$=".." THEN GOTO 408
434 IF N$(D)="/" THEN GOTO 408
435 LET H$=N$
436 LET S$=Q$+N$
437 GOSUB 461
438 LET K=USR 17246
439 IF K=ZY THEN GOTO 454
440 IF K=ZF THEN GOTO 459
441 IF K=ZB THEN GOTO 443
442 GOTO 438
443 GOSUB 69
444 IF D=Z THEN GOTO 438
445 IF N$=".." THEN GOTO 448
446 IF N$(D)="/" THEN GOTO 451
447 GOTO 438
448 GOSUB 489
449 GOSUB 461
450 GOTO 438
451 GOSUB 534
452 GOSUB 461
453 GOTO 438
454 LPRINT "REN "+S$+" "+H$
455 LPRINT "REN "+S$( TO LEN S$-R)+"C"+" "+H$( TO LEN H$-R)+"C"
456 GOSUB 54
457 GOSUB 504
458 GOTO 133
459 GOSUB 504
460 GOTO 133
461 LET X=USR 17026
462 PRINT AT ZJ,U;"MOVING:"
463 PRINT AT ZB,U;H$
464 PRINT AT ZF,U;"0=ENTER"
465 PRINT AT ZH,U;"M=DROP"
466 PRINT AT ZK,U;"Q=CANCEL"
467 PRINT AT ZQ,Z;"M=DROP 0=ENTER DIR Q=X";
468 RETURN
469 GOSUB 69
470 IF D=Z THEN GOTO 408
471 IF N$=".." THEN GOTO 408
472 IF N$(D)="/" THEN GOTO 408
473 LET S$=N$
474 LET O=ZJ
475 GOTO 268
476 IF PEEK ZD=Z THEN GOTO 408
477 GOSUB 412
478 IF N$="" THEN GOTO 408
479 LET J=Z
480 FOR I=R TO LEN S$
481 IF S$(I)="." THEN LET J=I
482 NEXT I
483 IF J=Z THEN GOTO 408
484 LPRINT "REN "+S$+" "+N$+S$(J TO )
485 LPRINT "REN "+S$( TO J-R)+".C"+" "+N$+".C"
486 GOSUB 54
487 GOSUB 504
488 GOTO 133
489 IF P=Z THEN RETURN
490 LET N$=".."
491 GOSUB 61
492 LET P=P-R
493 LET Q$=Q$( TO LEN Q$-R)
494 LET J=Z
495 FOR I=R TO LEN Q$
496 IF Q$(I)="/" THEN LET J=I
497 NEXT I
498 LET Q$=Q$( TO J)
499 POKE ZU,Z
500 POKE ZW,Z
501 GOSUB 54
502 GOSUB 504
503 RETURN
504 CLS
505 PRINT AT Z,Z;"OPENSPAND OS"
506 GOSUB 545
507 PRINT AT R,Z;"DIR:";Q$
508 PRINT AT ZC,Z;Y$
509 PRINT AT 20,Z;Y$
510 PRINT AT ZQ,Z;"7UP 6DN 5,8PG 0RUN  Q=QUIT";
511 GOSUB 79
512 PRINT AT ZJ,U;"J=SET JOYSTICK"
513 PRINT AT ZT,U;"S=SERIAL IN"
514 PRINT AT ZH,U;"U=UPDATE OS"
515 PRINT AT ZV,U;"B=BROWSE WEB"
516 PRINT AT ZE,U;"L=LIBRARY"
517 PRINT AT ZG,U;"F=FILES"
518 RETURN
519 IF N=Z THEN RETURN
520 GOSUB 69
521 IF D=Z THEN RETURN
522 IF N$=".." THEN GOTO 543
523 IF N$(D)="/" THEN GOTO 534
524 IF N$(D)<>"P" THEN GOTO 532
525 IF D<ZC THEN GOTO 532
526 IF N$(D-R)<>"." THEN GOTO 532
527 GOSUB 84
528 GOSUB 95
529 PRINT AT ZQ,Z;"LOADING ";N$;B$( TO ZK);
530 LOAD N$
531 RETURN
532 PRINT AT ZQ,Z;"NOT A .P FILE";B$( TO ZH);
533 RETURN
534 LET N$=N$( TO D-R)
535 LET Q$=Q$+N$+"/"
536 GOSUB 61
537 LET P=P+R
538 POKE ZU,Z
539 POKE ZW,Z
540 GOSUB 54
541 GOSUB 504
542 RETURN
543 GOSUB 489
544 RETURN
545 LPRINT "GET DAT"
546 LET X=USR 17469
547 GOSUB 549
548 RETURN
549 LPRINT "GET TIM"
550 LET X=USR 17486
551 RETURN