QB64.org Forum

Active Forums => Programs => Topic started by: Juan Tamarit on September 02, 2020, 12:48:12 am

Title: Trying to imitate TIS-100
Post by: Juan Tamarit on September 02, 2020, 12:48:12 am

As i mentioned before i got into QB64 trhu TIS-100, among other things. I'm opening this topic because ill notice that imitate such a game is a huge task and i'm gonna need a lot of learning and help. For the moment i started with an intro, but i'm having problems with CLS (and probably with _DISPLAY too). I don't clearly understand the relation between these statements. In the example i'm posting after the infect() SUB the CLS statement has no effect... why is this happening? (theres also a nice bag of snippets in the end)

Code: QB64: [Select]

1. '
2. ----------------------Û   SETUP   Û----------------
3. RANDOMIZE TIMER
4.  
5. CONST ScreenWidth = 800 ' check if this values are ok     ÍÍÍ»
6. CONST ScreenHeight = 608 '                                   º
7. '                                                            º
8. SCREEN _NEWIMAGE(ScreenWidth, ScreenHeight, 32) '            º        ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
9. _FULLSCREEN '                                                º        º                 º
10. '                                                            º        º1,1    TEXT       º
11. CONST WHITE = _RGB32(255, 255, 255) '                        º VIDEO  º      SCREEN      º
12. CONST MIDGRAY = _RGB32(127, 127, 127) '                      º        º          38y,100xº
13. CONST DARKGRAY = _RGB32(63, 63, 63) '                        º        º                 º
14. CONST LIGHTGRAY = _RGB32(191, 191, 191) '                    º        ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ
15. CONST RED = _RGB32(127, 0, 0) '                              º
16. CONST GREEN = _RGB32(0, 127, 0) '                         ÍÍͼ
17. '----------------------------------Û   PROGRAM   Û---------------------------------
18. infect
19. CLS
20. systemCheck
21. SYSTEM
22.  
23.  
24. '--------------------------------Û SUBROUTINES Û---------------------------
25. SUB infect () ' intro sketch
26.  
27.     row% = 15
28.     column% = 38
29.     message1$ = "I'm taking control..."
30.     message2$ = "And you can't stop me"
31.  
32.     'sayHello
33.     COLOR GREEN
34.     PRINTslowly row% + 3, column% + 2, message1$
35.     PRINTslowly row% + 4, column% + 2, message2$
36.     SLEEP 1
37.  
38.     'install
39.     i% = 0
40.     ii% = 0
41.     loadingBar$ = CHR$(219)
42.     DO
43.         i% = i% + 1
44.         ii% = INT(i% / 100)
45.         _LIMIT 500
46.  
47.         COLOR MIDGRAY '                             ¿
48.         LOCATE RND(1) * 37 + 1, RND(1) * 99 + 1 '   ³ random characthers on the back
49.         PRINT CHR$(RND(1) * 222 + 32); '            Ù
50.  
51.         COLOR GREEN '    a virus is GREEN!
    
52.  
53.         drawDoubleLineBox row%, column%, 23, 7, ""
54.         fakeCLS row% + 1, column% + 1, 22, 6
55.  
56.         IF ii% MOD 2 = 0 THEN '                   ¿
57.             LOCATE row% + 1, column% + 2 '        ³ blink: title
58.             PRINT "CV64 VIRUS V0.2  >:-["; '      ³ underline
59.             LOCATE row% + 2, column% + 2 '        ³ message1$
60.             PRINT STRING$(21, CHR$(223)); '       ³ and
61.             '                                     ³ message2$
62.             LOCATE row% + 3, column% + 2 '        ³
63.             PRINT message1$; '                    ³
64.             '                                     ³
65.             LOCATE row% + 4, column% + 2 '        ³
66.             PRINT message2$; '                    Ù
67.  
68.         END IF
69.  
70.         LOCATE row% + 6, column% + 2 '                              ¿
71.         IF ii% < 20 THEN PRINT "Overriding OS..."; '                ³
72.         IF ii% < 40 AND ii% > 19 THEN PRINT "Accesing files..."; '  ³ loading messages
73.         IF ii% < 60 AND ii% > 39 THEN PRINT "Infecting..."; '       ³
74.         IF ii% < 80 AND ii% > 59 THEN PRINT "Replicating..."; '     ³
75.         IF ii% < 100 AND ii% > 79 THEN PRINT "Ereasing nodes..."; ' ³
76.         IF ii% = 100 THEN PRINT "Nodes killed "; '                 Ù
77.  
78.         ii$ = LTRIM$(STR$(ii%)) '                   ¿
79.         LOCATE row% + 6, column% + 22 - LEN(ii$) '  ³ xx%
80.         PRINT ii$ + "%"; '                          Ù
81.  
82.         IF i% MOD 500 = 0 THEN loadingBar$ = loadingBar$ + CHR$(219) ' ¿
83.         LOCATE row% + 7, column% + 2 '                                 ³ loading bar
84.         PRINT loadingBar$; '                                           Ù
85.  
86.         _DISPLAY
87.     LOOP UNTIL i% = 10000
88.     SLEEP 2 '                                       infection complete XD
89.  
90. END SUB
91.  
92. '- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
93. SUB systemCheck () ' fake system check as excuse to go at main menu
94.  
95.     COLOR LIGHTGRAY
96.     PRINTslowly 2, 2, "Unexpected restart. Check system..."
97.  
98.     FOR i& = 0 TO 247483647 STEP 2048
99.         _LIMIT 20000
100.         LOCATE 4, 2
101.         PRINT "CHECKSUM: ";: PRINT LTRIM$(STR$(i&));
102.     NEXT i&
103.     PRINT " OK"
104.  
105.     PRINTslowly 6, 2, "Some nodes have been corrupted..."
106.     PRINTslowly 7, 2, "Reprogram them to recover access to OS..."
107.     PRINTslowly 9, 2, "Starting debbuger"
108.  
109.     SLEEP 1
110.  
111. END SUB
112.  
113. 'ÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÛ   SNIPPETS    ÛÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ
114. 'save time over recurring things
115. '----------------------------Û  SUBROUTINES  Û-----------------------
116. SUB drawDoubleLineBox (originY%, originX%, width%, height%, message$)
117.  
118.     IF originY% < 1 THEN EXIT SUB '                     ÄÄÄ¿
119.     IF originX% < 1 THEN EXIT SUB '                        ³ check if logic
120.     IF width% < 1 THEN EXIT SUB '                          ³
121.     IF height% < 1 THEN EXIT SUB '                      ÄÄÄÙ
122.  
123.     LOCATE originY%, originX% '                         ÄÄÄ¿
124.     PRINT CHR$(201); ' É                                   ³
125.     LOCATE originY% + height% + 1, originX% '              ³
126.     PRINT CHR$(200); ' È                                   ³ corners
127.     LOCATE originY%, originX% + width% + 1 '               ³
128.     PRINT CHR$(187); ' »                                   ³
129.     LOCATE originY% + height% + 1, originX% + width% + 1 ' ³
130.     PRINT CHR$(188); ' ¼                                ÄÄÄÙ
131.  
132.     FOR y% = 1 TO height% '                             ÄÄÄ¿
133.         LOCATE originY% + y%, originX% '                   ³
134.         PRINT CHR$(186); ' º                               ³ sides
135.         LOCATE originY% + y%, originX% + width% + 1 '      ³
136.         PRINT CHR$(186); ' º                               ³
137.     NEXT y% '                                           ÄÄÄÙ
138.  
139.     FOR x% = 1 TO width% '                              ÄÄÄ¿
140.         LOCATE originY%, originX% + x% '                   ³
141.         PRINT CHR$(205); ' Í                               ³ top &
142.         LOCATE originY% + height% + 1, originX% + x% '     ³ bottom
143.         PRINT CHR$(205); ' Í                               ³
144.     NEXT x% '                                           ÄÄÄÙ
145.  
146.     LOCATE originY% + 1, originX% + 1 '                 ÄÄÄ¿ message
147.     PRINT message$ '                                    ÄÄÄÙ
148.  
149. END SUB
150.  
151. '- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
152. SUB PRINTslowly (originY%, originX%, message$)
153.  
154.     IF originY% < 1 THEN EXIT SUB '     ¿ check if logic
155.     IF originX% < 1 THEN EXIT SUB '     Ù
156.  
157.     PCthinking originY%, originX%
158.  
159.     i% = 0 '                                                Ä¿
160.     DO '                                                     ³
161.         _DELAY .05 '                                         ³
162.         i% = i% + 1 '                                        ³ print message$
163.         buildingMessage$ = LEFT$(message$, i%) + CHR$(219) ' ³ character by character
164.         LOCATE originY%, originX% '                          ³ and erease the cursor
165.         PRINT buildingMessage$; '                            ³
166.     LOOP UNTIL LEN(buildingMessage$) = LEN(message$) + 1 '  ÄÙ
167.  
168.     LOCATE CSRLIN, originX% + LEN(message$): PRINT " "; ' erease cursor
169.  
170. END SUB
171.  
172. '- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
173. SUB PCthinking (originY%, originX%)
174.  
175.     IF originY% < 1 THEN EXIT SUB '     ¿ check if logic
176.     IF originX% < 1 THEN EXIT SUB '     Ù
177.  
178.     FOR i% = 1 TO 11 '                  ¿
179.         _LIMIT 5 '                      ³
180.         LOCATE originY%, originX% '     ³
181.         IF i% MOD 2 = 0 THEN '          ³ bliking cursor
182.             PRINT CHR$(219); '          ³
183.         ELSE '                          ³
184.             PRINT " "; '                ³
185.         END IF '                        ³
186.     NEXT i% '                           Ù
187.  
188. END SUB
189.  
190. '- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
191. SUB fakeCLS (originY%, originX%, width%, height%)
192.  
193.     IF originY% < 1 THEN EXIT SUB '               ¿
194.     IF originX% < 1 THEN EXIT SUB '               ³ check if logic
195.     IF width% < 1 THEN EXIT SUB '                 ³
196.     IF height% < 1 THEN EXIT SUB '                Ù
197.  
198.     FOR x% = 0 TO width% '                        ¿
199.         FOR y% = 0 TO height% '                   ³ print
200.             LOCATE originY% + y%, originX% + x% ' ³ " " (space)
201.             PRINT " "; '                          ³ repeatedly
202.         NEXT y% '                                 ³
203.     NEXT x% '                                     Ù
204.  
205. END SUB
206.  
207.  

Title: Re: Trying to imitate TIS-100
Post by: bplus on September 02, 2020, 02:24:20 am

CLS is just clear screen, if want to change background color set backcolor:

Code: QB64: [Select]

1. COLOR ,&HFFFFFF00 'yellow
2. CLS
3.  

or just CLS to clear last loop

_DISPLAY ' all screen updates in usually a loop wait until it comes to _DISPLAY this prevents flashing or blinking if you CLS allot.

This means if you print something and need to see it immediately before usually the end of a loop you have to say
_DISPLAY right after the print.

So once you _DISPLAY, you have to _DISPALY every time you want a screen update but you can turn _DISPLAY off with _AUTODISPLAY which is default screen mode.

Title: Re: Trying to imitate TIS-100
Post by: Juan Tamarit on September 02, 2020, 03:30:24 am

brother!! ;-))

You are my new programming lenguage, i will call you "B+" (why QB64 wasn't named like this? It has a lot more of punch! At least phonetycally XD)

Thank you very much for your explanation, i get perfectly the idea. So _DISPLAY is like an OFF switch, _AUTODISPLAY an ON switch, and CLS just erease the screen, and i got to make combinatios of this 3 statements. If i _DISPLAY once i wont see changes until next _DISPLAY, or _AUTODISPLAY (flicker will be back if i _AUTODISPLAY). This is great info!!!

Did I understood correctly?

Title: Re: Trying to imitate TIS-100
Post by: bplus on September 02, 2020, 03:49:55 am

Pretty close, I would describe _Display as a wait until I say _Display switch :-))

_AUTODISPLAY, automatic draw or print, no waiting switch.

In main animation loop, I usually:

Code: QB64: [Select]

1. Do
2.   cls
3.   draw and print stuff...
4.   _display
5.   _limit 60 ' loop around 60 times a second or another wait to keep sequence steady
6.                 'assuming you can draw and print faster this save CPU fan from coming on also
7. LOOP

Title: Re: Trying to imitate TIS-100
Post by: Juan Tamarit on September 02, 2020, 04:03:54 am

Right, right... So, let me see if i get now: once _DISPLAY is found it actualizes the screen, from now on until _DISPLAY isn't found again nothing that is printed will be show in the screen until the next _DISPLAY. In the loop this happens continously. And once you leave the loop if you wanna see further printing you have to _AUTODISPLAY and CLS, keep printing and CLSing the usual newbie way (my way XD, or now that i think it you called it "Default screen mode")..., until the next loop, wich surely will contain another _DISPLAY, and then again when out of the loop for non-looping printing i come back to the _AUTODISPLAY mode.

Better? :P Or i'm messing things up? lol

Thank you for your teachings and time

Another question by the way: is there any diference between:

SUB subroutineName
    <code>
END SUB

and

SUB subroutineName ()
    <code>
END SUB

Does the parenthesis means something?

Title: Re: Trying to imitate TIS-100
Post by: Richard Frost on September 02, 2020, 07:07:01 am

You have a clear and interesting way of commenting code.  I've never seen it before.  Doesn't
it slow you down to find the right symbols? 

Most of your variables are integers.  You could save yourself a lot of typing % by starting off
your code with DEFINT A-Z.

I don't believe there's any difference with a SUB to include ().  The IDE will flag any discrepancy
if you DO have parameters and don't call the sub with parameters, or the other way around, as
you've probably noticed already.

Title: Re: Trying to imitate TIS-100
Post by: bplus on September 02, 2020, 11:02:13 am

Quote

SUB subroutineName ()
    <code>
END SUB

Does the parenthesis means something?

The (parenthesis) are meant to contain parameters for instance:

Code: QB64: [Select]

1. SUB mySub(parameter1%, parameter2 as _UNSIGNED LONG, parameter3 AS STRING)

If the SUB does not need any, they are not used

Code: QB64: [Select]

1. SUB Hello
2.     PRINT "Hello World!"
3. END SUB

One very important thing to keep in mind is if the arguments passed through the SUB with a variable of the same type as the SUB's Parameter AND that variable gets changed in the SUB, that change will be passed back into the main program with variable's value changed, some PL's (Programming Languages) dont do that.

Demo

Code: QB64: [Select]

1. DEFINT A-Z
2.  
3. PRINT " Here in main x, y are integers I will modify in SUB Hello."
4. x = 1: y = 1
5. PRINT "x, y before call to Hello "; x; ","; y ' 1, 1
6. Hello x, y ' 2, 2
7. PRINT "After Hello SUB call x, y are:"; x; ","; y '1, 2    x did not get changed because different Type
8.  
9. SUB Hello (x AS LONG, y AS INTEGER)
10.     PRINT "Hello World!, I am going to increment x and y you sent me but,"
11.     PRINT "check them out back in the main program."
12.     x = x + 1: y = y + 1
13.     PRINT "In Hello SUB x, y are now:"; x; ","; y
14. END SUB
15.  
16.  

Title: Re: Trying to imitate TIS-100
Post by: bplus on September 02, 2020, 03:18:06 pm

Quote from: Richard Frost on September 02, 2020, 07:07:01 am

You have a clear and interesting way of commenting code.  I've never seen it before.  Doesn't
it slow you down to find the right symbols? 

Most of your variables are integers.  You could save yourself a lot of typing % by starting off
your code with DEFINT A-Z.

