★ APPLICATIONS ★ DIVERS ★ MENU - DYSK (BAJTEK)![]() ★ |
Menu - Dysk (Bajtek)![]() | Applications Divers |
Jeśli posiadasz wśród swoich dyskietek wiele takich na których nie zamierzasz dokonywać już zmian, to wygodnie będzie Ci umieścić na nich program "MENU DYSKU". Nie będziesz wtedy musiał za każdym razem pisać CAT, żeby zobaczyć jak nazywają się programy i potem wpisywać RUN "nazwa. Wystarczy, że podasz komputerowi rozkaz RUN "DYSK, a on sam wypisze Ci wszystkie nazwy i teraz będziesz mógł wybrać odpowiedni program przez naciśnięcie jednego klawisza. Po wpisaniu listingu musisz w linii 60 umieścić po DATA najpierw liczbę programów, które znajdują się na danej stronie dyskietki, a potem ich nazwy (bez rozszerzenia czyli trzech liter po kropce).20 REM 30 REM WGRANIE PRZEZ - RUN"DYSK" 40 ' 50 BORDER 1:INK 0,1:INK 1,24:PEN 1:PAPER 0:MODE 1:LOCATE 11,2:PRINT "PROGRAMY NA DYSKU:" 60 DATA 4,ARMATY,QUACK,TASWORD,WALLY 70 RESTORE 60:READ menu%:DIM prog$(menu%) 80 FOR x=1 TO menu%:READ prog$(x):LOCATE 2,4+x*2:PRINT USING "\ ";prog$(x):PRINT STRING$(20,".");x:NEXT x 90 in% = VAL(INKEY$): IF in%menu% THEN 90 100 CLS: RUN prog$(in%) |
| ![]() |
|