Re: [M100] Dungeon Master's Personnel Service

[Peter Noeth]

>Message: 8
   >Date: Thu, 9 Jan 2020 14:35:38 -0800
   >From: Peter Vollan 
   >To: m...@bitchin100.com
   >Subject: Re: [M100] Dungeon Master's Personnel Service
   >Message-ID:
   >  <
ca+g2jxmn-ftkmpdmeupiop72dxtmyn6gnbeccx0edciqzr2...@mail.gmail.com>
   >Content-Type: text/plain; charset="UTF-8"

   >I just noticed that VT has an option to "Save basic as ASCII", so not
   >only with it load a .BA files that is really a text file, but it will
   >save it back to text so that you can read and edit it. Virtual T is
   >teaching us bad habits!



Except if you use any character in your program whose value is greater than
127d, then the ASCII file will not have the IBM equivalent of the character
but instead will contain one of the BASIC commands in it's place. Something
that was never tested for and needs fixing.

I found this out because I use character 167d in several of my programs,
and tried to do some debugging with Virtual-T and saved the result with the
"Save Basic as ASCII" option and then couldn't read the file on my T102.

Peter

Re: [M100] Dungeon Master's Personnel Service

[Dan Higdon]

But it's 5 more bytes! :)

On Fri, Jan 10, 2020 at 5:33 PM Peter Vollan  wrote:

> I like "PRINT CHR$(12)" because it is more universal than CLS.
>
> On Thu, 9 Jan 2020 at 15:16, Peter Vollan  wrote:
> >
> > BTW, what the hell is this:
> >
> > 1300 INPUT C
> > 1310 ON  C GOTO  1320
> > 1320 PRINT  CHR$(12)
> >
> > On Thu, 9 Jan 2020 at 14:09, Jason Benson 
> wrote:
> > >
> > > Good to know. Here's the same file renamed to DMPS.DO
> > > As for the error you ran into, I'm not at all surprised, there are
> probably a few of bugs in there I missed and didn't trigger when I did some
> brief testing on it.
> > >
> > > On Thu, Jan 9, 2020 at 5:03 PM John R. Hogerhuis 
> wrote:
> > >>
> > >>
> > >>
> > >> On Thu, Jan 9, 2020 at 1:58 PM Jason Benson <
> jason.benson...@gmail.com> wrote:
> > >>>
> > >>> I was loading the file through Virtual T. and running it just fine.
> Is it VT automatically converting it to a tokenized basic file?
> > 
> > 
> > >>
> > >> Yes.
>

Re: [M100] Dungeon Master's Personnel Service

[Peter Vollan]

I like "PRINT CHR$(12)" because it is more universal than CLS.

On Thu, 9 Jan 2020 at 15:16, Peter Vollan  wrote:
>
> BTW, what the hell is this:
>
> 1300 INPUT C
> 1310 ON  C GOTO  1320
> 1320 PRINT  CHR$(12)
>
> On Thu, 9 Jan 2020 at 14:09, Jason Benson  wrote:
> >
> > Good to know. Here's the same file renamed to DMPS.DO
> > As for the error you ran into, I'm not at all surprised, there are probably 
> > a few of bugs in there I missed and didn't trigger when I did some brief 
> > testing on it.
> >
> > On Thu, Jan 9, 2020 at 5:03 PM John R. Hogerhuis  wrote:
> >>
> >>
> >>
> >> On Thu, Jan 9, 2020 at 1:58 PM Jason Benson  
> >> wrote:
> >>>
> >>> I was loading the file through Virtual T. and running it just fine. Is it 
> >>> VT automatically converting it to a tokenized basic file?
> 
> 
> >>
> >> Yes.

Re: [M100] Dungeon Master's Personnel Service

[Peter Vollan]

That is what I am doing, cleaning it up for the model T.

The code that I posted makes no sense. The ONGOTO statement only
has one entry, and it goes to  the next line, where the program
would have gone anyway. You can just eliminate that line and it does
the exact same thing.

On Fri, 10 Jan 2020 at 07:55, Dan Higdon  wrote:
>
> Jason, I'm glad you left it alone. I think there's historical value in the 
> original text.
> Having said that, if someone (maybe me?) rewrites it to be more ModelT 
> friendly, that would be fine, too.
>
> On Fri, Jan 10, 2020 at 8:39 AM Jason Benson  
> wrote:
>>
>> >  That's the worst way possible to do "press any key to continue".
>> > In my own "walk through", I'm replacing those with
>>
>> When I was briefly debugging it I came across a number of things I would 
>> change if I had written it, and I considered just rewriting chunks of it, 
>> but I decided to leave it more or less intact as a historical example. If I 
>> actually needed to use this for a D 1st Ed campaign I would definitely 
>> rewrite it though.
>>
>> On Thu, Jan 9, 2020 at 6:35 PM Dan Higdon  wrote:
>>>
>>> That's the worst way possible to do "press any key to continue".
>>> In my own "walk through", I'm replacing those with
>>>
>>> 1300 if inkey$="" then 1300
>>> 1320 cls
>>>
>>> On Thu, Jan 9, 2020 at 5:16 PM Peter Vollan  wrote:

 BTW, what the hell is this:

 1300 INPUT C
 1310 ON  C GOTO  1320
 1320 PRINT  CHR$(12)

 On Thu, 9 Jan 2020 at 14:09, Jason Benson  
 wrote:
 >
 > Good to know. Here's the same file renamed to DMPS.DO
 > As for the error you ran into, I'm not at all surprised, there are 
 > probably a few of bugs in there I missed and didn't trigger when I did 
 > some brief testing on it.
 >
 > On Thu, Jan 9, 2020 at 5:03 PM John R. Hogerhuis  
 > wrote:
 >>
 >>
 >>
 >> On Thu, Jan 9, 2020 at 1:58 PM Jason Benson  
 >> wrote:
 >>>
 >>> I was loading the file through Virtual T. and running it just fine. Is 
 >>> it VT automatically converting it to a tokenized basic file?
 
 
 >>
 >> Yes.

Re: [M100] Dungeon Master's Personnel Service

[Dan Higdon]

Jason, I'm glad you left it alone. I think there's historical value in the
original text.
Having said that, if someone (maybe me?) rewrites it to be more ModelT
friendly, that would be fine, too.

On Fri, Jan 10, 2020 at 8:39 AM Jason Benson 
wrote:

> >  That's the worst way possible to do "press any key to continue".
> > In my own "walk through", I'm replacing those with
>
> When I was briefly debugging it I came across a number of things I would
> change if I had written it, and I considered just rewriting chunks of it,
> but I decided to leave it more or less intact as a historical example. If I
> actually needed to use this for a D 1st Ed campaign I would
> definitely rewrite it though.
>
> On Thu, Jan 9, 2020 at 6:35 PM Dan Higdon  wrote:
>
>> That's the worst way possible to do "press any key to continue".
>> In my own "walk through", I'm replacing those with
>>
>> 1300 if inkey$="" then 1300
>> 1320 cls
>>
>> On Thu, Jan 9, 2020 at 5:16 PM Peter Vollan  wrote:
>>
>>> BTW, what the hell is this:
>>>
>>> 1300 INPUT C
>>> 1310 ON  C GOTO  1320
>>> 1320 PRINT  CHR$(12)
>>>
>>> On Thu, 9 Jan 2020 at 14:09, Jason Benson 
>>> wrote:
>>> >
>>> > Good to know. Here's the same file renamed to DMPS.DO
>>> > As for the error you ran into, I'm not at all surprised, there are
>>> probably a few of bugs in there I missed and didn't trigger when I did some
>>> brief testing on it.
>>> >
>>> > On Thu, Jan 9, 2020 at 5:03 PM John R. Hogerhuis 
>>> wrote:
>>> >>
>>> >>
>>> >>
>>> >> On Thu, Jan 9, 2020 at 1:58 PM Jason Benson <
>>> jason.benson...@gmail.com> wrote:
>>> >>>
>>> >>> I was loading the file through Virtual T. and running it just fine.
>>> Is it VT automatically converting it to a tokenized basic file?
>>> 
>>> 
>>> >>
>>> >> Yes.
>>>
>>

Re: [M100] Dungeon Master's Personnel Service

[Jason Benson]

>  That's the worst way possible to do "press any key to continue".
> In my own "walk through", I'm replacing those with

When I was briefly debugging it I came across a number of things I would
change if I had written it, and I considered just rewriting chunks of it,
but I decided to leave it more or less intact as a historical example. If I
actually needed to use this for a D 1st Ed campaign I would
definitely rewrite it though.

On Thu, Jan 9, 2020 at 6:35 PM Dan Higdon  wrote:

