10 REM MASKENDEMO===================C64
20 REM BY ALFONS MITTELMEYER
30 REM
40 REM C64
50 REM BASIC V2.0
60 REM ================================
70 GOSUB 110:GOSUB 180:GOTO 240
80 REM --------------------------------
90 REM  MASCHINENTEIL NACHLADEN
100 REM -------------------------------
110 IF PEEK(49154)=174THENRETURN
120 SYS57812"SYSMC",8,0:POKE780,0
130 POKE781,254:POKE782,191
140 SYS65493:RETURN
150 REM -------------------------------
160 REM  VARIABLENDEFINITION
170 REM -------------------------------
180 IN=49465:AT=49152
190 WO=49172:EF=49337
200 SF=49482:SO=49497:RETURN
210 REM ===============================
220 REM ANWENDERPROGRAMM
230 REM -------------------------------
240 GOTO 800
250 REM -------------------------
260 REM FELDAUSGABE
270 REM -------------------------
280 FOR I=0 TO FZ:SYSAT,FX%(I),FY%(I):PRINT"<";
290 PRINTW$LEFT$(F$(I)+LEFT$(LE$,FZ%(I)),FZ%(I))G$">";
300 NEXT:RETURN
310 REM -----------------------
320 REM  FELDEINGABE
330 REM -----------------------
340 SYSAT,FX%(I)+1,FY%(I)
350 PRINTW$;
360 SYSEF,FZ%(I),N,F$(I)
370 PRINTG$;
380 RETURN
390 REM --------------------------
400 REM MASKENEINGABE
410 REM --------------------------
420 FOR I=0TOFZ
430 GOSUB 340
440 ON N GOTO 480,460
450 NEXT:RETURN
460 IFI>0THENI=I-1
470 GOTO430
480 I=FZ:GOTO450
490 REM ---------------------------
500 REM FELDDATAS
510 REM ---------------------------
520 FZ=4:FORI=0TOFZ
530 READFX%(I),FY%(I),FZ%(I)
540 NEXT:RETURN
550 DATA 8,6,25
560 DATA 8,7,25
570 DATA 8,8,30
580 DATA 8,9,30
590 DATA 8,10,12
600 REM -------------------------
610 REM  TEXTAUSGABE
620 REM -------------------------
630 SYSAT,11,3:PRINT"[193]DRESSEN"
640 SYSAT,11,4:PRINT"--------"
650 SYSAT,0,6:PRINT"[206]AME:"
660 SYSAT,0,7:PRINT"[214]ORNAME:"
670 SYSAT,0,8:PRINT"[211]TRASSE:"
680 SYSAT,0,9:PRINT"[207]RT:"
690 SYSAT,0,10:PRINT"[212]ELEFON:"
700 RETURN
710 REM ---------------------------
720 REM  VARIABLENDEFINITION
730 REM ---------------------------
740 LE$="          ":LE$=LE$+LE$
750 LE$=LE$+LE$:CL$=CHR$(147)
760 W$=CHR$(5):G$=CHR$(153):RETURN
770 REM --------------------------
780 REM HAUPTPROGRAMM
790 REM --------------------------
800 POKE53280,0:REM RAHMENFARBE
810 POKE53281,0:REM HINTERGRUNDFARBE
820 GOSUB740:GOSUB520
830 PRINTCHR$(14)G$CL$:GOSUB630
840 GOSUB280:SYSSF:GOSUB420
850 PRINTCL$W$"[197]RFASSTE [196]ATEN"G$
860 PRINT:FORI=0TOFZ:PRINTF$(I):NEXT
870 SYSSO:END
880 REM =====E N D E ==============