%LA500:20: ** FLITS ** / ** BLITZ **kL$(8):AA("A"):SP0:SV0vT$" "100:SR$" R E A K T I O N":150::$"Das Programm laesst kurz eine Zahl,"."ein Wort oder eine Autonummer auf") 8"dem Bildschirm erscheinen. Das Er-"U B"schienene muss danach genau eingeben" L"werden. Nur wenn das richtig gemacht" V"wurde, wird die folgende Anzeigezeit " `"kuerzer. Wenn es nicht richtig war,"!j"dauert es beim naechsten mal etwas "0!t"laenger. Unter dem Ausgabefeld steht"H!~"die Ausgabezeit."o!"Mach sie so klein wie moeglich!"!::"Eine Taste --->";:210:100!::GP0.0001:SD20: >> FLITSDUUR <<!SR$" W A E H L E ":150::!"( S = Stoppen )"::)""Willst du Zahlen ":" Woerter"J"" Autonummern ?":k""Druecke Z, W oder A";:210{"IN83 950"(IN65)(IN90)(IN87):1230"::K11:IN87 K12"IN65 K13:K28"K1 1290,1300,2000# "Zahlen mit wieviel Ziffern?":1310;#"Woerter mit wieviel Buchstaben?"c#"Druecke 1, 2, 3, 4 oder 5 ";:210s#(IN83 950#2(IN49)(IN53):1310#<K2IN48#600:PH1HG:PV1VG# ---TREK LIJNEN---#CN0:HO.15:VE.3:620:HO.38:630$HO.42K29PH:VE.3:620:HO.85:630@$HO0:VE.2:620:HO1PH:630d$VE.4:630:HO0:630:VE.2:630$ HO.3:VE.1:SR$"! = MENU":650$ ===HOOFDPROGRAMMA===$ K1 3030,3060,3250$ ---GETALLENGENERATOR---$ 260:SR10000(RV90000)% 300:X$(SR$,K2):SR(X$):35109% ---WOORDENGENERATOR---[% K2 3080,3080,3120,3150,3200p% ---1 LETTER---% 260:XAA(RV26):X$(X):K21 3510% ---2 LETTERS---% 260:XAA(RV26):X$(X):K22 3510%& ---2 LETTERS ---&0 :260:N1 RV50:X$:N&: 35102&D ---4 LETTERS---8&N P&X X$:X$"W4" 3160l&b 260:N1 RV50:X$:Nv&l 3510&v ---5 LETTERS---& & X$:X$"W5" 3210& 260:N1 RV50:X$:N& 3510& ---AUTONUMMERGENERATOR---' N1 4:260:L$(N)(AARV26):N"' N5 8I' 260:SR(RV10):300:L$(N)SR$:N|' X$L$(1)L$(2)"-"L$(5)L$(6)"-"L$(3)L$(4)' 1-4=LETTERS, 5-8=CIJFERS, HIER DUS LL-CC-LL' --- WIS VORIGE FLITSDUUR ---' CN1:HO0:VE.8:SR$T$:650:CN0( ---PRINT DE FLITSDUUR---1( SRSD10:CT3:CN1:310V( CN0:SR$SR$" sek.":650:T$SR$s( ---WERK GRAFIEK BIJ---( GPGPPH:GP1PH 950( ---DOE DE FLITS---( Z$"":N1 (X$):Q$(X$,N,1)(Q$"0" Q$"O")Z$Z$Q$:N: ---0 WORDT O---)HO.4:VE.29:SR$Z$:6509)$400: >> FLITSDUUR <<L).CN1:650:CN0j)8HO.37:VE.6:SR$"?":650)B ---INPUT ANTWOORD---)LY$"":LY0:HO.4:VE.6)V210:IN13 3780)`IN$"!" 100:1180)j(IN33)(IN127)3670*t(IN127)(LY0)3670*~IN127 37602*CN1:SR$Y$:650:CN0L*(Y$)1 Y$"":3750a*Y$(Y$,(Y$)1)*LYLY1:SR$Y$:650:3670*Y$Y$IN$:LYLY1:SR$Y$:650:3670* ---BEOORDELING---*G0:SDSD1:X$Y$ G1:SDSD2:SD0 SD1+SD40 SD40+HO.4:VE.6:SR$Y$:650N+G1 HO.4:VE.7:SR$"RICHTIG !":650:3830{+HO0:VE.7:SR$"SCHADE, es war "X$:650+HO.4:VE.8:SR$" << SPACE >> ":650+CN1 3880+ 210:(IN32)(IN$"!")3850+IN$"!" 100:1180,CN1:3800,(CN0:K1 3030,3060,3250$,2G,a"DAK","HOK","MAN","SAP","VIS"j,a"LAK","MIS","UIT","BOS","TAK",a"KAT","UIL","BOK","TOR","RAT",a"VAT","VET","PAN","WAS","ZOT",a"TIK","REM","POP","KAR","BUS",a"LEK","HIJ","WIJ","WEI","MEI"-a"KOU","KOM","DUS","KAM","LAM"<-a"DAS","SOK","ELF","ZES","MES"_-a"KEI","EIK","IEP","GEK","DUN"-b"BOL","MUG","SIP","KOE","OEF"- b"W4"-b"HALT","HOUT","JONG","MUIS","PLOF"- b"HOOP","KIST","PLAK","BALK","KURK".*b"HARK","BANG","SLAK","GOED","MOOI",.4b"HOOI","OLIE","OPEN","LAAT","VLUG"T.>b"KOEK","WESP","VIER","VUUR","HAND"|.Hb"BOEK","TIJD","ZWAK","MIER","DOEK".Rb"BIJL","ZEIL","STER","REUS","NEUS".\b"KNIE","FLES","TAAL","TAAK","KAAL".fb"RAND","WENS","SNEL","TOUW","HIER"/pb"ZALM","BEER","KRUK","VOUW","DEUR"&/zb"W5"S/b"NEGEN","LEVER","BEEST","KATER","STANG"/b"VLIEG","KEVER","METER","SLANG","GROND"/b"BOTER","ANKER","LEPEL","BETER","PLONS"/b"RATEL","LATER","ZEKER","KOPER","REGEL"0b"MOTOR","KAPOT","STUUR","WAGON","KRUIK"40b"KRAAN","WATER","GROEN","VADER","BROER"a0b"TANTE","GROEP","GELUK","JARIG","TAART"0b"LENTE","BLOEM","TAFEL","STRIK","BOTER"0b"BOVEN","KRIJT","BLAUW","HOPEN","KAART"0b"LUCHT","KRAAI","LOKET","TYPEN","KLAAR"0b1} GESCHRIEBEN AUF BBC-COMPUTER#1 } JANUAR 198981} CH.W.BREDERODEW1} VON BONNINGHAUSENLAAN 33l1(} 2161 ES LISSEr12}1<} Uebersetzt von1F} Ronald Knak1P} Dr.-H.-Wolf-Str.11Z} Schwerin1d} 2 7 5 81n}-------------------------------------------02x} Erstausstrahlung: Deutschlandsender KulturE2}-spezial 9106267 5 81n}-------------------------------------------02x} Erstausstrahlung: Deutschla