> That's the worst way possible to do "press any key to continue".
> In my own "walk through", I'm replacing those with
>
> 1300 if inkey$="" then 1300
> 1320 cls
>
> On Thu, Jan 9, 2020 at 5:16 PM Peter Vollan  wrote:
>
>> BTW, what the hell is this:
>>
>> 1300 INPUT C
>> 1310 ON  C GOTO  1320
>> 1320 PRINT  CHR$(12)
>>
>> On Thu, 9 Jan 2020 at 14:09, Jason Benson 
>> wrote:
>> >
>> > Good to know. Here's the same file renamed to DMPS.DO
>> > As for the error you ran into, I'm not at all surprised, there are
>> probably a few of bugs in there I missed and didn't trigger when I did some
>> brief testing on it.
>> >
>> > On Thu, Jan 9, 2020 at 5:03 PM John R. Hogerhuis 
>> wrote:
>> >>
>> >>
>> >>
>> >> On Thu, Jan 9, 2020 at 1:58 PM Jason Benson 
>> wrote:
>> >>>
>> >>> I was loading the file through Virtual T. and running it just fine.
>> Is it VT automatically converting it to a tokenized basic file?
>> 
>> 
>> >>
>> >> Yes.
>>
>

Re: [M100] Dungeon Master's Personnel Service

[John R. Hogerhuis]

On Thu, Jan 9, 2020, 10:10 PM Peter Vollan  wrote:

> But then he would have eventually have encountered them, when he tried
> to load a test file as a basic files into a model T
>

Maybe, maybe not.

Only if he uses a tpdd client and a tpdd service that doesn't guard against
mismatched file extensions.

The combination of Tsdos and laddiealpha would never exhibit the
dysfunctional behavior.

If for example he transfers it as an ASCII file with BASIC, TEXT or TELCOM,
the extension creates no issue.

-- John.

>

Re: [M100] Dungeon Master's Personnel Service

[Mike Stein]

- Original Message - 
From: "Ken Pettit" 
To: 
Sent: Thursday, January 09, 2020 8:43 PM
Subject: Re: [M100] Dungeon Master's Personnel Service


> On 1/9/20 5:40 PM, Brian K. White wrote:
>> On 1/9/20 8:38 PM, Ken Pettit wrote:
>>> And here we go again.  :)  LOL
>>
>> I had to respond to "what you wanted to do anyway"
>> That is just a completely flagrant violation.
>>
> 
> I bow out graciously as I don't usually get into these type of online 
> discussions that inevetibly end up in flame wars.
> 
> But I did have to look up the definition of "Serendipitous" and "flagrant".
> 
> Ken
-
I'm sorely tempted to pick up the baton but that would only confirm the 
'personal bias' ;-)

Re: [M100] Dungeon Master's Personnel Service

[Ken Pettit]

On 1/9/20 5:40 PM, Brian K. White wrote:

On 1/9/20 8:38 PM, Ken Pettit wrote:

And here we go again.  :)  LOL


I had to respond to "what you wanted to do anyway"
That is just a completely flagrant violation.



I bow out graciously as I don't usually get into these type of online 
discussions that inevetibly end up in flame wars.


But I did have to look up the definition of "Serendipitous" and "flagrant".

Ken

Re: [M100] Dungeon Master's Personnel Service

[Brian K. White]

On 1/9/20 8:38 PM, Ken Pettit wrote:

And here we go again.  :)  LOL


I had to respond to "what you wanted to do anyway"
That is just a completely flagrant violation.

--
bkw



On 1/9/20 5:37 PM, Brian K. White wrote:

On 1/9/20 6:48 PM, Ken Pettit wrote:

On 1/9/20 3:34 PM, John R. Hogerhuis wrote:


Yeah. That's one point of view.

What if we could have remove a lot of those obstacles for him ahead 
of time so he never even encountered them?


IMO, there's a lot to be said for things that "just work".



Not only that, but it creates a lot less "Call center" calls trying 
to debug why loading this program or that program always crashs my 
machine (or my VirtualT).  While I understand the purist's point of 
view of "don't touch my data and let me decide", I side with John in 
just making sure it works because that is really what you wanted to 
do anyway. 



It's not your place to tell me what I wanted to do.

It's not being a purist to hold this tenet, or, if it is, then it's 
no criticism to be a purist about it. Pick any other bad thing and 
say "those silly anti-malaria purists...". Or less dramatic "purists 
who say that 1+2=4 is *always* wrong..." The implied charge has no bite.



 I
can't think of any situation where someone was trying to load an 
ASCII .BA file just so they could crash their machine.


Serendipitous! As it's not your job to try to think of any situation 
like that. How lucky is that?


Thinking of everything in infinity that might be possible, is 
impossible, which is why it's never valid to take that approach in 
the first place. That's why we have scopes and separations of concern 
etc.


Let a dedicated separate cleaner-upper utility attempt to do things 
like that, when a user specifically asks for it, by actively using 
the tool. Then you can never be guilty of breaking anything or 
injecting your own infuriating unwelcome problems. You don't have to 
worry about doing the impossible (getting it right 100% of the time 
forever in all future situations in decades to come), nor have to 
settle for having it on your name that you did something while 
knowingly not bothering to get it right 100% of the time.


The separate util doesn't have to worry about being so impossibly 
perfect. It doesn't make the implied promise that a storage device 
does. Whatever a generic processing util promises to do, it doesn't 
run itself without being asked on every transaction. It only runs 
when asked, and the user can tolerate imperfection in it, because 
they can choose not to run it.

Re: [M100] Dungeon Master's Personnel Service

[Ken Pettit]

And here we go again.  :)  LOL

On 1/9/20 5:37 PM, Brian K. White wrote:

On 1/9/20 6:48 PM, Ken Pettit wrote:

On 1/9/20 3:34 PM, John R. Hogerhuis wrote:


Yeah. That's one point of view.

What if we could have remove a lot of those obstacles for him ahead 
of time so he never even encountered them?


IMO, there's a lot to be said for things that "just work".



Not only that, but it creates a lot less "Call center" calls trying 
to debug why loading this program or that program always crashs my 
machine (or my VirtualT).  While I understand the purist's point of 
view of "don't touch my data and let me decide", I side with John in 
just making sure it works because that is really what you wanted to 
do anyway. 



It's not your place to tell me what I wanted to do.

It's not being a purist to hold this tenet, or, if it is, then it's no 
criticism to be a purist about it. Pick any other bad thing and say 
"those silly anti-malaria purists...". Or less dramatic "purists who 
say that 1+2=4 is *always* wrong..." The implied charge has no bite.



 I
can't think of any situation where someone was trying to load an 
ASCII .BA file just so they could crash their machine.


Serendipitous! As it's not your job to try to think of any situation 
like that. How lucky is that?


Thinking of everything in infinity that might be possible, is 
impossible, which is why it's never valid to take that approach in the 
first place. That's why we have scopes and separations of concern etc.


Let a dedicated separate cleaner-upper utility attempt to do things 
like that, when a user specifically asks for it, by actively using the 
tool. Then you can never be guilty of breaking anything or injecting 
your own infuriating unwelcome problems. You don't have to worry about 
doing the impossible (getting it right 100% of the time forever in all 
future situations in decades to come), nor have to settle for having 
it on your name that you did something while knowingly not bothering 
to get it right 100% of the time.


The separate util doesn't have to worry about being so impossibly 
perfect. It doesn't make the implied promise that a storage device 
does. Whatever a generic processing util promises to do, it doesn't 
run itself without being asked on every transaction. It only runs when 
asked, and the user can tolerate imperfection in it, because they can 
choose not to run it.

Re: [M100] Dungeon Master's Personnel Service

[Brian K. White]

On 1/9/20 6:48 PM, Ken Pettit wrote:

On 1/9/20 3:34 PM, John R. Hogerhuis wrote:


Yeah. That's one point of view.

What if we could have remove a lot of those obstacles for him ahead of 
time so he never even encountered them?


IMO, there's a lot to be said for things that "just work".



Not only that, but it creates a lot less "Call center" calls trying to 
debug why loading this program or that program always crashs my machine 
(or my VirtualT).  While I understand the purist's point of view of 
"don't touch my data and let me decide", I side with John in just making 
sure it works because that is really what you wanted to do anyway. 



It's not your place to tell me what I wanted to do.

It's not being a purist to hold this tenet, or, if it is, then it's no 
criticism to be a purist about it. Pick any other bad thing and say 
"those silly anti-malaria purists...". Or less dramatic "purists who say 
that 1+2=4 is *always* wrong..." The implied charge has no bite.



 I
can't think of any situation where someone was trying to load an ASCII 
.BA file just so they could crash their machine.


Serendipitous! As it's not your job to try to think of any situation 
like that. How lucky is that?


Thinking of everything in infinity that might be possible, is 
impossible, which is why it's never valid to take that approach in the 
first place. That's why we have scopes and separations of concern etc.


