mirror of
https://github.com/mbirth/gwbasic.git
synced 2024-11-14 01:06:45 +00:00
160 lines
6.1 KiB
QBasic
160 lines
6.1 KiB
QBasic
10 MAX=75
|
||
20 PAUSE=0
|
||
30 KEY OFF
|
||
40 COLOR 12
|
||
50 DIM CD$(MAX)
|
||
60 DIM NAM$(MAX)
|
||
70 DIM INTP$(MAX)
|
||
80 DIM ART$(MAX)
|
||
90 DIM TR$(MAX)
|
||
100 DIM CART$(MAX)
|
||
110 DIM SONG$(MAX,30)
|
||
120 GOTO 180
|
||
130 LOCATE X,20:PRINT SPACE$(60)
|
||
140 LOCATE X,20:COLOR 15
|
||
150 RETURN
|
||
160 FOR Z=0 TO PAUSE:NEXT
|
||
170 RETURN
|
||
180 CLS
|
||
190 PRINT"CD-Player CSVread Utility"
|
||
200 PRINT
|
||
210 COLOR 10
|
||
220 PRINT"maximale Anzahl an CDs: ";MAX
|
||
230 PRINT
|
||
240 A=1
|
||
250 COLOR 14
|
||
260 PRINT USING"Lese aus CD.CSV... [###]";A
|
||
270 COLOR 11,1
|
||
280 IF A>1 THEN GOTO 300
|
||
290 OPEN "I",#1,"CD.CSV"
|
||
300 LOCATE 8,1:PRINT"CD-Referenz :"
|
||
310 LOCATE 9,1:PRINT"CD-Titel :"
|
||
320 LOCATE 10,1:PRINT"Interpret :"
|
||
330 LOCATE 11,1:PRINT"Musikart :"
|
||
340 LOCATE 12,1:PRINT"Custom Play :"
|
||
350 LOCATE 13,1:PRINT"CD-Art :"
|
||
360 LOCATE 14,1:PRINT"mom. Song :"
|
||
370 COLOR 13,0
|
||
380 LOCATE 6,1:PRINT"CD-Nummer ":GOSUB 160
|
||
390 IF A>MAX THEN GOTO 720
|
||
400 INPUT#1,CD$(A):IF CD$(A)="EOF" THEN GOTO 750
|
||
410 X=8:GOSUB 130:PRINT CD$(A):COLOR 13
|
||
420 LOCATE 6,1:PRINT"CD-Titel ":GOSUB 160
|
||
430 INPUT#1,NAM$(A)
|
||
440 X=9:GOSUB 130:PRINT NAM$(A):COLOR 13
|
||
450 LOCATE 6,1:PRINT"Interpret / Hersteller":GOSUB 160
|
||
460 INPUT#1,INTP$(A)
|
||
470 X=10:GOSUB 130:PRINT INTP$(A):COLOR 13
|
||
480 LOCATE 6,1:PRINT"Musikart ":GOSUB 160
|
||
490 INPUT#1,ART$(A)
|
||
500 X=11:GOSUB 130:PRINT ART$(A):COLOR 13
|
||
510 LOCATE 6,1:PRINT"CustomPlay-Reihenfolge":GOSUB 160
|
||
520 INPUT#1,TR$(A)
|
||
530 X=12:GOSUB 130:PRINT TR$(A):COLOR 13
|
||
540 LOCATE 6,1:PRINT"CD-Art ":GOSUB 160
|
||
550 INPUT#1,CART$(A)
|
||
560 X=13:GOSUB 130:PRINT CART$(A):COLOR 13
|
||
570 B=1
|
||
580 LOCATE 6,1:PRINT USING"Song ## ";B:GOSUB 160
|
||
590 INPUT#1,SONG$(A,B)
|
||
600 IF SONG$(A,B)="" THEN NOSONG=NOSONG+1
|
||
610 IF NOSONG>1 THEN NOSONG=0:GOTO 660
|
||
620 X=14:GOSUB 130:PRINT SONG$(A,B):COLOR 13
|
||
630 B=B+1
|
||
640 IF B>=31 THEN GOTO 700
|
||
650 GOTO 580
|
||
660 FOR Y=B+1 TO 30
|
||
670 INPUT#1,NUL
|
||
680 NEXT Y
|
||
690 GOTO 700
|
||
700 A=A+1
|
||
710 LOCATE 5,1:GOTO 250
|
||
720 COLOR 12
|
||
730 LOCATE 6,1:PRINT"Variabel ENDE erreicht, vergr<67><72>ern Sie den Wert!"
|
||
740 GOTO 760
|
||
750 COLOR 12:LOCATE 6,1:PRINT"EOF - End of File "
|
||
760 LOCATE 5,1
|
||
770 COLOR 14:PRINT USING"Lese aus CD.CSV... [###]";A-1
|
||
780 FOR Z=7 TO 14
|
||
790 LOCATE Z,1:PRINT SPACE$(80)
|
||
800 NEXT Z
|
||
810 MAXCD=A-1
|
||
820 LOCATE 8,1:COLOR 15:PRINT"Alle CDs eingelesen!!!"
|
||
830 PRINT
|
||
840 PRINT"Fertig!"
|
||
850 FOR Z=0 TO 50000!:NEXT
|
||
860 GOTO 1000
|
||
1000 CLS
|
||
1010 COLOR 12
|
||
1020 PRINT"CSV Memory Viewer"
|
||
1030 COLOR 10
|
||
1040 PRINT USING"maximale Anzahl an CDs : ###";MAX
|
||
1050 PRINT "CDs geladen : 1-"MAXCD
|
||
1060 PRINT
|
||
1070 COLOR 11:PRINT"Geben Sie eine Nummer ein:"
|
||
1080 COLOR 15:INPUT">>>",NUMB
|
||
1090 IF NUMB>0 AND NUMB<MAXCD+1 THEN GOTO 1110
|
||
1100 COLOR 12:PRINT"FEHLER!":LOCATE 5,1:GOTO 1070
|
||
1110 PRINT" "
|
||
1120 PRINT"Suche CD..."
|
||
1130 A=1
|
||
1140 COLOR 14
|
||
1150 LOCATE 9,1:PRINT NAM$(A)
|
||
1160 FOR Z=0 TO 2500:NEXT
|
||
1170 IF A=NUMB THEN GOTO 1200
|
||
1180 A=A+1
|
||
1190 GOTO 1150
|
||
1200 COLOR 10:PRINT"Gefunden."
|
||
1210 FOR Z=0 TO 1000:NEXT
|
||
1220 CLS
|
||
1230 NUM=NUMB
|
||
1240 COLOR 11,1
|
||
1250 PRINT USING"CD-Referenz : \ \ Custom Play : \ \";CD$(NUM);TR$(NUM)
|
||
1260 PRINT USING"CD-Titel : \ \ Musikart : \ \";NAM$(NUM);ART$(NUM)
|
||
1270 PRINT USING"Interpret : \ \ CD-Art : \ \";INTP$(NUM);CART$(NUM)
|
||
1280 PRINT
|
||
1290 PRINT USING"Song 01: \ \ Song 16: \ \";SONG$(NUM,1);SONG$(NUM,16)
|
||
1300 PRINT USING"Song 02: \ \ Song 17: \ \";SONG$(NUM,2);SONG$(NUM,17)
|
||
1310 PRINT USING"Song 03: \ \ Song 18: \ \";SONG$(NUM,3);SONG$(NUM,18)
|
||
1320 PRINT USING"Song 04: \ \ Song 19: \ \";SONG$(NUM,4);SONG$(NUM,19)
|
||
1330 PRINT USING"Song 05: \ \ Song 20: \ \";SONG$(NUM,5);SONG$(NUM,20)
|
||
1340 PRINT USING"Song 06: \ \ Song 21: \ \";SONG$(NUM,6);SONG$(NUM,21)
|
||
1350 PRINT USING"Song 07: \ \ Song 22: \ \";SONG$(NUM,7);SONG$(NUM,22)
|
||
1360 PRINT USING"Song 08: \ \ Song 23: \ \";SONG$(NUM,8);SONG$(NUM,23)
|
||
1370 PRINT USING"Song 09: \ \ Song 24: \ \";SONG$(NUM,9);SONG$(NUM,24)
|
||
1380 PRINT USING"Song 10: \ \ Song 25: \ \";SONG$(NUM,10);SONG$(NUM,25)
|
||
1390 PRINT USING"Song 11: \ \ Song 26: \ \";SONG$(NUM,11);SONG$(NUM,26)
|
||
1400 PRINT USING"Song 12: \ \ Song 27: \ \";SONG$(NUM,12);SONG$(NUM,27)
|
||
1410 PRINT USING"Song 13: \ \ Song 28: \ \";SONG$(NUM,13);SONG$(NUM,28)
|
||
1420 PRINT USING"Song 14: \ \ Song 29: \ \";SONG$(NUM,14);SONG$(NUM,29)
|
||
1430 PRINT USING"Song 15: \ \ Song 30: \ \";SONG$(NUM,15);SONG$(NUM,30)
|
||
1440 COLOR 15
|
||
1450 LOCATE 25,1
|
||
1460 COLOR 12
|
||
1470 PRINT"+ - 1 CD weiter / - - 1 CD zur<75>ck";:COLOR 10:PRINT USING" CD [###]";NUM;
|
||
1480 LOCATE 1,1
|
||
1490 A$=INKEY$:IF A$="" THEN 1490
|
||
1500 IF A$="+" THEN GOTO 1530
|
||
1510 IF A$="-" THEN GOTO 1570
|
||
1520 GOTO 1490
|
||
1530 IF NUM+1>MAXCD THEN GOTO 1490
|
||
1540 NUM=NUM+1
|
||
1550 GOSUB 1610
|
||
1560 LOCATE 1,1:GOTO 1240
|
||
1570 IF NUM-1<1 THEN GOTO 1490
|
||
1580 NUM=NUM-1
|
||
1590 GOSUB 1610
|
||
1600 LOCATE 1,1:GOTO 1240
|
||
1610 REM Unterroutine
|
||
1620 COLOR 14
|
||
1630 LOCATE 24,1
|
||
1640 A=1
|
||
1650 PRINT USING"\ \";NAM$(A);
|
||
1660 FOR Z=0 TO 1000:NEXT
|
||
1670 IF A=NUM THEN 1700
|
||
1680 A=A+1
|
||
1690 LOCATE 24,1:GOTO 1650
|
||
1700 COLOR 12:LOCATE 24,70:PRINT"Gefunden.";
|
||
1710 LOCATE 24,1:PRINT SPACE$(78);
|
||
1720 RETURN
|
||
|