I don't believe there's any difference with a SUB to include ().  The IDE will flag any discrepancy
if you DO have parameters and don't call the sub with parameters, or the other way around, as
you've probably noticed already.

@Juan Tamarit

Yes +1, those comments may be even better than Terry's! Truly unique and it does look like it takes quite an effort unless you have shortcuts, a special editor?

Suffixes are nice for tracking Type as you code but % for integers drives me crazy (also ~&for _UNSIGNED LONG).

Title: Re: Trying to imitate TIS-100
Post by: Juan Tamarit on September 02, 2020, 05:00:39 pm

Thank you for your replies, guys. The way i comment dosnt really shine here on the forum. The "

Code: QB64: [Select]

1.  

" dosnt show how i actually see he comments. I have an Ascii table at hand, i also use the INSERT key to change cursor function (if it fits me better) and then just Alt+ ASCII code. After doin some commenting you start to remember some combinations and turn easier.

things like:

FOR i% = 0 TO 20 ' ┐ comment entire
    array(i%) = 1 '   │ block here
NEXT i% '               ┘

i THINK them literally as "ALT191", "ALT179", and so...

But i do this lately, for a begginer commenting line by line sound lke a better idea. I have also seen a conference/class by Uncle Bob who was talking about "Clean code", and he did some mentions on comments. I recall things he said, like:

"If you see "for i = 0, i = 23, i++  ' increase counter" it's rather a stupid comment, and unnecessary. Comment things that really need to be commented. Else, read the code... the code is self explainatorie (and if not it's a disaster)."

Also i'm a hobbist, i don't have any rush to finish anything. I can sit for half hour just watching the code and thinking how can i say and ask for things in the most short and easier way, as long as they are self explainatorie. If it's a cryptic mess i try to rearrenge it to looks cleaner at view... and for the processor too.

About variable types with suffixes, i feel more comftable with them, i feel that i can keep track not just the variable name BUT ALSO IT'S TYPE, so i may have a variable name "number$" and another called "number%" (even this is dangerous)

B+: what you told me about SUB's make me remember about the SHARED stuff, so my question would be ¿If you have a variable on main program and another with same name, but inside a SUB, does the variable in main program seems affected by this other one? (as if the variable in the SUB were the main program one)?

Title: Re: Trying to imitate TIS-100
Post by: bplus on September 02, 2020, 06:01:17 pm

Quote

B+: what you told me about SUB's make me remember about the SHARED stuff, so my question would be ¿If you have a variable on main program and another with same name, but inside a SUB, does the variable in main program seems affected by this other one? (as if the variable in the SUB were the main program one)?

Yes a variable x say, in a SUB is private to an x in the main and other subs unless:
The variable is DIM SHARED in the main or the SUB shares with the main.
Or it is passed to the SUB (or FUNCTION) in the arguments list.
CONST declared in main is shared throughout file.

I feel like I am forgetting something? about a sub sharing with Main. I don't usually use that option, I usually go completely private or completely shared for a variable. But I imagine in extremely large programs one may want to have limited sharing.

Title: Re: Trying to imitate TIS-100
Post by: Juan Tamarit on September 02, 2020, 06:23:16 pm

Quote from: bplus on September 02, 2020, 06:01:17 pm

Or it is passed to the SUB (or FUNCTION) in the arguments list.

Now this is interesting. So if i pass a variable to a SUB (i won't consider the FUNCTION case for now) and the names are the same in main code AND in the argument list of the SUB (next to the SUB name) the variable on main code will be affected by whatever happens inside the SUB?

PD: Terry can't be superated!!! XD I was thinking in starting a topic for a program that teaches QB64, said like an asistant/teacher, following more or less Terrie's didactic sequence. I'm also a teacher, you know? I teach Chemistry at high-school =)

Title: Re: Trying to imitate TIS-100
Post by: bplus on September 02, 2020, 06:46:57 pm

Quote

Now this is interesting. So if i pass a variable to a SUB (i won't consider the FUNCTION case for now) and the names are the same in main code AND in the argument list of the SUB (next to the SUB name) the variable on main code will be affected by whatever happens inside the SUB?

Yes if the name and TYPE is the same, see the Hello demo above, same with FUNCTION.

Keep this in mind if you plan on changing the value in the SUB or FUNCTION, this BTW can be an advantage making a SUB behave a bit like a FUNCTION by returning output stuff in the variables that match Type as defined in parameters list.

I wonder what happened to Terry, he asked about using a Pong paddle modification some months ago, haven't heard from him since?

Title: Re: Trying to imitate TIS-100
Post by: Juan Tamarit on September 02, 2020, 07:28:04 pm

I didn't knew about this DEFINT statement, i will try it in further proyetcs.

ok, the Hello Demo was clear, tried changing it and works the same, ill have this into consideration. Thanks for the warning or bad unexplainable things couuld have happened.

By the way, you may found this interesting. I did a small snippet for the INKEY$. It's a function that get no parameters, but return the INKEY$      =)

Code: QB64: [Select]

1. FUNCTION getINKEY$ ()
2.  
3.     DO
4.         _LIMIT 20
5.         keyPress$ = INKEY$
6.     LOOP UNTIL keyPress$ <> ""
7.  
8.     getINKEY$ = keyPress$
9.  
10. END FUNCTION
11.  

But shurely you already knew this.

Another question! How can i get a 1 or 0 50/50 chance? I seem to be missin something about RND(). I never understand the parameter inside it. I only have seen Terry using it like:

RND(1) * 256

to get a random number between 1 (or 0?) to 256 (or 255?)

Why is the the multiplication necesary?

About the parenthesis on subs: ¿can i say that if they aren't present the SUB recibes no parameters, but if they are there the parameter is null? I'm getting to much phylosophycal here? XD
   

Title: Re: Trying to imitate TIS-100
Post by: Juan Tamarit on September 02, 2020, 07:33:08 pm

Or should i say null parameters?
   

Title: Re: Trying to imitate TIS-100
Post by: bplus on September 02, 2020, 08:45:31 pm

RND returns a real number from 0 to almost 1 so RND * 256 returns anything from 0 to 255.99???

and Int(RND * 256) returns integers in range 0 to 255. INT() always rounds down.

RND(n) not normally used, I don't use it and I am normal ;-))

Title: Re: Trying to imitate TIS-100
Post by: Juan Tamarit on September 02, 2020, 09:26:13 pm

Thanks for the reply, I found my way trhu back door after posting

PRINT LTRIM$(STR$(_ROUND(RND)));

=)

Title: Re: Trying to imitate TIS-100
Post by: bplus on September 02, 2020, 10:11:42 pm

Opps, missed the question. For a 50/50 chance just use:

Code: QB64: [Select]

1. RANDOMIZE TIMER
2. FOR i = 1 TO 1000000
3.     IF RND < .5 THEN heads = heads + 1 ELSE tails = tails + 1
4.     IF i MOD 1000 = 0 THEN PRINT heads / (heads + tails)
5. NEXT

Title: Re: Trying to imitate TIS-100
Post by: Juan Tamarit on September 03, 2020, 01:01:57 am

No problem bro, you too kind and patient already =) you a teacher too? you quite didactic.

I have condensed the SUB's drawSingleLineBox, drawDoubleLineBox and drawSolidBox into a single SUB called drawASCIIbox, that includes a style% parameter. 1= single line, 2 = double line, 3 = solid. I couldn't find a way to make it even shorter, and surely it has been made a million times before, but here's my approach.

Also been doing some nice advances on the "game" (if i ever get to end it). Preview for the critic:

Code: QB64: [Select]

1. '----------------------------------------------------------------------------------------------------------Û   SETUP   Û----------------------------------------------------------------------------------------------------------
2. RANDOMIZE TIMER
3.  
4. CONST ScreenWidth = 800 '                        ¿           ÚÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
5. CONST ScreenHeight = 608 '                       ³           ³  1y,1x     ³
6. '                                                ³ video     ³  TEXT       ³
7. SCREEN _NEWIMAGE(ScreenWidth, ScreenHeight, 32) '³           ³    SCREEN   ³
8. _FULLSCREEN '                                    ³           ³   38y,100x ³
9. _MOUSEHIDE '                                     Ù           ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
10.  
11. CONST WHITE = _RGB32(255, 255, 255) '            ¿
12. CONST BLACK = _RGB32(0, 0, 0) '                  ³
13. CONST MIDGRAY = _RGB32(127, 127, 127) '          ³
14. CONST DARKGRAY = _RGB32(63, 63, 63) '            ³ colors
15. CONST LIGHTGRAY = _RGB32(191, 191, 191) '        ³
16. CONST RED = _RGB32(127, 0, 0) '                  ³
17. CONST GREEN = _RGB32(0, 127, 0) '                ³
18. CONST BLUE = _RGB32(0, 0, 127) '                 ³
19. CONST YELLOW = _RGB32(255, 255, 0) '             Ù
20.  
21.  
22. '----------------------------------------------------------------------------------------------------------Û VARIABLES Û----------------------------------------------------------------------------------------------------------
23. 'TYPE NODEv21
24. '    x AS INTEGER
25. '    y AS INTEGER
26. '    acc AS INTEGER
27. '    bak AS INTEGER
28. '    mode AS STRING
29. '    last AS STRING
30. 'END TYPE
31.  
32. 'DIM nodeV21(11) AS NODEV21
33. 'DIM instructions$(11, 0) ' need a node to check how many instructions fit
34.  
35.  
36.  
37.  
38. DIM SHARED segmentState%(34)
39. DIM SHARED actualSegmentWorking%
40. DIM SHARED menuHighlight%
41.  
42. FOR i% = 0 TO 34 '
43.     segmentState%(i%) = 0 '
44. NEXT i% '
45.  
46. menuHighlight% = 0 '
47. actualSegmentWorking% = 0
48.  
49.  
50. '---------------------------------------------------------------------------------------------------------Û   PROGRAM   Û----------------------------------------------------------------------------------------------------------
51. infect
52. _AUTODISPLAY
53. CLS
54. systemCheck
55. mainMenu
56. SYSTEM
57.  
58. '---------------------------------------------------------------------------------------------------------Û SUBROUTINES Û----------------------------------------------------------------------------------------------------------
59. SUB infect () ' virus intro sketch
60.  
61.     row% = 15
62.     column% = 38
63.     message1$ = "I'm taking control..."
64.     message2$ = "And you can't stop me"
65.  
66.     'sayHello
67.     COLOR GREEN
68.     PRINTslowly row% + 3, column% + 2, message1$
69.     PRINTslowly row% + 4, column% + 2, message2$
70.     SLEEP 1
71.  
72.     'install
73.     i% = 0
74.     ii% = 0
75.     loadingBar$ = CHR$(219)
76.     DO
77.         i% = i% + 1
78.         ii% = INT(i% / 100)
79.  
80.         _LIMIT 500
81.  
82.         COLOR MIDGRAY '                             ¿
83.         LOCATE RND(1) * 37 + 1, RND(1) * 99 + 1 '   ³ random characthers on the back
84.         PRINT CHR$(RND(1) * 222 + 32); '            Ù
85.  
86.  
87.         COLOR GREEN '    a virus is GREEN!
    
88.  
89.         drawASCIIbox row%, column%, 23, 7, "", 2
90.  
91.         fakeCLS row% + 1, column% + 1, 22, 6
92.  
93.         IF ii% MOD 2 = 0 THEN '                   ¿
94.             LOCATE row% + 1, column% + 2 '        ³ blink: title
95.             PRINT "CV64 VIRUS V0.2  >:-["; '      ³ underline
96.             LOCATE row% + 2, column% + 2 '        ³ message1$
97.             PRINT STRING$(21, CHR$(223)); '       ³ and
98.             '                                     ³ message2$
99.             LOCATE row% + 3, column% + 2 '        ³
100.             PRINT message1$; '                    ³
101.             '                                     ³
102.             LOCATE row% + 4, column% + 2 '        ³
103.             PRINT message2$; '                    Ù
104.  
105.         END IF
106.  
107.         LOCATE row% + 6, column% + 2 '                              ¿
108.         IF ii% < 20 THEN PRINT "Overriding OS..."; '                ³
109.         IF ii% < 40 AND ii% > 19 THEN PRINT "Accesing files..."; '  ³ loading messages
110.         IF ii% < 60 AND ii% > 39 THEN PRINT "Infecting..."; '       ³
111.         IF ii% < 80 AND ii% > 59 THEN PRINT "Replicating..."; '     ³
112.         IF ii% < 100 AND ii% > 79 THEN PRINT "Ereasing nodes..."; ' ³
113.         IF ii% = 100 THEN PRINT "Nodes killed "; '                 Ù
114.  
115.         ii$ = LTRIM$(STR$(ii%)) '                   ¿
116.         LOCATE row% + 6, column% + 22 - LEN(ii$) '  ³ xx%
117.         PRINT ii$ + "%"; '                          Ù
118.  
119.         IF i% MOD 500 = 0 THEN loadingBar$ = loadingBar$ + CHR$(219) ' ¿
120.         LOCATE row% + 7, column% + 2 '                                 ³ loading bar
121.         PRINT loadingBar$; '                                           Ù
122.         _DISPLAY
123.     LOOP UNTIL i% = 10000
124.     SLEEP 2 '                                       infection complete XD
125.  
126. END SUB
127.  
128. '- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
129. SUB systemCheck () ' fake system check as excuse to go at main menu
130.  
131.     COLOR LIGHTGRAY
132.     PRINTslowly 2, 2, "Unexpected restart. Running system check..."
133.  
134.     FOR i& = 0 TO 247483647 STEP 2048
135.         _LIMIT 20000
136.         LOCATE 4, 2
137.         PRINT "CHECKSUM: ";: PRINT LTRIM$(STR$(i&));
138.     NEXT i&
139.     PRINT " OK"
140.  
141.     PRINTslowly 6, 2, "Nodes have been reset..."
142.     PRINTslowly 7, 2, "Reprogram them to recover access to OS..."
143.     PRINTslowly 8, 2, "Please, don't shut down the equipment until reprogramming is over, or data may be lost..."
144.     PRINTslowly 10, 2, "Starting debbuger"
145.  
146.     SLEEP 2
147.  
148. END SUB
149.  
150. '- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
151. SUB mainMenu () ' draws main menu and instructions on the bottom
152.     DO
153.  
154.         DO
155.             _LIMIT 20
156.             CLS
157.             drawSegments
158.             drawMainOptions
159.             KeyPress$ = INKEY$
160.  
161.             _DISPLAY
162.         LOOP UNTIL KeyPress$ <> ""
163.  
164.         IF KeyPress$ = CHR$(0) + CHR$(77) AND menuHighlight% <> 34 THEN menuHighlight% = menuHighlight% + 1 '  ¿
165.         IF KeyPress$ = CHR$(0) + CHR$(75) AND menuHighlight% <> 0 THEN menuHighlight% = menuHighlight% - 1 '   ³ ARROWS for
166.         IF KeyPress$ = CHR$(0) + CHR$(80) AND menuHighlight% < 28 THEN menuHighlight% = menuHighlight% + 7 '   ³ navigation
167.         IF KeyPress$ = CHR$(0) + CHR$(72) AND menuHighlight% > 6 THEN menuHighlight% = menuHighlight% - 7 '    Ù
168.  
169.     LOOP UNTIL KeyPress$ = CHR$(27)
170.  
171. END SUB
172. '- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
173. SUB drawSegments () ' draw the segment on the main menu
174.  
175.     i% = -1
176.  
177.     FOR y% = 2 TO 30 STEP 7
178.         FOR x% = 2 TO 88 STEP 14
179.  
180.             i% = i% + 1 ' node index number, start -1 to make it 0 here for the array
181.             '              we add another +1 later to make em look like start at 1
182.             COLOR DARKGRAY '                                  ¿
183.             FOR yy% = 2 TO 5 '                                ³
184.                 FOR xx% = 1 TO 11 '                           ³ if node is broke
185.                     LOCATE y% + yy%, x% + xx% '               ³ random characters
186.                     IF NOT segmentState%(i%) THEN '           ³
187.                         PRINT CHR$(RND(1) * 200 + 32); '      ³ if fixed by
188.                     ELSE '                                    ³ user then
189.                         PRINT LTRIM$(STR$(_ROUND(RND))); '    ³ plain 1's and 0's
190.                     END IF '                                  ³
191.                 NEXT xx% '                                    ³
192.             NEXT yy% '                                        Ù
193.  
194.             IF i% > 8 THEN '                                  ¿ the shown number
195.                 segmentNumber$ = LTRIM$(STR$(i% + 1)) '       ³ of the segment,
196.             ELSE '                                            ³ avoiding the
197.                 segmentNumber$ = " " + LTRIM$(STR$(i% + 1)) ' ³ spaces if
198.             END IF '                                          Ù two digits
199.  
200.             IF menuHighlight% = i% THEN ' ¿
201.                 COLOR WHITE '             ³ show WHITE if
202.             ELSE '                        ³ selected, else
203.                 COLOR MIDGRAY '           ³ is MIDGRAY
204.             END IF '                      Ù
205.  
206.             drawASCIIbox y%, x%, 11, 5, " SEGMENT" + segmentNumber$, 1 ' draw the box
207.  
208.             LOCATE y% + 3, x% + 2 '     ¿
209.             IF segmentState%(i%) THEN ' ³ accordingly to
210.                 COLOR MIDGRAY, BLACK '  ³ segmentState%()
211.                 PRINT "-NOMINAL-" '     ³ draw -NOMINAL-
212.             ELSE '                      ³ or   - ERROR -
213.                 COLOR BLACK, RED '      ³
214.                 PRINT " -ERROR- " '     ³
215.                 COLOR , BLACK '         ³
216.             END IF '                   Ù
217.             ' don't conflictuate other stuff
218.         NEXT x%
219.     NEXT y%
220.  
221. END SUB
222.  
223. '- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
224. SUB drawMainOptions () ' draws a single blue line with some instruction on it at the bottom of the screen
225.  
226.     COLOR YELLOW, BLUE
227.  
228.     FOR ii% = 1 TO 99 '   ¿
229.         LOCATE 38, ii% '  ³ blue background
230.         PRINT " "; '      ³ line at bottom
231.     NEXT ii% '            Ù
232.  
233.     LOCATE 38, 19 '            ¿
234.     PRINT "F1 Help"; '         ³
235.     LOCATE 38, 43 '            ³ options in
236.     PRINT "ARROWS Navigate"; ' ³ the main menu
237.     LOCATE 38, 72 '            ³
238.     PRINT "ENTER Select"; '    Ù
239.  
240.     COLOR , BLACK ' don't conflictuate with other things
241.  
242. END SUB
243.  
244. '- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
245. SUB PRINTslowly (originY%, originX%, message$)
246.  
247.     IF originY% < 1 THEN EXIT SUB '     ¿ check if logic
248.     IF originX% < 1 THEN EXIT SUB '     Ù
249.  
250.     PCthinking originY%, originX%
251.  
252.     i% = 0 '                                                Ä¿
253.     DO '                                                     ³
254.         _DELAY .05 '                                         ³
255.         i% = i% + 1 '                                        ³ print message$
256.         buildingMessage$ = LEFT$(message$, i%) + CHR$(219) ' ³ character by character
257.         LOCATE originY%, originX% '                          ³ and erease the cursor
258.         PRINT buildingMessage$; '                            ³
259.     LOOP UNTIL LEN(buildingMessage$) = LEN(message$) + 1 '  ÄÙ
260.  
261.     LOCATE CSRLIN, originX% + LEN(message$): PRINT " "; ' erease cursor
262.  
263. END SUB
264.  
265. '- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
266. SUB PCthinking (originY%, originX%)
267.  
268.     IF originY% < 1 THEN EXIT SUB '     ¿ check if logic
269.     IF originX% < 1 THEN EXIT SUB '     Ù
270.  
271.     FOR i% = 1 TO 11 '                  ¿
272.         _LIMIT 5 '                      ³
273.         LOCATE originY%, originX% '     ³
274.         IF i% MOD 2 = 0 THEN '          ³ bliking cursor
275.             PRINT CHR$(219); '          ³
276.         ELSE '                          ³
277.             PRINT " "; '                ³
278.         END IF '                        ³
279.     NEXT i% '                           Ù
280.  
281. END SUB
282.  
283. '- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
284. SUB fakeCLS (originY%, originX%, width%, height%)
285.  
286.     IF originY% < 1 THEN EXIT SUB '               ¿
287.     IF originX% < 1 THEN EXIT SUB '               ³ check if logic
288.     IF width% < 1 THEN EXIT SUB '                 ³
289.     IF height% < 1 THEN EXIT SUB '                Ù
290.  
291.     FOR x% = 0 TO width% '                        ¿
292.         FOR y% = 0 TO height% '                   ³ print
293.             LOCATE originY% + y%, originX% + x% ' ³ " " (space)
294.             PRINT " "; '                          ³ repeatedly
295.         NEXT y% '                                 ³
296.     NEXT x% '                                     Ù
297.  
298. END SUB
299.  
300. '- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
301. SUB drawASCIIbox (originY%, originX%, width%, height%, message$, style%)
302.  
303.  
304.     IF originY% < 1 OR originX% < 1 THEN EXIT SUB '     ÄÄÄ¿
305.     IF width% < 1 OR height% < 1 THEN EXIT SUB '           ³ check if logic
306.     IF style% < 1 OR style% > 3 THEN EXIT SUB '         ÄÄÄÙ
307.  
308.  
309.     LOCATE originY%, originX% '                         ÄÄÄ¿
310.     IF style% = 1 THEN PRINT CHR$(218); 'Ú                 ³
311.     IF style% = 2 THEN PRINT CHR$(201); ' É   up,left      ³
312.     IF style% = 3 THEN PRINT CHR$(220); ' Ü                ³
313.     '                                                      ³
314.     LOCATE originY% + height% + 1, originX% '              ³
315.     IF style% = 1 THEN PRINT CHR$(192); ' À                ³
316.     IF style% = 2 THEN PRINT CHR$(200); ' È  down, left    ³ corners
317.     IF style% = 3 THEN PRINT CHR$(223); ' ß                ³
318.     '                                                      ³
319.     LOCATE originY%, originX% + width% + 1 '               ³
320.     IF style% = 1 THEN PRINT CHR$(191); ' ¿                ³
321.     IF style% = 2 THEN PRINT CHR$(187); ' » up, right      ³
322.     IF style% = 3 THEN PRINT CHR$(220); ' Ü                ³
323.     '                                                      ³
324.     LOCATE originY% + height% + 1, originX% + width% + 1 ' ³
325.     IF style% = 1 THEN PRINT CHR$(217); ' Ù                ³
326.     IF style% = 2 THEN PRINT CHR$(188); ' ¼ down, right    ³
327.     IF style% = 3 THEN PRINT CHR$(223); ' ß             ÄÄÄÙ
328.  
329.     IF style% = 1 THEN char% = 179 ' ³                  ÄÄÄ¿
330.     IF style% = 2 THEN char% = 186 ' º  determinate style  ³
331.     IF style% = 3 THEN char% = 219 ' Û                     ³
332.     FOR y% = 1 TO height% '                                ³
333.         LOCATE originY% + y%, originX% ' locate and print  ³ sides
334.         PRINT CHR$(char%); '                               ³
335.         LOCATE originY% + y%, originX% + width% + 1 '      ³
336.         PRINT CHR$(char%); '                               ³
337.     NEXT y% '                                           ÄÄÄÙ
338.  
339.     IF style% < 3 THEN ' styles 1 and 2                 ÄÄÄ¿
340.         IF style% = 1 THEN char% = 196 ' Ä                 ³
341.         IF style% = 2 THEN char% = 205 ' Í                 ³
342.         FOR x% = 1 TO width% '                             ³
343.             LOCATE originY%, originX% + x% '               ³
344.             PRINT CHR$(char%); '                           ³
345.             LOCATE originY% + height% + 1, originX% + x% ' ³
346.             PRINT CHR$(char%); '                           ³ top &
347.         NEXT x% '                                          ³ bottom
348.     ELSE ' special case of style 3                         ³
349.         char1% = 220 ' Ü                                   ³
350.         char2% = 223 ' ß                                   ³
351.         FOR x% = 0 TO width% + 1 '                         ³
352.             LOCATE originY%, originX% + x% '               ³
353.             PRINT CHR$(char1%); '                          ³
354.             LOCATE originY% + height% + 1, originX% + x% ' ³
355.             PRINT CHR$(char2%); '                          ³
356.         NEXT x% '                                          ³
357.     END IF '                                            ÄÄÄÙ
358.  
359.     LOCATE originY% + 1, originX% + 1 '                 ÄÄÄ¿ message
360.     PRINT message$ '                                    ÄÄÄÙ
361.  
362. END SUB

Working now on the general inside-segment drawing. I prevent that functions are gonna be a mess when the moment arrives, but i have a long road there. For the moment some opinions/suggestions/ideas will be nice. Or merly chating. I'm all ears.

Title: Re: Trying to imitate TIS-100
Post by: Juan Tamarit on September 03, 2020, 01:12:25 am

I tried to edit last post, but never loaded. Lines 312, 317, 322, 327 of the SUB should be ereased. They job will be done in lines 348 to 357. [so SUB it's even smalle by four lines =) ]

Title: Re: Trying to imitate TIS-100
Post by: Juan Tamarit on September 04, 2020, 03:30:24 am

Ok, the monster keeps growing, and start to take shape. We have full intro sketch, main menu, adn you can enter on SEGMENT 1 and SEGMENT 2 =). I have to say that i like to do this kind of GUIs, i never noticed how much work the programmers of the old days had to do in order of just showing a menu XD.

Here is where we are now:

Code: QB64: [Select]

1. '----------------------------------------------------------------------------------------------------------Û   SETUP   Û----------------------------------------------------------------------------------------------------------
2. RANDOMIZE TIMER
3.  
4. CONST ScreenWidth = 1024 '                       ¿           ÚÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
5. CONST ScreenHeight = 768 '                       ³           ³  1y,1x     ³
6. '                                                ³ video     ³  TEXT       ³
7. SCREEN _NEWIMAGE(ScreenWidth, ScreenHeight, 32) '³           ³    SCREEN   ³
8. _FULLSCREEN '                                    ³           ³   48y,128x ³
9. _MOUSEHIDE '                                     Ù           ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
10.  
11. CONST WHITE = _RGB32(255, 255, 255) '            ¿
12. CONST BLACK = _RGB32(0, 0, 0) '                  ³
13. CONST MIDGRAY = _RGB32(127, 127, 127) '          ³
14. CONST DARKGRAY = _RGB32(63, 63, 63) '            ³ colors
15. CONST LIGHTGRAY = _RGB32(191, 191, 191) '        ³
16. CONST RED = _RGB32(127, 0, 0) '                  ³
17. CONST GREEN = _RGB32(0, 127, 0) '                ³
18. CONST BLUE = _RGB32(0, 0, 127) '                 ³
19. CONST YELLOW = _RGB32(255, 255, 0) '             Ù
20.  
21. '----------------------------------------------------------------------------------------------------------Û VARIABLES Û----------------------------------------------------------------------------------------------------------
22. 'TYPE NODEv21
23. '    y AS INTEGER
24. '    x AS INTEGER
25. '    acc AS INTEGER
26. '    bak AS INTEGER
27. '    mode AS STRING
28. '    last AS STRING
29. 'END TYPE
30.  
31. 'DIM nodeV21(11) AS NODEv21
32. 'DIM instructions$(34, 11, 10) ' instructions$(segment, node, instruction line)
33.  
34. DIM SHARED segmentState%(34) ' is segment NOMINAL(1) or ERROR(0)?
35. DIM SHARED segmentName$(-1 TO 34) ' names of the segments (signal multiplexer, for instance)
36. DIM SHARED actualSegmentWorking% ' where are we?
37. DIM SHARED menuHighlight% ' what user is selectin on main menu
38.  
39. FOR i% = 0 TO 34 '
40.     segmentState%(i%) = 0 ' 'DATA? or permadeath?
41. NEXT i% '
42.  
43. segmentName$(0) = "SYSTEM CLOCK"
44. segmentName$(1) = "MULTIPLEXER"
45.  
46. menuHighlight% = 0 'segment 1 is index 0 on the array
47. actualSegmentWorking% = -1 ' main menu is -1
48.  
49. '---------------------------------------------------------------------------------------------------------Û   PROGRAM   Û----------------------------------------------------------------------------------------------------------
50. infect
51. CLS
52. _AUTODISPLAY
53. systemCheck
54. mainMenu
55. SYSTEM
56.  
57. '---------------------------------------------------------------------------------------------------------Û SUBROUTINES Û----------------------------------------------------------------------------------------------------------
58. SUB mainMenu () ' draws main menu and instructions on the bottom
59.  
60.     DO
61.         DO
62.             _LIMIT 20
63.             CLS
64.  
65.             SELECT CASE actualSegmentWorking%
66.                 CASE -2: drawSegments: UsureToLeave
67.                 CASE -1: drawSegments
68.                 CASE 0: inSegment_1
69.                 CASE 1: inSegment_2
70.                 CASE 2: ' COMING SOON ; )
71.             END SELECT
72.  
73.             KeyPress$ = INKEY$
74.             _DISPLAY
75.         LOOP UNTIL KeyPress$ <> ""
76.  
77.         IF actualSegmentWorking% = -1 THEN '                                                                                      ¿
78.             IF KeyPress$ = CHR$(0) + CHR$(77) AND menuHighlight% <> 34 THEN menuHighlight% = menuHighlight% + 1 '  ¿             ³
79.             IF KeyPress$ = CHR$(0) + CHR$(75) AND menuHighlight% <> 0 THEN menuHighlight% = menuHighlight% - 1 '   ³ ARROWS for  ³ only works
80.             IF KeyPress$ = CHR$(0) + CHR$(80) AND menuHighlight% < 28 THEN menuHighlight% = menuHighlight% + 7 '   ³ navigation  ³ in the
81.             IF KeyPress$ = CHR$(0) + CHR$(72) AND menuHighlight% > 6 THEN menuHighlight% = menuHighlight% - 7 '    Ù             ³ main menu
82.             IF KeyPress$ = CHR$(13) THEN actualSegmentWorking% = menuHighlight% ' ------------------------ENTER to select         ³
83.         END IF '                                                                                                                  Ù
84.  
85.         IF KeyPress$ = CHR$(0) + CHR$(68) THEN actualSegmentWorking% = -2 ' F10 to ask for leaving
86.  
87.         IF KeyPress$ = "y" AND actualSegmentWorking% = -2 THEN SYSTEM '                     Y ¿ YES  ¿
88.         IF KeyPress$ = CHR$(13) AND actualSegmentWorking% = -2 THEN SYSTEM '            ENTER Ù      ³ when asked
89.         '                                                                                            ³ to leave
90.         IF KeyPress$ = "n" AND actualSegmentWorking% = -2 THEN actualSegmentWorking% = -1 ' N ¿ NO   ³
91.         IF KeyPress$ = CHR$(27) THEN actualSegmentWorking% = -1 '-------------------------ESC Ù      Ù
92.     LOOP
93.  
94. END SUB
95. '- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
96. SUB UsureToLeave ()
97.  
98.     COLOR WHITE
99.     drawASCIIbox 20, 46, 34, 2, " Are you sure you wan't to leave? ", 3
100.     LOCATE 22, 47
101.     PRINT "        <";
102.     COLOR YELLOW
103.     PRINT "Y";
104.     COLOR WHITE
105.     PRINT ">es         <";
106.     COLOR YELLOW
107.     PRINT "N";
108.     COLOR WHITE
109.     PRINT ">o        ";
110.  
111. END SUB
112. '- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
113. SUB inSegment_1 () ' subroutines for each segment has the name as the user sees it (practical purposes)
114.  
115.     DO
116.         _LIMIT 20
117.         CLS
118.         drawInsideSegment 1, 1
119.         keyPress$ = INKEY$
120.         _DISPLAY
121.     LOOP UNTIL keyPress$ = CHR$(27)
122.     actualSegmentWorking% = -1
123.  
124. END SUB
125.  
126. '- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
127. SUB inSegment_2 () ' subroutines for each segment has the name as the user sees it (practical purposes)
128.  
129.     DO
130.         _LIMIT 20
131.         CLS
132.         drawInsideSegment 2, 1
133.         keyPress$ = INKEY$
134.         _DISPLAY
135.     LOOP UNTIL keyPress$ = CHR$(27)
136.     actualSegmentWorking% = -1
137.  
138. END SUB
139.  
140. '- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
141. SUB drawInsideSegment (ins%, outs%) ' when you get inside a segment you see this (pass in the number of inputs and outputs)
142.  
143.     IF ins% > 3 THEN EXIT SUB '  ¿                Ú REM if only 1 output, you can have up to 3 inputs
144.     IF outs% < 1 THEN EXIT SUB ' ³ check if logic ³ for  2 outputs only 1 input... video thing really,
145.     IF outs% > 2 THEN EXIT SUB ' Ù                À ELSE overprinting
146.  
147.     COLOR MIDGRAY '                                                      ¿
148.     LOCATE 2, 9 '                                                        ³ title and
149.     PRINT "- SEGMENT "; LTRIM$(STR$(actualSegmentWorking% + 1)); " -"; ' ³ segment name
150.     LOCATE 3, 9 '                                                        ³
151.     PRINT "- "; segmentName$(actualSegmentWorking%); " -" '              Ù
152.  
153.     drawASCIIbox 4, 2, 25, 6, "", 2 'draw the instructions box
154.  
155.     FOR nY% = 4 TO 34 STEP 15 '      ¿
156.         FOR nX% = 31 TO 106 STEP 25 '³ draw nodes at
157.             drawNodeV21 nY%, nX% '   ³ corresponding
158.         NEXT nX% '                   ³ position
159.     NEXT nY% '                       Ù
160.  
161.     IF ins% > 0 THEN '                                                ¿
162.         ii% = 2 '                               ¿                     ³
163.         FOR i% = 1 TO ins% '                    ³ print as many       ³
164.             LOCATE 13, ii% + 1 '                ³ ASCII boxes as      ³
165.             PRINT "IN."; CHR$(96 + i%); '       ³ inputs needed and   ³
166.             drawASCIIbox 14, ii%, 4, 25, "", 2 '³ a title "IN" +      ³
167.             ii% = ii% + 5 '                     ³ a, b, c, d...       ³
168.         NEXT i% '                               Ù                     ³
169.         '                                                             ³
170.         IF ins% > 1 THEN '             ¿                              ³
171.             ii% = 7 '                  ³                              ³ INPUTS
172.             FOR i% = 1 TO ins% - 1 '   ³ correct                      ³ table
173.                 LOCATE 14, ii% '       ³ corners                      ³
174.                 PRINT CHR$(203); ' Ë   ³ if                           ³
175.                 LOCATE 40, ii% '       ³ needed                       ³
176.                 PRINT CHR$(202); ' Ê   ³                              ³
177.                 ii% = ii% + 5 '        ³                              ³
178.             NEXT i% '                  ³                              ³
179.         END IF '                       Ù                              ³
180.     END IF '                                                          Ù
181.  
182.     LOCATE 13, 21 '                     ¿            ¿
183.     PRINT "OUT.x"; '                    ³ rightmost  ³
184.     drawASCIIbox 14, 23, 4, 25, "", 2 ' ³            ³
185.     drawASCIIbox 14, 18, 4, 25, "", 2 ' Ù            ³
186.     '                                                ³
187.     LOCATE 14, 23 '      ¿                           ³
188.     PRINT CHR$(203); ' Ë ³ corner correction         ³
189.     LOCATE 40, 23 '      ³ for rightmost             ³
190.     PRINT CHR$(202); ' Ê Ù                           ³
191.     '                                                ³
192.     IF outs% = 2 THEN ' only if asked for            ³
193.         LOCATE 13, 11 ' ¿                            ³
194.         PRINT "OUT.x"; '³ "OUT.y" overprinted        ³
195.         LOCATE 13, 21 ' ³ rightmost "OUT.x"          ³ OUTPUTS
196.         PRINT "OUT.y"; 'Ù                            ³ table
197.         drawASCIIbox 14, 13, 4, 25, "", 2 '          ³
198.         drawASCIIbox 14, 8, 4, 25, "", 2 '           ³
199.         '                                            ³
200.         LOCATE 14, 18 '      ¿                       ³
201.         PRINT CHR$(203); ' Ë ³                       ³
202.         LOCATE 14, 13 '      ³ corner                ³
203.         PRINT CHR$(203); ' Ë ³ correction            ³
204.         LOCATE 40, 18 '      ³ for                   ³
205.         PRINT CHR$(202); ' Ê ³ both                  ³
206.         LOCATE 40, 13 '      ³                       ³
207.         PRINT CHR$(202); ' Ê Ù                       ³
208.     END IF '                                         Ù
209.  
210.     FOR k% = 9 TO 39 STEP 15 ' Y        ¿            ¿
211.         FOR j% = 53 TO 103 STEP 25 ' X  ³            ³
212.             LOCATE k%, j% '             ³            ³
213.             PRINT CHR$(26); '          ³ left/right ³
214.             LOCATE k% + 2, j% + 1 '     ³ PORTS      ³
215.             PRINT CHR$(27); '          ³            ³
216.         NEXT j% '                       ³            ³ PORTS
217.     NEXT k% '                           Ù            ³ between
218.     '                                                ³ NODES
219.     FOR k% = 18 TO 33 STEP 15 ' Y       ¿            ³
220.         FOR j% = 38 TO 113 STEP 25 '    ³            ³
221.             LOCATE k%, j% '             ³ up/down    ³
222.             PRINT CHR$(24); '          ³ PORTS      ³
223.             LOCATE k% - 1, j% + 4 '     ³            ³
224.             PRINT CHR$(25); '          ³            ³
225.         NEXT j% '                       ³            ³
226.     NEXT k% '                           Ù            Ù
227.  
228.     IF ins% > 0 THEN LOCATE 2, 62: PRINT "IN.a"; CHR$(25); '   ¿
229.     IF ins% > 1 THEN LOCATE 2, 87: PRINT "IN.b"; CHR$(25); '   ³
230.     IF ins% > 2 THEN LOCATE 2, 112: PRINT "IN.c"; CHR$(25); '  ³ IN/OUT
231.     '                                                          ³ ports
232.     LOCATE 47, 87: PRINT "OUT.x"; CHR$(25); '                  ³
233.     IF outs% > 1 THEN LOCATE 47, 62: PRINT "OUT.y"; CHR$(25); 'Ù
234.  
235.     drawASCIIbox 41, 4, 2, 1, (CHR$(16) + CHR$(16)), 1 '    ¿
236.     drawASCIIbox 41, 14, 2, 1, (CHR$(124) + CHR$(16)), 1 '  ³
237.     drawASCIIbox 41, 24, 2, 1, (CHR$(219) + CHR$(219)), 1 ' ³
238.     LOCATE 44, 3 '                                          ³
239.     PRINT "F5 Run"; '                                       ³
240.     LOCATE 44, 12 '                                         ³ BUTTONS
241.     PRINT "F6 Step"; '                                      ³
242.     LOCATE 44, 22 '                                         ³
243.     PRINT "F8 Stop"; '                                      ³
244.     COLOR DARKGRAY '                                        ³
245.     LOCATE 45, 9 '                                          ³
246.     PRINT "ESC to go back"; '                               Ù
247.  
248.     'COLOR RED
249.     'drawASCIIbox 46, 2, 27, 1, "", 1 this is where IDE box should appear if invalidOpcode
250.  
251. END SUB
252.  
253. '- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
254. SUB infect () ' virus intro sketch... base under attack!
255.  
256.     row% = 20
257.     column% = 52
258.     message1$ = "I'm taking control..."
259.     message2$ = "And you can't stop me"
260.  
261.     'sayHello
262.     COLOR GREEN '                                    ¿ try to
263.     PRINTslowly row% + 3, column% + 2, message1$, 1 '³ psychopatiate
264.     PRINTslowly row% + 4, column% + 2, message2$, 1 'Ù the user
265.     SLEEP 1
266.  
267.     'install
268.     i% = 0
269.     ii% = 0
270.     loadingBar$ = CHR$(219)
271.     DO
272.         _LIMIT 500
273.         i% = i% + 1
274.         ii% = INT(i% / 100)
275.  
276.         COLOR MIDGRAY '                             ¿
277.         LOCATE RND(1) * 47 + 1, RND(1) * 127 + 1 '  ³ random characthers on the back
278.         PRINT CHR$(RND(1) * 222 + 32); '            Ù
279.  
280.         COLOR GREEN '    a virus is GREEN!
          ¿
281.         '                                         ³ draw box and
282.         drawASCIIbox row%, column%, 23, 7, "", 2 '³ CLS inside it
283.         '                                         ³ (don't erease back)
284.         fakeCLS row% + 1, column% + 1, 22, 6 '    Ù
285.  
286.         IF ii% MOD 2 = 0 THEN '                   ¿
287.             LOCATE row% + 1, column% + 2 '        ³ blink: title
288.             PRINT "CV64 VIRUS V0.2  >:-["; '      ³ underline
289.             LOCATE row% + 2, column% + 2 '        ³ message1$
290.             PRINT STRING$(21, CHR$(223)); '       ³ and
291.             '                                     ³ message2$
292.             LOCATE row% + 3, column% + 2 '        ³
293.             PRINT message1$; '                    ³
294.             '                                     ³
295.             LOCATE row% + 4, column% + 2 '        ³
296.             PRINT message2$; '                    ³
297.         END IF '                                  Ù
298.  
299.         LOCATE row% + 6, column% + 2 '                              ¿
300.         IF ii% < 20 THEN PRINT "Overriding OS..."; '                ³
301.         IF ii% < 40 AND ii% > 19 THEN PRINT "Accesing files..."; '  ³ loading messages
302.         IF ii% < 60 AND ii% > 39 THEN PRINT "Infecting..."; '       ³
303.         IF ii% < 80 AND ii% > 59 THEN PRINT "Replicating..."; '     ³
304.         IF ii% < 100 AND ii% > 79 THEN PRINT "Ereasing nodes..."; ' ³
305.         IF ii% = 100 THEN PRINT "Nodes killed "; '                 Ù
306.  
307.         ii$ = LTRIM$(STR$(ii%)) '                   ¿
308.         LOCATE row% + 6, column% + 22 - LEN(ii$) '  ³ xx%
309.         PRINT ii$ + "%"; '                          Ù
310.  
311.         IF i% MOD 500 = 0 THEN loadingBar$ = loadingBar$ + CHR$(219) ' ¿
312.         LOCATE row% + 7, column% + 2 '                                 ³ loading bar
313.         PRINT loadingBar$; '                                           Ù
314.         _DISPLAY
315.     LOOP UNTIL i% = 10000
316.     SLEEP 2 '                                       infection complete XD
317.  
318. END SUB
319.  
320. '- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
321. SUB systemCheck () ' fake system check as excuse to go at main menu
322.  
323.     COLOR LIGHTGRAY
324.     PRINTslowly 2, 2, "Unexpected restart. Running system check...", 1
325.     FOR i& = 0 TO 247483647 STEP 2048
326.         _LIMIT 20000
327.         LOCATE 4, 2
328.         PRINT "CHECKSUM: ";: PRINT LTRIM$(STR$(i&));
329.     NEXT i&
330.     PRINT " OK"
331.     PRINTslowly 6, 2, "Nodes have been corrupted...", 1
332.     PRINTslowly 8, 2, "Reprogram them to recover access to OS...", 1
333.     PRINTslowly 10, 2, "Please, don't shut down the equipment until reprogramming is over", 1
334.     PRINTslowly 11, 2, "or all system data won't be able to recover...", 0
335.     PRINTslowly 13, 2, "Starting debbuger", 1
336.     SLEEP 2
337.  
338. END SUB
339.  
340. '- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
341. SUB drawSegments () ' draw the segment on the main menu
342.  
343.     i% = -1
344.  
345.     FOR y% = 3 TO 39 STEP 9
346.         FOR x% = 4 TO 112 STEP 18
347.  
348.             i% = i% + 1 ' node index number, start -1 to make it 0 here for the array
349.             '              we add another +1 later to make em look like start at 1
350.             COLOR DARKGRAY '                                  ¿
351.             FOR yy% = 2 TO 5 '                                ³
352.                 FOR xx% = 1 TO 11 '                           ³ if node is broke
353.                     LOCATE y% + yy%, x% + xx% '               ³ random characters
354.                     IF NOT segmentState%(i%) THEN '           ³
355.                         PRINT CHR$(RND(1) * 200 + 32); '      ³ if fixed by
356.                     ELSE '                                    ³ user then
357.                         PRINT LTRIM$(STR$(_ROUND(RND))); '    ³ plain 1's and 0's
358.                     END IF '                                  ³
359.                 NEXT xx% '                                    ³
360.             NEXT yy% '                                        Ù
361.  
362.             IF i% > 8 THEN '                                  ¿ the shown number
363.                 segmentNumber$ = LTRIM$(STR$(i% + 1)) '       ³ of the segment,
364.             ELSE '                                            ³ avoiding the
365.                 segmentNumber$ = " " + LTRIM$(STR$(i% + 1)) ' ³ spaces if
366.             END IF '                                          Ù two digits
367.  
368.             IF menuHighlight% = i% THEN ' ¿
369.                 COLOR WHITE '             ³ show WHITE if
370.             ELSE '                        ³ selected, else
371.                 COLOR MIDGRAY '           ³ is MIDGRAY
372.             END IF '                      Ù
373.  
374.             drawASCIIbox y%, x%, 11, 5, " SEGMENT" + segmentNumber$, 1 ' draw the box
375.  
376.             LOCATE y% + 3, x% + 2 '     ¿
377.             IF segmentState%(i%) THEN ' ³ accordingly to
378.                 COLOR MIDGRAY, BLACK '  ³ segmentState%()
379.                 PRINT "-NOMINAL-" '     ³ draw -NOMINAL-
380.             ELSE '                      ³ or   - ERROR -
381.                 COLOR BLACK, RED '      ³
382.                 PRINT " -ERROR- " '     ³
383.                 COLOR , BLACK '         ³
384.             END IF '                   Ù
385.             ' don't conflictuate other stuff
386.         NEXT x%
387.     NEXT y%
388.  
389.     drawMainInstructions
390.  
391. END SUB
392.  
393. '- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
394. SUB drawMainInstructions () ' draws a single blue line with some instruction on it at the bottom of the screen
395.  
396.     COLOR YELLOW, BLUE
397.  
398.     FOR ii% = 1 TO 127 '   ¿
399.         LOCATE 48, ii% '   ³ blue background
400.         PRINT " "; '       ³ line at bottom
401.     NEXT ii% '             Ù
402.  
403.     LOCATE 48, 25 '             ¿
404.     PRINT "F1 Help"; '          ³
405.     LOCATE 48, 43 '             ³ options in
406.     PRINT "ARROWS Navigate"; '  ³ the main menu
407.     LOCATE 48, 71 '             ³
408.     PRINT "ENTER Select"; '     ³
409.     LOCATE 48, 92 '             ³
410.     PRINT "F10 Save and Exit"; 'Ù
411.  
412.     COLOR , BLACK ' don't conflictuate with other things
413.  
414. END SUB
415.  
416. '- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
417. SUB drawNodeV21 (nodeY%, nodeX%)
418.  
419.     COLOR MIDGRAY
420.  
421.     drawASCIIbox nodeY%, nodeX%, 14, 11, "", 1 ' user input instructions box
422.     drawASCIIbox nodeY%, nodeX% + 15, 4, 2, "ACC", 1 '     ¿
423.     drawASCIIbox nodeY% + 3, nodeX% + 15, 4, 2, "BAK", 1 ' ³ box over
424.     drawASCIIbox nodeY% + 6, nodeX% + 15, 4, 2, "MODE", 1 '³ box
425.     drawASCIIbox nodeY% + 9, nodeX% + 15, 4, 2, "LAST", 1 'Ù
426.  
427.     LOCATE nodeY%, nodeX% + 15 '            ¿
428.     PRINT CHR$(194); ' Â                    ³
429.     LOCATE nodeY% + 12, nodeX% + 15 '       ³
430.     PRINT CHR$(193); ' Á                    ³
431.     '                                       ³ then correct
432.     FOR i% = 3 TO 9 STEP 3 '                ³ the corners
433.         LOCATE nodeY% + i%, nodeX% + 15 '   ³ nedded
434.         PRINT CHR$(195); ' Ã                ³
435.     NEXT i% '                               ³ (the usual
436.     '                                       ³ deciving)
437.     FOR i% = 3 TO 9 STEP 3 '                ³
438.         LOCATE nodeY% + i%, nodeX% + 20 '   ³
439.         PRINT CHR$(180); ' ´                ³
440.     NEXT i% '                               Ù
441.  
442. END SUB
443.  
444. '- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
445. SUB PRINTslowly (originY%, originX%, message$, preBlink%)
446.  
447.     IF originY% < 1 THEN EXIT SUB '     ¿ check if logic
448.     IF originX% < 1 THEN EXIT SUB '     Ù
449.  
450.     IF preBlink% = 1 THEN PCthinking originY%, originX% ' wanna see some blinking before start writing?
451.  
452.     i% = 0 '                                                Ä¿
453.     DO '                                                     ³
454.         _DELAY .05 '                                         ³
455.         i% = i% + 1 '                                        ³ print message$
456.         buildingMessage$ = LEFT$(message$, i%) + CHR$(219) ' ³ character by character
457.         LOCATE originY%, originX% '                          ³ and erease the cursor
458.         PRINT buildingMessage$; '                            ³
459.     LOOP UNTIL LEN(buildingMessage$) = LEN(message$) + 1 '  ÄÙ
460.  
461.     LOCATE CSRLIN, originX% + LEN(message$): PRINT " "; ' erease cursor
462.  
463. END SUB
464.  
465. '- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
466. SUB PCthinking (originY%, originX%)
467.  
468.     IF originY% < 1 THEN EXIT SUB '     ¿ check if logic
469.     IF originX% < 1 THEN EXIT SUB '     Ù
470.  
471.     FOR i% = 1 TO 11 '                  ¿
472.         _LIMIT 5 '                      ³
473.         LOCATE originY%, originX% '     ³
474.         IF i% MOD 2 = 0 THEN '          ³ bliking cursor
475.             PRINT CHR$(219); '          ³
476.         ELSE '                          ³
477.             PRINT " "; '                ³
478.         END IF '                        ³
479.     NEXT i% '                           Ù
480.  
481. END SUB
482.  
483. '- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
484. SUB fakeCLS (originY%, originX%, width%, height%)
485.  
486.     IF originY% < 1 THEN EXIT SUB '               ¿
487.     IF originX% < 1 THEN EXIT SUB '               ³ check if logic
488.     IF width% < 1 THEN EXIT SUB '                 ³
489.     IF height% < 1 THEN EXIT SUB '                Ù
490.  
491.     FOR x% = 0 TO width% '                        ¿
492.         FOR y% = 0 TO height% '                   ³ print
493.             LOCATE originY% + y%, originX% + x% ' ³ " " (space)
494.             PRINT " "; '                          ³ repeatedly
495.         NEXT y% '                                 ³
496.     NEXT x% '                                     Ù
497.  
498. END SUB
499.  
500. '- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
501. SUB drawASCIIbox (originY%, originX%, width%, height%, message$, style%)
502.  
503.     IF originY% < 1 OR originX% < 1 THEN EXIT SUB '     ÄÄÄ¿
504.     IF width% < 1 OR height% < 1 THEN EXIT SUB '           ³ check if logic
505.     IF style% < 1 OR style% > 3 THEN EXIT SUB '         ÄÄÄÙ
506.  
507.     LOCATE originY%, originX% '                         ÄÄÄ¿
508.     IF style% = 1 THEN PRINT CHR$(218); 'Ú                 ³
509.     IF style% = 2 THEN PRINT CHR$(201); ' É   up,left      ³
510.     '                                                      ³
511.     LOCATE originY% + height% + 1, originX% '              ³
512.     IF style% = 1 THEN PRINT CHR$(192); ' À                ³
513.     IF style% = 2 THEN PRINT CHR$(200); ' È  down, left    ³ corners
514.     '                                                      ³
515.     LOCATE originY%, originX% + width% + 1 '               ³
516.     IF style% = 1 THEN PRINT CHR$(191); ' ¿                ³
517.     IF style% = 2 THEN PRINT CHR$(187); ' » up, right      ³
518.     '                                                      ³
519.     LOCATE originY% + height% + 1, originX% + width% + 1 ' ³
520.     IF style% = 1 THEN PRINT CHR$(217); ' Ù                ³
521.     IF style% = 2 THEN PRINT CHR$(188); ' ¼ down, right ÄÄÄÙ
522.  
523.     IF style% = 1 THEN char% = 179 ' ³                  ÄÄÄ¿
524.     IF style% = 2 THEN char% = 186 ' º  determinate style  ³
525.     IF style% = 3 THEN char% = 219 ' Û                     ³
526.     FOR y% = 1 TO height% '                                ³
527.         LOCATE originY% + y%, originX% ' locate and print  ³ sides
528.         PRINT CHR$(char%); '                               ³
529.         LOCATE originY% + y%, originX% + width% + 1 '      ³
530.         PRINT CHR$(char%); '                               ³
531.     NEXT y% '                                           ÄÄÄÙ
532.  
533.     IF style% < 3 THEN ' styles 1 and 2                 ÄÄÄ¿
534.         IF style% = 1 THEN char% = 196 ' Ä                 ³
535.         IF style% = 2 THEN char% = 205 ' Í                 ³
536.         FOR x% = 1 TO width% '                             ³
537.             LOCATE originY%, originX% + x% '               ³
538.             PRINT CHR$(char%); '                           ³
539.             LOCATE originY% + height% + 1, originX% + x% ' ³
540.             PRINT CHR$(char%); '                           ³ top &
541.         NEXT x% '                                          ³ bottom
542.     ELSE ' special case of style 3                         ³
543.         char1% = 220 ' Ü                                   ³
544.         char2% = 223 ' ß                                   ³
545.         FOR x% = 0 TO width% + 1 '                         ³
546.             LOCATE originY%, originX% + x% '               ³
547.             PRINT CHR$(char1%); '                          ³
548.             LOCATE originY% + height% + 1, originX% + x% ' ³
549.             PRINT CHR$(char2%); '                          ³
550.         NEXT x% '                                          ³
551.     END IF '                                            ÄÄÄÙ
552.  
553.     LOCATE originY% + 1, originX% + 1 '                 ÄÄÄ¿ message
554.     PRINT message$; '                                   ÄÄÄÙ
555.  
556. END SUB