Let a dedicated separate cleaner-upper utility attempt to do things like 
that, when a user specifically asks for it, by actively using the tool. 
Then you can never be guilty of breaking anything or injecting your own 
infuriating unwelcome problems. You don't have to worry about doing the 
impossible (getting it right 100% of the time forever in all future 
situations in decades to come), nor have to settle for having it on your 
name that you did something while knowingly not bothering to get it 
right 100% of the time.


The separate util doesn't have to worry about being so impossibly 
perfect. It doesn't make the implied promise that a storage device does. 
Whatever a generic processing util promises to do, it doesn't run itself 
without being asked on every transaction. It only runs when asked, and 
the user can tolerate imperfection in it, because they can choose not to 
run it.


--
bkw

Re: [M100] Dungeon Master's Personnel Service

[Ken Pettit]

On 1/9/20 3:34 PM, John R. Hogerhuis wrote:


Yeah. That's one point of view.

What if we could have remove a lot of those obstacles for him ahead of 
time so he never even encountered them?


IMO, there's a lot to be said for things that "just work".



Not only that, but it creates a lot less "Call center" calls trying to 
debug why loading this program or that program always crashs my machine 
(or my VirtualT).  While I understand the purist's point of view of 
"don't touch my data and let me decide", I side with John in just making 
sure it works because that is really what you wanted to do anyway.  I 
can't think of any situation where someone was trying to load an ASCII 
.BA file just so they could crash their machine.


Ken

Re: [M100] Dungeon Master's Personnel Service

[Dan Higdon]

That's the worst way possible to do "press any key to continue".
In my own "walk through", I'm replacing those with

1300 if inkey$="" then 1300
1320 cls

On Thu, Jan 9, 2020 at 5:16 PM Peter Vollan  wrote:

> BTW, what the hell is this:
>
> 1300 INPUT C
> 1310 ON  C GOTO  1320
> 1320 PRINT  CHR$(12)
>
> On Thu, 9 Jan 2020 at 14:09, Jason Benson 
> wrote:
> >
> > Good to know. Here's the same file renamed to DMPS.DO
> > As for the error you ran into, I'm not at all surprised, there are
> probably a few of bugs in there I missed and didn't trigger when I did some
> brief testing on it.
> >
> > On Thu, Jan 9, 2020 at 5:03 PM John R. Hogerhuis 
> wrote:
> >>
> >>
> >>
> >> On Thu, Jan 9, 2020 at 1:58 PM Jason Benson 
> wrote:
> >>>
> >>> I was loading the file through Virtual T. and running it just fine. Is
> it VT automatically converting it to a tokenized basic file?
> 
> 
> >>
> >> Yes.
>

Re: [M100] Dungeon Master's Personnel Service

[John R. Hogerhuis]

On Thu, Jan 9, 2020 at 3:26 PM Peter Vollan  wrote:

> We have enough trouble already with that whole text/basic, .DO .BA
> thing without hiding it from people.
>
>
Yeah. That's one point of view.

The other point of view is that trouble is unavoidable. But code that fixes
it and makes things work the way the user expects them to is always
welcomed by the users.

Remember the parable of "Dune Buggy." He was a user that showed up on the
list and we were trying to help get RS232 and file transfers and what not
going. He just ran into problem after problem, challenge after challenge,
and in the end informed the list that he'd pulled all of the wires out of
his Model T and thrown it into the trash.

And Dune Buggy was never heard from again.

What if we could have remove a lot of those obstacles for him ahead of time
so he never even encountered them?

IMO, there's a lot to be said for things that "just work".

-- John.

Re: [M100] Dungeon Master's Personnel Service

[Peter Vollan]

We have enough trouble already with that whole text/basic, .DO .BA
thing without hiding it from people.

On Thu, 9 Jan 2020 at 15:06, John R. Hogerhuis  wrote:
>
>
>
> On Thu, Jan 9, 2020 at 2:55 PM Ken Pettit  wrote:
>>
>> On 1/9/20 2:35 PM, Peter Vollan wrote:
>> > I just noticed that VT has an option to "Save basic as ASCII", so not
>> > only with it load a .BA files that is really a text file, but it will
>> > save it back to text so that you can read and edit it. Virtual T is
>> > teaching us bad habits!
>>
>>
>> Hmm, what's that saying?  Oh yeah, "Guns don't kill people, PEOPLE kill
>> people".  Don't go blaming the tool!!!  :) LOL
>>
>> Ken
>
>
> Yep.
>
> TIMTOWTDI
>
> The problem is there a lot of files misnamed .BA even on Club100.
>
> You could do what you did and fix the tokenization and "just work".
> You could just give the user an error and refuse to load the file
> You could prompt the user "This looks like a text file not a tokenized BA 
> file. Would you like me to fix it for you? Yes/Cancel"
> You could just mention to the user "This is a text file. Automatically 
> tokenizing to BA format."
> You could change the extension to DO and create it in the file system that 
> way.
>
> All have arguments in their favor.
>
> I probably would have just fixed the extension and any characters that might 
> corrupt the RAM file system.
>
> -- John.

Re: [M100] Dungeon Master's Personnel Service

[John Gardner]

... more proof...

BASIC deemed harmful..."8)

  ...

Re: [M100] Dungeon Master's Personnel Service

[John R. Hogerhuis]

On Thu, Jan 9, 2020 at 3:16 PM Peter Vollan  wrote:

> BTW, what the hell is this:
>
> 1300 INPUT C
> 1310 ON  C GOTO  1320
> 1320 PRINT  CHR$(12)
>
>
More proof that TIMTOWTDI, lol.

-- John.

Re: [M100] Dungeon Master's Personnel Service

[Peter Vollan]

BTW, what the hell is this:

1300 INPUT C
1310 ON  C GOTO  1320
1320 PRINT  CHR$(12)

On Thu, 9 Jan 2020 at 14:09, Jason Benson  wrote:
>
> Good to know. Here's the same file renamed to DMPS.DO
> As for the error you ran into, I'm not at all surprised, there are probably a 
> few of bugs in there I missed and didn't trigger when I did some brief 
> testing on it.
>
> On Thu, Jan 9, 2020 at 5:03 PM John R. Hogerhuis  wrote:
>>
>>
>>
>> On Thu, Jan 9, 2020 at 1:58 PM Jason Benson  
>> wrote:
>>>
>>> I was loading the file through Virtual T. and running it just fine. Is it 
>>> VT automatically converting it to a tokenized basic file?


>>
>> Yes.

Re: [M100] Dungeon Master's Personnel Service

[John R. Hogerhuis]

On Thu, Jan 9, 2020 at 2:55 PM Ken Pettit  wrote:

> On 1/9/20 2:35 PM, Peter Vollan wrote:
> > I just noticed that VT has an option to "Save basic as ASCII", so not
> > only with it load a .BA files that is really a text file, but it will
> > save it back to text so that you can read and edit it. Virtual T is
> > teaching us bad habits!
>
>
> Hmm, what's that saying?  Oh yeah, "Guns don't kill people, PEOPLE kill
> people".  Don't go blaming the tool!!!  :) LOL
>
> Ken
>

Yep.

TIMTOWTDI

The problem is there a lot of files misnamed .BA even on Club100.

You could do what you did and fix the tokenization and "just work".
You could just give the user an error and refuse to load the file
You could prompt the user "This looks like a text file not a tokenized BA
file. Would you like me to fix it for you? Yes/Cancel"
You could just mention to the user "This is a text file. Automatically
tokenizing to BA format."
You could change the extension to DO and create it in the file system that
way.

All have arguments in their favor.

I probably would have just fixed the extension and any characters that
might corrupt the RAM file system.

-- John.

Re: [M100] Dungeon Master's Personnel Service

[Ken Pettit]

On 1/9/20 2:35 PM, Peter Vollan wrote:

I just noticed that VT has an option to "Save basic as ASCII", so not
only with it load a .BA files that is really a text file, but it will
save it back to text so that you can read and edit it. Virtual T is
teaching us bad habits!



Hmm, what's that saying?  Oh yeah, "Guns don't kill people, PEOPLE kill 
people".  Don't go blaming the tool!!!  :) LOL


Ken

Re: [M100] Dungeon Master's Personnel Service

[Peter Vollan]

I just noticed that VT has an option to "Save basic as ASCII", so not
only with it load a .BA files that is really a text file, but it will
save it back to text so that you can read and edit it. Virtual T is
teaching us bad habits!

On Thu, 9 Jan 2020 at 14:09, Jason Benson  wrote:
>
> Good to know. Here's the same file renamed to DMPS.DO
> As for the error you ran into, I'm not at all surprised, there are probably a 
> few of bugs in there I missed and didn't trigger when I did some brief 
> testing on it.
>
> On Thu, Jan 9, 2020 at 5:03 PM John R. Hogerhuis  wrote:
>>
>>
>>
>> On Thu, Jan 9, 2020 at 1:58 PM Jason Benson  
>> wrote:
>>>
>>> I was loading the file through Virtual T. and running it just fine. Is it 
>>> VT automatically converting it to a tokenized basic file?


