Screenshot 1
2bc0 37d7 0000 B ... BILLARD
Steuerung: ⇦ ⇨ L R K
Zeichensatz UTF-8+Z1013()+CTRL()-ohne Umlaute(äöüß)

    5 WINDOW:CLS
  100 CLS
  110 PRINT:PRINT:PRINT:PRINT:PRINT
  120 PRINT:PRINT:PRINT:PRINT
  130 PRINT "             "
  140 PRINT "                 "
  150 PRINT "              "
  160 PRINT "                 "
  170 PRINT "           "
  180 PRINT ""     
  200 PRINT
  210 INPUT "Mit wievielen Banden?";R0
  215 PRINT
  220 IF R0<2 THEN PAUSE 10:PRINT "Das ist aber sehr einfach!":PAUSE 20
  230 IF R0>4 THEN PAUSE 10:PRINT "Sehr mutig fuer den Anfang!":PAUSE 20
  250 PRINT
  260 PRINT "SPIELANLEITUNG:"
  270 PRINT ""
  280 PRINT
  290 PRINT "1.Steht der Cursor hinter         POSITION? ,so kann die Ab-"   
  300 PRINT "  schussposition mit den Tasten   Cursor LINKS bzw. RECHTS"
  310 PRINT "  veraendert werden. Nach ENTER"
  320 PRINT "  rueckt der Cursor auf SCHUSS ?"
  330 PRINT
  340 PRINT "2.Steht der Cursor hinter         SCHUSS ? , so kann der "
  350 PRINT "  Abschuss mit der Taste          L oder R ausgeloest werden."
  360 PRINT "  Mit der Taste K ist ein         Ruecksprung auf 1. moeglich."
  380 PRINT
  400 PRINT
  420 PRINT:INPUT "                   >ENTER";ENTER
  430 V0=1
  440 V=21
  450 H0=1
  460 H=30
  480 TR=0      
  490 FOR M=1 TO 10
  500 R=0
  510 WINDOW
  520 P=INT((V-V0)*RND(1))+V0
  530 Q=INT((H-H0)*RND(1))+H0
  540 A$=""
  550 IF M>1 THEN 1600
  560 FOR K1=1 TO 32  
  570 PRINT "";
  580 NEXT K1
  590 GOSUB 1520
  600 WINDOW V0,V,H0,H
  610 CLS
  620 X=INT((H-H0)/2)
  630 GOSUB 1390
  640 PAUSE 20
  650 GOSUB 1470
  660 PRINT AT(0,0);"L"
  670 PRINT AT(0,31);"R"
  680 PRINT AT(22,0);"<"
  690 PRINT AT(22,31);">"
  700 WINDOW
  710 PRINT AT(V,X);""
  720 WINDOW 25,25,17,30
  730 PRINT "POSITION?";
  735 Z$=INKEY$
  740 IF Z$=CHR$(8)OR Z$=CHR$(9)OR Z$=CHR$(13)THEN 750 ELSE 735
  750 WINDOW
  760 IF Z$=CHR$(9)THEN X0=X+1:Z=1:GOTO 790
  770 IF Z$=CHR$(8)THEN X0=X-1:Z=2:GOTO 790
  780 GOTO 830
  790 GOSUB 1430 
  800 X=X0
  810 GOSUB 1390
  820 GOTO 720
  830 WINDOW 27,27,17,29
  832 PRINT "SCHUSS ?";
  834 Z$=INKEY$
  836 IF Z$="K"THEN 720
  838 IF Z$="L"THEN Z=4:GOTO 845
  840 IF Z$="R"THEN Z=3:GOTO 845
  842 GOTO 834
  845 I=V:J=X
  850 WINDOW V0,V,H0,H:CLS
  860 GOSUB 1470
  870 GOSUB 1390
  880 GOTO 1010
  890!Bandenunterscheidung
  900 IF I=V0 THEN A=-2
  910 IF I=V THEN A=2
  920 IF I>V0 AND I<V THEN A=0
  930 IF J=H0 THEN B=-1
  940 IF J=H THEN B=1
  950 IF J>H0 AND J<H THEN B=0
  960 Z0=Z
  970 Z=Z+A+B
  980 IF Z<>Z0 THEN R=R+1          
  990 IF Z<>Z0 THEN GOSUB 1650
 1000 IF R>R0 THEN 1220
 1010 I0=I
 1020 J0=J
 1030!neue position in abhaengigkeit vonz
 1040 IF Z=1 OR Z=2 THEN I=I+1
 1050 IF Z=3 OR Z=4 THEN I=I-1
 1060 IF Z=1 OR Z=3 THEN J=J+1
 1070 IF Z=2 OR Z=4 THEN J=J-1
 1080 PRINT AT(I,J);""
 1090 PRINT AT(I0,J0);""
 1100!trefferuntersuchung
 1110 IF I<P OR I>P+1 THEN 890
 1120 IF J<Q OR J>Q+1 THEN 890
 1130!treffer!!
 1140 IF R=R0 THEN 1170
 1150 PRINT AT(10,5);"Leider zu zeitig!"
 1160 GOTO 1220
 1170 FOR K=1 TO 50
 1180 BEEP
 1190 NEXT K
 1200 TR=TR+1
 1220 NEXT M
 1230 PAUSE 20
 1240 WINDOW
 1250 CLS
 1260 PRINT "Trefferanzahl(von 10):";TR
 1270 PRINT
 1280 PRINT
 1290 IF TR<3 THEN PRINT "ALLER ANFANG IST SCHWER!"
 1300 IF TR>3 AND TR<8 THEN PRINT "SIE HABEN SICH WACKER GESCHLAGEN!"
 1310 IF TR>7 THEN PRINT "SIE KOENNEN SICH ZUR WELTSPITZE RECHNEN!"
 1320 PRINT:PRINT:PRINT "Wollen Sie einen neuen Versuch             wagen?"
 1321 A$=INKEY$:IF A$="J"THEN 100:ELSE IF A$<>"N"THEN 1321
 1330 PRINT AT(11,10);"Auf Wiedersehen!"
 1380 END
 1390 PRINT AT(V,X);""
 1400 PRINT AT(V-1,X-1);""
 1410 PRINT AT(V-1,X+1);""
 1420 RETURN
 1430 PRINT AT(V,X);" "
 1440 PRINT AT(V-1,X-1);" "
 1450 PRINT AT(V-1,X+1);" "
 1460 RETURN
 1470 PRINT AT(P,Q);""
 1480 PRINT AT(P,Q+1);""
 1490 PRINT AT(P+1,Q);""
 1500 PRINT AT(P+1,Q+1);""
 1510 RETURN
 1520 PRINT AT(23,11);"Billard"
 1530 PRINT AT(25,4);R0
 1540 PRINT AT(25,8);"Banden"
 1550 PRINT AT(27,4);TR
 1560 PRINT AT(27,8);"Treffer"
 1570 PRINT AT(29,4);M
 1580 PRINT AT(29,8);"Versuche"
 1590 RETURN
 1600 WINDOW 0,22,0,30
 1610 FOR I=1 TO 23 
 1620 PRINT "";
 1630 NEXT I
 1640 GOTO 590
 1650 BEEP
 1660 RETURN 
 1670 END