Next step is start working on the nodes themselves (i still have no idea of how to do this, but i take suggestions). I unfortunately found that ASCII characters 30 and 31 (▲▼) cannot be printed by QB64, so i took the arrows instead (24 to 27).

Title: Re: Trying to imitate TIS-100
Post by: Juan Tamarit on September 04, 2020, 03:52:29 am

Thank God i did everything by SUBs, cause i had to change the screen siza, but was no problem this way. But the thing is getting into a huge web of SUBs (lots of recurrent work).

So here goes my question: now i need a way to inset instructions on the nodes. Besides the pain it will be the cursor position and stuff ¿do you guys think we may achive something usefull with straight INPUT using CSV to hold on the instructions$ array? Or should i look to a more INKEY$ orientated thing?

Consider that the instructions (as i concieve them) are like:

mov,acc,down
sub,acc,1
mov,left,acc

this instructs to move the value from the down port into the accumulator, substratc 1 to it, and then moving the new value to the left port. Synthax would be:

<instruction>,<destination>,<source>

As in original Assembly order (and i think the commas were part of the lenguage too)

If there are other ideas on this too i gladly hear them.

Cheers bros! =)

Title: Re: Trying to imitate TIS-100
Post by: SMcNeill on September 04, 2020, 04:54:37 am

