Added multiple scripts as of 14 Dec 1995.

1995-12-14 19:27:00 +01:00
parent a201f0e235
commit 2eadb88309
15 changed files with 1040 additions and 0 deletions
@@ -0,0 +1,53 @@
+10 X=400
+20 CLS
+30 KEY OFF
+40 GOSUB 490
+50 A=12:B=A:C=A:D=A:E=A:F=14:G=10:H=A:I=A:J=G:K=F:L=A:M=A:N=A:O=A:P=A
+60 GOSUB 350
+70 A=0:GOSUB 340:E=0:GOSUB 340:I=0:GOSUB 340:M=0:GOSUB 340
+80 B=0:GOSUB 340:F=0:GOSUB 340:J=0:GOSUB 340:N=0:GOSUB 340
+90 C=0:GOSUB 340:G=0:GOSUB 340:K=0:GOSUB 340:O=0:GOSUB 340
+100 D=0:GOSUB 340:H=0:GOSUB 340:L=0:GOSUB 340:P=0:GOSUB 340
+110 X=300:FOR Z=0 TO 5000:NEXT Z
+120 GOSUB 510
+130 REM HAUPTTEIL
+140 Q=INT(RND*(2)):IF Q=1 THEN A=12 ELSE A=0
+150 IF U>=V THEN A=0:W=W+1
+160 IF W=20 THEN W=0:U=0:GOSUB 490
+170 IF U/Y=INT(U/Y) THEN FOR Z=0 TO 3000:NEXT Z:GOSUB 510
+180 A$=INKEY$
+190 IF A$=CHR$(27) THEN END
+200 IF A$="+" THEN X=X+10
+210 IF A$="-" THEN X=X-10:IF X<0 THEN X=0
+220 GOSUB 340
+230 P=L:L=H:H=D:D=O
+240 C=N:B=M:M=I:I=E:E=A
+250 IF K=14 THEN O=12 ELSE O=0
+260 IF G=10 THEN K=14 ELSE K=0
+270 IF C=12 THEN G=10 ELSE G=0
+280 IF J=10 THEN N=12 ELSE N=0
+290 IF F=14 THEN J=10 ELSE J=0
+300 IF B=12 THEN F=14 ELSE F=0
+310 U=U+1
+320 GOTO 140
+330 END
+340 LOCATE 1,1
+350 COLOR A:PRINT" ÜÜÜ  ";:COLOR E:PRINT" ÜÜÜ  ";:COLOR I:PRINT" ÜÜÜ  ";:COLOR M:PRINT" ÜÜÜ  "
+360 COLOR A:PRINT"ÛÛÛÛÛ ";:COLOR E:PRINT"ÛÛÛÛÛ ";:COLOR I:PRINT"ÛÛÛÛÛ ";:COLOR M:PRINT"ÛÛÛÛÛ "
+370 COLOR A:PRINT" ßßß  ";:COLOR E:PRINT" ßßß  ";:COLOR I:PRINT" ßßß  ";:COLOR M:PRINT" ßßß  "
+380 COLOR B:PRINT" ÜÜÜ  ";:COLOR F:PRINT" ÜÜÜ  ";:COLOR J:PRINT" ÜÜÜ  ";:COLOR N:PRINT" ÜÜÜ  "
+390 COLOR B:PRINT"ÛÛÛÛÛ ";:COLOR F:PRINT"ÛÛÛÛÛ ";:COLOR J:PRINT"ÛÛÛÛÛ ";:COLOR N:PRINT"ÛÛÛÛÛ "
+400 COLOR B:PRINT" ßßß  ";:COLOR F:PRINT" ßßß  ";:COLOR J:PRINT" ßßß  ";:COLOR N:PRINT" ßßß  "
+410 COLOR C:PRINT" ÜÜÜ  ";:COLOR G:PRINT" ÜÜÜ  ";:COLOR K:PRINT" ÜÜÜ  ";:COLOR O:PRINT" ÜÜÜ  "
+420 COLOR C:PRINT"ÛÛÛÛÛ ";:COLOR G:PRINT"ÛÛÛÛÛ ";:COLOR K:PRINT"ÛÛÛÛÛ ";:COLOR O:PRINT"ÛÛÛÛÛ "
+430 COLOR C:PRINT" ßßß  ";:COLOR G:PRINT" ßßß  ";:COLOR K:PRINT" ßßß  ";:COLOR O:PRINT" ßßß  "
+440 COLOR D:PRINT" ÜÜÜ  ";:COLOR H:PRINT" ÜÜÜ  ";:COLOR L:PRINT" ÜÜÜ  ";:COLOR P:PRINT" ÜÜÜ  "
+450 COLOR D:PRINT"ÛÛÛÛÛ ";:COLOR H:PRINT"ÛÛÛÛÛ ";:COLOR L:PRINT"ÛÛÛÛÛ ";:COLOR P:PRINT"ÛÛÛÛÛ "
+460 COLOR D:PRINT" ßßß  ";:COLOR H:PRINT" ßßß  ";:COLOR L:PRINT" ßßß  ";:COLOR P:PRINT" ßßß  "
+470 FOR Z=0 TO X:NEXT
+480 RETURN
+490 V=INT(RND*(20))+30
+500 RETURN
+510 Y=INT(RND*(10))+10
+520 RETURN
+