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

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

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1074 - (show annotations)
Sun Jan 12 20:10:56 2014 UTC (5 years, 8 months ago) by dbug
File size: 1041 byte(s)
Added a bunch of musics to the arcade music mym demo player
1 10 REM Simple music player:
2 20 REM - Music files are loaded in $7600
3 30 REM - Register buffer in $6800
4 40 REM - Player binary code in $6500
5 50 REM Oric 1 compatible version
6 60 REM
7 70 HIMEM #6000
8 80 TEXT:PAPER4:INK6:CLS
9 100 PRINT "Loading music player"
10 110 LOAD"MYMPLAYER.BIN"
11 120 CLS:GOSUB 1000:PRINT:PRINT"Number:Select music Space:Quit"
12 130 GET A$
13 140 IF A$=" " THEN END
14 145 IF A$>="1" OR A$<="7" THEN GOTO 200
15 150 GOTO 120
16 160 REM
17 170 REM Loading music
18 180 REM
19 200 PRINT "Loading "+A$
20 210 LOAD"MUSIC"+A$+".BIN"
21 200 PRINT "Currently playing music "+A$
22 220 CALL#6500
23 230 PRINT"Press a key to continue"
24 240 GET A$
25 250 CALL#6503
26 270 GOTO 120
27 1000 REM
28 1001 REM MENU
29 1002 REM
30 1010 PRINT" WELCOME TO THE ORIC "
31 1020 PRINT"ARCADE MUSIC GREATEST HITS"
32 1030 PRINT
33 1040 PRINT"CHOOSE THE MUSIC:"
34 1050 PRINT"1-Bubble Bobble"
35 1060 PRINT"2-Great Giana Sisters"
36 1070 PRINT"3-Rainbow Islands (Broken)"
37 1080 PRINT"4-Pac Mania"
38 1090 PRINT"5-Tetris"
39 1100 PRINT"6-Speedball"
40 1100 PRINT"7-Nebulus"
41 1500 RETURN
42

  ViewVC Help
Powered by ViewVC 1.1.26