home *** CD-ROM | disk | FTP | other *** search
/ ftp.barnyard.co.uk / 2015.02.ftp.barnyard.co.uk.tar / ftp.barnyard.co.uk / cpm / walnut-creek-CDROM / MBUG / MBUG180.ARC / SELECT < prev    next >
Text File  |  1979-12-31  |  384b  |  13 lines
  1. 5000 H=INT((64-LEN(M0$(0)))/2)
  2. 5010 CLS
  3. 5060 curs(h,2):PRINT M0$(0)
  4. 5100 FOR J=5 TO 5+N :curs(23,J):PRINT M0$(j-6);:NEXT J
  5. 5130 curs(15,15):PRINT " What is your selection .. ";
  6. 5190 K0$=KEY:IF K0$="" THEN 5190
  7. 5200 if asc(k0$)<49 or asc(k0$)>49+n then play 20,2
  8. 5210 m=asc(k0$)-48
  9. 5330 RETURN
  10. 0 RETURN
  11. 4360 BG=BG-1:IF BG<0  THEN BG=15
  12. 4370 RETURN
  13. 4400 CHANGE=1:IF FLAG=1