home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
French Postcards Plus
/
350a_French_Postcards.dsk
/
MENU.bas
< prev
next >
Wrap
BASIC Source File
|
2020-07-23
|
2KB
|
66 lines
10 REM SELECTION MENU
20 TEXT : HOME
30 PRINT "========================================"
40 PRINT " Bayou Bic along with the I.O. Master "
50 HTAB 17: PRINT "present:"
55 PRINT
60 HTAB 10: PRINT "FRENCH POST CARDS PLUS"
65 PRINT
70 PRINT "========================================"
100 REM ENTER SELECTIONS
105 PRINT
110 HTAB 4: PRINT "1) AT THE BEACH"
120 HTAB 4: PRINT "2) THE SINGLE'S SCENE"
130 HTAB 4: PRINT "3) GROCERY GOODIES"
140 HTAB 4: PRINT "4) THREE-WAY FUN"
150 HTAB 4: PRINT "5) SALES CLERK FANTASY"
160 HTAB 4: PRINT "6) A TONGUE LASHING"
170 HTAB 4: PRINT "7) TEACHER'S LESSON"
180 HTAB 4: PRINT "8) BETTER THAN PICTURES"
190 HTAB 4: PRINT "9) END"
210 VTAB 22
220 HTAB 9
230 PRINT "ENTER SELECTION (1-9) ";: INPUT N
240 IF N <1 OR N >9 THEN 210
290 REM ----------------------
300 REM ENTER CTRL D'S
310 REM TO RUN PROGRAM
320 REM SECTIONS -------------
330 IF N = 1 THEN 500
340 IF N = 2 THEN 600
350 IF N = 3 THEN 700
360 IF N = 4 THEN 800
370 IF N = 5 THEN 900
380 IF N = 6 THEN 1000
390 IF N = 7 THEN 1100
400 IF N = 8 THEN 1200
410 IF N = 9 THEN 1900
500 PRINT CHR$(4);"RUN BEACH SCENE"
600 GOSUB 2000
610 PRINT CHR$(4);"RUN SINGLE SCENE"
700 GOSUB 2000
710 PRINT CHR$(4);"RUN BALONEE SCENE"
800 GOSUB 2000
810 PRINT CHR$(4);"RUN FOR & AFT SCENE"
900 GOSUB 2000
910 PRINT CHR$(4);"RUN SIXTY-NINE SCENE"
1000 REM SPOT FOR CHOICE 6
1010 GOSUB 2000
1020 PRINT CHR$(4);"RUN LICK SCENE"
1100 REM SPOT FOR CHOICE 7
1110 GOSUB 2000
1120 PRINT CHR$(4);"RUN TEACHER SCENE"
1200 REM SPOT FOR CHOICE 8
1210 GOSUB 2000
1220 PRINT CHR$(4);"RUN FRENCH SCENE"
1900 END
1990 REM *********************
2000 FOR I = 770 TO 790
2010 READ J
2020 POKE I,J
2030 NEXT
2040 DATA 173,48,192,136,208,5
2050 DATA 206,1,3,240,9,202,208
2060 DATA 245,174,0,3,76,2,3,96
2070 RETURN
2080 REM *********************