>>
>> Yes.

Re: [M100] Dungeon Master's Personnel Service

[Jason Benson]

Good to know. Here's the same file renamed to DMPS.DO
As for the error you ran into, I'm not at all surprised, there are
probably a few of bugs in there I missed and didn't trigger when I did some
brief testing on it.

On Thu, Jan 9, 2020 at 5:03 PM John R. Hogerhuis  wrote:

>
>
> On Thu, Jan 9, 2020 at 1:58 PM Jason Benson 
> wrote:
>
>> I was loading the file through Virtual T. and running it just fine. Is it
>> VT automatically converting it to a tokenized basic file?
>>
>>>
>>>
> Yes.
>


DMPS.DO
Description: Binary data

Re: [M100] Dungeon Master's Personnel Service

[John R. Hogerhuis]

On Thu, Jan 9, 2020 at 1:58 PM Jason Benson 
wrote:

> I was loading the file through Virtual T. and running it just fine. Is it
> VT automatically converting it to a tokenized basic file?
>
>>
>>
Yes.

Re: [M100] Dungeon Master's Personnel Service

[Jason Benson]

I was loading the file through Virtual T. and running it just fine. Is it
VT automatically converting it to a tokenized basic file?

On Thu, Jan 9, 2020 at 4:53 PM John R. Hogerhuis  wrote:

> Jason, the proper extension for your file is .DO, not .BA. So, DMPS.DO
>
> BA is for tokenized files only, and inloading a file with a .BA extension
> into TS-DOS will corrupt your RAM.
>
> Well, unless you're using LaddieAlpha.EXE as the TPDD service since it
> detects that the file content is plain text and corrects the extension.
>
> -- John.
>

Re: [M100] Dungeon Master's Personnel Service

[John R. Hogerhuis]

Also crashes at 3390

3390 Z2$ " T7911   --   --   --   --"

I guess should be

3390 Z2$=" T7911   --   --   --   --"

-- John.

Re: [M100] Dungeon Master's Personnel Service

[John R. Hogerhuis]

Jason, the proper extension for your file is .DO, not .BA. So, DMPS.DO

BA is for tokenized files only, and inloading a file with a .BA extension
into TS-DOS will corrupt your RAM.

Well, unless you're using LaddieAlpha.EXE as the TPDD service since it
detects that the file content is plain text and corrects the extension.

-- John.

Re: [M100] Dungeon Master's Personnel Service

[Jason Benson]

There were a few transcription errors in this, but I was able to debug it
and get it running. I've attached my revised version of the code.

On Thu, Jan 9, 2020 at 9:15 AM Howard Pepper  wrote:

> Wow! imagine me waking up to this email thread in my inbox today! When I
> first moved down to Florida (Dec. 1996), I found the paper copy of this
> Dragon magazine, and was intrigued by the Dungeon Master's Personnel
> Service program, so I pain stakingly typed it in and debugged my mistakes
> (always mistakes!), until I got it to run.  This is so cool, because I
> haven't thought of this program in a long time.  This was on my trusty
> TRS-80 Model IV.  I still have it on a virtual disk (for XTRS) somewhere
> around here.  Thanks for the good memories!
>
> Howard
>
> On 1/8/20 2:17 PM, John R. Hogerhuis wrote:
>
>
>
> On Tue, Jan 7, 2020 at 11:29 PM Mike Stein  wrote:
>
>> Truly BITCHIIN !!!
>>
>> Great job, John! Might as well get rid of all my 'real' M100s ;-)
>>
>> m
>>
>
> I'll PM you offline with my address :-)
>
> -- John.
>
>
>


DMPS.BA
Description: Binary data

Re: [M100] Dungeon Master's Personnel Service

[Howard Pepper]

Wow! imagine me waking up to this email thread in my inbox today! When I 
first moved down to Florida (Dec. 1996), I found the paper copy of this 
Dragon magazine, and was intrigued by the Dungeon Master's Personnel 
Service program, so I pain stakingly typed it in and debugged my 
mistakes (always mistakes!), until I got it to run. This is so cool, 
because I haven't thought of this program in a long time.  This was on 
my trusty TRS-80 Model IV.  I still have it on a virtual disk (for XTRS) 
somewhere around here.  Thanks for the good memories!


Howard

On 1/8/20 2:17 PM, John R. Hogerhuis wrote:



On Tue, Jan 7, 2020 at 11:29 PM Mike Stein > wrote:


Truly BITCHIIN !!!
Great job, John! Might as well get rid of all my 'real' M100s ;-)
m


I'll PM you offline with my address :-)

-- John.

Re: [M100] Dungeon Master's Personnel Service

[Mike Stein]

All I remember about last night is a bottle of wine and looking for porn; I can 
see how I might have landed on 'Dungeon Master's Personnel Service"...
  - Original Message - 
  From: James Zeun 
  To: m...@bitchin100.com 
  Sent: Wednesday, January 08, 2020 2:40 PM
  Subject: Re: [M100] Dungeon Master's Personnel Service


  I bet he's wishing he'd not said anything ;-) hehe


  On Wed, 8 Jan 2020, 7:17 pm John R. Hogerhuis,  wrote:





On Tue, Jan 7, 2020 at 11:29 PM Mike Stein  wrote:

  Truly BITCHIIN !!!

  Great job, John! Might as well get rid of all my 'real' M100s ;-)

  m

I'll PM you offline with my address :-)


-- John. 

Re: [M100] Dungeon Master's Personnel Service

[James Zeun]

I bet he's wishing he'd not said anything ;-) hehe

On Wed, 8 Jan 2020, 7:17 pm John R. Hogerhuis,  wrote:

>
>
> On Tue, Jan 7, 2020 at 11:29 PM Mike Stein  wrote:
>
>> Truly BITCHIIN !!!
>>
>> Great job, John! Might as well get rid of all my 'real' M100s ;-)
>>
>> m
>>
>
> I'll PM you offline with my address :-)
>
> -- John.
>

Re: [M100] Dungeon Master's Personnel Service

[John R. Hogerhuis]

On Tue, Jan 7, 2020 at 11:29 PM Mike Stein  wrote:

> Truly BITCHIIN !!!
>
> Great job, John! Might as well get rid of all my 'real' M100s ;-)
>
> m
>

I'll PM you offline with my address :-)

-- John.

Re: [M100] Dungeon Master's Personnel Service

[James Zeun]

But the best time to make a decision you'lll regret is when your sloshed!!
Everyone knows that!

I've only got the one M100 and I wouldn't part with it. I regularly use it
for writing stories and articles for me tech blog.


On Wed, 8 Jan 2020, 7:48 am MikeS,  wrote:

> We'll see once the effects of the wine wear off...
>
>
> - Original Message -
> *From:* James Zeun 
> *To:* m...@bitchin100.com
> *Sent:* Wednesday, January 08, 2020 2:45 AM
> *Subject:* Re: [M100] Dungeon Master's Personnel Service
>
> I'll have one of its going spare ;-)) hehe
>
> On Wed, 8 Jan 2020, 7:29 am Mike Stein,  wrote:
>
>> Truly BITCHIIN !!!
>>
>> Great job, John! Might as well get rid of all my 'real' M100s ;-)
>>
>> m
>>
>> - Original Message -
>> *From:* John R. Hogerhuis 
>> *To:* m...@bitchin100.com
>> *Sent:* Wednesday, January 08, 2020 1:56 AM
>> *Subject:* Re: [M100] Dungeon Master's Personnel Service
>>
>> For those who don't know about CloudT, Dan's program loads easily:
>>
>> For those who want to try the above program in CloudT:
>>
>> a) Select (only) the program text in the email
>> b) Ctrl-C or Right-Click- copy
>> c) Open CloudT : https://bitchin100.com/CloudT/
>> d) Scroll to the bottom of the screen
>> e) Paste the text into the rectangular text control (Ctrl-V) (or
>> Right-Click Paste)
>> f) Click on "Add Plain Text" Button
>> g) A window will pop up asking you for a name, type HOARD.DO
>> h) Click on the Model 100 screen
>> i) Select BASIC, hit Enter
>> j) Type CLOAD and hit Enter
>> k) type RUN and hit Enter
>>
>> CloudT is available on most any device if you want to mess around with
>> Model 100 BASIC programming.
>>
>> -- John.
>>
>>

Re: [M100] Dungeon Master's Personnel Service

[MikeS]

We'll see once the effects of the wine wear off...

  - Original Message - 
  From: James Zeun 
  To: m...@bitchin100.com 
  Sent: Wednesday, January 08, 2020 2:45 AM
  Subject: Re: [M100] Dungeon Master's Personnel Service


  I'll have one of its going spare ;-)) hehe


  On Wed, 8 Jan 2020, 7:29 am Mike Stein,  wrote:

Truly BITCHIIN !!!

