Skip to content

Instantly share code, notes, and snippets.

View RetroNick2020's full-sized avatar
🏠
Working from home

RetroNick's Youtube Channel RetroNick2020

🏠
Working from home
View GitHub Profile
program firetest;
{ Classic fire animation using VGA mode 13h and colors 0 to 63... wee !!! }
uses Crt, VGA;
var i, heat: Integer;
quit: Boolean;
c: Char;
@RetroNick2020
RetroNick2020 / UTILS.PAS
Created March 23, 2020 14:46 — forked from Fortyseven/UTILS.PAS
Old kitchen sink 'utilities' unit for Turbo Pascal (DOS)
{$G+,A+,S-,R-,I-,D+,L-,N-,E-,X+}
Unit UTILS;
{ Utilities Unit
ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
³ Û Û ÜßßÜ Üßß ÜÛßßßÛßßÜ ÛßßßÛß ßß ß ~ ³
³ _ Ü ÜÜ ÜÛß Û Ûß Û ßÜÜÜÜÜß ßÜÜß Ûß Û ³
ÃÄÄÄÄÄÄÄÄÄÄÄÄÄ[SOURCE CODE LIBRARY]ÄÄÄÄÄÄÄÄÄÄÄÄÄ´
ÔÍÍÍÍÍÍÍÍÍÍÍÍ[Misc. Useful Routines]ÍÍÍÍÍÍÍÍÍÍÍ; v1.3
}
Interface