* * *

Author Topic: Free Pascal console programs on Android are easy  (Read 13077 times)

jc99

  • Hero Member
  • *****
  • Posts: 516
    • My private Site
Re: Free Pascal console programs on Android are easy
« Reply #45 on: June 18, 2017, 11:52:17 am »
Could you try to run my Console-Progs ?
--- and - if successful - publish some pictures ?
PS try that one too:
Code: Pascal  [Select]
  1. program Prj_WritePascal4;
  2.  
  3. const
  4.   i64: int64 = 1055120232691680095; (* This defines "Pascal" *)
  5.   cc: array[-3..3] of string = (* Here are all string-constants *)
  6.     ('\ '#8' \  ', #8'__    ', #8'__/\  ',
  7.     '  '#8'    ', #8'__/\  ', '  '#8'    ', #8'__/\  ');
  8. var
  9.   x, y: integer;
  10.  
  11. begin
  12.   for y := 0 to 11 do
  13.   begin
  14.     Write(StringOfChar(cc[0][1], 13 - y));
  15.     for x := 0 to 16 do
  16.       Write(copy(cc[(((i64 shr ((x and 15) * 4 + y div 3)) and (3 -
  17.         (y div 9) shl 1))-4 + (2 - y mod 3) shl 2) mod 4], 1,
  18.          5 + (x mod 3) and 2));
  19.     writeln;
  20.   end;
  21.   readln;
  22. end.
  23.  
[UnSpoiler] I'll publish the obfuscated version in the other thread.
OS: Win XP x64, Win 7, Win 7 x64, Win 10, Win 10 x64, Suse Linux 13.2
Laz: 1.2 - 1.6.4, 1.8rc3
https://github.com/joecare99/public
'~|    /''
,_|oe \_,are

Paul Breneman

  • Full Member
  • ***
  • Posts: 242
    • Control Pascal
Re: Free Pascal console programs on Android are easy
« Reply #46 on: June 19, 2017, 11:42:19 am »
I tried an alternative approach and got at least some attention (but no reaction from your side either)
see:
http://forum.lazarus.freepascal.org/index.php/topic,37229.msg249603.html#msg249603

Sorry jc99, but I don't get your joke?  You can update the wiki page yourself...
Regards,
Paul Breneman
www.ControlPascal.com

Thaddy

  • Hero Member
  • *****
  • Posts: 4248
Re: Free Pascal console programs on Android are easy
« Reply #47 on: June 19, 2017, 12:46:30 pm »
http://turbocontrol.com/gnuroot.htm is a new (unpublished) web page.  Feedback appreciated!

The original still works on my samsung S4 mini.
"Logically, no number of positive outcomes at the level of experimental testing can confirm a scientific theory, but a single counterexample is logically decisive."

jc99

  • Hero Member
  • *****
  • Posts: 516
    • My private Site
Re: Free Pascal console programs on Android are easy
« Reply #48 on: June 19, 2017, 01:00:13 pm »
Sorry jc99, but I don't get your joke?  You can update the wiki page yourself...
Me neither, what Wiki Page ?
Have you actually tried my mini-programs ?
I started a thread about (mini-)console (demo-)programs ...
« Last Edit: June 19, 2017, 01:04:07 pm by jc99 »
OS: Win XP x64, Win 7, Win 7 x64, Win 10, Win 10 x64, Suse Linux 13.2
Laz: 1.2 - 1.6.4, 1.8rc3
https://github.com/joecare99/public
'~|    /''
,_|oe \_,are

Paul Breneman

  • Full Member
  • ***
  • Posts: 242
    • Control Pascal
Regards,
Paul Breneman
www.ControlPascal.com

Paul Breneman

  • Full Member
  • ***
  • Posts: 242
    • Control Pascal
Re: Free Pascal console programs on Android are easy
« Reply #50 on: June 19, 2017, 03:40:28 pm »
http://turbocontrol.com/gnuroot.htm is a new (unpublished) web page.  Feedback appreciated!

The original still works on my samsung S4 mini.

What version of Android are you running on your S4?
Regards,
Paul Breneman
www.ControlPascal.com

Thaddy

  • Hero Member
  • *****
  • Posts: 4248
Re: Free Pascal console programs on Android are easy
« Reply #51 on: June 19, 2017, 03:42:54 pm »
4.4.2 (this is after a Samsung firmware upgrade. Did not affect functionality.)
« Last Edit: June 19, 2017, 03:46:14 pm by Thaddy »
"Logically, no number of positive outcomes at the level of experimental testing can confirm a scientific theory, but a single counterexample is logically decisive."

Paul Breneman

  • Full Member
  • ***
  • Posts: 242
    • Control Pascal
Re: Free Pascal console programs on Android are easy
« Reply #52 on: June 19, 2017, 04:03:20 pm »
4.4.2 (this is after a Samsung firmware upgrade. Did not affect functionality.)

Thanks!  Android 5 is where things apparently stopped working...
Regards,
Paul Breneman
www.ControlPascal.com

 

Recent

Get Lazarus at SourceForge.net. Fast, secure and Free Open Source software downloads Open Hub project report for Lazarus