Re: [N8VEM-S100:6699] CP/M Mbasic 5.21

[litte...@mchsi.com]

A$="MON TUE WED THU FRI SAT SUN "
DEF FNM(X)=INT(7*(X/7-INT(X/7))+.5)


A$ is an array and FNM(x) must calculate day of the 
week and return some value that may be the location 
in the string for it to print.



----- Original Message -----
From: "norwestrzh via N8VEM-S100" <n8vem...@googlegroups.com>
To: n8vem...@googlegroups.com
Sent: Monday, April 6, 2015 4:39:22 PM GMT -06:00 US/Canada Central
Subject: Re: [N8VEM-S100:6699] CP/M Mbasic 5.21


I'd try your snippet of code, but I don't know what "FNM" is, nor what "A$" does. 





-----Original Message----- 
From: litterbox99 <litte...@mchsi.com> 
To: n8vem-s100 <n8vem...@googlegroups.com> 
Sent: Mon, Apr 6, 2015 2:23 pm 
Subject: Re: [N8VEM-S100:6695] CP/M Mbasic 5.21 


Roger

You must be close,

I'm trying to convert this NorthStar basic
line;

640 FOR Q=1 TO D9\E=FNM(D3-1)+1\!A$(4*E-3,4*E),\!D1,\IFZ<1 THEN
680


To CP/M basic as;

640 FOR Q=1 TO D9
642 E=FNM(D3-1)+1
644 PRINT
A$(4*E-3,4*E),
646 PRINT D1,
648 IF Z<1 THEN 680

Reason for my conversion ?


I couldn't find a continuation character in MBasic.

When I run the
program with my changes I still get
the wrong answer as if Basic isn't
remembering "E" 
from line to line.


Todd 

-- 
You received this message because you are subscribed to the Google Groups "N8VEM-S100" group. 
To unsubscribe from this group and stop receiving emails from it, send an email to n8vem-s100+...@googlegroups.com . 
For more options, visit https://groups.google.com/d/optout .