dynamic AUTOLOAD.DWL

A place to discuss everything Dragon related that doesn't fall into the other categories.
Post Reply
jedie
Posts: 655
Joined: Wed Aug 14, 2013 12:23 pm
Location: germany
Contact:

dynamic AUTOLOAD.DWL

Post by jedie »

Here is the origin AUTOLOAD.DWL from tormod (from dwload-demo-files.tar.xz.zip -> viewtopic.php?f=5&t=4964#p12026 )

Code: Select all

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
jedie
Posts: 655
Joined: Wed Aug 14, 2013 12:23 pm
Location: germany
Contact:

Re: dynamic AUTOLOAD.DWL

Post by jedie »

First working version of a dynamic AUTOLOAD.DWL is ready, see: viewtopic.php?f=8&t=4946&p=12221#p12221

Currently it looks like this:

Code: Select all

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
Post Reply