If you’re going to use CSV, you’d probably be better served to use LINE INPUT, instead of just INPUT.  :)

Title: Re: Trying to imitate TIS-100
Post by: Juan Tamarit on September 04, 2020, 01:27:53 pm

Thanks for your reply, Mr.McNeill. I'll review the LINE INPUT statement... Have you ever played TIS-100? You know the game? =)

I having more troubles dimensioning things in my mind. Let me explain you guys: we have 35 segments, each one containing 12 nodes, and each node can contain as much as 11 instructions.

So i came up with a 3d array: array(segment,node,instruction)

But i also was considering in using a TYPE for values as ACC,BAK, x, y, etc...

And then again, i can't find the proper way (or neves look logical to me) of doing this. My dream was to include an array for the instruction inside the TYPE (dosn't seem to be possible), an then have a 2d array, just for segment and nodes.

The other day i saw someone using a TYPE inside a TYPE! Pretty interesting, but i dont know if that's the answer for this proyect...

Any opinions on how to make a good variable "thing" for this so called game XD

Title: Re: Trying to imitate TIS-100
Post by: Juan Tamarit on September 06, 2020, 09:26:08 pm

ok, i've stepped in the moment when i need to make some sor of text processor to program the nodes, but i till can find a way that fits suitable for making the nodes instruction and the nodes themselves as objetcs (i don't know if what im saying is correct, but im trying). The best i could figura out to the moment was this:

Code: QB64: [Select]

1. TYPE NODEv21 '                               ¿
2.     y AS INTEGER '                           ³
3.     x AS INTEGER '                           ³
4.     acc AS INTEGER '                         ³
5.     bak AS INTEGER '                         ³
6.     mode AS STRING '                         ³
7.     last AS STRING '                         ³
8.     inst1 AS STRING '                        ³
9.     inst2 AS STRING '                        ³
10.     inst3 AS STRING '                        ³
11.     inst4 AS STRING '                        ³
12.     inst5 AS STRING '                        ³
13.     inst6 AS STRING '                        ³
14.     inst7 AS STRING '                        ³
15.     inst8 AS STRING '                        ³
16.     inst9 AS STRING '                        ³
17.     inst10 AS STRING '                       ³
18.     inst11 AS STRING '                       ³
19. END TYPE '                                   ³
20. '                                            ³
21. DIM SHARED nodeV21(34, 11) AS NODEv21 '      ³ NODES
22. 'nodeV21(segment, node).type                 ³
23.  

But there's no need to be a programmer to see that this is awfull! Any other form that someone my think? A 3d array was also an option, but it lacks from the 6 first types of variables that are also needed!

Title: Re: Trying to imitate TIS-100
Post by: STxAxTIC on September 06, 2020, 10:02:16 pm

Say, ever heard of linked lists? Might wanna go that way on this...

Title: Re: Trying to imitate TIS-100
Post by: bplus on September 06, 2020, 10:41:55 pm

You can save a tiny little program as a single string by Joining the lines using CHR$(10) or CHR$(13) or both to separate the lines. BTW if you PRINT the string the CHR$(10) will separate the lines out on screen.

Then use Split1000 to split the string back out into an array of line or triplets of commands or whatever each string is.
https://www.qb64.org/forum/index.php?topic=1607.0

I've done this with Text from .txt files.

Update with demo:

Code: QB64: [Select]

1. REDIM s$(2)
2. s$(0) = "mov,acc,down"
3. s$(1) = "sub,acc,1"
4. s$(2) = "mov,left,acc"
5. jp$ = join$(s$())
6. PRINT "Here is jp$, a long string (storable in User Defined Type):"
7. PRINT jp$
8. REDIM b$(0)
9. Split jp$, CHR$(10), b$()
10. PRINT: PRINT "Here is the program in b$() unpacked from long string :"
11. FOR i = LBOUND(b$) TO UBOUND(b$)
12.     PRINT b$(i)
13. NEXT
14.  
15.  
16. FUNCTION join$ (a() AS STRING)
17.     FOR i = LBOUND(a) TO UBOUND(a)
18.         join$ = join$ + a(i) + CHR$(10)
19.     NEXT
20. END FUNCTION
21.  
22. 'This SUB will take a given N delimited string, and delimiter$ and creates an array of N+1 strings using the LBOUND of the given dynamic array to load.
23. 'notes: the loadMeArray() needs to be dynamic string array and will not change the LBOUND of the array it is given.
24. SUB Split (SplitMeString AS STRING, delim AS STRING, loadMeArray() AS STRING)
25.     DIM curpos AS LONG, arrpos AS LONG, LD AS LONG, dpos AS LONG 'fix use the Lbound the array already has
26.     curpos = 1: arrpos = LBOUND(loadMeArray): LD = LEN(delim)
27.     dpos = INSTR(curpos, SplitMeString, delim)
28.     DO UNTIL dpos = 0
29.         loadMeArray(arrpos) = MID$(SplitMeString, curpos, dpos - curpos)
30.         arrpos = arrpos + 1
31.         IF arrpos > UBOUND(loadMeArray) THEN REDIM _PRESERVE loadMeArray(LBOUND(loadMeArray) TO UBOUND(loadMeArray) + 1000) AS STRING
32.         curpos = dpos + LD
33.         dpos = INSTR(curpos, SplitMeString, delim)
34.     LOOP
35.     loadMeArray(arrpos) = MID$(SplitMeString, curpos)
36.     REDIM _PRESERVE loadMeArray(LBOUND(loadMeArray) TO arrpos) AS STRING 'get the ubound correct
37. END SUB
38.  
39.  
40.  

Title: Re: Trying to imitate TIS-100
Post by: Richard Frost on September 06, 2020, 11:42:49 pm

50/50 can be accomplished with:

Code: QB64: [Select]

1. if rnd > .5 then
2.      print "You win a banana!"
3. else
4.      print "You win a lemon!"
5. endif
6.  

The random number generator is commonly seeded with RANDOMIZE TIMER.

Title: Re: Trying to imitate TIS-100
Post by: Juan Tamarit on September 07, 2020, 10:53:35 pm

