Loading ...
Sorry, an error occurred while loading the content.

ANN: Chipmunk Basic - new versions

Expand Messages
  • hotpaw2
    Chipmunk Basic 3.5.8, new 2002 releases are on the web site: <
    Message 1 of 23 , Jan 29, 2002
    • 0 Attachment
      Chipmunk Basic 3.5.8, new 2002 releases are on the web site:<br> <<a href=http://www.nicholson.com/rhn/basic target=new>http://www.nicholson.com/rhn/basic</a> > <br>Mac, MacOSX, wintel, and linux ports available. Bug reports welcome.<br><br>- rhn
    • gripperusa
      Using sunos.basic I have this: 3200 SUB EMenu() 3202 print ;AL$ : xem = len(AL$) 3204 print Choose From Menu 3206 print 1. Append
      Message 2 of 23 , Feb 23, 2002
      • 0 Attachment
        Using sunos.basic<br>I have this:<br> 3200 SUB
        EMenu()<br> 3202 print " ";AL$ : xem = len(AL$)<br> 3204
        print " Choose From Menu "<br> 3206 print " 1. Append
        Supject At Minimum (12)"<br> 3208 print " 2. Append
        Subject At # Location "<br> 3210 print " 3. Edit Subject
        (vi) "<br> 3212 print " 4. Accept As Is (c/r) "<br>
        3213 print " 5. Append End Of Subject "<br> 3214 print
        " 6. Quit/Return To Main Menu "<br> 3216 CEM$ =
        INKEY$ : IF CEM$ = "" THEN GOTO 3216<br> 3218 IF CEM$ =
        "1" THEN GOTO 3230<br> 3220 IF CEM$ = "2" THEN GOTO
        3242<br> 3222 IF CEM$ = "3" OR UCASE$(CEM$) = "E" THEN
        GOTO 3254<br> 3224 IF CEM$ = "4" OR CEM$ = CHR$(10)
        THEN GOTO 3296<br> 3225 if cem$ = "5" then AL$ = AL$ +
        " " : goto 3250<br> 3226 IF CEM$ = "6" OR
        UCASE$(CEM$) = "Q" THEN run 100<br> 3228 GOTO 3216<br> 3230 '
        Append Subject At Minimum (12) or after first space
        (chr$(32))<br> 3232 xem = len(AL$) - 12<br> 3234 for r = 0 to
        xem<br> 3236 xem$ = mid$(AL$,12+r,1)<br> 3238 if xem$ =
        chr$(32) then AL$ = left$(AL$,r+12) : goto 3250<br> 3240
        next r<br> 3242 AL$ = left$(AL$,12)<br> 3244 input "
        Enter Position To Begin Append ";r$ : r = val(r$) : if
        r = 0 then r = xem<br> 3246 AL$ = left$(AL$,r)<br>
        3250 input " Append Subject (and/or) <c/r> To
        Continue ";cq$<br> 3252 AL$ = AL$ + cq$ : goto 3296<br>
        3254 open "etc.dat" for output as #1 : print #1,AL$ :
        close #1 : sys("vi etc.dat")<br> 3256 open "etc.dat"
        for input as #1 : input #1,AL$ : close #1 : goto
        3296<br> 3258 <br> 3296 END SUB<br> 3297 '<br> 3298 '<br>
        3299 '<br><br>I call it this way:<br> 572 call EMenu()
        : ' 021802 print " ";AL$ : input " Append Subject
        (and/or) <c/r> To Continue ";cq$<br><br>I am getting
        a error, something like:<br>"Extra Information on
        line 572"<br><br>am I running out of stack space or am
        I calling<br>this the wrong way?<br><br>Thanks -
        Rick
      • hotpaw2
        Chipmunk Basic 3.5.8b7, a new Sep-2002 release, is on the Chipmunk Basic web site: http://www.nicholson.com/rhn/basic MacOS X console and command-line, and
        Message 3 of 23 , Sep 15, 2002
        • 0 Attachment
          Chipmunk Basic 3.5.8b7, a new Sep-2002 release, is
          on the Chipmunk Basic web site:

          http://www.nicholson.com/rhn/basic

          MacOS X console and command-line, and MacOS Classic versions.
          Fixed several bugs and added matrix invert.

          - rhn
        Your message has been successfully submitted and would be delivered to recipients shortly.