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 '; 360 GET A$ : ; : GOTO 330