;Originalsource: http://www.purebasic.fr/german/viewtopic.php?p=302403#p302403 ;Author: Mr.L ;Testweise erweitert: Falko EnableExplicit #LETTERWIDTH = 60 #LETTERHEIGHT = 80 #LETTERSPACING = 5 #LETTERPOSY = 5 #BOARDWIDTH = 12 #BOARDHEIGHT = 5 #BOARDMAXSPEED = 30 Structure BoardLetter currentLetter.l targetLetter.l rotation.l speed.l EndStructure Structure Letter upperImage.i lowerImage.i EndStructure Global NrLetters Global Dim LetterNr(255) Global Dim Letter.Letter(255) Global Dim Board.BoardLetter(#BOARDWIDTH, #BOARDHEIGHT) InitSound() LoadFont(0,"Helvetiva", #LETTERHEIGHT / 1.8, #PB_Font_HighQuality | #PB_Font_Bold) CatchSound(0,?Click) Procedure DrawLetter(letterNr, angle, x, y) Protected h2, nextLetter, sizeY h2 = #LETTERHEIGHT / 2 sizeY = Cos(Radian(angle)) * #LETTERHEIGHT * 0.5 nextLetter = (letterNr + 1) If nextLetter >= NrLetters nextLetter = 0 EndIf DrawImage( ImageID(Letter(nextLetter)\upperImage), x, y - 1) DrawImage( ImageID(Letter(letterNr)\lowerImage), x, y + h2 + 1) If angle < 90 DrawImage(ImageID(Letter(letterNr)\upperImage), x, y + h2 - sizeY - 1, #LETTERWIDTH, sizeY) Else DrawImage( ImageID(Letter(nextLetter)\lowerImage), x, y + h2 + 1, #LETTERWIDTH, -sizeY) ;PlaySound(0,#PB_Sound_MultiChannel) EndIf Box(x, y - 1, #LETTERWIDTH, h2, RGB(50, 50, 50)) Box(x, y + h2 + 1, #LETTERWIDTH, h2 - 1, RGB(50, 50, 50)) Box(x + 1, y + h2 - 4, 2, 8, 0) Box(x + #LETTERWIDTH - 3, y + h2 - 4, 2, 8, 0) Line(x, y, #LETTERWIDTH, 1, RGB(100,100,100)) Line(x + 3, y + h2 + 1, #LETTERWIDTH - 6, 1, RGB(100,100,100)) If Angle=0 PlaySound(0,#PB_Sound_MultiChannel) EndIf EndProcedure Procedure UpdateBoard() Protected x, y StartDrawing(CanvasOutput(0)) DrawingMode(#PB_2DDrawing_Outlined) For y = 0 To #BOARDHEIGHT - 1 For x = 0 To #BOARDWIDTH - 1 With Board(x,y) If \currentLetter <> \targetLetter \speed = Abs(\currentLetter - \targetLetter) * 4 If \speed > #BOARDMAXSPEED \speed = #BOARDMAXSPEED EndIf \rotation + \speed If \rotation > 180 \rotation = 0 \currentLetter + 1 If \currentLetter >= NrLetters \currentLetter = 0 EndIf EndIf DrawLetter(\currentLetter, \rotation, x * (#LETTERWIDTH + #LETTERSPACING) + 3, y * (#LETTERHEIGHT + #LETTERSPACING) + 3) EndIf EndWith Next Next StopDrawing() EndProcedure Procedure SetBoardText(RowNr, Text$) Protected l Text$ = LSet(Text$, #BOARDWIDTH, " ") For l = 1 To Len(Text$) If l <= #BOARDWIDTH Board(l - 1, RowNr)\targetLetter = LetterNr(Asc(Mid(Text$, l, 1))) EndIf Next EndProcedure Procedure InitBoard(canvasID, letterList$, letterNr) Protected l, a, x, y NrLetters = Len(letterList$) For l = 0 To NrLetters - 1 a = Asc(Mid(letterList$, l + 1, 1)) LetterNr(a) = l Letter(l)\upperImage = CreateImage(#PB_Any, #LETTERWIDTH, #LETTERHEIGHT / 2) Letter(l)\lowerImage = CreateImage(#PB_Any, #LETTERWIDTH, #LETTERHEIGHT / 2) StartDrawing(ImageOutput(Letter(l)\upperImage)) DrawingFont(FontID(0)) DrawingMode(#PB_2DDrawing_Gradient) LinearGradient(0,0,0,OutputHeight()) GradientColor(0, RGB(15,15,15)) GradientColor(1, RGB(50,50,50)) Box(0, 0, OutputWidth(), OutputHeight()) DrawingMode(#PB_2DDrawing_Transparent) DrawText((#LETTERWIDTH - TextWidth(Chr(a))) / 2, #LETTERPOSY, Chr(a), RGB(255,250, 150)) Line(0, 0, #LETTERWIDTH, 1, RGB(80,80,80)) StopDrawing() StartDrawing(ImageOutput(Letter(l)\lowerImage)) DrawingMode(#PB_2DDrawing_Gradient) LinearGradient(0,0,0,OutputHeight()) GradientColor(1, RGB(15,15,15)) GradientColor(0, RGB(50,50,50)) Box(0, 0, OutputWidth(), OutputHeight()) DrawingMode(#PB_2DDrawing_Transparent) DrawingFont(FontID(0)) DrawText((#LETTERWIDTH - TextWidth(Chr(a))) / 2, -#LETTERHEIGHT / 2 + #LETTERPOSY, Chr(a), RGB(255,250, 150)) Line(0, #LETTERHEIGHT / 2 - 2, #LETTERWIDTH, 1, RGB(80,80,80)) StopDrawing() Next StartDrawing(CanvasOutput(canvasID)) Box(0, 0, OutputWidth(), OutputHeight(), RGB(30, 30, 30)) DrawingMode(#PB_2DDrawing_Outlined) For y = 0 To #BOARDHEIGHT - 1 For x = 0 To #BOARDWIDTH - 1 With Board(x,y) \currentLetter = letterNr \targetLetter = letterNr \speed = 0 \rotation = 0 DrawLetter(\currentLetter, \rotation, x * (#LETTERWIDTH + #LETTERSPACING) + 3, y * (#LETTERHEIGHT + #LETTERSPACING) + 3) EndWith Next Next StopDrawing() EndProcedure DisableExplicit OpenWindow(0, 0, 0, #BOARDWIDTH * (#LETTERWIDTH + #LETTERSPACING), #BOARDHEIGHT * (#LETTERHEIGHT + #LETTERSPACING), "PB Timetable", #PB_Window_SystemMenu | #PB_Window_ScreenCentered) CanvasGadget(0, 0, 0, WindowWidth(0), WindowHeight(0)) InitBoard(0, " !.0123456789:ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz", 0) Repeat time = ElapsedMilliseconds() elapsed = time - displayUpdateTime If elapsed < 10000 SetBoardText(0, "HELLO WORLD!") SetBoardText(1, "") SetBoardText(2, "PureBasic is") SetBoardText(3, "really cool!") SetBoardText(4, "") ElseIf elapsed < 30000 SetBoardText(0, "") SetBoardText(1, "CURRENT TIME:") SetBoardText(2, "") SetBoardText(3, " " + FormatDate("%hh:%ii:%ss", Date())) SetBoardText(4, "") ElseIf elapsed < 40000 SetBoardText(0, " made") SetBoardText(1, " by") SetBoardText(2, " Mr.L") SetBoardText(3, "") SetBoardText(4, "...have fun!") Else displayUpdateTime = time EndIf UpdateBoard() While ElapsedMilliseconds() < waitTime Wend waitTime = time + 10 Until WindowEvent() = #PB_Event_CloseWindow DataSection click: Data.q $0000120046464952,$20746D6645564157,$0001000100000010,$0000AC4400005622,$6174616400100002 Data.q $E5990133000009D4,$0C9916CC2066CECD,$1599D7CD026625CC,$009902FFC79A1899,$E0331A662A99F666 Data.q $F499D39A05FF10CC,$189913CCFC660EFF,$F96607CCF533F700,$EE9908FF0866EE00,$F700FC660EFF01CC Data.q $0EFF0099FA99F666,$FD00FA0000990A33,$00000433F8CCF700,$F2CC05FF1333FA00,$FD99ED6601330266 Data.q $0ACC0399FC660399,$F8CCFBCCFECCFC66,$04330133FC66FB33,$FB3302FF01330099,$FC66FE330099FECC Data.q $FA99026601330133,$FA99FD0004CCF799,$FECC000004CC01CC,$F5CCF6660266FF66,$07CCFBCC01330733 Data.q $FD99FC66FB3302FF,$0099FB33FC66FECC,$013302FFFE3301CC,$FD00FECC02FFFE33,$FE33FE33FF66FF66 Data.q $FD0001CCFF66FBCC,$0000FF66FECCFE33,$0133FC66FE330099,$0266FE3301CC02FF,$0133FD99FA0001CC Data.q $FD0001330266FD99,$00990099FECC0000,$FE3301CC0099FD99,$FD99FB3301330099,$0133009900000133 Data.q $FD00FECCFECCFE33,$FF66FBCC01CC04CC,$0000FF66FE330000,$0000013300000099,$FBCCFF6600000099 Data.q $026601CCFE33FA99,$0000009900000399,$FB3300000099FD00,$03990099FF66FF66,$F966FE33FF660099 Data.q $0000FECCFF66FF66,$0133FE3300990099,$FD99FF66FECC0099,$0000FF66FF66FF66,$FF6601CC0099FECC Data.q $0000FD9901CC0133,$02FFFE33FD990000,$FF660000FECC0133,$FC66FF660000FE33,$FD0000990133FD99 Data.q $02FFF966FBCCFE33,$FD990566073302FF,$FB33FD000399FA00,$05FF0099FECC01CC,$FE3302FFFF6601CC Data.q $0399FD99FB33FB33,$0000013302FF0566,$FD99FD00FF66FF66,$03990266FECCFECC,$FD99FF66FECC0266 Data.q $01CCFF66FD00FD00,$FECC000002FF01CC,$0000FD99FF660099,$FECC02FF0133FF66,$FD00FE330099FECC Data.q $01CCFF66FECC0099,$0000FE33FECC0000,$FECCFD99FECC0000,$FECC013301CC01CC,$FF66FECC01330099 Data.q $0266FF6600000000,$FF660099FD99FF66,$00990133FECCFECC,$FE330099FF66FE33,$0266FECC00990133 Data.q $FF66FF66FD990133,$FECCFF66FECCFECC,$00000099026601CC,$00990099FF66FF66,$0266FECCFF66FE33 Data.q $FECC0000FF6601CC,$00000099FECCFE33,$0000000001330133,$FF66FF660000FE33,$0133FF66FECC0266 Data.q $01330099FE33FE33,$00000000FF660000,$FE33FD99FE330099,$009901330099FD99,$FECCFE33FF660099 Data.q $FF6603990000FC66,$0000FD99FD000000,$0000FC66FF660000,$FF66000000990133,$01330000FE33FD99 Data.q $FD9901CC02660133,$FECCFC66FECCFC66,$01CC01CCFF66FF66,$FD99FC6600000000,$00990000FE33FD00 Data.q $FF66000001330000,$FECCFD99FD99FF66,$0000009900990133,$FD99FECC0000FE33,$0000FECC00990133 Data.q $0099FECCFF66FF66,$01330133FECCFF66,$FECCFF66FF660000,$0133FE33FD990000,$FE330099FF660000 Data.q $FD99FE33FECCFC66,$0099FD99FECC0099,$FD00FE33FF660099,$0099FECCFF66FD99,$0000FF66FD990099 Data.q $FECCFF66FF66FC66,$0099FECCFF660133,$FECCFC66FC66FF66,$FF6600990000FECC,$FD00FECC0000FE33 Data.q $013300000099FECC,$FD99FF66FECCFF66,$0099FF66FE33FD00,$FF66FE33FE330133,$FE33FF66FECCFECC Data.q $FE33009900990133,$FE33FD990000FECC,$026601CCFF66FECC,$0000FF66FE330099,$FF660099FF66FE33 Data.q $FECC000001CC0133,$FF66FF66FD99FF66,$013301CC00990000,$FE33FD99FF66FECC,$01CCFF6601CC0099 Data.q $FECCFF66FF6601CC,$00990133FF66FD00,$FECCFE33FF660099,$0133FE33FE33FF66,$00000000009901CC Data.q $FE33FECC0000FE33,$000002FF01CC0099,$FF6601330000FECC,$01CC0000FF66FECC,$01330000000002FF Data.q $FECC0099FECCFE33,$FECC000002660266,$FF66FF66FECC0133,$0133013301330099,$FF66FECCFECC0000 Data.q $009900990099FF66,$FF66FECC0000FF66,$00990099FF66FECC,$FF66FECCFF660000,$0099FECCFF66FECC Data.q $FE33FF6601CC01CC,$0000FF66FD99FD99,$0000009902FF0000,$FF66FE33FECC0099,$01CC013301330099 Data.q $FECCFF66FD00FF66,$0000FECC0000FECC,$0099FD99FF6601CC,$013301330000FECC,$0866FE33F666F833 Data.q $F199FBCC04330433,$009901330DCCFE33,$FA99EC3300990733,$08FF0BFF0E660699,$FF66E6CDEE00FD00 Data.q $F499FA99099913CC,$10CCFB33F499F499,$F799F10006991A66,$F8CCF533F966FBCC,$0B66FF66086605FF Data.q $0B660DCCFBCC0133,$FD00F5CCE166ED66,$04330D3313CC0266,$EB00F5330B660566,$0E66FECCFF66F233 Data.q $FA99F400F8CC0A33,$00001AFF0EFFF2CC,$0099F5CCF499F400,$FBCC069910CC0ACC,$F533EFCCF666FA99 Data.q $F79903990D330BFF,$056602660699FC66,$F499E933F49907CC,$10CC13330866FA99,$F533F2CCFB330A33 Data.q $00000566FE33FA99,$056605FFFD99FA00,$FA99FD0000000566,$FF660266FC66FB33,$F8CCFD0000990133 Data.q $05FF0A330699FF66,$F966F499F7000266,$00000566039901CC,$0133FD99FC66FE33,$F8CCFA9904330A33 Data.q $07CC0433FA99F666,$F700FC6605FF08FF,$00990000FA99F799,$FECC02FF03990133,$FF660000FB33FD00 Data.q $0433FF66FBCCFE33,$009905FF04CC0566,$0000FB33F5CCF666,$FF66009904CC0566,$01CCFF66F966FE33 Data.q $FECCFD990000FF66,$0000000000990133,$03990000FBCCFB33,$FD99009905660433,$FECCFC66FB33FD99 Data.q $013303990133FC66,$FE33FECC01330099,$0000FD99FD99FC66,$039901CC00990000,$FBCCFD9901330099 Data.q $02FFFE33FF66FE33,$01CC0133FECC0000,$FECCFD000133FF66,$01CCFE3301330099,$00990000FECC0099 Data.q $0000FECC00000000,$0099FF66FE33FD00,$FECC01330266FECC,$FC66FECCFECCFECC,$01CCFE330133FE33 Data.q $FF66FF66009904CC,$FE33FD99FA99FE33,$FF66013302FF0000,$FF660099FD00FF66,$FE3301330099FECC Data.q $0099FE33FECCFF66,$00990133FE33FF66,$FD00FF6600000099,$FD990000FD99FBCC,$0133026601CCFF66 Data.q $FF66FE33FE3302FF,$00990133FD99FECC,$FECC009901330266,$FBCCFD99FE330000,$FF66026602FF0099 Data.q $FD00FE33FE33FECC,$00000000FF66FF66,$FF66013301CC02FF,$FF66FF66FF660000,$FF6601CC00000000 Data.q $FF66FE33FE33FECC,$00000000026601CC,$0099FE33FF66FF66,$FF66FECCFECC0000,$026600000000FECC Data.q $FF660000FF660000,$FF66FE33FC66FD00,$0000FF6601CC0133,$FECC0000FF66FECC,$FF66FECCFE33FECC Data.q $FF66FF66FF660099,$0099FD99FD99FD00,$FF66FF660099FECC,$FF66FE33FF660099,$FECC009900000000 Data.q $FF6600000099FE33,$FE33FBCCFECC0000,$01330099FF66FE33,$00990000FE33FD99,$FBCC013303990133 Data.q $0000FE33FE33FC66,$01CCFE33FE330133,$FECCFF66FE330099,$00000099FE33FD00,$00990000009901CC Data.q $FF660133FECCFF66,$FECCFECCFF66FECC,$01CC0133FF660099,$FE3301330099FECC,$FE33FF6600000000 Data.q $0000013301330000,$FE33FECCFECCFF66,$FF660099FF66FE33,$00990099013301CC,$FF66FF66FE33FE33 Data.q $000001CC00990000,$FD99FF66FECCFECC,$00000099FE33FE33,$FF66FE3301330133,$00990000FECC0000 Data.q $FF6601CCFD99FC66,$00000133FF66FECC,$FECC0099FF660133,$FE33000000000000,$0000FECCFE33FF66 Data.q $FE330099FF6601CC,$FECCFF66FD990000,$0133013300000000,$0000FE33FF660133,$01CC009901330099 Data.q $FECCFD99FC66FECC,$013302FF026601CC,$FD99FF660099FF66,$0000000001CC0099,$FF6600000133FF66 Data.q $0000000474636166,$50534944544C4946,$000000080000072C,$0000001D00000028,$0008000100000018 Data.q $0000030000000000,$0000000000000000,$0000010000000100,$0080000000000000,$0080800000008000 Data.q $0080008000000080,$00C0C0C000008080,$00A6CAF000C0DCC0,$0000000000FFFFFF,$00004080000080FF Data.q $00804000004000FF,$0000FF8000FFFF80,$008080FF0080FFFF,$00FF804000FF0080,$0000000000000000 Data.q $0000404000808040,$0000000000000000,$0000000000000000,$0000000000000000,$0000000000000000 Data.q $0000000000000000,$0000000000000000,$0000000000000000,$0000000000000000,$0000000000000000 Data.q $0000000000000000,$0000000000000000,$0000000000000000,$0000000000000000,$0000000000000000 Data.q $0000000000000000,$0000000000000000,$0000000000000000,$0000000000000000,$0000000000000000 Data.q $0000000000000000,$0000000000000000,$0000000000000000,$0000000000000000,$0000000000000000 Data.q $0000000000000000,$0000000000000000,$0000000000000000,$0000000000000000,$0000000000000000 Data.q $0000000000000000,$0000000000000000,$0000000000000000,$0000000000000000,$0000000000000000 Data.q $0000000000000000,$0000000000000000,$0000000000000000,$0000000000000000,$0000000000000000 Data.q $0000000000000000,$0000000000000000,$0000000000000000,$0000000000000000,$0000000000000000 Data.q $0000000000000000,$0000000000000000,$0000000000000000,$0000000000000000,$0000000000000000 Data.q $0000000000000000,$0000000000000000,$0000000000000000,$0000000000000000,$0000000000000000 Data.q $0000000000000000,$0000000000000000,$0000000000000000,$0000000000000000,$0000000000000000 Data.q $0000000000000000,$0000000000000000,$0000000000000000,$0000000000000000,$0000000000000000 Data.q $0000000000000000,$0000000000000000,$0000000000000000,$0000000000000000,$0000000000000000 Data.q $0000000000000000,$0000000000000000,$0000000000000000,$0000000000000000,$0000000000000000 Data.q $0000000000000000,$0000000000000000,$0000000000000000,$0000000000000000,$0000000000000000 Data.q $0000000000000000,$0000000000000000,$0000000000000000,$0000000000000000,$0000000000000000 Data.q $0000000000000000,$0000000000000000,$0000000000000000,$0000000000000000,$0000000000000000 Data.q $0000000000000000,$0000000000000000,$0000000000000000,$0000000000000000,$0000000000000000 Data.q $0000000000000000,$0000000000000000,$0000000000000000,$0000000000000000,$0000000000000000 Data.q $0000000000000000,$0000000000000000,$0000000000000000,$0000000000000000,$0000000000000000 Data.q $0000000000000000,$0000000000000000,$0000000000000000,$0000000000000000,$0000000000000000 Data.q $0000000000000000,$00A0A0A400FFFBF0,$00FF000000808080,$00FFFF000000FF00,$00FF00FF000000FF Data.q $00FFFFFF0000FFFF,$FFFFFFFFFFFFFFFF,$FFFFFFFFFFFFFFFF,$FFFFFFFFFFFFFFFF,$000000FFFFFFFFFF Data.q $FFFFFFFFFFFFFFFF,$FFFFFFFFFFFFFFFF,$FFFFFFFFFFFFFFFF,$000000FFFFFFFFFF,$FFFFFFFFFFFFFFFF Data.q $FFFFFFFFFFFFFFFF,$FFFFFFFFFFFFFFFF,$000000FFFFFFFFFF,$FFFFFFFFFFFFFFFF,$FFFFFFFFFFFFFFFF Data.q $FFFFFFFFFFFFFFFF,$000000FFFFFFFFFF,$FFFFFFFFFFFFFFFF,$FFFFFFFFFFFFFFFF,$FFFFFFFFFFFFFFFF Data.q $000000FFFFFFFFFF,$FFFFFFFFFFFFFFFF,$FF00000000FFFFFF,$FFFFFFFFFFFFFFFF,$000000FFFFFFFFFF Data.q $FFFFFFFFFFFFFFFF,$00FBFBFBFB0000FF,$FFFFFFFFFFFFFF00,$000000FFFFFFFFFF,$FFFFFFFFFFFFFFFF Data.q $FBFBFBFBFBFBFB00,$FFFFFFFFFFFF00FB,$000000FFFFFFFFFF,$F8FFFFFFFFFFFFFF,$F800000000F8FBFB Data.q $FFFFFFFFFF00FBFB,$000000FFFFFFFFFF,$F8FFFFFFFFFFFFFF,$00FBFBFBFB00F8FB,$FFFFFFFFFF00FBF8 Data.q $000000FFFFFFFFFF,$FBF8FFFFFFFFFFFF,$FBFBFBFBFBFB00FB,$FFFFFFFF00FBFB00,$000000FFFFFFFFFF Data.q $FBF8FFFFFFFFFFFF,$FBFBFBFBFBFB00FB,$FFFFFFFF00FBFB00,$000000FFFFFFFFFF,$FBF8FFFFFFFFFFFF Data.q $FBFBFBFBFBFBFBFB,$FFFFFFFF00FBFBFB,$000000FFFFFFFFFF,$FBF8FFFFFFFFFFFF,$0000FBFB0000FBFB Data.q $FFFFFFFF00FBFBFB,$000000FFFFFFFFFF,$F8FFFFFFFFFFFFFF,$0000FBFB0000FBFB,$FFFFFFFFFF00FBFB Data.q $000000FFFFFFFFFF,$F8FFFFFFFFFFFFFF,$FBFBFBFBFBFBFBFB,$FFFFFFFFFF00FBFB,$000000FFFFFFFFFF Data.q $FFFFFFFFFFFFFFFF,$FBFBFBFBFBFBFBF8,$FFFFFFFFFFFF00FB,$000000FFFFFFFFFF,$FFFFFFFFFFFFFFFF Data.q $F8FBFBFBFBF8F8FF,$FFFFFFFFFFFFFFF8,$000000FFFFFFFFFF,$FFFFFFFFFFFFFFFF,$FFF8F8F8F8FFFFFF Data.q $FFFFFFFFFFFFFFFF,$000000FFFFFFFFFF,$FFFFFFFFFFFFFFFF,$FFFFFFFFFFFFFFFF,$FFFFFFFFFFFFFFFF Data.q $000000FFFFFFFFFF,$FFFFFFFFFFFFFFFF,$FFFFFFFFFFFFFFFF,$FFFFFFFFFFFFFFFF,$000000FFFFFFFFFF Data.q $FFFFFFFFFFFFFFFF,$FFFFFFFFFFFFFFFF,$FFFFFFFFFFFFFFFF,$000000FFFFFFFFFF,$FFFFFFFFFFFFFFFF Data.q $FFFFFFFFFFFFFFFF,$FFFFFFFFFFFFFFFF,$000000FFFFFFFFFF,$FFFFFFFFFFFFFFFF,$FFFFFFFFFFFFFFFF Data.q $FFFFFFFFFFFFFFFF,$000000FFFFFFFFFF,$0000002350534944,$646E695700000001,$552035392073776F Data.q $6F53206169706F74,$6568635320646E75,$5453494C0000656D,$4F464E4900000094,$00000046544D4349 Data.q $694B2026207A614D,$320A0D65726F676C,$3033202E57203830,$0D31303723206874,$726F592077654E0A Data.q $303120594E202C6B,$7A616D0A0D313030,$696E617040626F72,$4349006D6F632E78,$39310000001B504F Data.q $6F7263694D203539,$726F432074666F73,$6E6F697461726F70,$00164A4253490000,$6169706F74550000 Data.q $502065736F6C4320,$00206D6172676F72 EndDataSection ; IDE Options = PureBasic 4.61 (Windows - x86) ; CursorPosition = 195 ; FirstLine = 256 ; Folding = - ; EnableXP