100 '*-------------------------------------------*
110 '*. Beispiel-Routinen für das Einbinden und. *
120 '*. Aufrufen des Programm-Moduls 'SCRKOMP'.. *
130 '*......... written 1989 by NoFi............ *
140 '*...... Programmiert in MALLARD-BASIC...... *
150 '*-------------------------------------------*
160 '
170 '
180 '
190 '
200 '
210 '*-------------------------------------------*
220 '* Beispiel: SCRKOMP einbinden.............. *
230 '*-------------------------------------------*
240 '*
250 CHAIN MERGE "SCRKOMP",260,ALL
260 GOSUB 10030:......... 'Maschinenprogramm laden
270 '*
280 '*-------------------------------------------*
290 '
300 '
310 '
320 '
330 '
340 '*-------------------------------------------*
350 '* Beispiel: Bildschirm abspeichern......... *
360 '*-------------------------------------------*
370 '
380 '  Dateinamen festlegen
390 '
400 scrname$="SCREEN.000":s=1
410 WHILE FIND$(scrname$)<>""
420 MID$(scrname$,8,3)=RIGHT$("00"+MID$(STR$(s),2),3)
430 s=s+1:WEND
440 scrfile%=1:............ 'Dateinummer festlegen
450 GOSUB 10090:....... 'Speicher-Routine aufrufen
460 RETURN
470 '*
480 '*-------------------------------------------*
490 '
500 '
510 '
520 '
530 '
540 '*-------------------------------------------*
550 '* Beispiel: Bildschirm laden............... *
560 '*-------------------------------------------*
570 '*
580 '* Dateinamen festlegen
590 '*
600 INPUT;"Welche Bildschirmdatei soll geladen werden"; scrname$
610 IF FIND$(scrname$)="" THEN PRINT "Datei nicht vorhanden!":GOTO 600
620 scrfile%=1:............ 'Dateinummer festlegen
630 GOSUB 10170:........... 'Lade-Routine aufrufen
640 RETURN
650 '*
660 '*-------------------------------------------*