/[projet1]/public/oric/mym_player/main.bas
Defence Force logotype

Diff of /public/oric/mym_player/main.bas

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1073 by dbug, Sun Jan 12 19:46:23 2014 UTC revision 1074 by dbug, Sun Jan 12 20:10:56 2014 UTC
# Line 6  Line 6 
6  60 REM  60 REM
7  70 HIMEM #6000  70 HIMEM #6000
8  80 TEXT:PAPER4:INK6:CLS  80 TEXT:PAPER4:INK6:CLS
 90 GOSUB 1000  
9  100 PRINT "Loading music player"  100 PRINT "Loading music player"
10  110 LOAD"MYMPLAYER.BIN"  110 LOAD"MYMPLAYER.BIN"
11  120 PRINT"Music choice: 1 to 6 Space:Quit"  120 CLS:GOSUB 1000:PRINT:PRINT"Number:Select music    Space:Quit"
12  130 GET A$  130 GET A$
13  140 IF A$>="1" OR A$<="6" THEN GOTO 200  140 IF A$=" " THEN END
14  145 IF A$=" " THEN CALL#6503:TEXT:END  145 IF A$>="1" OR A$<="7" THEN GOTO 200
15  150 GOTO 120  150 GOTO 120
16  160 REM  160 REM
17  170 REM Loading music  170 REM Loading music
# Line 34  Line 33 
33  1040 PRINT"CHOOSE THE MUSIC:"  1040 PRINT"CHOOSE THE MUSIC:"
34  1050 PRINT"1-Bubble Bobble"  1050 PRINT"1-Bubble Bobble"
35  1060 PRINT"2-Great Giana Sisters"  1060 PRINT"2-Great Giana Sisters"
36  1070 PRINT"3-Rainbow Islands"  1070 PRINT"3-Rainbow Islands (Broken)"
37  1080 PRINT"4-Pac Mania"  1080 PRINT"4-Pac Mania"
38  1090 PRINT"5-R-Type (broken)"  1090 PRINT"5-Tetris"
39  1100 PRINT"6-Speedball"  1100 PRINT"6-Speedball"
40    1100 PRINT"7-Nebulus"
41  1500 RETURN  1500 RETURN
42    

Legend:
Removed from v.1073  
changed lines
  Added in v.1074

  ViewVC Help
Powered by ViewVC 1.1.26