10 REM ****** DOKUMENT ******
20 POKE53280,0:POKE53281,0:DIMAN$(16),AS$(16),AE$(16),AD$(16)
30 INPUT"[147]GERAETENUMMER 3=BILD,4=DRUCKER ";G
40 INPUT"STARTMODUL:";SM
50 INPUT"ENDMODUL:";EM:PRINT"[147]";
60 FORI=SMTOEM:GOSUB 500
70 OPEN 1,G:I$=STR$(I)+")  "
80 PRINT#1,LEFT$(I$,4);:A$=" "
100 FOR K=1TOAB:IFK<>1THENA$="     "
110 PRINT#1,A$;AN$(K)"        "AS$(K)" - "AE$(K)"     "AD$(K)
120 NEXT
130 PRINT#1,"[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]":CLOSE1
135 IF G=3THENPRINT"         WEITER MIT TASTE !!":POKE198,0:WAIT198,1:PRINT
140 NEXT
150 IFG=3THEN60
160 END
500 REM **** SUBR. PARAMETER HOLEN ****
505 NA$=MID$(STR$(I),2,4)+"MODUL,S,R"
510 OPEN 1,8,3,NA$
520 INPUT#1,AB$:AB=VAL(AB$)
530 FOR K=1 TO AB
540 INPUT#1,AN$(K),AS$(K),AE$(K),AD$(K):NEXT:CLOSE1:RETURN