DataMuseum.dk

top - download

    Length: 6656 (0x1a00)
    Types: TextFile
    Names: »MENU.BAS«

└─⟦69a509965⟧ Bits:30005211 CR8 BASIC Games
    └─ ⟦this⟧ »MENU.BAS« 

TextFile

1 REM *** MENU02.BAS *** PROGRAMS FROM INTEL AND PDP/VAX SYSTEM ***
10 CLEAR 600
20 FOR J = 1 TO 24
22  PRINT
24 NEXT J
30 GOSUB 3000
34 PRINT
40 ON ERROR GOTO 190
50 INPUT "FILENAME";P$
55 P$=P$+".BAS"
60 INPUT"WOULD YOU LIKE A LISTING OF THE FILE(Y OR N)";AN$
70 IF AN$<>"Y" THEN 150
72 FOR J = 1 TO 25
74  PRINT
76 NEXT J
80 REM FILE IS READ SEQUENTIALLY
90 OPEN "I",1,P$
100 IF EOF(1) THEN 140
110 LINE INPUT #1,A$
120 PRINT A$
130 GOTO 100
140 CLOSE #1
150 PRINT:INPUT"WOULD YOU LIKE TO RUN THIS PROGRAM(Y OR N)";AN$
160 IF AN$<>"Y" THEN 20
170 RUN P$
180 END
190 PRINT:PRINT"SORRY - WRONG FILE"
200 INPUT"DO YOU WANT TO TRY AGAIN(Y OR N)";AN$
210 IF AN$ = "Y" THEN 20
910 PRINT
920 FOR J = 1 TO 25 
930   PRINT 
940 NEXT J
950 PRINT" BBBBB      AAAA      SSSSS    IIIIII     CCCCC               8888      0000 "
960 PRINT" B    B    A    A    S           II      C                   8    8    0    0"
970 PRINT" BBBBB     AAAAAA    SSSSSS      II      C         ******     8888     0    0"
980 PRINT" B    B    A    A         S      II      C                   8    8    0    0"
990 PRINT" BBBBB     A    A    SSSSS     IIIIII     CCCCC               8888      0000"
1000 FOR J = 1 TO 8
1010   PRINT
1020 NEXT J
1030 INPUT "(continue)";A$
1040 FOR J =1 TO 20
1050   PRINT
1060 NEXT J
1080 GOTO 10
1200 PRINT:PRINT SPC(30);"INTEL BASIC MENU":PRINT
1210 PRINT "FILENAME"
1220 PRINT "INTRO ------ BASIC-80 introduction"
2000 PRINT "PORT ------- BASIC-80 port input and output"
2010 PRINT "MEMORY ----- BASIC-80 direct memory access"
2020 PRINT "NUMBER ----- BASIC-80 the four variable types"
2030 PRINT "CHRSTR ----- BASIC-80 some character manipulation functions"
2040 PRINT "ASCII ------ BASIC-80 PRINT statements and FOR loops"
2050 PRINT "PLOT-------- BASIC-80 graphic capability of Basic-80"
2060 PRINT "SEQ -------- BASIC-80 sequential file I/O example"
2070 PRINT "AMAZE ------ BASIC-80 a dazzling display of the ease of Basic-80
2080 PRINT "RAND ------- BASIC-80 random file I/O example"
2090 PRINT "PAY -------- ECONOMY  a payroll file possibility"
2100 PRINT "BOOK ------- ECONOMY  a complex book keeping example"
2105 PRINT "LINREG ----- MATH     a Basic program that uses linear regression "
2110 PRINT "PLOTX ------ MATH     user defined plot program"
2120 PRINT "STAT ------- MATH     a short statistics program"
2130 PRINT "LIFE ------- MATH     algorithm for social existence"
2140 PRINT "HORSE ------ GAME     welcome to the race track"
2150 PRINT "REVRSE ----- GAME     a reverse strategy game"
2160 PRINT "MMIND ------ GAME     are you a master mind?"
2170 RETURN
2200 PRINT:PRINT SPC(30);"BASIC GAME MENU":PRINT
2210 PRINT "FILENAME"
2215 PRINT "BAKGAM ----- GAME     bakgammon"
2220 PRINT "HORSE ------ GAME     welcome to the race track"
2230 PRINT "REVRSE ----- GAME     a reverse strategy game"
2250 PRINT "ASEYDU ----- GAME     card_play 'acay-ducey'"
2260 PRINT "BANDIT ----- GAME     jackpot, simulation of slot machine using a computer"
2270 PRINT "CRAP ------- GAME     "
2280 PRINT "BOWL ------- GAME     pin play  up to 4 people play 'TEN PIN BOWLING'"
2290 PRINT "NIMM ------- GAME     pin play"
2300 PRINT "GOLF ------- GAME     golf"
2310 PRINT "GOLFINST --- GAME     installation file to generate 'GOLF.DAT' ???"
2320 PRINT "GOMOKO ----- GAME     N*N grid of size"
2325 PRINT "MMIND ------ GAME     mastermind are you a master mind?"
2330 PRINT "MAST ------- GAME     mastermind (bad)"
2340 PRINT "MASTERMN --- GAME     mastermind (good)"
2350 PRINT "HURKLE ----- GAME     guess X,Y koordinate"
2360 PRINT "NICOMA ----- GAME     let the computer guess your number"
2370 PRINT "PONT ------- GAME     card play"
2380 PRINT "SALVO1 -----          BATTLEFIELD with four platoons"
2400 PRINT "FOOTBKL ---- PDP 11   BASIC DEMO"
2410 PRINT "BIORYTHM ---         "
2420 RETURN
2600 PRINT:PRINT SPC(30);"MATH BASIC MENU":PRINT
2605 PRINT "FILENAME"
2610 PRINT "GUNNER ----- MATH     the result of firing a field artillery weapon"
2620 PRINT "MATHS ------ MATH     simple calculator +/-"
2630 PRINT "PLT1 ------- MATH     X - Y plot of a function"
2640 PRINT "PLT2 ------- MATH     X - Y pl t of a function"
2650 PRINT "SLIN ------- MATH     liniear regreasion"
2660 PRINT "LINREG ----- MATH     a Basic program that uses linear regression "
2670 PRINT "PLOTX ------ MATH     user defined plot program"
2680 PRINT "STAT ------- MATH     a short statistics program"
2690 PRINT "LIFE ------- MATH     algorithm for social existence"
2695 PRINT "OSTA ------- MATH     VISCOSERY EXPERIMENT ROMTEMP "
2699 RETURN
2700 PRINT:PRINT SPC(30);"DIALOG BASIC MENU":PRINT
2705 PRINT "FILENAME"
2710 PRINT "CIVIL ------ DIALOG   civil war simulation"
2712 PRINT "KENO ------- DIALOG   keno"
2720 PRINT "HAMUR ------ DIALOG   'Humurabi the wise' ARCES, PEOPLE AND BUSHELS"
2722 PRINT "HAMURS ----- DIALOG        -"
2724 PRINT "HAMUR01 ---- DIALOG        -"
2726 PRINT "HAMUR02 ---- DIALOG        -  PDP/VAX"
2730 PRINT "MARKET ----- DIALOG   a company on the market"
2740 PRINT "CARS ------- DIALOG   car reg. nr, make  and colour"
2750 PRINT "KNEE ------- DIALOG   "
2760 PRINT "KNEE2 ------ DIALOG   "
2770 PRINT "PEEL ------- DIALOG   "
2780 PRINT "APTI ------- DIALOG   adp aptitude test"
2790 PRINT "POETRY ----- DIALOG   poet by A. COM PUTER"
2792 PRINT "LUNAR1 ----- DIALOG   lunar lander"
2794 PRINT "LUNAR2 ----- DIALOG   more difficult lunar lander"
2795 PRINT "KING-------- DIALOG   be your own royalty"
2796 PRINT "STARTREK---- DIALOG   space, the final frontier"
2798 RETURN
2800 PRINT:PRINT SPC(30);"BASIC ECONOMY MENU":PRINT
2805 PRINT "FILENAME"
2810 PRINT "PANTBRV----- ECONOMY  "
2820 PRINT "AARPAN ----- ECONOMY  "
2830 PRINT "BANKLAN ---- ECONOMY  "
2840 PRINT "POPANT ----- ECONOMY  "
2850 PRINT "PAHPAN ----- ECONOMY  "
2990 RETURN
3000 PRINT:PRINT SPC(30);"BASIC MAIN MENU":PRINT:PRINT
3010 PRINT "SELECT ONE OF FOLLOWING SECTION":PRINT:PRINT
3011 PRINT "1.  BASIC-80 AND MBASIC INTRODUCTION":PRINT
3012 PRINT "2.  GAMES":PRINT
3013 PRINT "3.  MATH":PRINT
3014 PRINT "4.  DIALOGS":PRINT
3015 PRINT "5.  ECONOMY":PRINT:PRINT
3060 INPUT "select nr.";A
3070 FOR J=1 TO 25
3080  PRINT
3090 NEXT J
3111 IF A = 1 THEN GOTO 3200
3112 IF A = 2 THEN GOTO 3300
3113 IF A = 3 THEN GOTO 3400
3114 IF A = 4 THEN GOTO 3500
3115 IF A = 5 THEN GOTO 3600
3140 GOTO 910
3200 GOSUB 1200
3210 GOTO 4000
3300 GOSUB 2200
3310 GOTO 4000
3400 GOSUB 2600
3410 GOTO 4000
3500 GOSUB 2700
3510 GOTO 4000
3600 GOSUB 2800
4000 RETURN
«eof»