8bitfiles.net/archives/archives.tar/archives/commodore-scene-files/Geos/GEOS128/GeosD81/CS82.D81/sidmenu

Commodore BASIC | 2019-04-13 | 2.6 KB | 82 lines

5 PRINTCHR$(142)
10 GOSUB275
15 GETA$:IFA$=""THEN15
20 IFA$="A"THENL$="SID EDITOR":GOTO395
25 IFA$="B"THENL$="SIDPRINT":GOTO395
30 IFA$="C"THENL$="SID EXTRACT":GOTO395
35 IFA$="D"THENL$="SID MERGE":GOTO395
40 IFA$="E"THENL$="SS-WDS":GOTO395
45 IFA$="F"THENL$="SIDPIC V2.5":GOTO395
50 IFA$="G"THENL$="SID PLAYER.BOOK":GOTO395
55 IFA$="H"THENL$="SID PLAYER":GOTO395
60 IFA$="I"THENL$="MAGIC SID V2.2":GOTO395
65 IFA$="J"THENL$="SID SINGALONG":GOTO395
70 IFA$="K"THENGOSUB175:GOTO85
75 IFA$="X"THENSYS64738
80 GOTO15
85 GETA$:IFA$=""THEN85
90 IFA$="A"THENL$="SID EDITOR DOCS":GOTO120
95 IFA$="B"THENL$="SIDPIC.DOC V1.2":GOTO120
100 IFA$="C"THENL$="SINGALONG.DOC":GOTO120
105 IFA$="D"THEN10
110 IFA$="X"THENSYS64738
115 GOTO85
120 PRINTCHR$(14)"[147] [208]RESS [211][208][193][195][197][146] TO PAUSE, [210][197][212][213][210][206][146] TO ABORT"
125 PRINT"[153]"
130 OPEN8,8,8,L$+",S,R":FORI=0TO1:GET#8,P$:I=ST:PRINTP$;
135 GETR$:IFR$=" "THEN150
140 IFR$=CHR$(13)THEN160
145 R$="":GOTO155
150 GETR$:IFR$<>" "THEN150
155 NEXT I
160 CLOSE8:PRINT:PRINT"    PRESS ANY KEY TO RETURN TO MENU"
165 GETR$:IFR$=""THEN165
170 PRINTCHR$(142):GOSUB175:GOTO85
175 POKE53280,11:POKE53281,0:PRINT"[147]";
180 PRINT"[213][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][201]"
185 PRINT"[221] MORE [153]SIDPLAYER [221]"
190 PRINT"[221]    [150]SONGS [156]&     [221]"
195 PRINT"[221]   [158]COMPOSER'S   [221]"
200 PRINT"[221]      HELP      [221]"
205 PRINT"[202][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][203]"
210 PRINT"D O C U M E N T A T I O N"
215 PRINT"[156]DOCUMENTATION IS AVAILABLE"
220 PRINT"ON THE FOLLOWING:"
225 PRINT"[152][A] [155]SIDPLAYER EDITOR"
230 PRINT"[152][B] [155]SIDPIC"
235 PRINT"[152][C] [155]SID SINGALONG AND [158].WDS [155]MAKER"
240 PRINT"[156]OR"
245 PRINT"[153][D] GO BACK TO MAIN MENU              "
250 PRINT"[150][X] BACK TO BASIC                     "
255 PRINT"[151][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]"
260 PRINT"      DONATED BY TONY HERRINGTON      [146]";
265 RETURN
270 REM
275 POKE53280,11:POKE53281,0:PRINT"[147]";
280 PRINT"[213][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][201]"
285 PRINT"[221] MORE [153]SIDPLAYER [221]"
290 PRINT"[221]    [150]SONGS [156]&     [221]"
295 PRINT"[221]   [158]COMPOSER'S   [221]"
300 PRINT"[221]      HELP      [221]"
305 PRINT"[202][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][203]"
310 PRINT"C O M P O S I T I O N"
315 PRINT"[152][A] [155]SIDPLAYER EDITOR"
320 PRINT"[152][B] [155]SONG PRINTER"
325 PRINT"[152][C] [155]SID EXTRACT"
330 PRINT"[152][D] [155]SID MERGE"
335 PRINT"[152][E] [158].WDS [155]MAKER (FROM [153]S[158]PEED[153]S[158]CRIPT [155]FILE)"
340 PRINT"P E R F O R M A N C E"
345 PRINT"[152][F] [155]SIDPIC V2.5              [150][X]BACK  "
350 PRINT"[152][G] [155]ORIGINAL SIDPLAYER       TO BASIC "
355 PRINT"[152][H] [155]SIDPLAYER WITH KEYBOARD"
360 PRINT"[152][I] [155]MAGIC SID V2.2           [156]LOAD A   "
365 PRINT"[152][J] [155]SID SINGALONG            [156]PLAYER TO"
370 PRINT"HEAR THE "
375 PRINT"[152][K] [155]READ DOCUMENTATION       [156]SONGS.   "
380 PRINT"[151][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]"
385 PRINT"      DONATED BY TONY HERRINGTON      [146]";
390 RETURN
395 PRINT"[147]LOAD"CHR$(34);L$;CHR$(34);",8,1"
400 PRINT"RUN";
405 POKE631,13:POKE632,13:POKE198,2:NEW