home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD1.iso / Emulatoren / C64-Files / f-g-t-h / f-g-t-h.0812 / f-g-t-h.1000 (.txt)
Encoding:
Commodore BASIC  |  1993-07-12  |  58.6 KB  |  23 lines
  1. 8224                                                                   EEEEEEEEEEEEEEEEEEEEEEEEE               +           !                
  2.  (  )                                                                                                                            UCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCIB                                      BB           
  3.       BB    ccccccccccccccccccccccccccccc     BB         :                     BB    EEEEEEEEEEEEE                     BB      ///// /   BB                                      BkCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCsB 
  4.            2               BJCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCK                                                                                                                                                                     - 
  5.           . 1989 -                                             
  6. 25985 ***ERROR***q***ERROR***qRUN***ERROR***/DIM***ERROR***FREREAD***ERROR***STEPCLOSEON
  7. STEPENDONCLOSEONINPUTGOSUBNEWSTEPaL***ERROR***`CLOSE>+MID$***ERROR***RUNONCLOSE>RIGHT$STOPLEFT$LEFT$>RIGHT$***ERROR***ORLEFT$>RIGHT$STOPSTOP CLOSESTEPFORONCLOSESTEP ON`TlO :.FNDATA***ERROR******ERROR***CLOSE>RIGHT$***ERROR******ERROR***LET>***ERROR***
  8. STOP***ERROR******ERROR******ERROR***
  9. OR***ERROR***STEPGOSUBDATAeCLOSE>+NOTLEFT$TAN***ERROR***CLOSEPRINT#***ERROR***INPUT***ERROR***EXP***ERROR***READINPUTDATARUN    @NEW( ***ERROR***NEWCLOSE
  10. LCONTCLOSE>+MID$CLOSESTEP***ERROR***ORSTEP***ERROR******ERROR***ORONRUNI+/CLOSEw***ERROR***    FNDATA***ERROR***STEPGOSUBNEXTeCLOSESTEP***ERROR***ORSTEPWAIT***ERROR***ORONRUNI+/CLOSEw***ERROR***    FNDATA***ERROR***STEPGOSUBNEXTe***ERROR***RUNCLOSEON :.STEPENDINPUTSTEPXINPUT ***ERROR***
  11. FN***ERROR******ERROR******ERROR***L`
  12. `POSlLOGCLOSE>RIGHT$)ORSTEP(^q***ERROR***    RIGHT$LETSTOP STEPLET^sONCLOSERUNON`***ERROR******ERROR***l***ERROR***l***ERROR***CLOSE>ON
  13. LEFT$>ON
  14.  SAVECLOSE>+MID$RUNI+***ERROR***RUNON
  15.  W***ERROR***)+***ERROR***RUNCLOSEON
  16. ` :.FNDATA***ERROR***PEEK W***ERROR***CLOSE)ON W***ERROR***JJ)+RETURN***ERROR***READEXP***ERROR***READINPUTDATA W***ERROR***)RIGHT$STOPJiINPUTINPUT#
  17.  
  18.  
  19. CLOSEON W***ERROR***)iINPUTINPUT
  20.  
  21.  
  22. LEFT$ONSTEPINPUTLETSTEP
  23.