100 DATA 1,1,1,2,30,4,8,8,8,16,4,32,4,64,8,128,0,0
110 DATA 39,0,1,1,1,2,1,4,1,8,1,16,1,32,1,64,1,128,0,0
120 DATA 55,0,1,1,1,2,1,4,1,8,1,16,1,32,1,64,1,128,0,0
130 DATA 170,169,166,165,154,153,150,149,106,105,102,101,90,89,86,85
140 :
150 POKE55,0:POKE56,128:CLR:PRINT"[147] BITTE WARTEN"
160 DIM M(2,63)
170 ZE=-1
180 READ AN:READWE
190 IFAN=0THENZE=-1:KE=KE+1:IFKE=3THEN240
200 FORI=1TOAN:ZE=ZE+1
210 M(KE,ZE)=WE
220 NEXT:GOTO180
230 :
240 AD=32767:OF=AD
250 PRINT"[147]GENERIERE 000 -";
260 FORI=0TO511:AD=AD+1:POKEAD,0:NEXT
270 FORJ=0TO7
280 FORI=0TO63:AD=AD+1:POKEAD,M(0,I)
290 NEXT:NEXT
300 PRINTAD-OF:PRINT
310 :
320 PRINT"GENERIERE 100 -";
330 FORJ=0TO7
340 FORI=0TO63:AD=AD+1:POKEAD,M(0,I)
350 NEXT:NEXT
360 FORI=0TO511:AD=AD+1:POKEAD,0:NEXT
370 PRINTAD-OF:PRINT
380 :
390 PRINT"GENERIERE 010 -";
400 FORI=0TO511:AD=AD+1:POKEAD,0:NEXT
410 FORJ=0TO7
420 FORI=0TO63:AD=AD+1:POKEAD,M(2,I)
430 NEXT:NEXT
440 PRINTAD-OF:PRINT
450 :
460 PRINT"GENERIERE 110 -";
470 FORJ=0TO7
480 FORI=0TO63:AD=AD+1:POKEAD,M(2,I)
490 NEXT:NEXT
500 FORI=0TO511:AD=AD+1:POKEAD,0:NEXT
510 PRINTAD-OF:PRINT
520 :
530 PRINT"GENERIERE 001 -";
540 FORI=0TO511:AD=AD+1:POKEAD,0:NEXT
550 FORJ=0TO7
560 FORI=0TO63:AD=AD+1:POKEAD,M(1,I)
570 NEXT:NEXT
580 PRINTAD-OF:PRINT
590 :
600 PRINT"GENERIERE 101 -";
610 FORJ=0TO7
620 FORI=0TO63:AD=AD+1:POKEAD,M(1,I)
630 NEXT:NEXT
640 FORI=0TO511:AD=AD+1:POKEAD,0:NEXT
650 PRINTAD-OF:PRINT
660 :
670 PRINT"GENERIERE 110 -";
680 FORJ=0TO15
690 READ A
700 FORI=0TO63:AD=AD+1:POKEAD,A
710 NEXT:NEXT
720 PRINTAD-OF:PRINT
730 :
740 PRINT"GENERIERE 111 -";
750 FORI=0TO1023:AD=AD+1:POKEAD,255
760 NEXT
770 PRINTAD-OF:PRINT
780 PRINT"FILE LIEGT VON 32768 BIS 40959"
790 PRINT"               $8000 BIS $9FFF"