q$=" "
w$=TRANSLATE$(q$)
SAY w$
 SCREEN 1,635,238,1,2
 WINDOW 2,,,16,1
 PALETTE 0,0,.11,.4
 PALETTE 1,.78,1,.98
 DIM deu$(190)
 DIM inv$(190)
 DIM ver$(190)
 DIM prp$(190)
 FOR i=1 TO 185
 READ deu$(i)
 NEXT
 FOR i=1 TO 185
 READ inv$(i)
 NEXT
 FOR i=1 TO 185
 READ ver$(i)
 NEXT
 FOR i=1 TO 185
 READ prp$(i)
 NEXT

 LOCATE 4,36:PRINT"M E N U"
 LOCATE 20,20:PRINT"© copyright 1989 by PARAGON SOFTWARE Inc."
 Menue:
 LINE (201,41)-(415,111),0,bf
 LOCATE 8,32:PRINT"F1 <<<>>> Start"
 LOCATE 10,32:PRINT"F2 <<<>>> About"
 LOCATE 12,32:PRINT"F3 <<<>>> Bye Bye"
 LINE (200,40)-(416,112),1,b
 Enemy:
 a$=INKEY$
 IF a$=CHR$(129) THEN Eingabea
 IF a$=CHR$(130) THEN About
 IF a$=CHR$(131) THEN SYSTEM
 GOTO Enemy
 About:
 LINE (201,41)-(415,111),0,bf
 LOCATE 7,29:PRINT"Irregular Verbs  V1.3"
 LOCATE 9,31:PRINT"idea by  K.Blank"
 LOCATE 10,28:PRINT"written by  V.Stepprath"
 LOCATE 13,28:PRINT"© 1989 PARAGON SOFTWARE"
 WHILE INKEY$="":WEND
 GOTO Menue
 REM HAUPTPROGRAMM*******=
 Eingabea:
 LINE (201,41)-(415,110),0,bf
 LOCATE 10,27:INPUT"No. of verbs [1-99] > ",num
 IF num <0 OR num=0 OR num>99 OR num>INT(num) THEN Eingabea
 CLS
 LINE (0,9)-(625,173),1,b
 COLOR 0,1
 LOCATE 1,1:PRINT" Nr.| Deutsch      | Present tense     | Past tense      | Present perfect     "
 COLOR 1,0                                                                                  
 cla=num
 neu:
 b=0
 LINE (0,173)-(625,186),1,b
 FOR i=1 TO 20 STEP 2
 COLOR 1,0
 c=c+1
 IF c=num THEN
 COLOR 0,1
 LOCATE 2+i:PRINT c
 END IF
 LOCATE 2+i,1:PRINT c
 NEXT
 LINE(0,9)-(0,186)
 LINE (37,7)-(37,186),1
 FOR i=1 TO 20 STEP 2
 COLOR 1,0
 LOCATE 2+i,6:PRINT STRING$(73,46)
 NEXT i
 FOR i=1 TO 20 STEP 2
 LOCATE 2+i,20:PRINT" "
 LOCATE 2+i,40:PRINT" "
 LOCATE 2+i,58:PRINT" "
 NEXT
 LINE (155,7)-(155,186),1
 LINE (316,7)-(316,186),1
 LINE (460,7)-(460,186),1
 cn=0
 LOCATE 27,9:PRINT"RETURN «» Next word.........."
 LOCATE 28,9:PRINT"F1 «««»»» Speak present tense"
 LOCATE 27,41:PRINT"F2 «««»»» Speak past tense....."
 LOCATE 28,41:PRINT"F3 «««»»» Speak present perfect"
 Zufallab:
 b=b+1
 cla=cla-1                       
 IF cla=-1 THEN Quotea
 Zufalla:
 IF b=11 THEN cla=cla+1:GOTO neu
 RANDOMIZE TIMER
 z=INT(RND*200)
 IF z>185 OR z=0 THEN Zufalla
 IF z=ru THEN Zufalla
 LOCATE 23,6:PRINT"              "
 LOCATE 23,21:PRINT"                   "
 LOCATE 23,41:PRINT"                 "
 LOCATE 23,59:PRINT"                    "
 alle:
 ru=z
 vn=vn+1
 cn=cn+2
 COLOR 0,1
 LOCATE 23,1:PRINT vn
 COLOR 1,0
 LOCATE 1+cn,6:PRINT deu$(z)
 LOCATE 23,6:PRINT deu$(z)
 LOCATE 1+cn,21:INPUT"I ",pt$
 IF pt$<> inv$(z) THEN Verin
 LOCATE 23,28:PRINT" OK!":eb=eb+1
 LOCATE 1+cn,23+LEN(pt$):PRINT" *"
 pasta:
 LOCATE 1+cn,41:INPUT"I ",pat$
 IF pat$<>ver$(z) THEN Verpa
 LOCATE 23,47:PRINT" OK!":ev=ev+1
 LOCATE 1+cn,43+LEN(pat$):PRINT" *"
 prepera:
 LOCATE 1+cn,59:INPUT"I`ve ",pp$
 IF pp$<>prp$(z) THEN Verpre
 LOCATE 23,67:PRINT" OK!":en=en+1
 LOCATE 1+cn,64+LEN(pp$):PRINT" *"
 GOTO sprich
 Verin:
 LOCATE 23,21:PRINT"I ";inv$(z)
 GOTO pasta
 Verpa:
 LOCATE 23,41:PRINT"I ";ver$(z)
 GOTO prepera
 Verpre:
 LOCATE 23,59:PRINT"I`ve ";prp$(z)
 sprich:
 a$=INKEY$
 IF a$=CHR$(13) THEN Zufallab
 IF a$=CHR$(129) THEN SAY(TRANSLATE$(inv$(z)))
 IF a$=CHR$(130) THEN SAY(TRANSLATE$(ver$(z)))
 IF a$=CHR$(131) THEN SAY(TRANSLATE$(prp$(z)))
 GOTO sprich
 Quotea:
 LOCATE 23,6:PRINT"              "
 LOCATE 23,6:PRINT" Quote:";CLNG(100/num*((ev+en+eb)/3));"%"
 LOCATE 23,21:PRINT eb;"of";num;">";INT(100/num*eb);"%"
 LOCATE 23,41:PRINT ev;"of";num;">";INT(100/num*ev);"%"
 LOCATE 23,59:PRINT en;"of";num;">";INT(100/num*en);"%"
 LINE (50,200)-(600,230),0,bf
 LOCATE 27,33:PRINT"F10 «««»»» MENU"
 c=0:cla=0:vn=0:ev=0:en=0:eb=0
 backa:
 FOR zr=1 TO 90
 a$=INKEY$
 IF a$=CHR$(138) THEN Menue
 LINE (230,206)-(400,216),1,b
 NEXT
 FOR zr=1 TO 80
 a$=INKEY$
 IF a$=CHR$(138) THEN Menue
 LINE (230,206)-(400,216),0,b
 NEXT
 GOTO backa
 
 
 REM *********************************************************
 DATA bleiben,erheben,erwachen,sein,schlagen,werden,zeugen,anfangen,beugen,berauben
 DATA ersuchen,wetten,bieten,abwarten,binden,beißen,bluten,vermischen,blasen,brechen
 DATA aufziehen,bringen,bauen,brennen,bersten,kaufen,werfen,fangen,schelten,wählen
 DATA spalten,anklammern,ankleiden,kommen,kosten,kriechen,kraehen,schneiden,handeln
 DATA gebären,graben,tun,ziehen,träumen,trinken,fahren,wohnen,essen,fallen,fuettern
 DATA fuehlen,kämpfen,finden,fliehen,schleudern,fliegen,verbieten,vergessen,aufgeben
 DATA (ge)frieren,bekommen,vergolden,(um)guerten,geben,gehen,(ein)graben,mahlen
 DATA wachsen,hängen,haben,hören,heben,hacken,verbergen,treffen,halten,verletzen
 DATA (fest)halten,knien,stricken,wissen
 DATA legen,fuehren,(an)lehnen,ueberspringen,lernen,verlassen,leihen,lassen,liegen
 DATA anzuenden,verlieren,machen,meinen,begegnen,mähen,zahlen,einpferchen,plazieren
 DATA lesen,(zer)reißen,befreien,reiten,läuten,aufstehen,(sich)spalten,laufen
 DATA sägen,sagen,sehen,suchen,verkaufen,senden,setzen,nähen,schuetteln,rasieren
 DATA scheren,ausgießen,scheinen,beschuhen,schießen,zeigen,zerfetzen,einschrumpfen
 DATA schließen,singen,sinken,sitzen,erschlagen,schlafen,gleiten,schleudern,schleichen,schlitzen
 DATA riechen,quälen,(aus)säen,sprechen,eilen,buchstabieren,ausgeben,verschuetten
 DATA spinnen,(aus)spucken,spalten,verderben,verbreiten,springen,stehen,einschlagen
 DATA stehlen,stecken,stechen,stinken,(be)streuen,ueberschreiten,streiken,spannen
 DATA streben,schwören,schwitzen,fegen,(an)schwellen,schwimmen,schwingen,nehmen
 DATA lehren,ziehen,erzählen,denken,gedeihen,werfen,stoßen,treten,wachen,(Mode)tragen
 DATA weben,weinen,nässen,gewinnen,winden,arbeiten,(aus)wringen,schreiben
 REM**********************************************************
 DATA abide,arise,awake,be,beat,become,beget,begin,bend,bereave
 DATA beseech,bet,bid,bide,bind,bite,bleed,blend,blow,break,breed,bring
 DATA build,burn,burst,buy,cast,catch,chide,choose,cleave,cling,clothe
 DATA come,cost,creep,crow,cut,deal
 DATA bear,dig,do,draw,dream,drink,drive,dwell,eat,fall,feed,feel,fight,find
 DATA flee,fling,fly,forbid,forget,forsake,freeze,get,gild,gird,give,go
 DATA grave,grind,grow,hang,have,hear,heave,hew,hide,hit,hold,hurt,keep
 DATA kneel,knit,know
 DATA lay,lead,lean,leap,learn,leave,lend,let,lie,light,lose,make,mean,meet
 DATA mow,pay,pen,put,read,rend,rid,ride,ring,rise,rive,run,saw,say,see,seek,sell
 DATA send,set,sew,shake,shave,shear,shed,shine,shoe,shoot,show,shred,shrink
 DATA shut,sing,sink,sit,slay,sleep,slide,sling,slink,slit
 DATA smell,smite,sow,speak,speed,spell,spend,spill,spin,spit,split,spoil,spread
 DATA spring,stand,stave,steal,stick,sting,stink,strew,stride,strike,string,strive
 DATA swear,sweat,sweep,swell,swim,swing,take,teach,tear,tell,think,thrive,throw,thrust
 DATA tread,wake,wear,weave,weep,wet,win,wind,work,wring,write
 REM***********************************************************
 DATA abode,arose,awoke,was,beat,became,begot,began,bent,bereft
 DATA besought,bet,bade,bode,bound,bit,bled,blent,blew,broke,bred
 DATA brought,built,burnt,burst,bought,cast,caught,chid,chose,clove
 DATA clung,clad,came,cost,crept,crew,cut,dealt
 DATA bore,dug,did,drew,dreamt,drank,drove,dwelt,ate,fell,fed,felt,fought
 DATA found,fled,flung,flew,forbade,forgot,forsook,froze,got,gilt,girt
 DATA gave,went,graved,ground,grew,hung,had,heard,hove,hewed,hid,hit,held
 DATA hurt,kept,knelt,knit,knew
 DATA laid,led,leant,leapt,learnt,left,lent,let,lay,lit,lost,made,meant
 DATA met,mowed,paid,pent,put,read,rent,rid,rode,rang,rose,rived,ran
 DATA sawed,said,saw,sought,sold,sent,set,sewed,shook,shaved,sheared,shed
 DATA shone,shod,shot,showed,shred,shrank,shut,sang,sank,sat,slew,slept,slid
 DATA slung,slunk,slit
 DATA smelt,smitten,sowed,spoke,sped,spelt,spent,spilt,spun,spat,split
 DATA spoilt,spread,sprang,stood,stove,stole,stuck,stung,stank,strewed,strode
 DATA struck,strung,strove,swore,sweat,swept,swelled,swam,swung,took,tought,tore,told,thought
 DATA throve,threw,thrust,trod,woke,wore,wove,wept,wet,won,wound,wrought,wrung,wrote
 REM**********************************************************
 DATA abode,arisen,awoke,been,beaten,become,begotten,begun,bent,bereft
 DATA besought,bet,bidden,bided,bound,bitten,bled,blent,blown,broken
 DATA bred,brought,built,burnt,burst,bought,cast,caught,chidden,chosen
 DATA cloven,clung,clad,come,cost,crept,crowed,cut,dealt
 DATA born,dug,done,drawn,dreamt,drunk,driven,dwelt,eaten,fallen,fed,felt
 DATA fought,found,fled,flung,flown,forbidden,forgotten,forsaken,frozen,got
 DATA gelt,girt,given,gone,graven,ground,grown,hung
 DATA had,heard,hove,hewn,hidden,hit,held,hurt,kept,knelt,knit,known
 DATA laid,led,leant,leapt,learnt,left,lent,let,lain,lit,lost,made,meant,met
 DATA mown,paid,pent,put,read,rent,rid,ridden,rung,risen,riven,run,sawn,said
 DATA seen,sought,sold,sent,set,sewn,shaken,shaven,shorn,shed,shone,shod,shot
 DATA shown,shred,shrunk,shut,sung,sunk,sat,slain,slept,slid,slung,slunk,slit
 DATA smelt,smote,sown,spoken,sped,spelt,spent,spilt,spun,spat,split,spoilt
 DATA spread,sprung,stood,stove,stolen,stuck,stung,stunk,strewn,stridden,struck
 DATA strung,striven,sworn,sweat,swept,swollen,swum,swung,taken,taught,torn
 DATA told,thought,thriven,thrown,thrust,trodden,woken,worn,woven,wept,wet
 DATA won,wound,wrought,wrung,written