Thank you very much for your replies, good fellas. I keep doing slow and steady progress. I never heard about "linked lists", are these those famous .dll files? The Split-1000 looks very interesting, i'l keep trying to figure out it's logic and see how can i apply it. For the moment im working on the textProcessor(key$) SUB, and this line gives me an "Unhandled error #5, Illegal function call" when it recibes null from INKEY$

    keyAsInteger% = ASC(key$)

Shouldn't it return 0?

I won't post the last code cause still in progress, but you guys would like it. I has some 600 decent lines so far! =) (i'll do some optimization later, FIRST I GOT TO MAKE IT WORK!)

Cheers!

'------- EDIT-------
Posted again before watching the Wiki, sorry.

FROM WIKI: If the function is used to read an empty string value an illegal function call error will occur. INKEY$ returns an empty string when a key is not pressed.

Any ideas on how to make this line to work?:
IF ASC(key$) > 31 AND ASC(key$) < 127 THEN inst$(actualSegmentWorking%, actualNodeWorking%, actualLineWorking%) = inst$(actualSegmentWorking%, actualNodeWorking%, actualLineWorking%) + key$

Some alternate way to ask it?

Title: Re: Trying to imitate TIS-100
Post by: bplus on September 07, 2020, 11:18:53 pm

Quote

Any ideas on how to make this line to work?:
IF ASC(key$) > 31 AND ASC(key$) < 127 THEN inst$(actualSegmentWorking%, actualNodeWorking%, actualLineWorking%) = inst$(actualSegmentWorking%, actualNodeWorking%, actualLineWorking%) + key$

Code: QB64: [Select]

1. IF LEN(key$) THEN
2.     IF ASC(key$) > 31 AND ASC(key$) < 127 THEN
3.         inst$(actualSegmentWorking%, actualNodeWorking%, actualLineWorking%) =_
4.          inst$(actualSegmentWorking%, actualNodeWorking%, actualLineWorking%) + key$
5.     END IF
6. END IF

You have to do the same thing when there is a chance you ask an array of an index number outside it's upper or lower bounds. You can't say "IF key$ <> "" and Asc(key$) > 31.... on same line, it has to be separate IF.

Title: Re: Trying to imitate TIS-100
Post by: Juan Tamarit on September 07, 2020, 11:25:20 pm

U2pro bro =)

Title: Re: Trying to imitate TIS-100
Post by: Juan Tamarit on September 10, 2020, 11:16:10 pm

OK, i keep doing some nice advances: SUB textProccesor() works fine to input the instructions, but im having some troubles realizing how can i achieve the SUB IDE(). I did a horrible IF statement filled with ORs (very noob aproach), but didn't work. Any suggestions about this point? I can't figure out the logic for this, even with separeted IF statements

Code: QB64: [Select]

