1 rem stundenabrechnung fuer uel 11/2006     
  10 goto menu
  20 IF M$=" " THEN  GOSUB MONAT
  30 GOSUB EINGABE
  40 GOSUB TRANSFER
  45 SLOW 
  50 GOSUB SAVE
  60 STOP 
1000 POKE 8,13
1010 PRINT CHR$ USR 8195,"PRINTPC"
1020 POKE 8,1
1090 RETURN 
2000 LET TREIBER=1000
2001 LET RANDOM=3000
2002 LET EINGABE=4000
2003 LET PRT=41570
2004 LET TITEL=5000
2005 DIM K$(3,13)
2006 LET K$(1)="16.30-17.30;1;"
2007 LET K$(2)="17.30-18.30;1;"
2008 LET K$(3)="18.30-20.00;2;"
2010 DIM E$(3,13)
2011 LET E$(1)="18.30-20.00;2;"
2012 LET E$(2)="20.00-21.30;2;"
2013 LET E$(3)="19.00-20.30;2;"
2020 DIM B$(1,13)
2021 LET B$(1)="19.00-20.30;2;"
2030 DIM O$(2,15)
2031 LET O$(1)="Gebhardtstr. 25"
2032 LET O$(2)="Maischule"
2040 LET S$="Karate"
2042 DIM Z$(23,13)
2044 DIM T(23)
2046 DIM P$(23,15)
2048 DIM T$(23,3)
2050 LET MONAT=6000
2051 LET M$=" "
2052 LET SAVE=7000
2053 LET TRANSFER=8000
2054 LET ZEILE=4800
2056 LET KORR=4700
2057 let auto=3100
2058 LET FREI=4600
2059 let menu=8100
2060 dim m(12)
2061 let m(1) = 31
2062 let m(2) = 28
2064 let m(3) = 31
2065 let m(4) = 30
2066 let m(5) = 31
2067 let m(6) = 30
2068 let m(7) = 31
2069 let m(8) = 31
2070 let m(9) = 30
2071 let m(10) = 31
2072 let m(11) = 30
2073 let m(12) = 31
2074 let y$=" bk1k2e1e2 b"
2075 let zeit=4900
2090 RETURN 
3000 REM teilnehmerzahl
3010 IF X$(1 TO 1)="K" THEN  LET N=INT (RND*10+16)
3011 IF X$(1 TO 1)="E" THEN  LET N=INT (RND*10+12)
3012 IF X$(1 TO 1)="B" THEN  LET N=INT (RND*10+12)
3020 RETURN
3100 rem auto
3110 gosub monat
3120 print ,, "erstes datum (tt)?"
3130 input tag
3140 print ,, "erste kategorie (K1,E1 etc)?"
3150 input x$
3160 if x$<>"k1" and x$<>"k2" and x$<>"k3" and x$<>"e1" and x$<> "e2" and x$<>"e3" and x$<>"b" then  goto 3150
3200 for i=1 to 23
3210 let t$(i)=str$ tag +";"
3220 gosub zeit
3230 gosub random
3240 let t(i)=n
3250 if x$="b" then  let p$(i)=o$(2)
3260 if x$<>"b" then  let p$(i)=o$(1)
3270 if x$(1 to 1)="b" then let tag=tag + 2
3280 if x$(1 to 1)="k" then let tag=tag + 1
3290 if x$(1 to 1)="e" then let tag=tag + 4
3300 if tag > m(val m$(1 to 2)) then gosub transfer
4000 REM eingabe
4010 CLS 
4020 PRINT "tag zeit      std sport tln ort "
4030 FOR I=1 TO 23
4032 IF T$(I,1 TO 1)<>" " THEN  GOSUB ZEILE
4040 INPUT X$
4050 IF X$="ENDE" THEN  RETURN 
4055 IF X$="KORR" THEN  GOTO KORR
4060 LET T$(I)=X$+";"
4065 PRINT T$(I);
4070 INPUT X$
4075 IF X$="FREI" THEN  GOTO FREI
4080 IF X$<>"K1" AND X$<>"K2" AND X$<>"K3" AND X$<>"E1" AND X$<> "E2" AND X$<>"E3" AND X$<>"B" THEN  GOTO 4070
4090 gosub zeit
4100 GOSUB RANDOM
4105 LET T(I)=N
4110 IF X$="B" THEN  LET P$(I)=O$(2)
4112 IF X$<>"B" THEN  LET P$(I)=O$(1)
4500 PRINT TAB 3;Z$(I,1 TO 11);TAB 15;Z$(I,13 TO 13);TAB 18;S$(1 TO 6);TAB 25;T(I);TAB 28;P$(I,1 TO 3);"."
4510 NEXT I
4520 stop
4600 INPUT Z$(I)
4610 GOTO 4100
4700 LET I=I-1
4710 PRINT AT I,0;
4720 NEXT I
4800 REM zeile
4810 PRINT T$(I);TAB 3;Z$(I,1 TO 11);TAB 15;Z$(I,13 TO 13);TAB 18;S$(1 TO 6);TAB 25;T(I);TAB 28;P$(I,1 TO 3);"."
4820 NEXT I
4890 return
4900 rem zeit
4910 if x$(1 to 1)="k" then  let z$(i)=k$(val x$(2 to 2))
4920 if x$(1 to 1)="e" then  let z$(i)=e$(val x$(2 to 2))
4930 if x$(1 to 1)="b" then  let z$(i)=b$(1)
4940 return
5000 REM titel
5010 CLS 
5020 PRINT "          uel-abrechnung        "
5030 PRINT 
5090 RETURN 
6000 REM monat
6005 GOSUB TITEL
6010 PRINT ,,"MONAT U. JAHR EINGEBEN (TT/JJJJ)"
6020 INPUT M$
6030 IF LEN M$<>7 THEN  GOTO 6020
6040 RETURN 
7000 REM save
7010 POKE 8,13
7020 PRINT CHR$ USR 8195="S C:TV1860/UEL/"+M$(1 TO 2)+"."+M$(4 TO 7)
7030 POKE 8,1
7040 GOSUB 2000
7050 GOTO 10
8000 REM transfer
8005 CLS 
8006 PRINT "TRANSFER? (J/N)"
8007 IF INKEY$,="" THEN  GOTO 8007
8008 IF INKEY$,="N" THEN  RETURN 
8010 GOSUB TREIBER
8011 CLS 
8012 PRINT "TRANSFER NACH TASTENDRUCK"
8013 IF INKEY$,="" THEN  GOTO 8013
8014 FAST 
8020 FOR I=1 TO 23
8030 IF T$(I)="" THEN  RETURN 
8040 PRINT CHR$ USR PRT=T$(I)+Z$(I)+";"+S$+";"+STR$ T(I)+";"+P$(I)+" "
8050 NEXT I
8060 RETURN
8100 rem menu
8105 cls
8110 gosub titel
8120 print ,, "automatisierte eingabe"
8130 print ,, "manuell eingabe"
8140 input x$
8150 if x$="a" then goto auto
8160 if x$="m" then goto 20
8170 goto 8140
9000 MDOS 
9010 CLS 
9020 GOSUB 2000
9030 GOTO 10