22.08.85 4 4 10 IND,AARTUN,IVAR,OSV. IVAR FROM FROM 1 1 1000 568683 4 FROM 22.08.85 21.08.85 4 23 10 J? FROM FROM 1 1 6 1 100000000000000000000000000000 T56 T IDAG" 2 PRINT @32,"1.UTFORBI SKOLEGARDEN" 3 PRINT @64,"2.R0YKET PA SKOLEN" 4 PRINT @96,"3.SKJELL UT LAEREREN" 5 PRINT @128,"4.KOM FORSENT" 6 PRINT @160,"5.SKULKET" 7 PRINT @192,"6.GLEMMING" 8 PRINT @224,"7.VAERT PA DAGFINN" 9 PRINT @288," >"; 10 G$= INKEY$ : IF G$="" THEN 10 11 G= VAL (G$) 12 IF G<1 OR G>7 THEN 10 13 ON G GO SUB 100,200,300,400,500,600,700 14 GO TO 0 100 CLS 101 :'UTFORBI SKOLEN 102 PRINT "HVOR MANGE FRIMINUTT" 103 PRINT " >"; 104 LINE INPUT F1$ 105 PRINT "HVILKEN DATO" 106 PRINT " >"; 107 LINE INPUT D1$ 108 FWRITE "UTFORBI";F1$ 109 CLOSE 110 FWRITE "DEN";D1$ 111 CLOSE 112 RETURN 200 CLS 201 :'roykt pa skolen 202 PRINT "HVOR MANGE GANGER" 203 PRINT " >"; 204 LINE INPUT F2$ 205 PRINT "HVILKEN DATO" 206 PRINT " >"; 207 LINE INPUT D2$ 208 FWRITE "R0YKT";F2$ 209 CLOSE 210 FWRITE "DTO";D2$ 211 RETURN 300 :'skjelt ut laereren 301 CLS 302 PRINT "HVOR MANGE GANGER" 303 PRINT " >"; 304 LINE INPUT F3$ 305 PRINT "HVILKEN LAERER" 306 PRINT " >" 307 LINE INPUT L1$ 308 PRINT "HVILKEN DATO" 309 PRINT " >"; 310 LINE INPUT D3$ 311 FWRITE "UTSKJELT";F3$ 312 FWRITE "LAERER";L1$ 313 FWRITE "DTRE";D3$ 314 CLOSE 315 RETURN 400 :'komt forsent 401 CLS 402 PRINT "HVOR MANGE GANGER" 403 PRINT " >"; 404 LINE INPUT F4$ 405 PRINT "HVILKEN DATO" 406 PRINT " >"; 407 LINE INPUT D4$ 408 FWRITE "FORSENT";F4$ 409 FWRITE "DFIRE";D4$ 410 CLOSE 411 RETURN 500 :'skulket 501 CLS 502 PRINT "HVOR MANGE TIMER" 503 PRINT " >"; 504 LINE INPUT F5$ 505 PRINT "HVILKEN DATO" 506 PRINT " >"; 507 LINE INPUT D7$ 508 FWRITE "SKULKET";F6$ 509 FWRITE "DSEKS";D6$ 510 CLOSE 511 RETURN 512 FWRITE "TEN";T1$ 513 FWRITE "DFEM";D5$ 514 CLOSE 515 RETURN 600 :'vaert pa dagfinn 601 CLS 602 PRINT "HVOR MANGE GANGER" 603 PRINT " >"; 604 LINE INPUT F7$ 605 PRINT "HVILKEN DATO" 606 PRINT " >"; 607 LINE INPUT D7$ 608 FWRITE "DAGFINN";F7$ 609 FWRITE "DSJU";D7$ 610 CLOSE 611 RETURN REM REM line numbering breaks here! REM FROM FROM 22.08.85 21.08.85 22.08.85 26.08.85 4 6/10 RT IDAG" 2 PRINT @32,"1.UTFORBI SKOLEGARDEN" 3 PRINT @64,"2.R0YKET PA SKOLEN" 4 PRINT @96,"3.SKJELL UT LAEREREN" 5 PRINT @128,"4.KOM FORSENT" 6 PRINT @160,"5.SKULKET" 7 PRINT @192,"6.GLEMMING" 8 PRINT @224,"7.VAERT PA DAGFINN" 9 PRINT @288," >"; 10 G$= INKEY$ : IF G$="" THEN 10 11 G= VAL (G$) 12 IF G<1 OR G>7 THEN 10 13 ON G GO SUB 100,200,300,400,500,600,700 14 GO TO 0 100 CLS 101 :'UTFORBI SKOLEN 102 PRINT "HVOR MANGE FRIMINUTT" 103 PRINT " >"; 104 LINE INPUT F1$ 105 PRINT "HVILKEN DATO" 106 PRINT " >"; 107 LINE INPUT D1$ 108 FWRITE "UTFORBI";F1$ 109 CLOSE 110 FWRITE "DEN";D1$ 111 CLOSE 112 RETURN 200 CLS 201 :'roykt pa skolen 202 PRINT "HVOR MANGE GANGER" 203 PRINT " >"; 204 LINE INPUT F2$ 205 PRINT "HVILKEN DATO" 206 PRINT " >"; 207 LINE INPUT D2$ 208 FWRITE "R0YKT";F2$ 209 CLOSE 210 FWRITE "DTO";D2$ 211 RETURN 300 :'skjelt ut laereren 301 CLS 302 PRINT "HVOR MANGE GANGER" 303 PRINT " >"; 304 LINE INPUT F3$ 305 PRINT "HVILKEN LAERER" 306 PRINT " >" 307 LINE INPUT L1$ 308 PRINT "HVILKEN DATO" 309 PRINT " >"; 310 LINE INPUT D3$ 311 FWRITE "UTSKJELT";F3$ 312 FWRITE "LAERER";L1$ 313 FWRITE "DTRE";D3$ 314 CLOSE 315 RETURN 400 :'komt forsent 401 CLS 402 PRINT "HVOR MANGE GANGER" 403 PRINT " >"; 404 LINE INPUT F4$ 405 PRINT "HVILKEN DATO" 406 PRINT " >"; 407 LINE INPUT D4$ 408 FWRITE "FORSENT";F4$ 409 FWRITE "DFIRE";D4$ 410 CLOSE 411 RETURN 500 :'skulket 501 CLS 502 PRINT "HVOR MANGE TIMER" 503 PRINT " >"; 504 LINE INPUT F5$ 505 PRINT "HVILKEN DATO" 506 PRINT " >"; 507 LINE INPUT D7$ 508 FWRITE "SKULKET";F6$ 509 FWRITE "DSEKS";D6$ 510 CLOSE 511 RETURN 512 FWRITE "TEN";T1$ 513 FWRITE "DFEM";D5$ 514 CLOSE 515 RETURN 600 :'vaert pa dagfinn 601 CLS 602 PRINT "HVOR MANGE GANGER" 603 PRINT " >"; 604 LINE INPUT F7$ 605 PRINT "HVILKEN DATO" 606 PRINT " >"; 607 LINE INPUT D7$ 608 FWRITE "DAGFINN";F7$ 609 FWRITE "DSJU";D7$ 610 CLOSE 611 RETURN REM REM line numbering breaks here! REM FROM FROM 1 5 4 5 3 4 REM REM ************************************************* REM * Dragon file header detected: * REM * Start: $2401 Length: $0656 Exec: $8b8d * REM *(Start: 09217 Length: 01622 Exec: 35725) * REM ************************************************* REM 0 CLS 1 PRINT @0,"HVA GALT HAR DU GJORT IDAG" 2 PRINT @32,"1.UTFORBI SKOLEGARDEN" 3 PRINT @64,"2.R0YKET PA SKOLEN" 4 PRINT @96,"3.SKJELL UT LAEREREN" 5 PRINT @128,"4.KOM FORSENT" 6 PRINT @160,"5.SKULKET" 7 PRINT @192,"6.GLEMMING" 8 PRINT @224,"7.VAERT PA DAGFINN" 9 PRINT @288," >"; 10 G$= INKEY$ : IF G$="" THEN 10 11 G= VAL (G$) 12 IF G<1 OR G>7 THEN 10 13 ON G GO SUB 100,200,300,400,500,600,700 14 GO TO 0 100 CLS 101 :'UTFORBI SKOLEN 102 PRINT "HVOR MANGE FRIMINUTT" 103 PRINT " >"; 104 LINE INPUT F1$ 105 PRINT "HVILKEN DATO" 106 PRINT " >"; 107 LINE INPUT D1$ 108 FWRITE "UTFORBI";F1$ 109 CLOSE 110 FWRITE "DEN";D1$ 111 CLOSE 112 RETURN 200 CLS 201 :'roykt pa skolen 202 PRINT "HVOR MANGE GANGER" 203 PRINT " >"; 204 LINE INPUT F2$ 205 PRINT "HVILKEN DATO" 206 PRINT " >"; 207 LINE INPUT D2$ 208 FWRITE "R0YKT";F2$ 209 CLOSE 210 FWRITE "DTO";D2$ 211 RETURN 300 :'skjelt ut laereren 301 CLS 302 PRINT "HVOR MANGE GANGER" 303 PRINT " >"; 304 LINE INPUT F3$ 305 PRINT "HVILKEN LAERER" 306 PRINT " >" 307 LINE INPUT L1$ 308 PRINT "HVILKEN DATO" 309 PRINT " >"; 310 LINE INPUT D3$ 311 FWRITE "UTSKJELT";F3$ 312 FWRITE "LAERER";L1$ 313 FWRITE "DTRE";D3$ 314 CLOSE 315 RETURN 400 :'komt forsent 401 CLS 402 PRINT "HVOR MANGE GANGER" 403 PRINT " >"; 404 LINE INPUT F4$ 405 PRINT "HVILKEN DATO" 406 PRINT " >"; 407 LINE INPUT D4$ 408 FWRITE "FORSENT";F4$ 409 FWRITE "DFIRE";D4$ 410 CLOSE 411 RETURN 500 :'skulket 501 CLS 502 PRINT "HVOR MANGE TIMER" 503 PRINT " >"; 504 LINE INPUT F5$ 505 PRINT "HVILKEN DATO" 506 PRINT " >"; 507 LINE INPUT D7$ 508 FWRITE "GLEMMING";F6$ 509 FWRITE "DSEKS";D6$ 510 CLOSE 511 RETURN 512 FWRITE "TEN";T1$ 513 FWRITE "DFEM";D5$ 514 CLOSE 515 RETURN 600 :'vaert pa dagfinn 601 CLS 602 PRINT "HVOR MANGE GANGER" 603 PRINT " >"; 604 LINE INPUT F7$ 605 PRINT "HVILKEN DATO" 606 PRINT " >"; 607 LINE INPUT D7$ 608 FWRITE "DAGFINN";F7$ 609 FWRITE "DSJU";D7$ 610 CLOSE 611 RETURN 700 :'glemming 701 CLS 702 PRINT "HVOR MANGE FRIMINUTT" 703 PRINT " >"; 704 LINE INPUT G6$ 705 PRINT "HVILKEN DATO" 706 PRINT " >"; 707 LINE INPUT D6$ 708 FWRITE "GLEMMING";G6$ 709 FWRITE "DSEKS";D6$ 710 CLOSE 711 RETURN REM REM line numbering breaks here! REM FROM 20.08.85 21.08.85 22.08.85 26.08.85 4 7 INPUT A$ 4 IF A=0 AND A$="HELLO" OR A=0 AND A$="HEY" OR A=0 AND A$="HALLO" OR A=0 AND A$="HEI" THEN ($fd): ELSE ($fc)(: PRINT @0,"HEI HVORDAN STAR DET TIL":A=1:($fb) 9365 REM REM line numbering breaks here! REM :' 6 IF A=0 THEN ($fd): ELSE ($fc)Z: PRINT "VIL DU IKKE HILSE PA MEG ENGANG!OK DET GREIT DET JEG TAR DEM SOMEN UVENN!!!!!":U=1:($fb) REM REM line numbering breaks here! REM  7 :' 8 IF U=1 THEN ($fd): ELSE ($fc)G: PRINT "JEG VIL IKKE SNAKKE MED DEG F0R DU HAR LAERT DEG FOLKESKIKK!!!!!": END 9 :' 10 IF A$="JEG ER SYK" OR A$="JEG ER IKKE FRISK" OR A$="IKKE SA BRA" OR A$="DARLIG" OR A$="UVEL" THEN ($fd): ELSE ($fc)3: PRINT "DET VAR DA SYND FOR JEG VIL IKKE BLI SMITTET": END 11 :' 12 IF A$="FINT" OR A$="JEG HAR DET BRA" OR A$="GODT" OR A$="BRA" OR A$="SUPERT" OR A$="PERFEKT" OR A$="SVAERT BRA" OR A$="VELDIG BRA" OR A$="VELDIG GODT" THEN ($fd): ELSE ($fc): PRINT "DET VAR DA BRA":F=1:($fb) 9882 REM REM line numbering breaks here! REM :' 14 IF F=0 THEN ($fd): ELSE ($fc):($fb) 9908 REM REM line numbering breaks here! REM :' 16 IF A$="JA" THEN ($fd): ELSE ($fc): PRINT "HVA VIL DU":V=1:($fb) 9956 REM REM line numbering breaks here! REM :' 18 IF A$="HVORDAN ER DET MED DEG" OR A$="HVORDAN STAR DET TIL MED DEG" OR A$="HVA MED DEG" OR A$="OG HVA MED DEG" THEN ($fd): ELSE ($fc)7: PRINT "JEG ER ALLTID I KJEMPEGODT HUM0RHVA VIL DU":V=1:($fb) 10127 REM REM line numbering breaks here! REM :' 20 IF V=0 THEN ($fd): ELSE ($fc):($fb) REM REM line numbering breaks here! REM  21 IF A$="KAN JEG FA NOEN OPPLYSNINGER" OR A$="JEG 0NSKER A SE NOEN OPPLYSNINGER" OR A$="OPPLYSNINGER" THEN ($fd): ELSE ($fc): PRINT "JA SELVF0LGELIG":O=1:($fb) PLAY 22 IF A$="JEG VIL BARE HA NOEN A SNAKKE MED" OR A$="VIL BARE SNAKKE" OR A$="JEG 0NSKER BARE A SNAKKE MED NOEN" OR A$="SNAKKE MED DEG" OR A$="JEG VIL BARE SNAKKE MED DEG" OR A$="SNAKKE" THEN ($fd): ELSE ($fc) :S=1:($fb) PLAY 23 IF A$="ANER IKKE" OR A$="JEG VET IKKE" OR A$="INGEN ANING" OR A$="HADDE JEG BARE VISST DET" OR A$="HADDE JEG BARE VISST DET" THEN ($fd): ELSE ($fc) :A=1:($fb) PLAY 24 IF A$="JEG VIL SPILLE ET SPILL" OR A$="SPILLE ET SPILL" OR A$="SPILLE" OR RIGHT$ (A$,6)="SPILLE" THEN ($fd): ELSE ($fc):($fb) PLAY REM REM line numbering breaks here! REM 1 SET END : COMPILED BY DYNAFAST 1.2.5 (C)COPYRIGHT COMPUSENSE LTD 1984  9217 12704 11180 $1 CLS 5~ 158 DELETE o FOR o FOR 5wn LLIST * DATA O EDIT DIM FROM O EDIT DIM ($ea)4w! SWAP & SCREEN READ ($fe)c RESET o($ec) READ ($fe)] MERGE  MERGE  MERGE  DATA EDIT DIM FROM m DIM STEP & LET  CSAVE 1 DIM RENUM ($ec) ELSE ($ed) MOTOR DELETE  EDIT EXEC DATA ~ EDIT FOR 1 READ REM REM line numbering breaks here! REM SAVE  PCLEAR ELSE 3 READ ($fe)($f5) FN # PCLEAR DIM LET ($FF01)# PCOPY  SCREEN MOTOR PCLEAR STEP J&($f9) SCREEN READ ($fe) LOAD PCLEAR DIM REM SCREEN READ ($fe)($eb) PCLEAR READ ($FF7C)0 READ & PCLEAR READ ($fe) OR 0 READ R PCLEAR READ ($fe) DSKINIT 0 READ ($f7) PCLEAR READ ($fe) KILL SCREEN READ ($fe) SWRITE PCLEAR READ ($FF54)0 READ DELETE PCLEAR READ ($fe) DSKINIT SCREEN READ ($fe) BACKUP PCLEAR READ ($FF46) LET 'q PCLEAR READ ($fe)- SCREEN READ ($fe) AND PCLEAR READ ($FF39)0 READ READ PCLEAR READ ($fe) TO 0 READ  PCLEAR READ ($fe) RENAME SCREEN READ ($fe) REM PCLEAR READ ($fe)/ SCREEN READ ($fe) CONT PCLEAR READ ($fa)0 READ 36350 ON 0 READ * AUTO -($ec)- PCLEAR -($ed) READ ($FF0C)0 READ 0 AUTO 2($ec)- PCLEAR -($ed) READ ($fe)($eb) LET  LET 1 READ ($fe)($f8)($ec) ELSE ($ed) MOTOR DELETE  EDIT EXEC DATA ~ EDIT FOR 1 READ 44932 m READ ($fe) VERIFY &0 READ ($fe)( PCLEAR READ V5wOn LLIST REM REM line numbering breaks here! REM SKIPF 5($f7)($ee) SAVE 3D5' OFF &($fe) NOT  34006 READ n LLIST ($fe) EXEC READ n LLIST ($fe) SOUND 4($ec) READ ($fe) CONT ($fd)2($ec) READ ($fe) RESET ($fd)-($ec) READ ($fe) ON ($fd)# DATA ! EDIT READ ($fe) PSET ($ec) READ ($fe) READ ($fd) LET DELETE READ ($fe) ON PMODE  RESTORE m READ ($fe)y&($ec) READ ($fe)t($fd) CSAVE DELETE READ ($fe)o PMODE  CLOSE 5 PRINT SET DELETE 0* RESET DELETE 9 SET DELETE 0 RESET DELETE  DLOAD  MOTOR RESET DELETE 9470 READ ($fd) OPEN PCLEAR READ REM REM line numbering breaks here! REM OR SET DELETE DELETE FOR ' GO '($f8) GO &' GO 0 GO 9# POS 57n LLIST 158 DELETE DELETE 0 RESET DELETE GO 0 GO 9#+~ RENUM TROFF / ~'D/ 17566 DELETE 0 SET h($ee) READ REM REM line numbering breaks here! REM ~ DATA ($fa)62($ef) READ 36348  AUDIO READ REM REM line numbering breaks here! REM m$ FREAD SET DELETE ($ec) COPY  MERGE DELETE 9 SET DELETE 0($ec) GO 41 IF 1 SKIPF o READ _ FLREAD READ \& RESET DELETE 5 ELSE FLREAD READ Q SAVE VERIFY "($f3) GO ($fd)'O SWRITE READ C0($ec) NEXT COPY  MERGE DELETE 5 ELSE O SWRITE READ 40($ec) NEXT COPY  MERGE DELETE SET h DATA ($fa)($ee) READ 13039 READ REM REM line numbering breaks here! REM 3 READ ($fb) PCLEAR  AUDIO READ 9471 o5 ELSE REM REM line numbering breaks here! REM 3Ho NOT ($ee) DIM ($f5) FLREAD - STEP NEXT '($f3) STEP FOR '($ed) STEP ($fa)'($FF56)72 RESET DELETE  RESET h($ef) DIM ERROR 9M' GO :'Mn LLIST ($fd)D SET DELETE SCREEN READ  DSKINIT ($ee) DIM +60 SCREEN READ = SCREEN READ * DATA FOR 62($ef) DIM CIRCLE 9o NOT ($ef) DIM PCLS 5En LLIST ($fd)4E($ee) DIM CLS FLREAD - STEP NEXT '($ea) STEP FOR &($FF06)2d($ec) FREAD  SWRITE E($ed) FREAD mE+  AUDIO C.($ec)G MERGE DELETE 9 AUDIO C-($ec)G MERGE DELETE 93I($ef) READ ($FF6C)9 FOR 01 READ rH1 DELETE 4 READ 65 ($ed) EXEC 94 SET DELETE FLREAD  STEP ($f2)& 2241 ($f1)&($fc) SCREEN ($ec) RETURN RESET DELETE 2e~ DIM 7 SET DELETE ($ec)0($ed) READ >4 RESET DELETE READ ($ed)($f1)9 SUB ON r SUB NEXT -9($ef) READ REM REM line numbering breaks here! REM 1 READ fn ELSE 57616 ($ee) DIM ($f8)9 SCREEN SAVE 4($ec) ELSE n SCREEN SAVE 4($ec) CONT n SCREEN SAVE SWRITE SAVE n ELSE SCREEN SAVE CS+ 57710 ELSE SCREEN SAVE CS+ REM REM line numbering breaks here! REM n ELSE SCREEN SAVE 4 TRON b 168 + REM REM line numbering breaks here! REM PAINT ELSE n ELSE  32579 S+ 33824 PSET CIRCLE PMODE SUB STEP > BOOT ) - Q W [ _ SCREEN SAVE 4 TRON b READ ` READ m+ REM REM line numbering breaks here! REM EXEC ELSE n ELSE  32579 S+ 33966 SAVE XIn ELSE SCREEN SAVE 4M+mb**' READ A 32579 S+ 33933 3 REM REM line numbering breaks here! REM RESTORE ELSE n ELSE SCREEN SAVE ($ec)-n ELSE SCREEN SAVE ($ed)($f1)n ELSE SCREEN SAVE SWAP ($f1)n ELSE SCREEN SAVE 4O FLREAD ($f1)n ELSE 4($ec)e*CS+ 25909 PRINT 4($ec)g*CS+ 26421 PRINT 4 DELETE e FLREAD g=($ed) VERIFY DELETE d FLREAD g= DEF _ SWRITE VERIFY ($ed) VERIFY DELETE e FLREAD f= DEF _ SWRITE VERIFY PCLEAR VERIFY SCREEN b PCLEAR f($ed)b($ec) SAVE ($ed)b5 CLEAR 4 LET 25639 ($ec)f AUDIO d+0 ($f8)($ec)b($ed)f PCLEAR b($ec) SAVE ($ed)b5 CLEAR /~'D4< 25647 ($ec)f0' 4($ec)h4 READ DEF ($f2) SCREEN b PCLEAR f($ed)b($ec) SAVE ($ed)b5 CLEAR ~ NEXT READ SUB LET Q]'($f7) STEP "($f3)4v0 READ ($fd) CLEAR PCLEAR READ REM REM line numbering breaks here! REM k0 READ ($fb) PCLEAR READ e0 READ ($fb) PCLEAR READ O LOAD ($ed) READ 960 AUTO  6598 h DELETE FOR EDIT NOT Z&($f9)<($FFE4)($fd)($FF03)N0 READ REM REM line numbering breaks here! REM /Y DELETE FOR EDIT NOT Z&($f9)($fc)$5v~ READ ' SET ($ec) ELSE ' ' COPY ($ed) ELSE  ($f1) LOAD  AUDIO DIM ($f1)+  PRESET ELSE SUB ELSE $~ ELSE RESET 4V SCREEN DIM ($f7) LOAD  AUDIO DIM DRIVE ($fd) OFF 0 NEXT SWRITE ELSE ($ed) ELSE ($fc) OFF SCREEN DIM FROM 0 NEXT COPY LLIST ($fd)- TO -'0 TO -& RESET LLIST 5 DRIVE 90 ($fc) PRINT ($fc)($fb)($fd)($fc)A($fc)`($fc)~ 18941 SCREEN REM REM line numbering breaks here! REM $ GO ($f5) FOR ($f5)H3 DIM RENAME ($ec)/n= DATA INT OFF ' GO CHAIN ' RETURN MERGE '4 LOAD h'($FFFF)5& GO LOAD &($fb)wn LLIST ($fa) SET DELETE 0 RESET DELETE 9 SET DELETE 0 FLREAD ELSE : RESET DELETE 9 DATA NEXT ($ee) READ ($fc) INPUT 6($ef) READ ($fc)' SET DELETE 0 RESET DELETE 9 ($fe)($FFFF)($FFEF)($fe)($FFFF)($FFEF)($fe)($FFFF)($FFEF) FOR ($FFFF)($FFEF) 61439 ($FFFF) 65519 ($FF3F)($FFFF)($fe)($FFFB)($FFEF)($FFFF)($f3)($FFFF) 65535 ( DSKINIT ($ed) UTFORBI DATD ) DEN DAT ($fc) (LAGRE BAS FREAD  _ R0YKT DAT PUT  DTO DAT RESTORE  + DAGFINN DAT l , DSJU DAT H  FORSENT DAT $ DFIRE DAT   GLEMMINGDATz DSEKS DAT DIM   SORTPRG BAS SET  ? UTSKJELTDAT COLOR   LAERER DAT OFF   DTRE DAT CREATE  19 GO DSJU 68 AT FLREAD  REM REM line numbering breaks here! REM  GO P-1 BAS($f8)  KARAKTERBAS  P GO LESE BAK 43 GO DSEKS REM REM line numbering breaks here! REM DAT.  LESE BAS@ @ INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT 1 5 4 5 5 100000000000000000000000000000 " 30 PRINT @32,"1.UTFORBI SKOLEGARDEN" 40 PRINT @64,"2.R0YKET PA SKOLEN" 50 PRINT @96,"3.SKJELT UT LAEREREN" 60 PRINT @128,"4.KOMMET FORSENT" 70 PRINT @160,"5.SKULKET SKOLEN" 80 PRINT @192,"6.VAERT PA DAGFINN I FRIMINUTTET"; 90 PRINT @224,"********************************"; 100 PRINT " >"; 110 G$= INKEY$ : IF G$="" THEN 110 120 G= VAL (G$) 130 IF G<1 OR G>6 THEN 110 140 ON G GO SUB 160,270,380,500,610,720 150 GO TO 20 160 :'utforbi skolen 170 CLS 180 PRINT "VAERT UTFORBI SKOLEGARDEN" 190 FREAD "UTFORBI";F1$ 200 FREAD "DEN";D1$ 210 PRINT @256,F1$,D1$ 220 PRINT @416,"TRYKK EN TAST" 230 K$= INKEY$ : IF K$="" THEN 230 231 IF EOF ("UTFORBI")=1 THEN 150 240 GO TO 190 270 :'r0ykt pa skolen 280 CLS 290 PRINT @0,"R0YKT PA SKOLEN" 300 FREAD "R0YKT";F2$: 310 FREAD "DTO";D2$ 320 PRINT @256,F2$,D2$ 330 PRINT @416,"TRYKK EN TAST" 340 K$= INKEY$ : IF K$="" THEN 340 350 GO TO 300 360 IF EOF ("DTO")=1 THEN 150 370 RETURN 380 :'skjelt ut laereren 390 CLS 400 PRINT @0,"SKJELT UT LAEREREN" 410 FREAD "UTSKJELT";F3$ 420 FREAD "LAERER";L1$ 430 FREAD "DTRE";D3$: 440 PRINT @256,F3$,L1$,D3$ 450 PRINT @416,"TRYKK EN TAST" 460 K$= INKEY$ : IF K$="" THEN 460 470 GO TO 410 480 IF EOF ("DTRE")=1 THEN 150 490 RETURN 500 :'kommt forsent 510 CLS 520 PRINT @0,"KOMMT FORSENT" 530 FREAD "FORSENT";F4$ 540 FREAD "DFIRE";D4$ 550 PRINT @256,F4$,D4$ 560 PRINT @416,"TRYKK EN TAST" 570 K$= INKEY$ : IF K$="" THEN 570 580 GO TO 530 590 IF EOF ("DFIRE")=1 THEN 150 600 RETURN 610 :'skulket skolen 620 CLS 630 PRINT @0,"SKULKET SKOLEN" 640 FREAD "SKULKET";F5$ 650 FREAD "DFEM";D5$ 660 PRINT @256,F5$,D5$ 670 PRINT @416,"TRYKK EN TAST" 680 K$= INKEY$ : IF K$="" THEN 680 690 GO TO 640 700 IF EOF ("DFEM")=1 THEN 150 710 RETURN 720 :'vaert pa dagfinn 730 CLS 740 PRINT @0,"VAERT PA DAGFINN" 750 FREAD "DAGFINN";F6$ 760 FREAD "DSEKS";D6$ 770 PRINT @256,F6$,D6$ 780 PRINT @416,"TRYKK EN TAST" 790 K$= INKEY$ : IF K$="" THEN 790 800 GO TO 750 810 IF EOF ("DSEKS")=1 THEN 150 820 RETURN 650 IF EOF ("DSEKS")=1 THEN 14 651 RETURN REM REM line numbering breaks here! REM ($fe)($FFFF)($FFEF)($fe)($FFFF)($FFEF)($fe)($FFFF)($FFEF) FOR ($FFFF)($FFEF) 61439 ($FFFF) 65519 ($FF3F)($FFFF)($fe)($FFFB)($FFEF)($FFFF)($f3)($FFFF) 65535 ( DSKINIT ($ed) UTFORBI DATD ) DEN DAT ($fc) (LAGRE BAS FREAD  _ R0YKT DAT PUT  DTO DAT RESTORE  + DAGFINN DAT l , DSJU DAT H  FORSENT DAT $ DFIRE DAT   GLEMMINGDATz DSEKS DAT DIM   SORTPRG BAS SET  ? UTSKJELTDAT COLOR   LAERER DAT OFF   DTRE DAT CREATE  19 GO DSJU 68 AT FLREAD  REM REM line numbering breaks here! REM  GO P-1 BAS($f8)  KARAKTERBAS  P GO LESE BAK 43 GO DSEKS REM REM line numbering breaks here! REM DAT.  LESE BAS@ @ INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT 1 2 2 1 1 04.85 13.05.85 FROM 22.08.85 26.08.85 4 7 7 4 FROM REM REM ************************************************* REM * Dragon file header detected: * REM * Start: $2401 Length: $0136 Exec: $8b8d * REM *(Start: 09217 Length: 00310 Exec: 35725) * REM ************************************************* REM 10 CLS : DIM W$(50) 20 INPUT "HOW MANY WORDS";N 30 CLS : PRINT "ORIGINAL" 40 FOR I=1 TO N: PRINT I;". "; 50 INPUT W$(I): NEXT I 60 GO SUB 200 70 PRINT @18,"SORTED" 80 FOR I=1 TO N 90 PRINT @18+32*I,I;". ";W$(I) 100 NEXT I: END 200 M=N 210 F=0: FOR I=1 TO M-1 220 IF W$(I)<=W$(I+1) THEN 240 230 T$=W$(I):W$(I)=W$(I+1):W$(I+1)=T$:F=1 240 NEXT I: IF F=1 THEN M=M-1: GO TO 210 250 RETURN REM REM line numbering breaks here! REM 13 ON G GO SUB 100,200,300,400,500,600,700 14 GO TO 0 100 CLS 101 :'UTFORBI SKOLEN 102 PRINT "HVOR MANGE FRIMINUTT" 103 PRINT " >"; 104 LINE INPUT F1$ 105 PRINT "HVILKEN DATO" 106 PRINT " >"; 107 LINE INPUT D1$ 108 FWRITE "UTFORBI";F1$ 109 CLOSE 110 FWRITE "DEN";D1$ 111 CLOSE 112 RETURN 200 CLS 201 :'roykt pa skolen 202 PRINT "HVOR MANGE GANGER" 203 PRINT " >"; 204 LINE INPUT F2$ 205 PRINT "HVILKEN DATO" 206 PRINT " >"; 207 LINE INPUT D2$ 208 FWRITE "R0YKT";F2$ 209 CLOSE 210 FWRITE "DTO";D2$ 211 RETURN 300 :'skjelt ut laereren 301 CLS 302 PRINT "HVOR MANGE GANGER" 303 PRINT " >"; 304 LINE INPUT F3$ 305 PRINT "HVILKEN LAERER" 306 PRINT " >" 307 LINE INPUT L1$ 308 PRINT "HVILKEN DATO" 309 PRINT " >"; 310 LINE INPUT D3$ 311 FWRITE "UTSKJELT";F3$ 312 FWRITE "LAERER";L1$ 313 FWRITE "DTRE";D3$ 314 CLOSE 315 RETURN 400 :'komt forsent 401 CLS 402 PRINT "HVOR MANGE GANGER" 403 PRINT " >"; 404 LINE INPUT F4$ 405 PRINT "HVILKEN DATO" 406 PRINT " >"; 407 LINE INPUT D4$ 408 FWRITE "FORSENT";F4$ 409 FWRITE "DFIRE";D4$ 410 CLOSE 411 RETURN 500 :'skulket 501 CLS 502 PRINT "HVOR MANGE TIMER" 503 PRINT " >"; 504 LINE INPUT F5$ 505 PRINT "HVILKEN DATO" 506 PRINT " >"; 507 LINE INPUT D7$ 508 FWRITE "GLEMMING";F6$ 509 FWRITE "DSEKS";D6$ 510 CLOSE 511 RETURN 512 FWRITE "TEN";T1$ 513 FWRITE "DFEM";D5$ 514 CLOSE 515 RETURN 600 :'vaert pa dagfinn 601 CLS 602 PRINT "HVOR MANGE GANGER" 603 PRINT " >"; 604 LINE INPUT F7$ 605 PRINT "HVILKEN DATO" 606 PRINT " >"; 607 LINE INPUT D7$ 608 FWRITE "DAGFINN";F7$ 609 FWRITE "DSJU";D7$ 610 CLOSE 611 RETURN 700 :'glemming 701 CLS 702 PRINT "HVOR MANGE FRIMINUTT" 703 PRINT " >"; 704 LINE INPUT G6$ 705 PRINT "HVILKEN DATO" 706 PRINT " >"; 707 LINE INPUT D6$ 708 FWRITE "GLEMMING";G6$ 709 FWRITE "DSEKS";D6$ 710 CLOSE 711 RETURN REM REM line numbering breaks here! REM FROM 5 1 K 1 NORSK LAILA F LAILA LAUKSTOUL FROM FROM 4 1NOVEMBER L 6I10 FROM 13.05.85 13.05.85 13.05.85 FROM REM REM ************************************************* REM * Dragon file header detected: * REM * Start: $2401 Length: $0676 Exec: $8b8d * REM *(Start: 09217 Length: 01654 Exec: 35725) * REM ************************************************* REM 0 :'p-1 1 CLS 2 PRINT "HEY" 3 INPUT A$ 4 IF A=0 AND A$="HELLO" OR A=0 AND A$="HEY" OR A=0 AND A$="HALLO" OR A=0 AND A$="HEI" THEN PRINT @0,"HEI HVORDAN STAR DET TIL":A=1: GO TO 3 5 :'----------------------- 6 IF A=0 THEN PRINT "VIL DU IKKE HILSE PA MEG ENGANG!OK DET GREIT DET JEG TAR DEM SOMEN UVENN!!!!!":U=1: GO TO 3 7 :'----------------------- 8 IF U=1 THEN PRINT "JEG VIL IKKE SNAKKE MED DEG F0R DU HAR LAERT DEG FOLKESKIKK!!!!!": END 9 :'------------------------ 10 IF A$="JEG ER SYK" OR A$="JEG ER IKKE FRISK" OR A$="IKKE SA BRA" OR A$="DARLIG" OR A$="UVEL" THEN PRINT "DET VAR DA SYND FOR JEG VIL IKKE BLI SMITTET": END 11 :'--------------------- 12 IF A$="FINT" OR A$="JEG HAR DET BRA" OR A$="GODT" OR A$="BRA" OR A$="SUPERT" OR A$="PERFEKT" OR A$="SVAERT BRA" OR A$="VELDIG BRA" OR A$="VELDIG GODT" THEN PRINT "DET VAR DA BRA":F=1: GO TO 3 13 :'--------------------- 14 IF F=0 THEN GO TO 3 15 :'--------------------- 16 IF A$="JA" THEN PRINT "HVA VIL DU":V=1: GO TO 3 17 :'------------------ 18 IF A$="HVORDAN ER DET MED DEG" OR A$="HVORDAN STAR DET TIL MED DEG" OR A$="HVA MED DEG" OR A$="OG HVA MED DEG" THEN PRINT "JEG ER ALLTID I KJEMPEGODT HUM0RHVA VIL DU":V=1: GO TO 3 19 :'---------- 20 IF V=0 THEN GO TO 3 21 IF A$="KAN JEG FA NOEN OPPLYSNINGER" OR A$="JEG 0NSKER A SE NOEN OPPLYSNINGER" OR A$="OPPLYSNINGER" THEN PRINT "JA SELVF0LGELIG":O=1: GO TO 50000 22 IF A$="JEG VIL BARE HA NOEN A SNAKKE MED" OR A$="VIL BARE SNAKKE" OR A$="JEG 0NSKER BARE A SNAKKE MED NOEN" OR A$="SNAKKE MED DEG" OR A$="JEG VIL BARE SNAKKE MED DEG" OR A$="SNAKKE" THEN S=1: GO TO 55000 23 IF A$="ANER IKKE" OR A$="JEG VET IKKE" OR A$="INGEN ANING" OR A$="HADDE JEG BARE VISST DET" OR A$="HADDE JEG BARE VISST DET" THEN A=1: GO TO 60000 24 IF A$="JEG VIL SPILLE ET SPILL" OR A$="SPILLE ET SPILL" OR A$="SPILLE" OR RIGHT$ (A$,6)="SPILLE" THEN 45000 REM REM line numbering breaks here! REM FROM REM REM ************************************************* REM * Dragon file header detected: * REM * Start: $2401 Length: $0147 Exec: $8b8d * REM *(Start: 09217 Length: 00327 Exec: 35725) * REM ************************************************* REM 10 CLS 20 PRINT @0,"meny" 30 PRINT @32,"1.KRISTENDOM"; 40 PRINT @64,"2.NORSK/N.SIDEMAL"; 50 PRINT @96,"3.MATEMATIKK"; 60 PRINT @128,"4.SAMFUNNSFAG"; 70 PRINT @160,"5.ENGELSK"; 80 PRINT @192,"6.FORMING"; 90 PRINT @224,"7.NATURFAG"; 100 PRINT @256,"8.GYM(O)"; 110 PRINT @288,"9.NY NORSK"; 120 PRINT @320,"A.HEIMKUNNSKAP"; 130 PRINT @352,"B.MUSIKK"; 140 PRINT @384,"C.ORDEN/OPPF0RSEL"; REM REM line numbering breaks here! REM REM REM ************************************************* REM * Dragon file header detected: * REM * Start: $2401 Length: $0622 Exec: $8b8d * REM *(Start: 09217 Length: 01570 Exec: 35725) * REM ************************************************* REM 10 :'lese brudd 20 CLS : PRINT @0,"MENY" 30 PRINT @32,"1.UTFORBI SKOLEGARDEN" 40 PRINT @64,"2.R0YKET PA SKOLEN" 50 PRINT @96,"3.SKJELT UT LAEREREN" 60 PRINT @128,"4.KOMMET FORSENT" 70 PRINT @160,"5.SKULKET SKOLEN" 80 PRINT @192,"6.VAERT PA DAGFINN I FRIMINUTTET"; 90 PRINT @224,"********************************"; 100 PRINT " >"; 110 G$= INKEY$ : IF G$="" THEN 110 120 G= VAL (G$) 130 IF G<1 OR G>6 THEN 110 140 ON G GO SUB 160,270,380,500,610,720 150 GO TO 20 160 :'utforbi skolen 170 CLS 180 PRINT "VAERT UTFORBI SKOLEGARDEN" 190 FREAD "UTFORBI";F1$ 200 FREAD "DEN";D1$ 210 PRINT @256,F1$,D1$ 220 PRINT @416,"TRYKK EN TAST" 230 K$= INKEY$ : IF K$="" THEN 230 231 IF EOF ("UTFORBI")=1 THEN RETURN 240 GO TO 190 270 :'r0ykt pa skolen 280 CLS 290 PRINT @0,"R0YKT PA SKOLEN" 300 FREAD "R0YKT";F2$: 310 FREAD "DTO";D2$ 320 PRINT @256,F2$,D2$ 330 PRINT @416,"TRYKK EN TAST" 340 K$= INKEY$ : IF K$="" THEN 340 360 IF EOF ("DTO")=1 THEN RETURN 370 GO TO 300 380 :'skjelt ut laereren 390 CLS 400 PRINT @0,"SKJELT UT LAEREREN" 410 FREAD "UTSKJELT";F3$ 420 FREAD "LAERER";L1$ 430 FREAD "DTRE";D3$: 440 PRINT @256,F3$,L1$,D3$ 450 PRINT @416,"TRYKK EN TAST" 460 K$= INKEY$ : IF K$="" THEN 460 480 IF EOF ("DTRE")=1 THEN RETURN 490 GO TO 410 500 :'kommt forsent 510 CLS 520 PRINT @0,"KOMMT FORSENT" 530 FREAD "FORSENT";F4$ 540 FREAD "DFIRE";D4$ 550 PRINT @256,F4$,D4$ 560 PRINT @416,"TRYKK EN TAST" 570 K$= INKEY$ : IF K$="" THEN 570 590 IF EOF ("DFIRE")=1 THEN RETURN 600 GO TO 530 610 :'skulket skolen 620 CLS 630 PRINT @0,"SKULKET SKOLEN" 640 FREAD "SKULKET";F5$ 650 FREAD "DFEM";D5$ 660 PRINT @256,F5$,D5$ 670 PRINT @416,"TRYKK EN TAST" 680 K$= INKEY$ : IF K$="" THEN 680 700 IF EOF ("DFEM")=1 THEN RETURN 710 GO TO 640 720 :'vaert pa dagfinn 730 CLS 740 PRINT @0,"VAERT PA DAGFINN" 750 FREAD "DAGFINN";F6$ 760 FREAD "DSEKS";D6$ 770 PRINT @256,F6$,D6$ 780 PRINT @416,"TRYKK EN TAST" 790 K$= INKEY$ : IF K$="" THEN 790 810 IF EOF ("DSEKS")=1 THEN RETURN 820 GO TO 750 REM REM line numbering breaks here! REM FROM FROM FROM FROM REM REM ************************************************* REM * Dragon file header detected: * REM * Start: $2401 Length: $0737 Exec: $8b8d * REM *(Start: 09217 Length: 01847 Exec: 35725) * REM ************************************************* REM 10 :'lese brudd 20 CLS 0: PRINT @0,"meny"; 30 PRINT @32,"1.utforbi skolegarden"; 31 POKE 1056,49: POKE 1057,46: POKE 1065,32 40 PRINT @64,"2.r0yket pa skolen"; 41 POKE 1088,50: POKE 1089,46: POKE 1091,48: POKE 1096,32: POKE 1099,32 50 PRINT @96,"3.skjelt ut laerere"; 51 POKE 1120,51: POKE 1121,46: POKE 1128,32: POKE 1131,32 60 PRINT @128,"4.kommet forsent"; 61 POKE 1152,52: POKE 1153,46: POKE 1160,32 70 PRINT @160,"5.skulket skolen"; 71 POKE 1184,53: POKE 1185,46: POKE 1193,32 80 PRINT @192,"6.vaert pa dagfinn i friminuttet"; 81 POKE 1216,54: POKE 1217,46: POKE 1223,32: POKE 1226,32: POKE 1234,32: POKE 1236,32 91 FOR T=1248 TO 1279: POKE T,45: NEXT T 100 POKE 1280,32: POKE 1281,62 101 SCREEN 0,1 110 G$= INKEY$ : IF G$="" THEN 110 120 G= VAL (G$) 130 IF G<1 OR G>6 THEN 110 140 ON G GO SUB 160,270,380,500,610,720 150 GO TO 20 160 :'utforbi skolen 170 CLS 180 PRINT "VAERT UTFORBI SKOLEGARDEN" 190 FREAD "UTFORBI";F1$ 200 FREAD "DEN";D1$ 210 PRINT @256,F1$,D1$ 220 PRINT @416,"TRYKK EN TAST" 230 K$= INKEY$ : IF K$="" THEN 230 231 IF EOF ("UTFORBI")=1 THEN RETURN 240 GO TO 190 270 :'r0ykt pa skolen 280 CLS 290 PRINT @0,"R0YKT PA SKOLEN" 300 FREAD "R0YKT";F2$: 310 FREAD "DTO";D2$ 320 PRINT @256,F2$,D2$ 330 PRINT @416,"TRYKK EN TAST" 340 K$= INKEY$ : IF K$="" THEN 340 360 IF EOF ("DTO")=1 THEN RETURN 370 GO TO 300 380 :'skjelt ut laereren 390 CLS 400 PRINT @0,"SKJELT UT LAEREREN" 410 FREAD "UTSKJELT";F3$ 420 FREAD "LAERER";L1$ 430 FREAD "DTRE";D3$: 440 PRINT @256,F3$,L1$,D3$ 450 PRINT @416,"TRYKK EN TAST" 460 K$= INKEY$ : IF K$="" THEN 460 480 IF EOF ("DTRE")=1 THEN RETURN 490 GO TO 410 500 :'kommt forsent 510 CLS 520 PRINT @0,"KOMMT FORSENT" 530 FREAD "FORSENT";F4$ 540 FREAD "DFIRE";D4$ 550 PRINT @256,F4$,D4$ 560 PRINT @416,"TRYKK EN TAST" 570 K$= INKEY$ : IF K$="" THEN 570 590 IF EOF ("DFIRE")=1 THEN RETURN 600 GO TO 530 610 :'skulket skolen 620 CLS 630 PRINT @0,"SKULKET SKOLEN" 640 FREAD "SKULKET";F5$ 650 FREAD "DFEM";D5$ 660 PRINT @256,F5$,D5$ 670 PRINT @416,"TRYKK EN TAST" 680 K$= INKEY$ : IF K$="" THEN 680 700 IF EOF ("DFEM")=1 THEN RETURN 710 GO TO 640 720 :'vaert pa dagfinn 730 CLS 740 PRINT @0,"VAERT PA DAGFINN" 750 FREAD "DAGFINN";F6$ 760 FREAD "DSEKS";D6$ 770 PRINT @256,F6$,D6$ 780 PRINT @416,"TRYKK EN TAST" 790 K$= INKEY$ : IF K$="" THEN 790 810 IF EOF ("DSEKS")=1 THEN RETURN 820 GO TO 750 REM REM line numbering breaks here! REM