10 REM ++++++++++++++++++++++++++++++++
11 REM ! Program ....   NORSK
12 REM ! Utg}va  1      1979-01-05
13 REM ! av (c) Bo Lund
14 REM ! Minne 16 Kbytes
15 REM ! Ins{nt av Bo Lund
16 REM ++++++++++++++++++++++++++++++++
17 DIM A$(3),F$(3),C$(3),D$(6),E$(3),G$(4),H$(4),I$(2),J$(3)
18 ; CHR$(12,7)
19 ; "  DET H[R [R PROGRAMMET SOM BER[TTAR             NORGE-HISTORIER."
20 FOR I=1 TO 3000 : NEXT I
21 ; 
22 ; TAB(8);"H[R KOMMER DEN F\RSTA"
23 FOR I=1 TO 2000 : NEXT I
24 GOTO 31
25 REM 
26 GOTO 29
27 ; "DET [R INGE KUL ATT BER[TTA HISTORIER F\R DEJ MEN"
28 ; 
29 ; 
30 ; "VI TAR V[L N[STA D]"
31 ; 
32 ; "VET DU VARF\R LUFTEN [R S] REN I OSLO OMN[TTERNA";
33 INPUT C$
34 IF C$="JA" THEN 38
35 IF C$="NEJ" THEN 44
36 ; "VA"
37 GOTO 33
38 ; 
39 ; 
40 ; "NU F]R DU TA OCH L[GGA AV, MEN DU F]R   V[L H\RA EN TILL D]."
41 ; 
42 ; 
43 GOTO 50
44 ; CHR$(12,7);"ALLA NORRM[N SOVER MED ST[NGDA F\NSTER."
45 ; 
46 ; 
47 ; 
48 ; 
49 ; 
50 ; "N[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[STA"
51 ; 
52 ; 
53 ; 
54 ; 
55 ; 
56 ; 
57 ; 
58 ; 
59 ; 
60 ; 
61 ; 
62 ; 
63 ; 
64 ; "VET DU VARF\R NORRM[N ALLTID HAR EN     BILD\RR MED SEJ N[R DOM [R UTE OCH      G]R I \KNEN.";
65 INPUT D$
66 IF D$="JA" THEN 75
67 IF D$="NEJ" THEN 87
68 IF D$="KANSKE" THEN 70
69 ; 
70 ; 
71 ; "NU BLIR JAG TOKIG, JA ELLER NEJ, KANSKE GODK[NNES EJ";
72 GOTO 65
73 ; 
74 ; 
75 ; "JASS], ";
76 ; "JAG UNDRAR OM DET EGENTLIGEN [R  N]N MENING MED ATT JAG ST]R H[R OCH     SL\SAR TID MED ATT BER[TTA F\R";
77 ; " DEJ"
78 ; 
79 ; 
80 ; 
81 ; 
82 ; 
83 ; 
84 ; TAB(13);"MEN, OK. D];";
85 ; 
86 GOTO 93
87 ; CHR$(12,7);"JO, F\R ATT KUNNA VEVA NER RUTAN OCH    SVALKA SEJ."
88 ; 
89 ; 
90 ; 
91 ; 
92 ; 
93 ; 
94 ; 
95 ; TAB(8);"H O L M E N K O L L E N"
96 ; 
97 ; TAB(3);"N[STA, SP[NN FAST S[KERHETSB[LTET:"
98 ; 
99 ; 
100 ; 
101 ; 
102 ; 
103 ; 
104 ; 
105 ; "VET DU VARF\R DEN NORSKA POLISMANNEN    ALLTID HAR EN HUND I S[LLSKAP";
106 INPUT E$
107 IF E$="JA" THEN 113
108 IF E$="NEJ" THEN 121
109 ; 
110 ; 
111 ; "ANALFABET !!";
112 GOTO 106
113 ; CHR$(12,7);"%&'('%"";$&&)'(#:%(&%$?), KREMATORIUM !!!"
114 ; 
115 ; "VILL DU \VERHUVUDTAGET H\RA N]NTING.";
116 INPUT F$
117 IF F$="JA" THEN 25
118 IF F$="NEJ" THEN 287
119 ; "KAN DU INTE SVARA ORDENTLIGT ENS?"
120 GOTO 114
121 ; CHR$(12,7);TAB(7);"TV] T[NKER B[TTRE [N EN."
122 ; 
123 ; 
124 ; 
125 ; 
126 ; " U J U J,  J E G  E R  E N  H U M M E R."
127 ; 
128 ; 
129 ; 
130 ; 
131 ; TAB(10);"R[TT H[FTIG, VA?"
132 ; 
133 ; TAB(5);"H[DANEFTER SVARAR DU P] RYSKA!"
134 ; 
135 ; 
136 ; "VET DU HUR L]NG TID DET TAR F\R EN      NORRMAN ATT PUTSA ETT F\NSTER SOM SITTEREN (1) METER \VER MARKEN";
137 ; " N[R HAN BARA   HAR TILLG]NG TILL EN STEGE SOM [R (5)   METER L]NG";
138 INPUT G$
139 IF G$="NJET" THEN 151
140 IF G$="DA" THEN 145
141 IF G$="JA" THEN 143
142 IF G$="NEJ" THEN 143
143 ; CHR$(12,7);"TOVARITJ KAMRAT, GRAZNOBOLOBOL TAVOJ;    (NJET/DA!)";
144 GOTO 138
145 ; 
146 ; 
147 ; 
148 ; 
149 ; CHR$(12,7);"TRIVIDSNJ KGB !!! SIBIRIA, NKWD.        ZWA R U S K I";
150 GOTO 158
151 ; 
152 ; CHR$(12,7);"EN (1) TIMME."
153 ; 
154 ; "55 MINUTER ATT GR[VA ETT"
155 ; "4 METER DJUPT H]L, OCH 5"
156 ; "MINUTER ATT PUTSA F\NSTRET."
157 ; 
158 ; 
159 REM 
160 ; 
161 ; "VILL DU H\RA EN TILL";
162 INPUT H$
163 IF H$="DA" THEN 178
164 IF H$="NJET" THEN 174
165 IF H$="JA" THEN 170
166 IF H$="NEJ" THEN 170
167 ; 
168 ; "WASS";
169 GOTO 162
170 ; 
171 ; 
172 ; "WASS IST DASS!!! ICH SAGE RYSKA, H\REN  SIE GED]LICH??"
173 GOTO 159
174 ; 
175 ; 
176 ; "JOD], DET VILL DU VISST."
177 ; 
178 ; 
179 ; "VET DU HUR L]NG TID MAN"
180 ; "M]STE ST[LLA TILLBAKS"
181 ; "KLOCKAN D] MAN FLYGER"
182 ; "TILL OSLO";
183 INPUT I$
184 IF I$="DA" THEN 190
185 IF I$="NJ" THEN 193
186 ; 
187 ; 
188 ; "DIN SNUTTIGA LURK, SVARA IGEN"
189 GOTO 183
190 FOR I=1 TO 1000 : NEXT I
191 ; CHR$(12,7);TAB(12);"HEJ, NORRMAN!!"
192 GOTO 208
193 ; CHR$(12,7)
194 ; 
195 ; 
196 ; 
197 ; 
198 ; TAB(5);" 11    000        ]     RRR"
199 ; TAB(5);"111    0 0              R  R"
200 ; TAB(5);" 11    0 0       ]]]    R  R"
201 ; TAB(5);" 11    0 0       ] ]    R  R"
202 ; TAB(5);" 11    0 0       ]]]    RRR"
203 ; TAB(5);" 11    0 0      ]   ]   R R"
204 ; TAB(5);" 11    0 0      ]   ]   R  R"
205 ; TAB(5);" 11    0 0      ]   ]   R  R"
206 ; TAB(5);" 11    000      ]   ]   R  R"
207 OUT 6,7
208 FOR I=1 TO 6000
209 NEXT I
210 OUT 6,0
211 ; 
212 ; CHR$(12,7);TAB(8);"PALLAR DU MED EN TILL?"
213 ; TAB(8);"DET SPELAR INGEN ROLL,"
214 ; TAB(8);"F\R H[R KOMMER N[STA!"
215 FOR I=1 TO 3000
216 NEXT I
217 ; CHR$(12,7);"DET VAR EN G]NG TRE PERSONER SOM SKULLE"
218 ; "AVR[TTAS I GILJOTIN. EN SVENSK, EN DANSK";
219 ; "OCH EN NORRMAN."
220 ; 
221 ; "F\RSTE MAN VAR SVENSKEN. BILAN F\LL,    SVOOSCH,";
222 ; " GLERK, OCH STANNADE FYRA CENTI-METER OVANF\R ";
223 ; "HALSEN P] HONOM. ";
224 ; "GUD HADE GRIPIT IN OCH SKONAT SVENSKEN."
225 ; 
226 ; "N[STA MAN TILL RAKNING VAR DANSKEN.     BILAN ";
227 ; "F\LL MEN STANNADE OCKS] F\R HONOM EN BIT ";
228 ; "OVANF\R HALSEN. ETT MIRAKEL TILL HADE SKETT.";
229 ; " [VEN DANSKEN BEFRIADES FR]N SITT STRAFF."
230 ; 
231 ; "S] VAR DET NORRMANNENS TUR. HAN LADES INOCH ";
232 ; "MAN SKULLE JUST TILL ATT RYCKA I    SN\RET........"
233 ; 
234 ; "VET DU VAD NORRMANNEN SA D]";
235 INPUT J$
236 IF J$="NJET" THEN 242
237 IF J$="DA" THEN 248
238 ; 
239 ; 
240 ; "JAG GER MEJ INTE, SVARA P] RYSKA.";
241 GOTO 235
242 ; 
243 ; 
244 ; CHR$(12,7);"-JEG TROR JEG SKJ\NNER FEJLEN JEG......"
245 ; 
246 ; "HA HA HA, HO HO, HIHI....\\\H.."
247 GOTO 252
248 ; CHR$(12,7);TAB(9);"N], F]R JAG H\RA D]"
249 FOR I=1 TO 5000 : NEXT I
250 ; 
251 ; "N[H[, JAG VISSTE V[L ATT DU INTE KUNDE"
252 ; 
253 ; 
254 ; 
255 ; TAB(8);"L U S E K O F T E"
256 ; 
257 ; 
258 ; 
259 ; "WIR FANGEN AN MIT N[STA:"
260 ; 
261 ; "NORGE HAR I ALLA FALL EN BRA SAK SOM    INTE SVERIGE HAR."
262 ; "VET DU VAD";
263 INPUT A$
264 ; CHR$(12,7);"GODA GRANNAR!"
265 ; 
266 ; 
267 ; 
268 ; "VET DU VORFOR NORRMANNEN GAAR"
269 ; "UT PAA TREPPEN N[R DET ]SKAR OCH BLIXTRAR";
270 INPUT A$
271 ; 
272 ; 
273 IF A$="DA" THEN 287
274 IF A$="NJET" THEN 280
275 IF A$="NEJ" THEN 276
276 ; "RRRRRRYYYYYYYYYYYYYYYYYYYYYYYSKAAAAAAAA";
277 GOTO 270
278 ; 
279 ; 
280 ; CHR$(12);"DE TROR DE SKALL BLI FOTOGRAFERADE!!!!"
281 ; 
282 ; TAB(12);" HICKO - HICKO"
283 OUT 6,7
284 FOR I=1 TO 4000 : NEXT I
285 OUT 6,0
286 ; 
287 REM 
288 CHAIN "MENY"