home *** CD-ROM | disk | FTP | other *** search
/ Windows Shareware GOLD / NuclearComputingVol3No1.cdr / apps / f1340 / intactv.wbt < prev    next >
Text File  |  1991-02-17  |  421b  |  9 lines
  1. UnusualName87623=""                    ; Use a very unusual variable name
  2. :zork
  3.                                        ; Ask user for statement to execute
  4. UnusualName87623=AskLine("Interactive","Enter statement",UnusualName87623)
  5.                                        ; Then actually execute the statement
  6. execute %UnusualName87623%
  7.         
  8. Goto zork                              ; and loop for more punishment
  9.