Qbasic ja jotain muuta?

....helpommalla "DECLARE SUB GifLoad (A$)
GifLoad "title.gif"
Do While INKEY$ = "": Loop
Screen 12
Screen 0
Open "readme.txt" For Input As #1

Dim lines$(500)
Do While Not EOF(1)
s = s + 1
Line Input #1, lines$(s)
Loop

Top = 1
Screen 0, 0, 1, 0
Do
Color 14, 1
Cls
LOCATE 24, 1
Print "-----------------------------------------------------------------------------";
LOCATE 25, 1
Print "Use arrow keys to move Esc to quit";
LOCATE 1, 1
For i = Top To Top + 22
Print lines$(i)
Next
PCOPY 1, 0
t: t$ = ""
Do While t$ = ""
t$ = INKEY$
Loop
If Right$(t$, 1) = "H" Then If Top 1 Then Top = Top - 1
If Right$(t$, 1) = "P" Then If Top + 22 NextCode Then Exit Do
If Code = NextCode Then
CurCode = LastCode
OutStack(StackPointer) = LastPixel
StackPointer = StackPointer + 1
End If

Do While CurCode >= FirstCode
OutStack(StackPointer) = Suffix(CurCode)
StackPointer = StackPointer + 1
CurCode = Prefix(CurCode)
Loop

LastPixel = CurCode
If x% < 320 Then POKE x% + Ybase, LastPixel
x% = x% + 1: If x% = XEnd Then GoSub NextScanLine

For A% = StackPointer - 1 To 0 Step -1
If x% < 320 Then POKE x% + Ybase, OutStack(A%)
x% = x% + 1: If x% = XEnd Then GoSub NextScanLine
Next A%

If NextCode < 4096 Then
Prefix(NextCode) = LastCode
Suffix(NextCode) = LastPixel
NextCode = NextCode + 1
If NextCode > MaxCode And CodeSize < 12 Then
CodeSize = CodeSize + 1
MaxCode = MaxCode * 2 + 1
End If
End If
LastCode = Code
End If
End If
Loop Until DoneFlag Or Code = EOSCode
'BEEP
'A$ = INPUT$(1)
Close #1
Exit Sub

GetByte: A$ = " ": Get #1, , A$: A% = Asc(A$): Return

NextScanLine:
If Interlaced Then
y% = y% + PassStep
If y% >= YEnd Then
PassNumber = PassNumber + 1
Select Case PassNumber
Case 1: y% = 4: PassStep = 8
Case 2: y% = 2: PassStep = 4
Case 3: y% = 1: PassStep = 2
End Select
End If
Else
y% = y% + 1
End If
x% = XStart: Ybase = y% * 320&: DoneFlag = y% > 199
Return
GetCode:
If BitsIn = 0 Then GoSub ReadBufferedByte: LastChar = A%: BitsIn = 8
WorkCode = LastChar shiftout%(BitsIn)
Do While CodeSize > BitsIn
GoSub ReadBufferedByte: LastChar = A%
WorkCode = WorkCode Or LastChar * powersof2(BitsIn)
BitsIn = BitsIn + 8
Loop
BitsIn = BitsIn - CodeSize
Code = WorkCode And MaxCode
Return
ReadBufferedByte:
If BlockPointer > BlockSize Then
GoSub GetByte: BlockSize = A%
A$ = Space$(BlockSize): Get #1, , A$
BlockPointer = 1
End If
A% = Asc(Mid$(A$, BlockPointer, 1)): BlockPointer = BlockPointer + 1
Return

End Sub"

Vitsi että onneks on olemassa sun kaltasia hauskoja tyyppejä, varsinkin tällei vlopun jälkeen kun tulee töihin väsyneenjä lukee sun viestejä, niin tulee kyllä pakostakin ajateltua että kuka voi onna fitsikäs.