1.31k likes | 1.4k Views
; LightBar module PPE 03/3/94. ; by: Mr. Data. ;. ;²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²². ; DECLARATIONS. ;²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²². String LiteModule, LiteExt. String In, Out, YoX, YoY.
E N D
;²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²;²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²
;²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²;²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²
String Title(50), Stuff(50), Disp(50), UnHiX, HiX, HotKey(50)
;²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²;²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²
;²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²;²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²
;²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²;²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²
;²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²;²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²
If (Exist(LiteModule) = False) Then • SPrintLn LiteModule, " Not Found" • End
While (True) Do ;Display title(s) • FGet 0, YoX • If (Left(YoX, 2) = "@X") Then • UnHiX = YoX • FGet 0, HiX • If ((GrafMode() = "A")||(GrafMode() = "N")) Then • HiX = Chr(27)+"[7m" • UnHiX = Chr(27)+"[0m" • EndIf • FGet 0, NumItems • Break • Else • FGet 0, YoY • FGet 0, Title(0) • Gosub MakeCoords • SX = TXPos • SY = TYPos • Gosub AnsPos • SavPos(RelTitS, 0) = GetX() • SavPos(RelTitS, 1) = GetY() • SavPos(RelIteS, 0) = GetX() • SavPos(RelIteS, 1) = GetY() • If (Left(Title(0), 1) = "%") Then • DispFile Mid(Title(0), 2, Len(Title(0))-1), Graph+Lang • ElseIf (Left(Title(0), 1) = "#") Then • Cls • DispFile Mid(Title(0), 2, Len(Title(0))-1), Graph+Lang • Else • Print Title(0) • EndIf • EndIf