Compucolor.org – Virtual Media

Listing of file='BMENU.BAS;01' on disk='vmedia/chip_81-sector.ccvf'

200 PLOT  27,24
202 PLOT  30,16
204 PLOT  12,15
206 PLOT  30,23,29,17
208 PLOT  2,41,86,242,4,123,3,123,41,85,41,84,2,123,2,122,40,84,39,84,2,121,255
210 PLOT  2,39,123,242,2,86,2,85,40,123,41,123,2,84,3,84,41,122,41,121,4,84,255
212 PLOT  30,23
214 FOR  Y= 1 TO  10
216 PLOT  3,9,Y
218 PRINT "    "
220 NEXT  Y
222 PLOT  3,1,5
224 PRINT "                    "
226 PLOT  3,1,6
228 PRINT "                    "
230 PLOT  30,23,29,17
232 PLOT  2,41,102,242,2,102,2,103,41,103,41,104,2,104,2,105,41,105,255
234 PLOT  30,17
236 FOR  Y= 1 TO  10
238 PLOT  3,10,Y
240 PRINT "  "
242 NEXT  Y
244 PLOT  30,23,29,20
246 FOR  I =  0 TO  9
248 PLOT  2,(17- I),84,242,17,(84+ I),255
250 PLOT  2,(2+ I),99,242,2,(99- I),255
252 PLOT  2,(2+ I),108,242,2,(108+ I),255
254 PLOT  2,(17- I),123,242,17,(123- I),255
256 PLOT  2,(26+ I),123,242,26,(123- I),255
258 PLOT  2,(41- I),108,242,41,(108+ I),255
260 PLOT  2,(41- I),99,242,41,(99- I),255
262 PLOT  2,(26+ I),84,242,26,(84+ I),255
264 NEXT  I
266 PLOT  30,16,29,19
268 PLOT  2,1,124,242,1,83,126,83,126,124,2,124,255
270 PLOT  2,42,107,242,42,84,255
272 PLOT  30,20,29,19
274 PLOT  2,42,123,242,42,108,125,108,255
276 PLOT  30,20,29,17,3,22,3,14
278 PRINT "  C C II  U S E R  G R O U P   ( U K )   "
280 PLOT  3,22,1,15
282 PRINT "                                         "
284 PLOT  30,16,29,18,3,25,6
286 PRINT  "U K DISC LIBRARY    COPYRIGHT 1982"
288 PLOT  3,25,9
290 PRINT  "VOLUME NO. :        DISC NO. :"
292 PLOT  30,16,29,17
294 PLOT  3,38,9
296 PRINT  "01"
298 PLOT  3,56,9
300 PRINT "54"
302 PLOT  30,16,29,18
304 PLOT  3,0,12
305 PRINT :PRINT
306 PRINT TAB( 22)"1...INSTRUCTIONS"
307 PRINT "SET UP FOR V8.79":PRINT
308 PRINT TAB( 22)"2...SAMPLER DEMO-NOT IMPEMENTED"
309 PRINT "SEE INSTRUCTIONS":PRINT
310 PRINT TAB( 22)"3...FILES CREATES RECORDS"
311 PRINT "FOR V6.78 MODS":PRINT
312 PRINT TAB( 22)"4...SELECT BIRTHDAYS,FAMILY"
314 PRINT TAB( 22)"    EVENTS BY MONTH, UPDATE"
316 PRINT TAB( 22)"    RECORDS IN THE EASIEST"
318 PRINT TAB( 22)"    WAY.A FUN PROGRAM BY"
320 PRINT TAB( 22)"    BERNIE RAFFE"
342 PLOT  30,16,29,22
344 PRINT
346 PRINT  TAB( 22)"PRESS NO. OF REQUIRED SELECTION ";
348 POKE  33278,255
350 S =  PEEK (33278)- 48
352 IF  S =  207 THEN 350
354 IF  S< 1 OR  S> 9 THEN 372
356 IF S> 0THEN 384
358 POKE  33278,255
360 FOR  I =  1 TO  150
362 S =  PEEK (33278)- 48
364 IF  S < >  207 THEN 370
366 NEXT  I
368 GOTO 382
370 IF  S= 0 OR  S= 1 OR  S= 2 THEN 378
372 PRINT  CHR$ (11)
374 PLOT  28,29,17
376 GOTO 346
378 S =  S+ 10
380 GOTO 384
382 S =  1
384 ON  S GOTO 386,388,390,392,394,396,398,400,402,404,406,408,410,412,414,416,418,420
386 LOAD "INSTRC":RUN
388 PLOT 27,4:PRINT "LOA FIELDS.PRG;1":PLOT 27,27:LOAD "BMENU":RUN
390 LOAD "FILES":RUN
392 PLOT 27,4:PRINT "LOA FIELDS.PRG;1":PLOT 27,27:LOAD "DIARY":RUN