REM 
REM *************************************************
REM * Dragon file header:                           *
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