Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl-Sensitive Sunglasses

Clunky parsing problem, looking for simple solution

by clintp (Curate)
on Jun 16, 2002 at 01:42 UTC ( #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?

What's my password?
Create A New User
Node Status?
node history
Node Type: perlquestion [id://174889]
Approved by Kanji
Front-paged by ajt
and all is quiet...

How do I use this? | Other CB clients
Other Users?
Others lurking in the Monastery: (4)
As of 2018-04-24 21:55 GMT
Find Nodes?
    Voting Booth?