1 REM Ins{nd av Nils Wendel <1372> 1987-02-16 09.56.46 (DUMP)
100 ! save DOSGEN
110 !
120 EXTEND : INTEGER
140 Link$='MENY' ! _l{nk till Basicprogram_
150 ! --------------------------------------------------------- !
160 !
170 C$=CHR$(14%,255%,205%,27%,96%,208%,33%,0%,0%,201%) ! _load asm_
180 P$='CMDINT SYS'+C$
190 A%=VARPTR(P$) : Z%=CALL(A%+11%,A%)
200 POKE 49411%,201% ! _return till Basic_
210 P$='DOSGEN ABS'+C$
220 Start%=CALL(A%+11%,A%)
230 IF Z%=0% THEN ; 'Kan inte ladda DOSGEN.ABS!' : GOTO 330
240 !
250 ; CHR$(12%) ' FORMATERA SKIVOR (DOSGEN) ' CUR(0%,79%) '' : ; STRING$(80%,61%)
260 POKE 64848%,255%,255%
270 Z%=CALL(Start%)
280 ; : ;
290 ON ERROR GOTO 330
300 INPUT 'Fler skivor ? j/n N'+CHR$(8%);A$
310 IF CHR$(ASCII(A$) AND 223%)='J' THEN 250
320 !
330 ON ERROR GOTO 350 : CHAIN Link$
340 END
350 ; 'S[TT TILLBAKA PROGRAM-SKIVAN ! - Tryck