REM 
REM *************************************************
REM * Dragon file header:                           *
REM * Start: $2401 Length: $0633 Exec: $8b8d        *
REM *(Start: 09217 Length: 01587 Exec: 35725)       *
REM *************************************************
REM 
    0  POKE  65495,0
    1  DIM  P(100): DIM  ID$(100)
    2  CLS 
    3 Q=1
    4 A$="STATISTIKK OVER VERDENS STATER"
    5  GO  SUB  3000
    6 Q=416
    7 A$="KOMMANDO"
    8  GO  SUB  3000
 1000 Q=106
 1001 A$="hjelpe sider"
 1002  GO  SUB  3000
 1003 Q=160
 1004 A$="LIST: -LISTER ALLE VERDENS             STATER"
 1005  GO  SUB  3000
 1006 Q=256
 1007 A$="LESE: -SETTER COMPUTEREN I             STAND TIL AA LESE DATAENE       TIL ET SPESIFISERT LAND"
 1008  GO  SUB 3000
 1009 PP=Q
 1010 Q=105
 1011 A$="trykk en tast"
 1012  GO  SUB  3000
 1013 INK$= INKEY$ : IF  INK$=""  THEN  1013
 1014 Q=105
 1015 A$=" hjelpe sider"
 1016  GO  SUB  3000
 1017  GO  SUB  4000
 1018 Q=160
 1019 A$="CLEAR: -VIL FJERNE AKTUELL TEKST        FRA SKJERMEN"
 1020  GO  SUB  3000
 1021 Q=256
 1022 A$="HJELP: -VIL VISE HJELPE SIDER           DER DE FORSKJELLIGE             KOMMANDOENE VIL BLI             KORT FORKLART"
 1023  GO  SUB  3000
 1024 PP=Q
 1025 Q=105
 1026 A$="trykk en tast"
 1027  GO  SUB  3000
 1028 INK$= INKEY$ : IF  INK$=""  THEN  1028
 1029 Q=105
 1030 A$=" hjelpe sider"
 1031  GO  SUB  3000
 1032  GO  SUB  4000
 1033 Q=106
 1034 A$="            "
 1035  GO  SUB  3000
 1036  END 
 2000 :'innmatingsprosedyre
 2001  IF  QQ=3  THEN  P=0: FOR  P=1  TO  22: GO  TO  2003
 2002  FOR  P=1  TO  31
 2003  PRINT @Q+P-1, CHR$ (128)
 2004 ID$(P)= INKEY$ : IF  ID$(P)="" THEN  2004
 2005  BEEP 
 2006  IF  ID$(P)= CHR$ (21)  THEN   PRINT @Q-1+P,"": GO  TO  2002
 2007  IF  ID$(P)= CHR$ (8) THEN  P=P-1: IF  P=<0  THEN  P=0 : ELSE   PRINT @Q+P-1," ": GO  TO  2003
 2008  IF  ID$(P)= CHR$ (13) THEN   PRINT @Q+P-1,"": RETURN 
 2009  IF  QQ=3  AND  P=22  AND  ID$(P)<> CHR$ (13)  THEN  2004
 2010  IF  P=31  AND  ID$(P)<> CHR$ (13)  THEN  2004
 2011  PRINT @Q-1+P,ID$(P)
 2012  NEXT  P
 2013  RETURN 
 3000 :'utskriftsprosedyre
 3001  FOR  B=1  TO   LEN (A$)
 3002  PRINT @Q, MID$ (A$,B,1);
 3003 Q=Q+1
 3004  PRINT @Q, CHR$ (128)
 3005  BEEP 
 3006  NEXT  B
 3007  PRINT @Q, CHR$ (32)
 3008  RETURN 
 4000 :'slette data (fra sjermen)
 4001  FOR  Q=PP  TO  160  STEP  -1
 4002  PRINT @Q, CHR$ (128);
 4003  PRINT @Q+1, CHR$ (32);
 4004  BEEP 
 4005  NEXT  Q
 4006  PRINT @Q, CHR$ (32);
 4007  RETURN