|
DataMuseum.dkPresents historical artifacts from the history of: CP/M |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about CP/M Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 6144 (0x1800)
Types: TextFile
Names: »GOLFINST.BAS«
└─⟦69a509965⟧ Bits:30005211 CR8 BASIC Games
└─ ⟦this⟧ »GOLFINST.BAS«
1 REM *** MENU02.BAS *** PROGRAMS FROM INTEL SYSTEM *** 10 OPEN "O",#1,"GOLFDIR.DAT" 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" 2220 PRINT "HORSE ------ GAME welcome to the race track" 2230 PRINT "REVRSE ----- GAME a reverse strategy game" 2240 PRINT "MMIND ------ GAME are you a master mind?" 2250 PRINT "ASEYDU ----- GAME card_play 'acay-ducey'" 2260 PRINT "BANDIT ----- GAME jackpot, IMULATION OF SLOT MACHINE USING A COMPUTER" 2270 PRINT "CRAP ------- GAME jackpot version" 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" 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 "FOOTKBL ---- PDP 11 BASIC DEMO" 2410 PRINT "BIORYTHM --- " 2420 RETURN 2600 PRINT:PRINT SPC(30);"MATH AND DIALOG 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 " 2700 PRINT "CIVIL ------ DIALOG civil war simulation" 2710 PRINT "KENO ------- DIALOG 'Humurabi the wise' ARCES, PEOPLE AND BUSHELS" 2720 PRINT "HAMURS ----- DIALOG 'KENO' version ???" 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" 2795 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 " 2860 PRINT "PANTBRV----- ECONOMY " 2990 RETURN 3000 PRINT:PRINT SPC(30);"BASIC MAIN MENU":PRINT:PRINT 3010 PRINT "SELECT ONE OF FOLLOWING SECTION":PRINT:PRINT 3020 PRINT "1. BASIC-80 AND MBASIC INTRODUCTION":PRINT 3030 PRINT "2. GAMES":PRINT 3040 PRINT "3. MATH AND DIALOGS":PRINT 3050 PRINT "4. ECONOMY":PRINT:PRINT 3060 INPUT "select nr.";A 3070 FOR J=1 TO 25 3080 PRINT 3090 NEXT J 3100 IF A = 1 THEN GOTO 3200 3110 IF A = 2 THEN GOTO 3300 3120 IF A = 3 THEN GOTO 3400 3130 GOTO 910 3200 GOSUB 1200 3210 GOTO 4000 3300 GOSUB 2200 3310 GOTO 4000 3400 GOSUB 2600 3410 GOTO 4000 3500 GOSUB 2800 4000 RETURN «eof»