1. '----------------------------------------------------------------------------------------------------------Û   SETUP   Û----------------------------------------------------------------------------------------------------------
2. RANDOMIZE TIMER
3.  
4. CONST ScreenWidth = 1024 '                       ¿           ÚÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
5. CONST ScreenHeight = 768 '                       ³           ³  1y,1x     ³
6. '                                                ³ video     ³  TEXT       ³
7. SCREEN _NEWIMAGE(ScreenWidth, ScreenHeight, 32) '³           ³    SCREEN   ³
8. _FULLSCREEN '                                    ³           ³   48y,128x ³
9. _MOUSEHIDE '                                     Ù           ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
10.  
11. CONST WHITE = _RGB32(255, 255, 255) '            ¿
12. CONST BLACK = _RGB32(0, 0, 0) '                  ³
13. CONST MIDGRAY = _RGB32(127, 127, 127) '          ³
14. CONST DARKGRAY = _RGB32(63, 63, 63) '            ³ colors
15. CONST LIGHTGRAY = _RGB32(191, 191, 191) '        ³
16. CONST RED = _RGB32(127, 0, 0) '                  ³
17. CONST GREEN = _RGB32(0, 127, 0) '                ³
18. CONST BLUE = _RGB32(0, 0, 127) '                 ³
19. CONST YELLOW = _RGB32(255, 255, 0) '             Ù
20.  
21. '----------------------------------------------------------------------------------------------------------Û VARIABLES Û----------------------------------------------------------------------------------------------------------
22.  
23. DIM SHARED segmentState%(34) ' is segment NOMINAL(1) or ERROR(0)?   ¿
24. DIM SHARED actualSegmentWorking% ' where are we?                    ³ SEGMENTS
25. DIM SHARED segmentName$(34) ' names of the segments                 Ù
26.  
27. TYPE NODEv21 '                               ¿
28.     y AS INTEGER '                           ³
29.     x AS INTEGER '                           ³
30.     acc AS INTEGER '                         ³
31.     bak AS INTEGER '                         ³
32.     mode AS STRING '                         ³
33.     last AS STRING '                         ³ NODES
34. END TYPE '                                   ³
35. '                                            ³
36. DIM SHARED nodeV21(34, 11) AS NODEv21 '      ³
37. '          nodeV21(segment, node).type       ³
38. '                                            ³
39. DIM SHARED actualNodeWorking% ' where are we?³
40. '                                            Ù
41. DIM SHARED inst$(34, 11, 10) '               ¿
42. '          inst$(segment, node, instruction) ³ INSTRUCTIONS
43. DIM SHARED actualLineWorking% '              Ù
44.  
45. DIM SHARED IDEcomplains%
46.  
47. DIM SHARED menuHighlight% ' <----------------- MAIN MENU only
48. DIM SHARED blink% ' <--------------------blinking CURSOR
49. '---------------------------------------------------------------------------------------------------------Û PRE-PROGRAM Û----------------------------------------------------------------------------------------------------------
50. FOR i% = 0 TO 33 '          ¿
51.     segmentState%(i%) = 0 ' ³ SEGMENTS
52. NEXT i% '                   Ù
53. segmentState%(34) = -1 ' SANDBOX
54.  
55.  
56. FOR i% = 0 TO 34 '                                  ¿
57.     FOR j% = 0 TO 11 '                              ³
58.         SELECT CASE j% '                            ³
59.             CASE 0 TO 3: nodeV21(i%, j%).y = 4 '    ³
60.             CASE 4 TO 7: nodeV21(i%, j%).y = 19 '   ³
61.             CASE 8 TO 11: nodeV21(i%, j%).y = 34 '  ³
62.         END SELECT '                                ³ NODES
63.         SELECT CASE j% '                            ³ positions
64.             CASE 0, 4, 8: nodeV21(i%, j%).x = 31 '  ³
65.             CASE 1, 5, 9: nodeV21(i%, j%).x = 56 '  ³
66.             CASE 2, 6, 10: nodeV21(i%, j%).x = 81 ' ³
67.             CASE 3, 7, 11: nodeV21(i%, j%).x = 106 '³
68.         END SELECT '                                ³
69.     NEXT j% '                                       ³
70. NEXT i% '                                           Ù
71.  
72. FOR i% = 0 TO 34 '                                 ¿
73.     FOR j% = 0 TO 11 '                             ³
74.         nodeV21(i%, j%).acc = 0 '                  ³
75.         nodeV21(i%, j%).bak = 0 '                  ³ NODES
76.         nodeV21(i%, j%).mode = "IDLE" '            ³ registers
77.         nodeV21(i%, j%).last = "NONE" '            ³
78.     NEXT j% '                                      ³
79. NEXT i% '                                          Ù
80.  
81. FOR i% = 0 TO 34 ' setear las instrucciones a null ¿
82.     FOR j% = 0 TO 11 '                             ³
83.         FOR k% = 0 TO 10 '                         ³
84.             inst$(i%, j%, k%) = "" '               ³ INSTRUCTIONS
85.         NEXT k% '                                  ³
86.     NEXT j% '                                      ³
87. NEXT i% '                                          Ù
88.  
89. 'infect                                                                ¿
90. 'CLS _AUTODISPLAY                                                      ³
91. 'systemCheck                                                           ³
92. '                                                                      ³
93. segmentName$(0) = "SYSTEM CLOCK" '                                     ³
94. segmentName$(1) = "MULTIPLEXER" '                                      ³ INITIALIZE (at least for testing)
95. segmentName$(34) = "SANDBOX" '                                         ³
96. '                                                                      ³
97. menuHighlight% = 0 '            segment 1 is index 0 on the array      ³
98. actualSegmentWorking% = -1 '    main menu is -1                        ³
99. actualNodeWorking% = -1 '       on main menu no node is being operated Ù
100. actualLineWorking% = -1
101. IDEcomplains% = 0
102.  
103. '---------------------------------------------------------------------------------------------------------Û   PROGRAM   Û----------------------------------------------------------------------------------------------------------
104. mainMenu
105.  
106. '---------------------------------------------------------------------------------------------------------Û SUBROUTINES Û----------------------------------------------------------------------------------------------------------
107. SUB mainMenu () ' draws main menu and instructions on the bottom
108.  
109.     DIM KeyPress$
110.  
111.     DO
112.         DO
113.             _LIMIT 20
114.             CLS
115.             SELECT CASE actualSegmentWorking%
116.                 CASE -2: drawSegments: UsureToLeave
117.                 CASE -1: drawSegments
118.                 CASE 0: inSegment_1
119.                 CASE 1: inSegment_2
120.                 CASE 34: sandBox
121.  
122.             END SELECT
123.  
124.             KeyPress$ = INKEY$
125.             _DISPLAY
126.         LOOP UNTIL KeyPress$ <> ""
127.  
128.         IF actualSegmentWorking% = -1 THEN '                                                                                      ¿
129.             IF KeyPress$ = CHR$(0) + CHR$(77) AND menuHighlight% <> 34 THEN menuHighlight% = menuHighlight% + 1 '  ¿             ³
130.             IF KeyPress$ = CHR$(0) + CHR$(75) AND menuHighlight% <> 0 THEN menuHighlight% = menuHighlight% - 1 '   ³ ARROWS for  ³ only works
131.             IF KeyPress$ = CHR$(0) + CHR$(80) AND menuHighlight% < 28 THEN menuHighlight% = menuHighlight% + 7 '   ³ navigation  ³ in the
132.             IF KeyPress$ = CHR$(0) + CHR$(72) AND menuHighlight% > 6 THEN menuHighlight% = menuHighlight% - 7 '    Ù             ³ main menu
133.             IF KeyPress$ = CHR$(13) THEN actualSegmentWorking% = menuHighlight% '                              ENTER to select    ³
134.         END IF '                                                                                                                  Ù
135.  
136.         IF KeyPress$ = CHR$(0) + CHR$(68) THEN actualSegmentWorking% = -2 ' F10 to ask for leaving
137.  
138.         IF KeyPress$ = "y" AND actualSegmentWorking% = -2 THEN SYSTEM '                     Y ¿ YES  ¿
139.         IF KeyPress$ = CHR$(13) AND actualSegmentWorking% = -2 THEN SYSTEM '            ENTER Ù      ³ when asked
140.         '                                                                                            ³ to leave
141.         IF KeyPress$ = "n" AND actualSegmentWorking% = -2 THEN actualSegmentWorking% = -1 ' N ¿ NO   ³
142.         IF KeyPress$ = CHR$(27) THEN actualSegmentWorking% = -1 '-------------------------ESC Ù      Ù
143.     LOOP
144.  
145. END SUB
146. '- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
147. SUB UsureToLeave ()
148.  
149.     COLOR WHITE
150.     drawASCIIbox 20, 46, 34, 2, " Are you sure you wan't to leave? ", 3
151.     LOCATE 22, 47
152.     PRINT "        <";
153.     COLOR YELLOW
154.     PRINT "Y";
155.     COLOR WHITE
156.     PRINT ">es         <";
157.     COLOR YELLOW
158.     PRINT "N";
159.     COLOR WHITE
160.     PRINT ">o        ";
161.  
162. END SUB
163. '- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
164. SUB displayInstructions
165.  
166.     DIM i%
167.     DIM ii%
168.  
169.     FOR i% = 0 TO 11
170.         FOR ii% = 0 TO 10
171.             LOCATE nodeV21(actualSegmentWorking%, i%).y + ii% + 1, nodeV21(actualSegmentWorking%, i%).x + 1
172.             PRINT inst$(actualSegmentWorking%, i%, ii%)
173.         NEXT ii%
174.     NEXT i%
175.  
176. END SUB
177. '- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
178. SUB IDE () ' checks the instructions spelling and warns if incorrect
179.  
180.     DIM i%
181.     DIM j%
182.     DIM analyzing$
183.     DIM opCode$
184.     DIM subComplaint%
185.  
186.     FOR i% = 0 TO 11 ' for all the nodes
187.         FOR j% = 0 TO 10 ' for all the instructions
188.  
189.             analyzing$ = _TRIM$(inst$(actualSegmentWorking%, i%, j%))
190.  
191.             IF LEN(analyzing$) THEN ' cases that are not null
192.                 opCode$ = LEFT$(analyzing$, 3)
193.                 IF NOT opCode$ = "NOP"_
194.                 OR NOT opCode$ = "MOV"_
195.                 OR NOT opCode$ = "SWP"_
196.                 OR NOT opCode$ = "SAV"_
197.                 OR NOT opCode$ = "ADD"_
198.                 OR NOT opCode$ = "SUB"_
199.                 OR NOT opCode$ = "NEG"_
200.                 OR NOT opCode$ = "JMP"_
201.                 OR NOT opCode$ = "JEZ"_
202.                 OR NOT opCode$ = "JNZ"_
203.                 OR NOT opCode$ = "JGZ"_
204.                 OR NOT opCode$ = "JLZ"_
205.                 OR NOT opCode$ = "JRO" THEN
206.                     IDEcomplains% = -1
207.                 ELSE
208.                     IDEcomplains% = 0
209.                 END IF
210.  
211.                 IF IDEcomplains% THEN
212.                     COLOR RED
213.                     drawASCIIbox 46, 2, 27, 1, "      INVALID  OPCODE", 2
214.                     COLOR MIDGRAY
215.                 END IF
216.  
217.             END IF
218.         NEXT j%
219.     NEXT i%
220.  
221.     '       - INSTRUCTION SET QUICK REFERENCE -
222.     '
223.     'NOP                       NO OPERATION
224.     'MOV <DST>, <SRC>       MOVE <SRC> TO <DST>
225.     'SWP                    SWAP ACC AND BAK
226.     'SAV                    SAVE ACC TO BAK
227.     'ADD <SRC>              ADD <SRC> TO ACC
228.     'SUB <SRC>              SUBSTRACT <SRC> FROM ACC
229.     'NEG                    NEGATE ACC
230.     'JMP <LABEL>            JUMP TO <LABEL>
231.     'JEZ <LABEL>            JUMP TO <LABEL> IF ACC = 0
232.     'JNZ <LABEL>            JUMP TO <LABEL> IF ACC != 0
233.     'JGZ <LABEL>            JUMP TO <LABEL> IF ACC > 0
234.     'JLZ <LABEL>            JUMP TO <LABEL> IF ACC < 0
235.     'JRO <SRC>              JUMP TO RELATIVE OFFSET <SRC>
236.  
237.  
238. END SUB
239. '- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
240. SUB sandBox () ' subroutines for each segment has the name as the user sees it (practical purposes)
241.  
242.     DIM keyPress$
243.  
244.     actualNodeWorking% = 0
245.     actualLineWorking% = 0
246.     DO
247.         _LIMIT 20
248.         CLS
249.         drawInsideSegment 1, 1
250.         COLOR MIDGRAY
251.         displayInstructions
252.         textProccesor keyPress$
253.         IDE
254.         keyPress$ = UCASE$(INKEY$)
255.         _DISPLAY
256.     LOOP UNTIL keyPress$ = CHR$(27)
257.     actualSegmentWorking% = -1
258.     actualNodeWorking% = -1
259.     actualLineWorking% = -1
260.  
261. END SUB
262.  
263. '- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
264. SUB inSegment_1 () ' subroutines for each segment has the name as the user sees it (practical purposes)
265.  
266.     DIM keyPress$
267.  
268.     actualNodeWorking% = 0
269.     actualLineWorking% = 0
270.     DO
271.         _LIMIT 20
272.         CLS
273.         drawInsideSegment 1, 1
274.         COLOR MIDGRAY
275.         displayInstructions
276.         textProccesor keyPress$
277.         keyPress$ = UCASE$(INKEY$)
278.         _DISPLAY
279.     LOOP UNTIL keyPress$ = CHR$(27)
280.     actualSegmentWorking% = -1
281.     actualNodeWorking% = -1
282.     actualLineWorking% = -1
283.  
284. END SUB
285.  
286. '- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
287. SUB inSegment_2 () ' subroutines for each segment has the name as the user sees it (practical purposes)
288.  
289.     DIM keyPress$
290.  
291.     DO
292.         _LIMIT 20
293.         CLS
294.         drawInsideSegment 2, 1
295.         keyPress$ = INKEY$
296.         _DISPLAY
297.     LOOP UNTIL keyPress$ = CHR$(27)
298.     actualSegmentWorking% = -1
299.     actualNodeWorking% = -1
300. END SUB
301.  
302. '- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
303. SUB drawInsideSegment (ins%, outs%) ' when you get inside a segment you see this (pass in the number of inputs and outputs)
304.  
305.     DIM nY%
306.     DIM nX%
307.     DIM i%
308.     DIM ii%
309.     DIM j%
310.     DIM k%
311.  
312.     IF ins% > 3 THEN EXIT SUB '  ¿                Ú REM if only 1 output, you can have up to 3 inputs
313.     IF outs% < 1 THEN EXIT SUB ' ³ check if logic ³ for  2 outputs only 1 input... video thing really,
314.     IF outs% > 2 THEN EXIT SUB ' Ù                À ELSE overprinting
315.  
316.     COLOR MIDGRAY '                                                      ¿
317.     LOCATE 2, 9 '                                                        ³ title and
318.     PRINT "- SEGMENT "; LTRIM$(STR$(actualSegmentWorking% + 1)); " -"; ' ³ segment name
319.     LOCATE 3, 9 '                                                        ³                  °°°°°°°°°°°°°°°°°°°°°°°°°°°°°
320.     'PRINT "- "; segmentName$(actualSegmentWorking%); " -" ' ------------Ù---------------- °  UNCOMMENT AFTER TESTINGS °
321.     '                                                                                       °°°°°°°°°°°°°°°°°°°°°°°°°°°°°
322.     drawASCIIbox 4, 2, 25, 6, "", 2 'draw the instructions box
323.  
324.     FOR nY% = 4 TO 34 STEP 15 '      ¿
325.         FOR nX% = 31 TO 106 STEP 25 '³ draw nodes at
326.             drawNodeV21 nY%, nX% '   ³ corresponding
327.         NEXT nX% '                   ³ position
328.     NEXT nY% '                       Ù
329.  
330.     IF NOT actualSegmentWorking% = 34 THEN ' <------ NOT the SANDBOX
331.  
332.         IF ins% > 0 THEN '                                                ¿
333.             ii% = 2 '                               ¿                     ³
334.             FOR i% = 1 TO ins% '                    ³ print as many       ³
335.                 LOCATE 13, ii% + 1 '                ³ ASCII boxes as      ³
336.                 PRINT "IN."; CHR$(96 + i%); '       ³ inputs needed and   ³
337.                 drawASCIIbox 14, ii%, 4, 25, "", 2 '³ a title "IN" +      ³
338.                 ii% = ii% + 5 '                     ³ a, b, c, d...       ³
339.             NEXT i% '                               Ù                     ³
340.             '                                                             ³
341.             IF ins% > 1 THEN '             ¿                              ³
342.                 ii% = 7 '                  ³                              ³ INPUTS
343.                 FOR i% = 1 TO ins% - 1 '   ³ correct                      ³ table
344.                     LOCATE 14, ii% '       ³ corners                      ³
345.                     PRINT CHR$(203); ' Ë   ³ if                           ³
346.                     LOCATE 40, ii% '       ³ needed                       ³
347.                     PRINT CHR$(202); ' Ê   ³                              ³
348.                     ii% = ii% + 5 '        ³                              ³
349.                 NEXT i% '                  ³                              ³
350.             END IF '                       Ù                              ³
351.         END IF '                                                          Ù
352.  
353.         LOCATE 13, 21 '                     ¿            ¿
354.         PRINT "OUT.x"; '                    ³ rightmost  ³
355.         drawASCIIbox 14, 23, 4, 25, "", 2 ' ³            ³
356.         drawASCIIbox 14, 18, 4, 25, "", 2 ' Ù            ³
357.         '                                                ³
358.         LOCATE 14, 23 '      ¿                           ³
359.         PRINT CHR$(203); ' Ë ³ corner correction         ³
360.         LOCATE 40, 23 '      ³ for rightmost             ³
361.         PRINT CHR$(202); ' Ê Ù                           ³
362.         '                                                ³
363.         IF outs% = 2 THEN ' only if asked for            ³
364.             LOCATE 13, 11 ' ¿                            ³
365.             PRINT "OUT.x"; '³ "OUT.y" overprinted        ³
366.             LOCATE 13, 21 ' ³ rightmost "OUT.x"          ³ OUTPUTS
367.             PRINT "OUT.y"; 'Ù                            ³ table
368.             drawASCIIbox 14, 13, 4, 25, "", 2 '          ³
369.             drawASCIIbox 14, 8, 4, 25, "", 2 '           ³
370.             '                                            ³
371.             LOCATE 14, 18 '      ¿                       ³
372.             PRINT CHR$(203); ' Ë ³                       ³
373.             LOCATE 14, 13 '      ³ corner                ³
374.             PRINT CHR$(203); ' Ë ³ correction            ³
375.             LOCATE 40, 18 '      ³ for                   ³
376.             PRINT CHR$(202); ' Ê ³ both                  ³
377.             LOCATE 40, 13 '      ³                       ³
378.             PRINT CHR$(202); ' Ê Ù                       ³
379.         END IF '                                         Ù
380.  
381.     ELSE '                                          ¿
382.         drawASCIIbox 12, 4, 7, 1, "CONSOLE", 2 '    ³
383.         drawASCIIbox 14, 4, 7, 23, "", 2 '          ³
384.         drawASCIIbox 38, 4, 7, 1, ">", 2 '          ³
385.         LOCATE 14, 4 '                              ³
386.         PRINT CHR$(204); ' Ì                        ³
387.         LOCATE 14, 12 '                             ³ SANDBOX
388.         PRINT CHR$(185); ' ¹                        ³ CONSOLE
389.         LOCATE 38, 4 '                              ³
390.         PRINT CHR$(204); ' Ì                        ³
391.         LOCATE 38, 12 '                             ³
392.         PRINT CHR$(185); ' ¹                        ³
393.     END IF '                                        Ù
394.  
395.     FOR k% = 9 TO 39 STEP 15 ' Y        ¿            ¿
396.         FOR j% = 53 TO 103 STEP 25 ' X  ³            ³
397.             LOCATE k%, j% '             ³            ³
398.             PRINT CHR$(26); '          ³ left/right ³
399.             LOCATE k% + 2, j% + 1 '     ³ PORTS      ³
400.             PRINT CHR$(27); '          ³            ³
401.         NEXT j% '                       ³            ³ PORTS
402.     NEXT k% '                           Ù            ³ between
403.     '                                                ³ NODES
404.     FOR k% = 18 TO 33 STEP 15 ' Y       ¿            ³
405.         FOR j% = 38 TO 113 STEP 25 '    ³            ³
406.             LOCATE k%, j% '             ³ up/down    ³
407.             PRINT CHR$(24); '          ³ PORTS      ³
408.             LOCATE k% - 1, j% + 4 '     ³            ³
409.             PRINT CHR$(25); '          ³            ³
410.         NEXT j% '                       ³            ³
411.     NEXT k% '                           Ù            Ù
412.  
413.     IF ins% > 0 THEN LOCATE 3, 62: PRINT "IN.a"; CHR$(25); '   ¿
414.     IF ins% > 1 THEN LOCATE 3, 87: PRINT "IN.b"; CHR$(25); '   ³
415.     IF ins% > 2 THEN LOCATE 3, 112: PRINT "IN.c"; CHR$(25); '  ³
416.     '                                                          ³
417.     IF actualSegmentWorking% = 34 THEN '         ¿             ³
418.         LOCATE 3, 61: PRINT "CNS.a"; CHR$(25); ' ³ SANDBOX     ³
419.     END IF '                                     Ù             ³ IN/OUT
420.     '                                                          ³ ports
421.     LOCATE 47, 87 '                                            ³
422.     IF NOT actualSegmentWorking% = 34 THEN '                   ³
423.         PRINT "OUT.x"; CHR$(25); '                             ³
424.     ELSE '                                                     ³
425.         PRINT "CNS.x"; CHR$(25); ' <---------SANDBOX           ³
426.     END IF '                                                   ³
427.     IF outs% > 1 THEN LOCATE 47, 62: PRINT "OUT.y"; CHR$(25); 'Ù
428.  
429.     drawASCIIbox 41, 4, 2, 1, (CHR$(16) + CHR$(16)), 1 '    ¿
430.     drawASCIIbox 41, 14, 2, 1, (CHR$(124) + CHR$(16)), 1 '  ³
431.     drawASCIIbox 41, 24, 2, 1, (CHR$(219) + CHR$(219)), 1 ' ³
432.     LOCATE 44, 3 '                                          ³
433.     PRINT "F5 Run"; '                                       ³
434.     LOCATE 44, 12 '                                         ³ BUTTONS
435.     PRINT "F6 Step"; '                                      ³
436.     LOCATE 44, 22 '                                         ³
437.     PRINT "F8 Stop"; '                                      ³
438.     COLOR DARKGRAY '                                        ³
439.     LOCATE 45, 9 '                                          ³
440.     PRINT "ESC to go back"; '                               Ù
441.  
442. END SUB
443. '- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
444. SUB textProccesor (key$)
445.  
446.     blink% = blink% - 16 '                                                                                                               ¿
447.     IF blink% < 0 THEN blink% = 255 '                                                                                                    ³
448.     COLOR _RGB32(blink%, blink%, blink%) '                                                                                               ³ CURSOR
449.     LOCATE nodeV21(actualSegmentWorking%, actualNodeWorking%).y + actualLineWorking% + 1,_
450.     nodeV21(actualSegmentWorking%, actualNodeWorking%).x + LEN(inst$(actualSegmentWorking%, actualNodeWorking%, actualLineWorking%)) + 1'³
451.     PRINT CHR$(219) '                                                                                                                    Ù
452.  
453.     IF LEN(key$) THEN ' B+ avoided the null =)
454.  
455.         IF LEN(inst$(actualSegmentWorking%, actualNodeWorking%, actualLineWorking%)) < 13 THEN ' ¿ PRINTABLE
456.             IF ASC(key$) > 31 AND ASC(key$) < 127 THEN '                                         ³ CHARACTERS
457.                 inst$(actualSegmentWorking%, actualNodeWorking%, actualLineWorking%) =_
458.                 inst$(actualSegmentWorking%, actualNodeWorking%, actualLineWorking%) + key$ '    ³ can't write more than
459.             END IF '                                                                             ³ 13 characters
460.         END IF '                                                                                 Ù
461.  
462.         IF ASC(key$) = 8 THEN '                                                                             ¿  BACKSPACE
463.             inst$(actualSegmentWorking%, actualNodeWorking%, actualLineWorking%) =_
464.             LEFT$(inst$(actualSegmentWorking%, actualNodeWorking%, actualLineWorking%),_
465.             LEN(inst$(actualSegmentWorking%, actualNodeWorking%, actualLineWorking%)) - 1) '                ³
466.         END IF '                                                                                            Ù
467.  
468.         IF ASC(key$) = 13 AND actualLineWorking% < 10 AND inst$(actualSegmentWorking%, actualNodeWorking%, 10) = "" THEN '¿
469.             actualLineWorking% = actualLineWorking% + 1 '                                                                 ³ ENTER
470.         END IF '                                                                                                          Ù
471.  
472.         IF ASC(key$) = 9 THEN '                               ¿
473.             IF actualNodeWorking% < 11 THEN '                 ³
474.                 actualNodeWorking% = actualNodeWorking% + 1 ' ³
475.             ELSE '                                            ³ TAB
476.                 actualNodeWorking% = 0 '                      ³
477.             END IF '                                          ³
478.             actualLineWorking% = 0 '                          ³
479.         END IF '                                              Ù
480.  
481.     END IF ' B+ avoid null ; -) U2pro bro
482.  
483.     IF key$ = CHR$(0) + CHR$(72) AND actualLineWorking% > 0 THEN ' UP        ¿
484.         actualLineWorking% = actualLineWorking% - 1 '                        ³
485.     ELSEIF key$ = CHR$(0) + CHR$(80) AND actualLineWorking% < 10 THEN 'DOWN  ³ ARROWS
486.         actualLineWorking% = actualLineWorking% + 1 '                        ³
487.     END IF '                                                                 Ù
488.  
489.  
490. END SUB
491.  
492. '- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
493. SUB infect () ' virus intro sketch... base under attack!
494.  
495.     DIM row%
496.     DIM column%
497.     DIM message1$
498.     DIM message2$
499.     DIM i%
500.     DIM ii%
501.     DIM loadingBar$
502.  
503.     row% = 20
504.     column% = 52
505.     message1$ = "I'm taking control..."
506.     message2$ = "And you can't stop me"
507.  
508.     'sayHello
509.     COLOR GREEN '                                    ¿ try to
510.     PRINTslowly row% + 3, column% + 2, message1$, 1 '³ psychopatiate
511.     PRINTslowly row% + 4, column% + 2, message2$, 1 'Ù the user
512.     SLEEP 1
513.  
514.     'install
515.     i% = 0
516.     ii% = 0
517.     loadingBar$ = CHR$(219)
518.     DO
519.         _LIMIT 500
520.         i% = i% + 1
521.         ii% = INT(i% / 100)
522.  
523.         COLOR MIDGRAY '                             ¿
524.         LOCATE RND(1) * 47 + 1, RND(1) * 127 + 1 '  ³ random characthers on the back
525.         PRINT CHR$(RND(1) * 222 + 32); '            Ù
526.  
527.         COLOR GREEN '    a virus is GREEN!
          ¿
