Beefy Boxes and Bandwidth Generously Provided by pair Networks
Just another Perl shrine
 
PerlMonks  

Clunky parsing problem, looking for simple solution

by clintp (Curate)
on Jun 16, 2002 at 01:42 UTC ( [id://174889]=perlquestion: print w/replies, xml ) Need Help??

Help for this page

Select Code to Download


  1. or download this
       LN  IF X GOTO LN.A
            GOTO LN.B
    ...
            GOTO LN.C
       LN.B Z
       LN.C REM
    
  2. or download this
    7130 IF B3<>0 THEN PRINT "FROM E TO S":W1=B4:X=B5:GOTO 6920
    9810 IF K$="Y" AND RND(1) <.5 THEN GOTO 9820 ELSE GOTO 9770
    ...
    4835 IF V$="K" THEN A$="+K+" ELSE IF V$="M" THEN A$="!M!" ELSE IF V$="
    +R" THEN A$="?R?"
    1850 IF K3=0 AND EX(Q1,Q2)=0 THEN GOTO 8500 ELSE GOSUB 6000
    1800 IF V$="K" THEN A$="+K+" ELSE IF V$="R" THEN A$="?R?" ELSE IF V$="
    +M" THEN A$="!M!":Z1=R1:Z2=R2
    
  3. or download this
    1800   IF V$="K" THEN GOTO 1800.2
    1800.1 GOTO 1800.4
    ...
    1800.b Z1=R1
    1800.c Z2=R2
    1800.d REM
    

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: perlquestion [id://174889]
Approved by Kanji
Front-paged by ajt
help
Chatterbox?
and the web crawler heard nothing...

How do I use this?Last hourOther CB clients
Other Users?
Others goofing around in the Monastery: (4)
As of 2024-03-29 14:28 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found