Orchernas torn

Efter att ha gått igenom arkiven hittade jag denna skojiga kod.
Vet tyvärr inte vem författaren är men man kan ju gissa ;o)
Håll tillgodo...

10 PRINT "****************"
20 PRINT "*ORCHERNAS TORN*"
30 PRINT "****************"
40 PRINT
50 PRINT "ETT SKRIVSPEL"
60 PRINT
70 PRINT "BAKGRUND:"
80 PRINT "DIN FAR HAR BKIVIT KIDNAPPAD"
90 PRINT "AV ETT BAND ORCHER"
100 PRINT "DU GER DIG AV FÖR ATT HITTA"
110 PRINT "HONOM"
120 PRINT
130 PRINT
140 LET A= INT(RND*10)
150 LET B= INT(RND*10)
160 PRINT "DU GER DIG AV"
170 PRINT "DU HAR ETT SPJUT"
180 PRINT
190 LET C= INT(RND*10)
200 PRINT "DU HAR "C" GULDMYNT"
210 PRINT "DU HAR MAT FÖR 20 DAGAR"
220 PRINT "EFTER TVÅ DAGAR KOMMER DU"
230 PRINT "TILL ETT TORN"
240 PRINT "GÅR DU IN";
250 INPUT A$
260 IF A$="J" OR "JA" THEN GOTO 290
270 PRINT "DU VANDRAR VIDARE"
280 PRINT "DU SPRINGER TILLBAKA OCH KLIVER IN"
290 PRINT "INNE FINNS EN ORCH"
300 PRINT "DU MOSAR HONOM"
310 LET D= INT(RND*10)
320 IF D>B THEN GOTO 360
330 PRINT "DU LYCKAS"
340 PRINT "DU HITTAR DIN FAR"
350 END
360 PRINT "ORCHEN MOSAR DIG"
370 END