528.         '                                         ³ draw box and
529.         drawASCIIbox row%, column%, 23, 7, "", 2 '³ CLS inside it
530.         '                                         ³ (don't erease back)
531.         fakeCLS row% + 1, column% + 1, 22, 6 '    Ù
532.  
533.         IF ii% MOD 2 = 0 THEN '                   ¿
534.             LOCATE row% + 1, column% + 2 '        ³ blink: title
535.             PRINT "CV64 VIRUS V0.2  >:-["; '      ³ underline
536.             LOCATE row% + 2, column% + 2 '        ³ message1$
537.             PRINT STRING$(21, CHR$(223)); '       ³ and
538.             '                                     ³ message2$
539.             LOCATE row% + 3, column% + 2 '        ³
540.             PRINT message1$; '                    ³
541.             '                                     ³
542.             LOCATE row% + 4, column% + 2 '        ³
543.             PRINT message2$; '                    ³
544.         END IF '                                  Ù
545.  
546.         LOCATE row% + 6, column% + 2 '                              ¿
547.         IF ii% < 20 THEN PRINT "Overriding OS..."; '                ³
548.         IF ii% < 40 AND ii% > 19 THEN PRINT "Accesing files..."; '  ³ loading messages
549.         IF ii% < 60 AND ii% > 39 THEN PRINT "Infecting..."; '       ³
550.         IF ii% < 80 AND ii% > 59 THEN PRINT "Replicating..."; '     ³
551.         IF ii% < 100 AND ii% > 79 THEN PRINT "Ereasing nodes..."; ' ³
552.         IF ii% = 100 THEN PRINT "Nodes killed "; '                 Ù
553.  
554.         ii$ = LTRIM$(STR$(ii%)) '                   ¿
555.         LOCATE row% + 6, column% + 22 - LEN(ii$) '  ³ xx%
556.         PRINT ii$ + "%"; '                          Ù
557.  
558.         IF i% MOD 500 = 0 THEN loadingBar$ = loadingBar$ + CHR$(219) ' ¿
559.         LOCATE row% + 7, column% + 2 '                                 ³ loading bar
560.         PRINT loadingBar$; '                                           Ù
561.         _DISPLAY
562.     LOOP UNTIL i% = 10000
563.     SLEEP 2 '                                       infection complete XD
564.  
565. END SUB
566.  
567. '- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
568. SUB systemCheck () ' fake system check as excuse to go at main menu
569.  
570.     DIM i&
571.  
572.     COLOR LIGHTGRAY
573.     PRINTslowly 2, 2, "Unexpected restart. Running system check...", 1
574.     FOR i& = 0 TO 247483647 STEP 2048
575.         _LIMIT 20000
576.         LOCATE 4, 2
577.         PRINT "CHECKSUM: ";: PRINT LTRIM$(STR$(i&));
578.     NEXT i&
579.     PRINT " OK"
580.     PRINTslowly 6, 2, "Nodes have been corrupted...", 1
581.     PRINTslowly 8, 2, "Reprogram them to recover access to OS...", 1
582.     PRINTslowly 10, 2, "Please, don't shut down the equipment until reprogramming is over", 1
583.     PRINTslowly 11, 2, "or all system data won't be able to recover...", 0
584.     PRINTslowly 13, 2, "Starting debbuger", 1
585.     SLEEP 2
586.  
587. END SUB
588.  
589. '- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
590. SUB drawSegments () ' draw the segment on the main menu
591.  
592.     DIM i%
593.     DIM y%
594.     DIM x%
595.     DIM yy%
596.     DIM xx%
597.     DIM segmentNumber$
598.  
599.     i% = -1
600.  
601.     FOR y% = 3 TO 39 STEP 9
602.         FOR x% = 4 TO 112 STEP 18
603.  
604.             i% = i% + 1 ' node index number, start -1 to make it 0 here for the array
605.             '              we add another +1 later to make em look like start at 1
606.             COLOR DARKGRAY '                                  ¿
607.             FOR yy% = 2 TO 5 '                                ³
608.                 FOR xx% = 1 TO 11 '                           ³ if node is broke
609.                     LOCATE y% + yy%, x% + xx% '               ³ random characters
610.                     IF NOT segmentState%(i%) THEN '           ³
611.                         PRINT CHR$(RND(1) * 200 + 32); '      ³ if fixed by
612.                     ELSE '                                    ³ user then
613.                         PRINT LTRIM$(STR$(_ROUND(RND))); '    ³ plain 1's and 0's
614.                     END IF '                                  ³
615.                 NEXT xx% '                                    ³
616.             NEXT yy% '                                        Ù
617.  
618.             IF i% > 8 THEN '                                  ¿ the shown number
619.                 segmentNumber$ = LTRIM$(STR$(i% + 1)) '       ³ of the segment,
620.             ELSE '                                            ³ avoiding the
621.                 segmentNumber$ = " " + LTRIM$(STR$(i% + 1)) ' ³ spaces if
622.             END IF '                                          Ù two digits
623.  
624.             IF menuHighlight% = i% THEN ' ¿
625.                 COLOR WHITE '             ³ show WHITE if
626.             ELSE '                        ³ selected, else
627.                 COLOR MIDGRAY '           ³ is MIDGRAY
628.             END IF '                      Ù
629.  
630.             drawASCIIbox y%, x%, 11, 5, " SEGMENT" + segmentNumber$, 1 ' draw the box
631.  
632.             LOCATE 40, 113: PRINT "  SANDBOX  "; ' <---------------SANDBOX CASE (overprinted over SEGMENT 35)
633.  
634.             LOCATE y% + 3, x% + 2 '     ¿
635.             IF segmentState%(i%) THEN ' ³ accordingly to
636.                 COLOR MIDGRAY, GREEN '  ³ segmentState%()
637.                 PRINT "-NOMINAL-" '     ³ draw -NOMINAL-
638.             ELSE '                      ³ or   - ERROR -
639.                 COLOR BLACK, RED '      ³
640.                 PRINT " -ERROR- " '     ³
641.             END IF '                    Ù
642.  
643.             COLOR , BLACK '  don't conflictuate other stuff
644.  
645.         NEXT x%
646.     NEXT y%
647.  
648.     drawMainInstructions
649.  
650. END SUB
651.  
652. '- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
653. SUB drawMainInstructions () ' draws a single blue line with some instruction on it at the bottom of the screen
654.  
655.     DIM ii%
656.  
657.     COLOR YELLOW, BLUE
658.  
659.     FOR ii% = 1 TO 127 '   ¿
660.         LOCATE 48, ii% '   ³ blue background
661.         PRINT " "; '       ³ line at bottom
662.     NEXT ii% '             Ù
663.  
664.     LOCATE 48, 25 '             ¿
665.     PRINT "F1 Help"; '          ³
666.     LOCATE 48, 43 '             ³ options in
667.     PRINT "ARROWS Navigate"; '  ³ the main menu
668.     LOCATE 48, 71 '             ³
669.     PRINT "ENTER Select"; '     ³
670.     LOCATE 48, 92 '             ³
671.     PRINT "F10 Save and Exit"; 'Ù
672.  
673.     COLOR , BLACK ' don't conflictuate with other things
674.  
675. END SUB
676.  
677. '- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
678. SUB drawNodeV21 (nodeY%, nodeX%)
679.  
680.     DIM i%
681.  
682.     FOR i% = 0 TO 11 '                                                                               ¿
683.         COLOR DARKGRAY '                                                                             ³
684.         LOCATE nodeV21(actualSegmentWorking%, i%).y + 2, nodeV21(actualSegmentWorking%, i%).x + 16 ' ³
685.         PRINT nodeV21(actualSegmentWorking%, i%).acc; '                                              ³ show
686.         LOCATE nodeV21(actualSegmentWorking%, i%).y + 5, nodeV21(actualSegmentWorking%, i%).x + 16 ' ³ information
687.         PRINT nodeV21(actualSegmentWorking%, i%).bak; '                                              ³ of node
688.         LOCATE nodeV21(actualSegmentWorking%, i%).y + 8, nodeV21(actualSegmentWorking%, i%).x + 16 ' ³ registers
689.         PRINT nodeV21(actualSegmentWorking%, i%).mode; '                                             ³ (acc, bak,
690.         LOCATE nodeV21(actualSegmentWorking%, i%).y + 11, nodeV21(actualSegmentWorking%, i%).x + 16 '³ mode, last)
691.         PRINT nodeV21(actualSegmentWorking%, i%).last; '                                             ³
692.     NEXT i% '                                                                                        Ù
693.  
694.     COLOR MIDGRAY
695.  
696.     drawASCIIbox nodeY%, nodeX%, 14, 11, "", 1 ' user input instructions box
697.     drawASCIIbox nodeY%, nodeX% + 15, 4, 2, "ACC", 1 '     ¿
698.     drawASCIIbox nodeY% + 3, nodeX% + 15, 4, 2, "BAK", 1 ' ³ box over
699.     drawASCIIbox nodeY% + 6, nodeX% + 15, 4, 2, "MODE", 1 '³ box
700.     drawASCIIbox nodeY% + 9, nodeX% + 15, 4, 2, "LAST", 1 'Ù
701.  
702.     LOCATE nodeY%, nodeX% + 15 '            ¿
703.     PRINT CHR$(194); ' Â                    ³
704.     LOCATE nodeY% + 12, nodeX% + 15 '       ³
705.     PRINT CHR$(193); ' Á                    ³
706.     '                                       ³ then correct
707.     FOR i% = 3 TO 9 STEP 3 '                ³ the corners
708.         LOCATE nodeY% + i%, nodeX% + 15 '   ³ nedded
709.         PRINT CHR$(195); ' Ã                ³
710.     NEXT i% '                               ³ (the usual
711.     '                                       ³ deciving)
712.     FOR i% = 3 TO 9 STEP 3 '                ³
713.         LOCATE nodeY% + i%, nodeX% + 20 '   ³
714.         PRINT CHR$(180); ' ´                ³
715.     NEXT i% '                               Ù
716.  
717. END SUB
718.  
719. '- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
720. SUB PRINTslowly (originY%, originX%, message$, preBlink%)
721.  
722.     DIM i%
723.     DIM buildingMessage$
724.  
725.     IF originY% < 1 THEN EXIT SUB '     ¿ check if logic
726.     IF originX% < 1 THEN EXIT SUB '     Ù
727.  
728.     IF preBlink% = 1 THEN PCthinking originY%, originX% ' wanna see some blinking before start writing?
729.  
730.     i% = 0 '                                                Ä¿
731.     DO '                                                     ³
732.         _DELAY .05 '                                         ³
733.         i% = i% + 1 '                                        ³ print message$
734.         buildingMessage$ = LEFT$(message$, i%) + CHR$(219) ' ³ character by character
735.         LOCATE originY%, originX% '                          ³ and erease the cursor
736.         PRINT buildingMessage$; '                            ³
737.     LOOP UNTIL LEN(buildingMessage$) = LEN(message$) + 1 '  ÄÙ
738.  
739.     LOCATE CSRLIN, originX% + LEN(message$): PRINT " "; ' erease cursor
740.  
741. END SUB
742.  
743. '- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
744. SUB PCthinking (originY%, originX%)
745.  
746.     DIM i%
747.  
748.     IF originY% < 1 THEN EXIT SUB '     ¿ check if logic
749.     IF originX% < 1 THEN EXIT SUB '     Ù
750.  
751.     FOR i% = 1 TO 11 '                  ¿
752.         _LIMIT 5 '                      ³
753.         LOCATE originY%, originX% '     ³
754.         IF i% MOD 2 = 0 THEN '          ³ bliking cursor
755.             PRINT CHR$(219); '          ³
756.         ELSE '                          ³
757.             PRINT " "; '                ³
758.         END IF '                        ³
759.     NEXT i% '                           Ù
760.  
761. END SUB
762.  
763. '- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
764. SUB fakeCLS (originY%, originX%, width%, height%)
765.  
766.     DIM y%
767.     DIM x%
768.  
769.     IF originY% < 1 THEN EXIT SUB '               ¿
770.     IF originX% < 1 THEN EXIT SUB '               ³ check if logic
771.     IF width% < 1 THEN EXIT SUB '                 ³
772.     IF height% < 1 THEN EXIT SUB '                Ù
773.  
774.     FOR x% = 0 TO width% '                        ¿
775.         FOR y% = 0 TO height% '                   ³ print
776.             LOCATE originY% + y%, originX% + x% ' ³ " " (space)
777.             PRINT " "; '                          ³ repeatedly
778.         NEXT y% '                                 ³
779.     NEXT x% '                                     Ù
780.  
781. END SUB
782.  
783. '- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
784. SUB drawASCIIbox (originY%, originX%, width%, height%, message$, style%)
785.  
786.     DIM char%
787.     DIM char1%
788.     DIM char2%
789.     DIM y%
790.     DIM x%
791.  
792.     IF originY% < 1 OR originX% < 1 THEN EXIT SUB '     ÄÄÄ¿
793.     IF width% < 1 OR height% < 1 THEN EXIT SUB '           ³ check if logic
794.     IF style% < 1 OR style% > 3 THEN EXIT SUB '         ÄÄÄÙ
795.  
796.     LOCATE originY%, originX% '                         ÄÄÄ¿
797.     IF style% = 1 THEN PRINT CHR$(218); 'Ú                 ³
798.     IF style% = 2 THEN PRINT CHR$(201); ' É   up,left      ³
799.     '                                                      ³
800.     LOCATE originY% + height% + 1, originX% '              ³
801.     IF style% = 1 THEN PRINT CHR$(192); ' À                ³
802.     IF style% = 2 THEN PRINT CHR$(200); ' È  down, left    ³ corners
803.     '                                                      ³
804.     LOCATE originY%, originX% + width% + 1 '               ³
805.     IF style% = 1 THEN PRINT CHR$(191); ' ¿                ³
806.     IF style% = 2 THEN PRINT CHR$(187); ' » up, right      ³
807.     '                                                      ³
808.     LOCATE originY% + height% + 1, originX% + width% + 1 ' ³
809.     IF style% = 1 THEN PRINT CHR$(217); ' Ù                ³
810.     IF style% = 2 THEN PRINT CHR$(188); ' ¼ down, right ÄÄÄÙ
811.  
812.     IF style% = 1 THEN char% = 179 ' ³                  ÄÄÄ¿
813.     IF style% = 2 THEN char% = 186 ' º  determinate style  ³
814.     IF style% = 3 THEN char% = 219 ' Û                     ³
815.     FOR y% = 1 TO height% '                                ³
816.         LOCATE originY% + y%, originX% ' locate and print  ³ sides
817.         PRINT CHR$(char%); '                               ³
818.         LOCATE originY% + y%, originX% + width% + 1 '      ³
819.         PRINT CHR$(char%); '                               ³
820.     NEXT y% '                                           ÄÄÄÙ
821.  
822.     IF style% < 3 THEN ' styles 1 and 2                 ÄÄÄ¿
823.         IF style% = 1 THEN char% = 196 ' Ä                 ³
824.         IF style% = 2 THEN char% = 205 ' Í                 ³
825.         FOR x% = 1 TO width% '                             ³
826.             LOCATE originY%, originX% + x% '               ³
827.             PRINT CHR$(char%); '                           ³
828.             LOCATE originY% + height% + 1, originX% + x% ' ³
829.             PRINT CHR$(char%); '                           ³ top &
830.         NEXT x% '                                          ³ bottom
831.     ELSE ' special case of style 3                         ³
832.         char1% = 220 ' Ü                                   ³
833.         char2% = 223 ' ß                                   ³
834.         FOR x% = 0 TO width% + 1 '                         ³
835.             LOCATE originY%, originX% + x% '               ³
836.             PRINT CHR$(char1%); '                          ³
837.             LOCATE originY% + height% + 1, originX% + x% ' ³
838.             PRINT CHR$(char2%); '                          ³
839.         NEXT x% '                                          ³
840.     END IF '                                            ÄÄÄÙ
841.  
842.     LOCATE originY% + 1, originX% + 1 '                 ÄÄÄ¿ message
843.     PRINT message$; '                                   ÄÄÄÙ
844.  
845. END SUB
846.  
847.  

textProccesor() could have some improvement, but for the moment it acomplish its work

Title: Re: Trying to imitate TIS-100
Post by: bplus on September 10, 2020, 11:38:24 pm

String those 3 letter guys up with some char like * after each including the last.
 StrungUp3LetterGuys$ = "NOP*MOV*SWP*..... JRO*"

Match$ =  LEFT$(analyzing$, 3) + "*"

find = INSTR(StrungUp3LetterGuys$, Match$)

if find then no complaints else complain

Text Only | Text with Attachments