Viel mehr als 33 Programme für den Sinclair Spectrum

500 PRiNT FL Я 5Н 1; Т 21,2;-DRS
' ОNSТЕR ІЅТ TOT
510 IF ІМкЕу$" ч' THEN GO TO 51
52' PRU5E 50
5 З L GO ТО 100
2000 DIM NS(SPI,32)
DIM I'I(SPI)
2010 FOR X=1 ТС: SRI
2020 INPUT - Name des (M)'" 5p
ieers?"'NSCX)
р uт "Wievist Мonstef trau
t ch".. (N$ (X) ); s zu? (3-50) "; М
270 IF N(X)3 OR '-t( Х ) ;50 THEN G
O TO 2050
2090 NE:xT X
2100 RETURN
5500 DIM NS(12,11)
5510 LET Г 1$( іі ="
5511 LET М b(2=" II II
5512 LET М $(3)=
5513 LET МЪ (4)=
5514 LET М (5=
5515 LET M$(6)=
5515 LET t-1$(?)=
5517 LET Гі $(8)=
6515 LET МЪЭ)=
5519LET M$(10)=
5520 LET Г-)$ (11)
5521 LET М $( і2)=
6530 DIM X(E)
5540 DIM Y(6)
5550 LET Х ( і )='
5551 LET Х 2 У =13
5552 LET Х ( з )=12
6553 LET X(4)=14
5554 LET X(5)=18
6555 LET Х ( Є )=18
5555 LET У (1)=15
5557 LET Y(2)=9
5558 LET У ( з )=21
5559 LET Y(4)=15
5550 LET Y(5)=10
6551 LET У (5)=20
557' RESTORE : FOR i@ TO 15: RE
RD a: POKE USR "a - +i,a: NEXT
6580 RETURN
7'00 DRTR 170,85,170,55,170,55,1
70.35,170,85,170,85,255,255,255,
255
50 OLE'
9510 PRiNT " РUn':"
520 PRINT
9530 FOR X1 TO SRI
95 з 5 IF P(X) THEN LET P ( Х ) = Р ' Х
І чТ tј ( Х ' * М ( Х '
9550 IF P(X) THEN PRINT N$ (X,1 1 7
• 25) ,; " . ";P(X)
550NЕТ X
9551 PRINT""Foi_gende Н {d єп
r' d .m Karp Г gegen Nonstergeta
1. ‚.! Г):
91