home *** CD-ROM | disk | FTP | other *** search
/ The Glitch Apple Disk Collection / 2014.glitch.apple.collection.zip / indexed / GRUDS1.DSK / HELLO.bas < prev    next >
BASIC Source File  |  2014-09-09  |  734b  |  19 lines
  1. 10  HOME : DIM A$(9)
  2. 20  READ Z$: PRINT "DISKETTE:   * ";Z$;" *"
  3. 30  DATA  SPIELE
  4. 40  VTAB 7
  5. 50 A = A +1: HTAB 7
  6. 60  READ A$(A): IF A$(A) = ""  THEN 100
  7. 70  INVERSE : PRINT A;: NORMAL : PRINT "  "; MID$ (A$(A),3,30)
  8. 80  PRINT : GOTO 50
  9. 100  VTAB 22: HTAB 7: INPUT "GEBEN SIE IHRE WAHL EIN...";B
  10. 110  IF B >A -1  OR B <1  THEN 100
  11. 120  VTAB 22: HTAB 7: INVERSE : PRINT " LOADING "; MID$ (A$(B),3,30);" ";: NORMAL : PRINT "               "
  12. 130  IF  LEFT$(A$(B),1) = "B"  THEN 150
  13. 135  IF  LEFT$(A$(B),1) = "E"  THEN 160
  14. 140  PRINT  CHR$(4);"RUN"; MID$ (A$(B),3,30): END 
  15. 150  PRINT  CHR$(4);"BRUN"; MID$ (A$(B),3,30)
  16. 160  PRINT  CHR$(4);"EXEC"; MID$ (A$(B),3,30)
  17. 300  DATA  B-GRUDS IN SPACE
  18. 310  DATA  A-CRUSH CRUMBLE & CHOMP
  19. 320  DATA