5 'AAAA
7 PRINT
10 PRINT"1 PLASMA "
20 PRINT"2 STUDD"
30 PRINT"3 FLAGON BIRD"
40 PRINT"4 DONKEY KING"
50 PRINT"5 ZAXXON"
60 PRINT"6 ELCHANCE"
80 PRINT"8 INIT WP 80-COLS BOARD"
90 PRINT"9 ELISA"
100 PRINT"N NITROS-9"
110 PRINT"H HDB-DOS"
200 A$=INKEY$
205 IF A$="" GOTO 200
210 IF A$="1"THEN DLOAD"PLASMA"
220 IF A$="2"THEN DLOAD"STUDD"
230 IF A$="3"THEN DLOAD"FLAP"
240 IF A$="4"THEN DLOAD"KING"
250 IF A$="5"THEN DLOAD"ZAXXON"
260 IF A$="6" GOTO 500
280 IF A$="8"THEN CLEAR200,&H7DFF:DLOAD"WPT"
290 IF A$="9"THEN DLOAD"ELISA.BAS"
300 IF A$="N"THEN DLOAD"DOSN"
310 IF A$="H"THEN DLOAD"HDB"
390 IF A$<>" " GOTO 7
400 PRINT"TYPE 'RUN' FOR MENU"
410 END
500 PMODE4,1
510 DLOADN"ELCHANCE"
520 SCREEN1,1
530 IF INKEY$="" GOTO 530
540 GOTO 7
I would like to dynamic generate this file.
There are serveral questions:
* How to handle different "startup code" types?
* What's about pageing?
* What's about sub directories?
Ideas?
... too many ideas and too little time ... Related stuff written in Python:
Dragon 32 emulator / PyDC - Python Dragon 32 converter: https://github.com/jedie/DragonPy
DWLOAD server / Dragon-Lib and other stuff: https://github.com/6809
10 CLS
20 PRINT" *** DYNAMIC MENU *** 12:41:26"
30 PRINT"/HOME/JENS/DWLOAD-FILES"
40 PRINT"0 - A.BAS"
50 PRINT"1 - A.DWL"
60 PRINT"2 - AUTOLOAD (Kopie).DWL"
70 PRINT"3 - BURNIN"
80 PRINT"4 - BURNLOAD"
90 PRINT"5 - DATE"
100 PRINT"6 - DOS"
110 PRINT"7 - ELISA.BAS"
120 PRINT"8 - FLAP"
130 PRINT"9 - HDB"
140 PRINT"A - HEXVIEW.BAS"
150 PRINT"B - KING"
160 PRINT"C - MONIT"
170 PRINT"D - PLASMA"
180 PRINT"E - RESAVE"
190 PRINT"F - SAVE"
200 PRINT"G - STUDD"
210 PRINT"H - TEST A LONG NAME.BAS"
220 PRINT"I - nos96809l1v030300d32_dw.dsk"
230 PRINT"PLEASE SELECT (X FOR RELOAD) !"
240 A$=INKEY$:IF A$="" GOTO 240
250 IF A$="X" THEN DLOAD
260 IF A$="0" THEN DLOAD"A.BAS"
270 IF A$="1" THEN DLOAD"A.DWL"
280 IF A$="2" THEN DLOAD"AUTOLOAD (Kopie).DWL"
290 IF A$="3" THEN DLOAD"BURNIN"
300 IF A$="4" THEN DLOAD"BURNLOAD"
310 IF A$="5" THEN DLOAD"DATE"
320 IF A$="6" THEN DLOAD"DOS"
330 IF A$="7" THEN DLOAD"ELISA.BAS"
340 IF A$="8" THEN DLOAD"FLAP"
350 IF A$="9" THEN DLOAD"HDB"
360 IF A$="A" THEN DLOAD"HEXVIEW.BAS"
370 IF A$="B" THEN DLOAD"KING"
380 IF A$="C" THEN DLOAD"MONIT"
390 IF A$="D" THEN DLOAD"PLASMA"
400 IF A$="E" THEN DLOAD"RESAVE"
410 IF A$="F" THEN DLOAD"SAVE"
420 IF A$="G" THEN DLOAD"STUDD"
430 IF A$="H" THEN DLOAD"TEST A LONG NAME.BAS"
440 IF A$="I" THEN DLOAD"nos96809l1v030300d32_dw.dsk"
450 GOTO 10
Next Step: Paging. Maybe with cursor keys?!?
... too many ideas and too little time ... Related stuff written in Python:
Dragon 32 emulator / PyDC - Python Dragon 32 converter: https://github.com/jedie/DragonPy
DWLOAD server / Dragon-Lib and other stuff: https://github.com/6809