home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / basic / library / gwbasic / friendly / menu2.bas < prev    next >
Encoding:
BASIC Source File  |  1994-05-25  |  2.8 KB  |  40 lines
  1. 20 FOR A=1 TO 10:KEY A,"":NEXT:KEY OFF:WIDTH 80:SCREEN 0,0,0:ON ERROR GOTO 310:ON KEY(10) GOSUB 310:KEY(10) ON
  2. 30 GOSUB 370
  3. 40 LOCATE 8,5:COLOR 0,7:PRINT" A ":LOCATE 10,5:PRINT" B ":LOCATE 12,5:PRINT" C ":LOCATE 14,5:PRINT" D ":LOCATE 16,5:PRINT" E ":LOCATE 8,31:PRINT" F ":LOCATE 10,31:PRINT" G ":LOCATE 12,31:PRINT" H ":LOCATE 14,31:PRINT" I ":LOCATE 16,31:PRINT" J "
  4. 50 LOCATE 8,57:PRINT" K ":LOCATE 10,57:PRINT" L ":LOCATE 12,57:PRINT" M ":LOCATE 14,57:PRINT" N ":LOCATE 16,57:PRINT" O "
  5. 60 LOCATE 8,9:COLOR 6,0:PRINT"Wildcatter":LOCATE 10,9:PRINT"Othello":LOCATE 12,9:PRINT"Peg Leap":LOCATE 14,9:PRINT"Blackjack":LOCATE 16,9:PRINT"Dominoes":LOCATE 8,35:PRINT"PC Golf":LOCATE 10,35:PRINT"Head Coach":LOCATE 12,35:PRINT"Match"
  6. 70 LOCATE 14,35:PRINT"You Draw It":LOCATE 16,35:PRINT"Towers Of Atlantis":LOCATE 8,61:PRINT"Personal Biorhythms":LOCATE 10,61:PRINT"Sports Predicting":LOCATE 16,61:PRINT"Return To DOS":LOCATE 12,61:PRINT"Intro Menu #1":LOCATE 14,61:PRINT"Intro Menu #3"
  7. 80 GOSUB 390
  8. 90 COLOR 4:LOCATE 22,2:PRINT"╔"STRING$(37,"═")"╤╤"STRING$(37,"═")"╗"
  9. 100 PRINT" ║"TAB(7);:COLOR 0,7:PRINT"    AVAILABLE ON MENU ONE    ";:COLOR 4,0:PRINT TAB(40)"││"TAB(45);:COLOR 0,7:PRINT"    AVAILABLE ON MENU THREE    ";:COLOR 4,0:PRINT TAB(79)"║"
  10. 110 PRINT" ║";:COLOR 2:PRINT TAB(11)"Introduction & Games"TAB(40);:COLOR 4:PRINT"││"TAB(48);:COLOR 2:PRINT"Home Finance & Analytical";:COLOR 4:PRINT TAB(79)"║";
  11. 120 LOCATE 25,2:PRINT"╚"STRING$(37,"═")"╧╧"STRING$(37,"═")"╝";:COLOR 3,0
  12. 130 GOSUB 350:IF RP$<"A" OR RP$>"O" THEN 130 ELSE ON ASC(RP$)-64 GOTO 140,150,160,170,180,190,200,210,220,230,240,250,270,280,260
  13. 140 RUN"WILDCAT"
  14. 150 RUN"OTHELLO"
  15. 160 RUN"PEGLEAP"
  16. 170 RUN"21"
  17. 180 RUN"DOMINOES"
  18. 190 RUN"GOLF"
  19. 200 RUN"FOOTBALL"
  20. 210 RUN"MATCH"
  21. 220 RUN"DRAW"
  22. 230 RUN"TOWERS"
  23. 240 RUN"BIO"
  24. 250 RUN"STATS"
  25. 260 CLEAR:ON ERROR GOTO 261:RUN"menu2"
  26. 261 CLS:SYSTEM
  27. 270 ON ERROR GOTO 290:RUN"MENU1"
  28. 280 ON ERROR GOTO 300:RUN"MENU3"
  29. 290 CLEAR:ON ERROR GOTO 310:GOSUB 330:RUN"MENU1"
  30. 300 CLEAR:ON ERROR GOTO 310:GOSUB 330:RUN"MENU3"
  31. 310 RUN
  32. 320 RETURN 20
  33. 330 LOCATE 19,1:PRINT SPC(79):COLOR 0,7:LOCATE 19,14:PRINT"Please Insert Other Diskette And Strike Any Key When Ready":COLOR 7,0
  34. 340 GOSUB 350:LOCATE 19,1:PRINT SPC(79):GOSUB 390:RETURN
  35. 350 IF INKEY$<>"" THEN 350
  36. 360 DEF SEG=&H40:POKE &H17,(PEEK(&H17) OR 96):RP$=INKEY$:IF RP$="" THEN 360 ELSE RETURN
  37. 370 COLOR 12,0:CLS:LOCATE 1,20,0:PRINT STRING$(43,"─"):LOCATE 3,20:PRINT STRING$(43,"─"):LOCATE 1,19:PRINT"┌":LOCATE 1,63:PRINT"┐":LOCATE 3,63:PRINT"┘":LOCATE 3,19:PRINT"└":LOCATE 2,19:PRINT"│"SPC(43)"│":COLOR 0,7
  38. 380 LOCATE 2,29:PRINT" F R I E N D L Y W A R E ":COLOR 3,0:LOCATE 5,24:PRINT"Programs Available From This Menu":RETURN
  39. 390 LOCATE 19,14:COLOR 15:PRINT"*****";:COLOR 3,0:PRINT" Strike Key Corresponding To Program Desired ";:COLOR 15:PRINT"*****":COLOR 3:RETURN
  40.