Rocket Software Homepage
Forum Home Forum Home > AccuTerm Knowledge Base (read only) > Code Samples
  New Posts New Posts RSS Feed - Squares Program
  FAQ FAQ  Forum Search   Register Register  Login Login

The AccuTerm forum has moved. Go to community.rocketsoftware.com to register for the new Rocket forum.

Forum LockedSquares Program

 Post Reply Post Reply
Author
Message
frosty View Drop Down
Beta Tester
Beta Tester


Joined: July 10 2006
Location: United States
Status: Offline
Points: 2
Post Options Post Options   Thanks (0) Thanks(0)   Quote frosty Quote  Post ReplyReply Direct Link To This Post Topic: Squares Program
    Posted: July 18 2006 at 5:02am
Some of you old-timers may remember this:

CRT @(-1):
w = INT((SYSTEM(2)+2)/24)
h = INT((SYSTEM(3)+1)/12)
spots = '[]**++XX##\\//--||  '
LOOP UNTIL SYSTEM(14) DO
  x = 14 + 24 * (RND(w)); y = 5 + 12 * (RND(h))
  zone1 = RND(5); zone2 = RND(6)
  IF zone1 = zone2 THEN zone1 = 0; zone2 = 5
  IF zone1 < zone2 THEN dir = 1 ELSE dir = -1
  spot = spots[2*RND(LEN(spots)/2)+1,2]
  FOR zone = zone1 TO zone2 STEP dir
    t = y-zone; b = y+zone; l = x-zone*2; r = x+zone*2
    IF zone1 = 0 AND zone2 = 5 THEN
      CRT @(x-zone*2,y-zone):spot: @(x+zone*2,y-zone):spot:
      CRT @(x-zone*2,y+zone):spot: @(x+zone*2,y+zone):spot:
    END ELSE
      CRT @(l,t):STR(spot,zone*2): @(l,b):STR(spot,zone*2):
      FOR i = t TO b STEP  1; CRT @(l,i):spot:; NEXT i
      FOR i = b TO t STEP -1; CRT @(r,i):spot:; NEXT i
    END
  NEXT zone
REPEAT
CRT @(0,SYSTEM(3)):
Can be used to test cursor addressing, or as a relaxation aid.
Back to Top
acmedia View Drop Down
Senior Member
Senior Member


Joined: April 26 2005
Status: Offline
Points: 119
Post Options Post Options   Thanks (0) Thanks(0)   Quote acmedia Quote  Post ReplyReply Direct Link To This Post Posted: July 19 2006 at 11:30am
Wow man, that's like, far out :)
Back to Top
 Post Reply Post Reply
  Share Topic   

Forum Jump Forum Permissions View Drop Down

Forum Software by Web Wiz Forums® version 12.03
Copyright ©2001-2019 Web Wiz Ltd.