REM REM ************************************************* REM * Dragon file header detected: * REM * Start: $2401 Length: $00d4 Exec: $8b8d * REM *(Start: 09217 Length: 00212 Exec: 35725) * REM ************************************************* REM 10 CLS 50 FREAD "NORSK";N$ 51 FREAD "TYSK";T$ 55 IF EOF ("TYSK")=1 THEN 70 60 GO SUB 100 69 GO TO 50 70 CLOSE 1 80 END 100 PRINT @0,T$: PRINT @32,"";: INPUT T$ 101 IF T$=N$ THEN GO TO 200 102 PRINT @480,"GALT GJETTET" 103 GO TO 100 200 PRINT @480,"RIKTIG GJETTET" 201 RETURN REM REM line numbering breaks here! REM FROM FROM FROM REM REM ************************************************* REM * Dragon file header detected: * REM * Start: $2401 Length: $0072 Exec: $8b8d * REM *(Start: 09217 Length: 00114 Exec: 35725) * REM ************************************************* REM 10 CLS 30 PRINT "NAME","NUMBER" 50 FREAD "NORSK";N$ 51 FREAD "TYSK";T$ 55 IF EOF ("TYSK")=1 THEN 70 60 PRINT N$,T$: GO TO 50 70 CLOSE 1 80 END REM REM line numbering breaks here! REM FROM REM REM ************************************************* REM * Dragon file header detected: * REM * Start: $2401 Length: $0089 Exec: $8b8d * REM *(Start: 09217 Length: 00137 Exec: 35725) * REM ************************************************* REM 10 CLS 40 CLS 50 INPUT "NORSK";N$ 51 IF N$="" THEN END 52 GO SUB 1000 60 INPUT "TYSK";T$ 61 GO SUB 2000 80 GO TO 40 1000 FWRITE "NORSK";N$ 1001 RETURN 2000 FWRITE "TYSK";T$ 2001 RETURN REM REM line numbering breaks here! REM FROM FROM ABEND ABENDS ABER ABITUR ABNEHMEN ACHT ACHTUNDZWANZIG ACHTZEHN ACHTZIG ALL ALLE ALLEE ALLES ALPHABET ALSO ALT ALTER ALTMODISCH AM WOCHENENDE ANDEREN ANFANGEN ANHABEN ANTENNE ANTWORTEN ANZIEHEN DRESSEN APFELBAUM APRIKOSE ARBEITE ARGERLICH ARM ARMBANDUHR ARZT AUCH AUCH NICHT AUCH NICHTS AUF AUFBLEIBEN AUFGABE AUFGEHEN AUFHANGEN AUFSCHREIBEN AUFMACHEN AUFSTEHEN PA GJENSYN AUF WIEDERSEHEN AUGE AUGENBLICK AUGUST SICH AUSRUHEN AUSSEHEN AUSSTELLUNG BIL AUTOBAHN AUTOSCHLUSSEL BABY BACKER BADEANZUG BADEN BADEN GEHEN BADEZIMMER BAHNHOF BALD BALL BANANE BAUCHSHMERZEN DAS BAUJAHR DER BAUM BEANTWORTEN BEAT BEI BEISPIEL BEIbEN BEKANNT EN GAMMEL BEKOMMEN BELLEN BEQUEM BERG EIN BERLINER JUNGE EIN BERLINER MADCHEN DER BERUF BERUHMT BESONDERS BESSER BESTEHEN AUS BESTELLEN BESTEN BESUCH BESUCHEN BETRACHTEN BETT BIER BILD DAS BILDBUCH BILLIG BITTE BITTE SEHR BLAU BLEIBEN BLEIBT ER STEHEN BLEIBT ER ZU HAUSE DER BLEISTIFT BLUME BLUSE BODENSEE BOOT BRAUCHEN BRAUN BREIT BRIEF DER BRIEFKASTEN DER BRIEFTASCHE BRIEFTRAGER DIE BRILLE BROT DAS BR0TCHEN BRUDER BRUDER DAS BUCH BUNT DIT BURG DER BUS DIE BUTTER CAFE FROM FROM FROM ($FFFF)($fe)($FFFF)($FFEF)($fe)($FFFF)($FF0F)($fe)($FFFF) 65295 ($fe)($FFFF) 65535 ( DSKINIT ($ed) NORSK DATD TYSK DAT ($fc) MGLOSER BAK FREAD  146 GLOSER REM REM line numbering breaks here! REM BAS PUT  {GLOSEP BAS RESTORE  MERGE INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT KVELDEN OM KVELDEN MEN STUDENTEKSAMEN TA AV(SEG) ATTE TJUEATTE ATTEN ATTI ALL ALLE ALLE'EN ALT ALFABETET ALTSA GAMMEL ELDRE GAMMELDAGS I HELGEN DEN ANDRE BEGYNNE HA PA(SEG) ANNTENNEN SVARET KLE PA SEG ANZUG EPLETRE APRIKOSEN ARBEIDE ERGELIG FATTIG ARMBANDSUR LEGEN OGSA HELLER IKKE HELLER IKKE NOE PA BLI OPPE LEKSE GA OPP HENGE OPP SKRIVE OPP APNE STA OPP AUFWACHEN PA GJENSYN 0YE 0YEBLIKK AUGUST HVILE SEG UT SE UT UTSTILLING AUTO MOTORVEI BILN0KKEL BABY BAKER BADEDRAKT BADE GA OG BADE BADET JERNBANESTASJON SNART BALL BANAN MAGESMERTE BYGGEARET TREET BESVARE POPMUSIKK HOS EKSEMPEL BITE KJENT EINE ALTE TA IMOT BJEFFE BEHAGELIG FJELL EN GUTT FRA BERLIN EN JENTE FRA BERLIN YRKET BER0MT SAERSKILT BEDRE BESTA AV BESTILLE BEST BES0K BES0KE BETRAKTE SENG 0L BILDE BILDEBOKA BILLIG VAER SA SNILL VAER SA GOD BLA BLI BLIR HAN STAENDE BLIR HAN HJEMME BLYANTEN BLOMST BLUSE BODENSJ0EN BAT HA BRUK FOR BRUN BRED BREV POSTKASSE LOMMEBOKA POSTBUD BRILLEN BR0D RUNDSTYKKET BROREN BOKA BOKA MANGEFARGET BORGEN BUSSEN SM0RET KAFE FROM FROM FROM ($FFFF)($fe)($FFFF)($FFEF)($fe)($FFFF)($FF0F)($fe)($FFFF) 65295 ($fe)($FFFF) 65535 ( DSKINIT ($ed) NORSK DATD TYSK DAT ($fc) MGLOSER BAK FREAD  146 GLOSER REM REM line numbering breaks here! REM BAS PUT  {GLOSEP BAS RESTORE  MERGE INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT