home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / basic / library / qb_pds / qbasic_1 / end_adva.bas < prev    next >
BASIC Source File  |  1992-06-29  |  233b  |  13 lines
  1.  
  2. CLS
  3. DO WHILE INKEY$ = ""
  4. PRINT "eat shit"                ' Proves that if doesn't have an END statement
  5. GOSUB yes                            ' it cannot run unless GO or GOSUB
  6. LOOP
  7. END
  8.  
  9. yes:
  10. PRINT "I idn't work"
  11. RETURN
  12.  
  13.