Great job, John! Might as well get rid of all my 'real' M100s ;-)

m
  - Original Message - 
  From: John R. Hogerhuis 
  To: m...@bitchin100.com 
  Sent: Wednesday, January 08, 2020 1:56 AM
  Subject: Re: [M100] Dungeon Master's Personnel Service


  For those who don't know about CloudT, Dan's program loads easily:

  For those who want to try the above program in CloudT:


  a) Select (only) the program text in the email
  b) Ctrl-C or Right-Click- copy
  c) Open CloudT : https://bitchin100.com/CloudT/
  d) Scroll to the bottom of the screen
  e) Paste the text into the rectangular text control (Ctrl-V) (or 
Right-Click Paste)
  f) Click on "Add Plain Text" Button
  g) A window will pop up asking you for a name, type HOARD.DO
  h) Click on the Model 100 screen
  i) Select BASIC, hit Enter
  j) Type CLOAD and hit Enter
  k) type RUN and hit Enter

  CloudT is available on most any device if you want to mess around with 
Model 100 BASIC programming.


  -- John.

Re: [M100] Dungeon Master's Personnel Service

[James Zeun]

I'll have one of its going spare ;-)) hehe

On Wed, 8 Jan 2020, 7:29 am Mike Stein,  wrote:

> Truly BITCHIIN !!!
>
> Great job, John! Might as well get rid of all my 'real' M100s ;-)
>
> m
>
> - Original Message -
> *From:* John R. Hogerhuis 
> *To:* m...@bitchin100.com
> *Sent:* Wednesday, January 08, 2020 1:56 AM
> *Subject:* Re: [M100] Dungeon Master's Personnel Service
>
> For those who don't know about CloudT, Dan's program loads easily:
>
> For those who want to try the above program in CloudT:
>
> a) Select (only) the program text in the email
> b) Ctrl-C or Right-Click- copy
> c) Open CloudT : https://bitchin100.com/CloudT/
> d) Scroll to the bottom of the screen
> e) Paste the text into the rectangular text control (Ctrl-V) (or
> Right-Click Paste)
> f) Click on "Add Plain Text" Button
> g) A window will pop up asking you for a name, type HOARD.DO
> h) Click on the Model 100 screen
> i) Select BASIC, hit Enter
> j) Type CLOAD and hit Enter
> k) type RUN and hit Enter
>
> CloudT is available on most any device if you want to mess around with
> Model 100 BASIC programming.
>
> -- John.
>
>

Re: [M100] Dungeon Master's Personnel Service

[Mike Stein]

Truly BITCHIIN !!!

Great job, John! Might as well get rid of all my 'real' M100s ;-)

m
  - Original Message - 
  From: John R. Hogerhuis 
  To: m...@bitchin100.com 
  Sent: Wednesday, January 08, 2020 1:56 AM
  Subject: Re: [M100] Dungeon Master's Personnel Service


  For those who don't know about CloudT, Dan's program loads easily:

  For those who want to try the above program in CloudT:


  a) Select (only) the program text in the email
  b) Ctrl-C or Right-Click- copy
  c) Open CloudT : https://bitchin100.com/CloudT/
  d) Scroll to the bottom of the screen
  e) Paste the text into the rectangular text control (Ctrl-V) (or Right-Click 
Paste)
  f) Click on "Add Plain Text" Button
  g) A window will pop up asking you for a name, type HOARD.DO
  h) Click on the Model 100 screen
  i) Select BASIC, hit Enter
  j) Type CLOAD and hit Enter
  k) type RUN and hit Enter

  CloudT is available on most any device if you want to mess around with Model 
100 BASIC programming.


  -- John.

Re: [M100] Dungeon Master's Personnel Service

[John R. Hogerhuis]

For those who don't know about CloudT, Dan's program loads easily:

For those who want to try the above program in CloudT:

a) Select (only) the program text in the email
b) Ctrl-C or Right-Click- copy
c) Open CloudT : https://bitchin100.com/CloudT/

d) Scroll to the bottom of the screen
e) Paste the text into the rectangular text control (Ctrl-V) (or
Right-Click Paste)
f) Click on "Add Plain Text" Button
g) A window will pop up asking you for a name, type HOARD.DO
h) Click on the Model 100 screen
i) Select BASIC, hit Enter
j) Type CLOAD and hit Enter
k) type RUN and hit Enter

CloudT is available on most any device if you want to mess around with
Model 100 BASIC programming.

-- John.

Re: [M100] Dungeon Master's Personnel Service

[Dan Higdon]

Here's my simple treasure generator.
Once it's loaded, just type the letter of the treasure code.
You can type letters multiple times, and you can press a digit first, like
5g will generate 5 'g' type treasures and add them to the hoard.
ESC exits, SPACE clears the hoard. I have plans for more sophistication,
but this is what I have now.
I also tried putting the data into a separate file and reading it, but the
DATA statements were about the same speed (and format), and cluttering up
the file view wasn't worth it.
The first version used RESTORE/READ for each treasure type, but that was
too slow. Now it loads arrays at boot time, which puts all the slowness up
front.
You'll see my "busy spinner" if you use the digit+letter feature. :)

1 REM Treasure Table
2 CLS:GOSUB 2000:CLS:GOTO 1000
10 PRINT@7,"AD 2e Treasure Generator":RETURN
100 REM ROLL
110 J=ASC(TT$)-64:REM Key to treasure type index
120 FOR I=1 TO NT
130 R=0:N=TC%(J,I):IFN=0ORINT(1+RND(1)*20)>NTHEN 190
140 IFI0 THEN PRINT STR$(K);"x";MI$(J);
460 NEXT
470 RETURN
1000 REM MAIN
1010 GOSUB 10:PRINT:GOSUB400
1020 PRINT@40,"Type: ";
1025 NN=1
1030 R=RND(1):TT$=INKEY$:IFTT$=""THEN1030
1031 IFTT$=CHR$(27)THEN 300
1032 IFTT$=" "THEN 200
1033 REM ADD OPTIONS
1034 IFTT$>="0"ANDTT$<="9"THEN NN=ASC(TT$)-ASC("0"):GOTO 1030
1039 IFTT$>="a"ANDTT$<="z"THEN TT$=CHR$(ASC(TT$)-32):REM UCASE
1040 IFTT$<"A"ORTT$>"Z"THEN BEEP:GOTO1030
1045 IFNN>1THENTC$=TC$+STR$(NN)+"x"
1050 TC$=TC$+TT$:PRINT TC$;
1060 PRINT"-";:FOR M=1 TO NN
1070 GOSUB 100:PRINTBS$;MID$("/-\|",1+(MMOD4),1);
1080 NEXT:PRINTBS$
1090 GOSUB 400
1100 GOTO 1000
2000 GOSUB 10:PRINT"Loading: ";
2010 DEFINT I-N:I=0:J=0:K=0:TT$="":BS$=CHR$(127):NT=7:NR=26
2020 DIM TY$(NT),TV(NT),TM%(NR),MI$(NR)
2030 DIM TC%(NR,NT),TN%(NR,NT),TD%(NR,NT),TS%(NR,NT-1)
2040 RESTORE 3000
2050 FOR I=1 TO NT:READ TY$(I):NEXT
2060 FOR J=1 TO NR
2070 READ T$:PRINTT$;:REM PROGRESS
2080 FOR I=1 TO NT
2090 READ TC%(J,I),TD$,TS$
2100 K=INSTR(TD$,"d")
2110 IFK=0THEN TN%(J,I)=VAL(TD$):TD%(J,I)=0:GOTO 2130
2120 TN%(J,I)=VAL(LEFT$(TD$,K-1)):TD%(J,I)=VAL(MID$(TD$,K+1))
2130 IF I=NT THEN MI$(J)=TS$ ELSE TS%(J,I)=VAL(TS$)
2140 NEXT:NEXT:RETURN
3000 REM Data
3005 DATA CP,SP,GP,PP,Gems,Art,Magic
3010 DATA
A,5,1d3,1000,6,1d10,200,8,1d6,1000,7,3d6,100,12,1d4,10,10,2d6,1,6,3,Any
3020 DATA
B,10,1d6,1000,5,1d3,1000,5,1d10,200,5,1d10,100,6,1d8,1,4,1d4,1,2,1,Armor+Weapon
3030 DATA C,4,1d10,1000,6,1d6,10002,1d6,100,5,1d6,1,4,1d3,1,2,2,Any
3040 DATA
D,2,1d6,1000,3,1d10,1000,10,1d3,1000,3,1d6,100,6,1d10,1,5,1d6,1,3,2,Any
3050 DATA
E,1,1d6,1000,5,1d10,1000,5,1d4,1000,5,3d6,100,3,1d12,1,2,1d6,1,5,3,Any
3060 DATA
F2,3d6,1000,8,1d6,1000,3,1d4,1000,4,2d10,1,2,1d8,1,6,5,Any-Weapon
3070 DATA G,,,10,1d10,2000,10,1d10,1000,6,3d6,1,5,1d6,1,7,5,Any
3080 DATA
H,5,3d6,1000,8,1d10,2000,11,1d10,2000,8,1d8,1000,10,1d10,3,10,1d10,2,3,6,Any
3090 DATA I,,6,1d6,100,11,2d6,1,10,2d4,1,3,1,Any
3100 DATA J,20,3d8,1,,
3110 DATA K20,3d6,1,,,
3120 DATA L,,20,2d6,1,
3130 DATA M,,,20,2d4,1
3140 DATA N,,20,1d6,1,
3150 DATA O,20,1d4,10,20,1d3,10,,,
3160 DATA P20,1d6,1020,1d20,1,
3170 DATA Q,20,1d4,1,,
3180 DATA R,,,20,2d10,1,20,1d6,10,20,2d4,1,20,1d3,1,,,
3190 DATA S,,,20,1d8,Potion
3200 DATA T,,,20,1d4,Scroll
3210 DATA U,18,2d8,1,16,1d6,1,14,1,Any
3220 DATA V,,,20,2,Any
3230 DATA W,,,20,1d6,5,20,1d8,1,12,2d8,1,10,1d8,1,12,2,Any
3240 DATA X,,,20,2,Potion
3250 DATA Y,,,20,2d6,100
3260 DATA
Z,20,1d3,100,20,1d4,100,20,1d6,100,20,1d4,100,11,1d6,1,10,2d6,1,10,3,Any



