First upload of the code.

git-svn-id: svn://pulkomandy.tk/GrafX2/trunk@2 416bcca6-2ee7-4201-b75f-2eb2f807beb1
2007-04-14 20:18:30 +00:00
parent 1af8c74f53
commit 306a004e36
99 changed files with 51201 additions and 0 deletions
--- a/cfg/ASCKEY.PAS
+++ b/cfg/ASCKEY.PAS
@@ -0,0 +1,11 @@
+var touche:byte;
+begin
+  repeat
+    asm
+      mov ah,8
+      int 21h
+      mov touche,al
+    end;
+    write(touche,' ');
+  until touche=27
+end.