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