On Tue, Jan 7, 2020 at 9:13 PM Bruce James  wrote:

> I corrected the errors using a online cloud basic compiler
>
> http://www.tutorialspoint.com/execute_basic_online.php?fbclid=IwAR0qpAiqI2Sxo2FkYdFh7QMf8BjENl8JTQA6Frk8DbEkg385XtbvdpTcxpA
> plan on loading to my m100 tomorrow to edit more there.
> Bruce
>
> On Tue, Jan 7, 2020 at 10:00 PM Russell Flowers 
> wrote:
>
>> Is this from the issue with the big breasted lady reading a crystal globe
>> on the front? I think I may even have that issue around here Kudos for
>> sharing this!
>>
>> On Tue, Jan 7, 2020 at 8:13 PM Jason Paul  wrote:
>>
>>> There is an Errata a couple issues later I believe.
>>>
>>> On Tue, Jan 7, 2020, 9:11 PM Peter Vollan  wrote:
>>>
 Here is the code just as I copied it from The Dragon. If you run it
 you will find that there are few mistakes and typos, so this program
 could not have worked as is. I wonder how this is possible Did
 some poor slob have to type this from looking at a printout? Anyway
 before you run it you will need to remove this first part you are
 reading. Later I may post the fixed version I made with VT.

 1000 REM*
 1010 REM**
 1020 REM*DUNGEON MASTER'S PERSONNEL SERVICE*
 1030 REM*( 40 

Re: [M100] Dungeon Master's Personnel Service

[Bruce James]

I corrected the errors using a online cloud basic compiler
http://www.tutorialspoint.com/execute_basic_online.php?fbclid=IwAR0qpAiqI2Sxo2FkYdFh7QMf8BjENl8JTQA6Frk8DbEkg385XtbvdpTcxpA
plan on loading to my m100 tomorrow to edit more there.
Bruce

On Tue, Jan 7, 2020 at 10:00 PM Russell Flowers  wrote:

> Is this from the issue with the big breasted lady reading a crystal globe
> on the front? I think I may even have that issue around here Kudos for
> sharing this!
>
> On Tue, Jan 7, 2020 at 8:13 PM Jason Paul  wrote:
>
>> There is an Errata a couple issues later I believe.
>>
>> On Tue, Jan 7, 2020, 9:11 PM Peter Vollan  wrote:
>>
>>> Here is the code just as I copied it from The Dragon. If you run it
>>> you will find that there are few mistakes and typos, so this program
>>> could not have worked as is. I wonder how this is possible Did
>>> some poor slob have to type this from looking at a printout? Anyway
>>> before you run it you will need to remove this first part you are
>>> reading. Later I may post the fixed version I made with VT.
>>>
>>> 1000 REM*
>>> 1010 REM**
>>> 1020 REM*DUNGEON MASTER'S PERSONNEL SERVICE*
>>> 1030 REM*( 40 COLUMN BY 16 LINE CRT DISPLAY ONLY )*
>>> 1040 REM*SAVE AS "D" - VERSION 1.2*
>>> 1050 REM**
>>> 1060 REM***
>>> 1070 REM GENERATES PLAYER CHARACTERISTIC FOR FANTASY*
>>> 1080 REM *ROLE - PLAYING GAME "DUNGEONS & DRAGONS" Tm*
>>> 1090 REM ***
>>> 1100 REM *WRITTEN BY: JOSEPH C. SPANN - MONROE, LA.*
>>> 1110 REM *"DUNGEON  MASTER'S  PERSONNEL  SERVICE"-ver  1.2(C)LAIRTECH*
>>> 1120 REM *"DUNGEONS & DRAGONS" Tm BY TSR HOBBIES INC.*
>>> 1130 REM***
>>> 1140 DIM  PS(7)
>>> 1150 RANDOMIZE
>>> 1160 PRINT  CHR$(12)
>>> 1170 PRINT
>>> 1180 PRINT "DM'S PERSONNEL SERVICE"
>>> 1190 PRINT"-"
>>> 1200 PRINT
>>> 1210  PRINT"PRODUCES CHAR. ABILITY SCORES"
>>> 1220 PRINT
>>> 1230 PRINT"FOR"
>>> 1240 PRINT
>>> 1250 PRINT"DUNGEONS  &  DRAGONS  Tm
>>> 1260 PRINT
>>> 1280  PRINT"IF YOU ARE READY FOR THE 1ST"
>>> 1290  PRINT"CHARACTER,  ENTER  A  ONE  (1)."
>>> 1300 INPUT C
>>> 1310 ON  C GOTO  1320
>>> 1320 PRINT  CHR$(12)
>>> 1330 REM***
>>> 1340 REM  BEGIN  3D6  ROLLS  FOR  ABILITIES
>>> 1350 REM***
>>> 1360 L=L+1
>>> 1370 Z=INT((RND(1)*6)+1)
>>> 1380 Z2=INT((RND(1)*6)+1)
>>> 1390 Z3=INT((RND(1)*6)+1)
>>> 1400 ZZ=Z+Z2+Z3
>>> 1410  IF L=1 THEN 1530
>>> 1420  IF L=2 THEN 1680
>>> 1430 IF L=3 THEN 1760
>>> 1440 IF L=4 THEN 2120
>>> 1450 IF L=5 THEN 2340
>>> 1460 IF L=6 THEN 2510
>>> 1500 REM***
>>> 1510 REMCALCULATIONS  FOR  STRENGTH
>>> 1520 REM***
>>> 1530 PRINT"CHARACTER'S  STRENGTH  IS  ";ZZ
>>> 1540 ST=ZZ
>>> 1550 IF  ST=3  THEN  SF=-3
>>> 1560 IF ST > 3 AND ST < 6 THEN SF=-2
>>> 1570 IF ST > 5 AND ST < 9 THEN SF=-1
>>> 1580 IF ST > 8 AND ST < 13 THEN SF=0
>>> 1590 IF ST > 12 AND ST < 16 THEN SF=1
>>> 1600 IF ST > 15 AND ST < 18 THEN SF=2
>>> 1610 IF ST=18 THEN SF=3
>>> 1620 IF SF=0 THEN 1360
>>> 1630 PRINT"*ADDî;SF;"TO  ROLLS  TO  HIT,DAMAGE,OPEN  DOORS"
>>> 1640 GOTO  1360
>>> 1650 REM***
>>> 1660 REM CALCULATIONS FOR CONSTITUTION
>>> 1670 REM***
>>> 1680 CO=ZZ
>>> 1690 A=ST/CO
>>> 1700 IF A < .67 OR A > 1.5 THEN 1370
>>> 1710 PRINT"CONSTITUTION  SCORE  IS";ZZ
>>> 1720 GOTO  1360
>>> 1730 REM***
>>> 1740 REM CALCULATIONS FOR INTELLIGENCE
>>> 1750 REM***
>>> 1760 PRINT"CHARACTER'S  INTELLIGENCE";ZZ
>>> 1770 IN=ZZ
>>> 1780 IF IN < 9 THEN IZ%="*INTELLIGENCE TOO LOW FOR MAGIC USER."
>>> 1790 IF  IN=9  THEN  IZ$="*35%  TO  KNOW  SPELL-MIN/MAX  PER  LVL:4/6"
>>> 1800 IF IN > 9 AND IN < 13 THEN IZ$="*45% TO KNOW SPELL-MIN/MAX PER
>>> LVL:5/7"
>>> 1810 IF IN > 12 AND IN < 15 THEN IZ$="*55% TO KNOW SPELL-MIN/MAX PER
>>> LVL:6/9"
>>> 1820 IF IN > 14 AND IN < 17 THEN IZ$="*65% TO KNOW SPELL-MIN/MAX PER
>>> LVL:7/11"
>>> 1830 IF  IN=17  THEN  IZ$="*75%  TO  KNOW  SPELL-MIN/MAX  PER  LVL:8/14"
>>> 1840 IF  IN=18  THEN  IZ$="*85%  TO  KNOW  SPELL  -  MIN/MAX  PER
>>> LVL:9/18"
>>> 1850 IF IN=3 THEN 1870
>>> 1860 GOTO  1880
>>> 1870 I$="* DIFFICULT SPEECH-ILLITERATE"
>>> 1880 IF IN>3 AND IN<6 THEN 1900
>>> 1890  GOTO  1910
>>> 1900 I$="* EASY SPEECH BUT ILLITERATE"
>>> 1910 IF IN>5 AND IN<9 THEN 1930
>>> 1920 GOTO  1940
>>> 1930 I$="* BARELY LITERATE."
>>> 1940 IF IN>8 AND IN<13 THEN 1960
>>> 1950 GOTO  1970
>>> 1960 I$="*  LITERATE  IN  NATIVE  TONGUE."
>>> 1970 IF IN>12 AND IN<16 THEN 1990
>>> 1980 GOTO  2000
>>> 1990 I$="*  LITERATE  AND  FLUENT  2  LANGUAGES"
>>> 2000 IF IN>15 AND IN<18 THEN 2020
>>> 2010 GOTO  2030
>>> 2020 I$="* LITERATE AND FLUENT 3 LANGUAGES"
>>> 2030 IF IN=18 THEN 2050
>>> 2040 GOTO  2060
>>> 2050 I$="* LITERATE AND 

Re: [M100] Dungeon Master's Personnel Service

[Russell Flowers]

Is this from the issue with the big breasted lady reading a crystal globe
on the front? I think I may even have that issue around here Kudos for
sharing this!

On Tue, Jan 7, 2020 at 8:13 PM Jason Paul  wrote:

> There is an Errata a couple issues later I believe.
>
> On Tue, Jan 7, 2020, 9:11 PM Peter Vollan  wrote:
>
>> Here is the code just as I copied it from The Dragon. If you run it
>> you will find that there are few mistakes and typos, so this program
>> could not have worked as is. I wonder how this is possible Did
>> some poor slob have to type this from looking at a printout? Anyway
>> before you run it you will need to remove this first part you are
>> reading. Later I may post the fixed version I made with VT.
>>
>> 1000 REM*
>> 1010 REM**
>> 1020 REM*DUNGEON MASTER'S PERSONNEL SERVICE*
>> 1030 REM*( 40 COLUMN BY 16 LINE CRT DISPLAY ONLY )*
>> 1040 REM*SAVE AS "D" - VERSION 1.2*
>> 1050 REM**
>> 1060 REM***
>> 1070 REM GENERATES PLAYER CHARACTERISTIC FOR FANTASY*
>> 1080 REM *ROLE - PLAYING GAME "DUNGEONS & DRAGONS" Tm*
>> 1090 REM ***
>> 1100 REM *WRITTEN BY: JOSEPH C. SPANN - MONROE, LA.*
>> 1110 REM *"DUNGEON  MASTER'S  PERSONNEL  SERVICE"-ver  1.2(C)LAIRTECH*
>> 1120 REM *"DUNGEONS & DRAGONS" Tm BY TSR HOBBIES INC.*
>> 1130 REM***
>> 1140 DIM  PS(7)
>> 1150 RANDOMIZE
>> 1160 PRINT  CHR$(12)
>> 1170 PRINT
>> 1180 PRINT "DM'S PERSONNEL SERVICE"
>> 1190 PRINT"-"
>> 1200 PRINT
>> 1210  PRINT"PRODUCES CHAR. ABILITY SCORES"
>> 1220 PRINT
>> 1230 PRINT"FOR"
>> 1240 PRINT
>> 1250 PRINT"DUNGEONS  &  DRAGONS  Tm
>> 1260 PRINT
>> 1280  PRINT"IF YOU ARE READY FOR THE 1ST"
>> 1290  PRINT"CHARACTER,  ENTER  A  ONE  (1)."
>> 1300 INPUT C
>> 1310 ON  C GOTO  1320
>> 1320 PRINT  CHR$(12)
>> 1330 REM***
>> 1340 REM  BEGIN  3D6  ROLLS  FOR  ABILITIES
>> 1350 REM***
>> 1360 L=L+1
>> 1370 Z=INT((RND(1)*6)+1)
>> 1380 Z2=INT((RND(1)*6)+1)
>> 1390 Z3=INT((RND(1)*6)+1)
>> 1400 ZZ=Z+Z2+Z3
>> 1410  IF L=1 THEN 1530
>> 1420  IF L=2 THEN 1680
>> 1430 IF L=3 THEN 1760
>> 1440 IF L=4 THEN 2120
>> 1450 IF L=5 THEN 2340
>> 1460 IF L=6 THEN 2510
>> 1500 REM***
>> 1510 REMCALCULATIONS  FOR  STRENGTH
>> 1520 REM***
>> 1530 PRINT"CHARACTER'S  STRENGTH  IS  ";ZZ
>> 1540 ST=ZZ
>> 1550 IF  ST=3  THEN  SF=-3
>> 1560 IF ST > 3 AND ST < 6 THEN SF=-2
>> 1570 IF ST > 5 AND ST < 9 THEN SF=-1
>> 1580 IF ST > 8 AND ST < 13 THEN SF=0
>> 1590 IF ST > 12 AND ST < 16 THEN SF=1
>> 1600 IF ST > 15 AND ST < 18 THEN SF=2
>> 1610 IF ST=18 THEN SF=3
>> 1620 IF SF=0 THEN 1360
>> 1630 PRINT"*ADDî;SF;"TO  ROLLS  TO  HIT,DAMAGE,OPEN  DOORS"
>> 1640 GOTO  1360
>> 1650 REM***
>> 1660 REM CALCULATIONS FOR CONSTITUTION
>> 1670 REM***
>> 1680 CO=ZZ
>> 1690 A=ST/CO
>> 1700 IF A < .67 OR A > 1.5 THEN 1370
>> 1710 PRINT"CONSTITUTION  SCORE  IS";ZZ
>> 1720 GOTO  1360
>> 1730 REM***
>> 1740 REM CALCULATIONS FOR INTELLIGENCE
>> 1750 REM***
>> 1760 PRINT"CHARACTER'S  INTELLIGENCE";ZZ
>> 1770 IN=ZZ
>> 1780 IF IN < 9 THEN IZ%="*INTELLIGENCE TOO LOW FOR MAGIC USER."
>> 1790 IF  IN=9  THEN  IZ$="*35%  TO  KNOW  SPELL-MIN/MAX  PER  LVL:4/6"
>> 1800 IF IN > 9 AND IN < 13 THEN IZ$="*45% TO KNOW SPELL-MIN/MAX PER
>> LVL:5/7"
>> 1810 IF IN > 12 AND IN < 15 THEN IZ$="*55% TO KNOW SPELL-MIN/MAX PER
>> LVL:6/9"
>> 1820 IF IN > 14 AND IN < 17 THEN IZ$="*65% TO KNOW SPELL-MIN/MAX PER
>> LVL:7/11"
>> 1830 IF  IN=17  THEN  IZ$="*75%  TO  KNOW  SPELL-MIN/MAX  PER  LVL:8/14"
>> 1840 IF  IN=18  THEN  IZ$="*85%  TO  KNOW  SPELL  -  MIN/MAX  PER
>> LVL:9/18"
>> 1850 IF IN=3 THEN 1870
>> 1860 GOTO  1880
>> 1870 I$="* DIFFICULT SPEECH-ILLITERATE"
>> 1880 IF IN>3 AND IN<6 THEN 1900
>> 1890  GOTO  1910
>> 1900 I$="* EASY SPEECH BUT ILLITERATE"
>> 1910 IF IN>5 AND IN<9 THEN 1930
>> 1920 GOTO  1940
>> 1930 I$="* BARELY LITERATE."
>> 1940 IF IN>8 AND IN<13 THEN 1960
>> 1950 GOTO  1970
>> 1960 I$="*  LITERATE  IN  NATIVE  TONGUE."
>> 1970 IF IN>12 AND IN<16 THEN 1990
>> 1980 GOTO  2000
>> 1990 I$="*  LITERATE  AND  FLUENT  2  LANGUAGES"
>> 2000 IF IN>15 AND IN<18 THEN 2020
>> 2010 GOTO  2030
>> 2020 I$="* LITERATE AND FLUENT 3 LANGUAGES"
>> 2030 IF IN=18 THEN 2050
>> 2040 GOTO  2060
>> 2050 I$="* LITERATE AND FLUENT 4 LANGUAGES"
>> 2060 PRINT I$
>> 2070 PRINT IZ$
>> 2080 GOTO  1360
>> 2090 REM***
>> 2100  REM CALCULATIONS FOR DEXTERITY
>> 2110 REM***
>> 2120 PRINT"CHARACTER'S  DEXTERITY  IS  ";ZZ
>> 2130 DX=ZZ
>> 2140 IF DX=3 THEN DF=-3
>> 2150IF DX > 3 AND DX < 6 THEN DF=-2
>> 2160IF DX > 5 AND DX < 9 THEN DF=-1
>> 2170IF DX > 8 AND DX < 13 THEN DF=0
>> 2180IF DX > 12 AND DX < 16 

Re: [M100] Dungeon Master's Personnel Service

[Jason Paul]

There is an Errata a couple issues later I believe.

On Tue, Jan 7, 2020, 9:11 PM Peter Vollan  wrote:

> Here is the code just as I copied it from The Dragon. If you run it
> you will find that there are few mistakes and typos, so this program
> could not have worked as is. I wonder how this is possible Did
> some poor slob have to type this from looking at a printout? Anyway
> before you run it you will need to remove this first part you are
> reading. Later I may post the fixed version I made with VT.
>
> 1000 REM*
> 1010 REM**
> 1020 REM*DUNGEON MASTER'S PERSONNEL SERVICE*
> 1030 REM*( 40 COLUMN BY 16 LINE CRT DISPLAY ONLY )*
> 1040 REM*SAVE AS "D" - VERSION 1.2*
> 1050 REM**
> 1060 REM***
> 1070 REM GENERATES PLAYER CHARACTERISTIC FOR FANTASY*
> 1080 REM *ROLE - PLAYING GAME "DUNGEONS & DRAGONS" Tm*
> 1090 REM ***
> 1100 REM *WRITTEN BY: JOSEPH C. SPANN - MONROE, LA.*
> 1110 REM *"DUNGEON  MASTER'S  PERSONNEL  SERVICE"-ver  1.2(C)LAIRTECH*
> 1120 REM *"DUNGEONS & DRAGONS" Tm BY TSR HOBBIES INC.*
> 1130 REM***
> 1140 DIM  PS(7)
> 1150 RANDOMIZE
> 1160 PRINT  CHR$(12)
> 1170 PRINT
> 1180 PRINT "DM'S PERSONNEL SERVICE"
> 1190 PRINT"-"
> 1200 PRINT
> 1210  PRINT"PRODUCES CHAR. ABILITY SCORES"
> 1220 PRINT
> 1230 PRINT"FOR"
> 1240 PRINT
> 1250 PRINT"DUNGEONS  &  DRAGONS  Tm
> 1260 PRINT
> 1280  PRINT"IF YOU ARE READY FOR THE 1ST"
> 1290  PRINT"CHARACTER,  ENTER  A  ONE  (1)."
> 1300 INPUT C
> 1310 ON  C GOTO  1320
> 1320 PRINT  CHR$(12)
> 1330 REM***
> 1340 REM  BEGIN  3D6  ROLLS  FOR  ABILITIES
> 1350 REM***
> 1360 L=L+1
> 1370 Z=INT((RND(1)*6)+1)
> 1380 Z2=INT((RND(1)*6)+1)
> 1390 Z3=INT((RND(1)*6)+1)
> 1400 ZZ=Z+Z2+Z3
> 1410  IF L=1 THEN 1530
> 1420  IF L=2 THEN 1680
> 1430 IF L=3 THEN 1760
> 1440 IF L=4 THEN 2120
> 1450 IF L=5 THEN 2340
> 1460 IF L=6 THEN 2510
> 1500 REM***
> 1510 REMCALCULATIONS  FOR  STRENGTH
> 1520 REM***
> 1530 PRINT"CHARACTER'S  STRENGTH  IS  ";ZZ
> 1540 ST=ZZ
> 1550 IF  ST=3  THEN  SF=-3
> 1560 IF ST > 3 AND ST < 6 THEN SF=-2
> 1570 IF ST > 5 AND ST < 9 THEN SF=-1
> 1580 IF ST > 8 AND ST < 13 THEN SF=0
> 1590 IF ST > 12 AND ST < 16 THEN SF=1
> 1600 IF ST > 15 AND ST < 18 THEN SF=2
> 1610 IF ST=18 THEN SF=3
> 1620 IF SF=0 THEN 1360
> 1630 PRINT"*ADDî;SF;"TO  ROLLS  TO  HIT,DAMAGE,OPEN  DOORS"
> 1640 GOTO  1360
> 1650 REM***
> 1660 REM CALCULATIONS FOR CONSTITUTION
> 1670 REM***
> 1680 CO=ZZ
> 1690 A=ST/CO
> 1700 IF A < .67 OR A > 1.5 THEN 1370
> 1710 PRINT"CONSTITUTION  SCORE  IS";ZZ
> 1720 GOTO  1360
> 1730 REM***
> 1740 REM CALCULATIONS FOR INTELLIGENCE
> 1750 REM***
> 1760 PRINT"CHARACTER'S  INTELLIGENCE";ZZ
> 1770 IN=ZZ
> 1780 IF IN < 9 THEN IZ%="*INTELLIGENCE TOO LOW FOR MAGIC USER."
> 1790 IF  IN=9  THEN  IZ$="*35%  TO  KNOW  SPELL-MIN/MAX  PER  LVL:4/6"
> 1800 IF IN > 9 AND IN < 13 THEN IZ$="*45% TO KNOW SPELL-MIN/MAX PER
> LVL:5/7"
> 1810 IF IN > 12 AND IN < 15 THEN IZ$="*55% TO KNOW SPELL-MIN/MAX PER
> LVL:6/9"
> 1820 IF IN > 14 AND IN < 17 THEN IZ$="*65% TO KNOW SPELL-MIN/MAX PER
> LVL:7/11"
> 1830 IF  IN=17  THEN  IZ$="*75%  TO  KNOW  SPELL-MIN/MAX  PER  LVL:8/14"
> 1840 IF  IN=18  THEN  IZ$="*85%  TO  KNOW  SPELL  -  MIN/MAX  PER
> LVL:9/18"
> 1850 IF IN=3 THEN 1870
> 1860 GOTO  1880
> 1870 I$="* DIFFICULT SPEECH-ILLITERATE"
> 1880 IF IN>3 AND IN<6 THEN 1900
> 1890  GOTO  1910
> 1900 I$="* EASY SPEECH BUT ILLITERATE"
> 1910 IF IN>5 AND IN<9 THEN 1930
> 1920 GOTO  1940
> 1930 I$="* BARELY LITERATE."
> 1940 IF IN>8 AND IN<13 THEN 1960
> 1950 GOTO  1970
> 1960 I$="*  LITERATE  IN  NATIVE  TONGUE."
> 1970 IF IN>12 AND IN<16 THEN 1990
> 1980 GOTO  2000
> 1990 I$="*  LITERATE  AND  FLUENT  2  LANGUAGES"
> 2000 IF IN>15 AND IN<18 THEN 2020
> 2010 GOTO  2030
> 2020 I$="* LITERATE AND FLUENT 3 LANGUAGES"
> 2030 IF IN=18 THEN 2050
> 2040 GOTO  2060
> 2050 I$="* LITERATE AND FLUENT 4 LANGUAGES"
> 2060 PRINT I$
> 2070 PRINT IZ$
> 2080 GOTO  1360
> 2090 REM***
> 2100  REM CALCULATIONS FOR DEXTERITY
> 2110 REM***
> 2120 PRINT"CHARACTER'S  DEXTERITY  IS  ";ZZ
> 2130 DX=ZZ
> 2140 IF DX=3 THEN DF=-3
> 2150IF DX > 3 AND DX < 6 THEN DF=-2
> 2160IF DX > 5 AND DX < 9 THEN DF=-1
> 2170IF DX > 8 AND DX < 13 THEN DF=0
> 2180IF DX > 12 AND DX < 16 THEN DF=1
> 2190IF DX > 15 AND DX < 18 THEN DF=2
> 2200IF Dx=18 THEN DF=3
> 2210IF DF=-3 THEN GOSUB 5320
> 2220IF DF=-2 THEN GOSUB 5340
> 2230IF DF=-1 THEN GOSUB 5360
> 2240IF DF=1 THEN GOSUB 5380
> 2250IF DF=2 THEN GOSUB 5400
> 2260IF DF=3 THEN GOSUB 5420
> 2270IF DF=0 THEN GOTO 1360
> 2280PRINT "*ADD";DF;"TO MISSILE FIRE ROLLS 'TO HIT'"
>