home *** CD-ROM | disk | FTP | other *** search
/ Piper's Pit BBS/FTP: ibm 0020 - 0029 / ibm0020-0029 / ibm0028.tar / ibm0028 / VGATOOLS.ZIP / VIDEOARC.ZIP / LAUFWERK.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1987-09-29  |  1.3 KB  |  32 lines
  1. 1  KEY OFF: WIDTH 80: COLOR 15,0,0
  2. 10  GOTO 100
  3. 60  CLS
  4. 61  LOCATE 1,1: PRINT CHR$(218)+STRING$(78,196)+CHR$(191)
  5. 62  LOCATE 2,1: PRINT CHR$(179)" Karlheinz Herpel             V I D E O - A R C H I V                (C) 1987 "CHR$(179)
  6. 63  LOCATE 3,1: PRINT CHR$(192)+STRING$(78,196)+CHR$(217): RETURN
  7. 96  CLS: LOCATE 12,25: PRINT "(C) 1987 VON": LOCATE 14,25: PRINT "KARLHEINZ HERPEL": LOCATE 15,25: PRINT "PFALZPLATZ 12"
  8. 97  LOCATE 16,25: PRINT "6800 MANNHEIM 1"
  9. 98  LOCATE 18,25: PRINT "TEL.: 0621 - 81 33 02": END
  10. 100  GOSUB 60
  11. 101  LOCATE 6,25: PRINT CHR$(218)+STRING$(26,196)+CHR$(191)
  12. 102  LOCATE 7,25: PRINT CHR$(179)" DATEN LAUFWERK FESTLEGEN "CHR$(179)
  13. 103  LOCATE 8,25: PRINT CHR$(192)+STRING$(26,196)+CHR$(217)
  14. 104  LOCATE 10,20: PRINT "Legen Sie fest, auf welchem Laufwerk Sie die Daten"
  15. 106  LOCATE 11,20: PRINT "speichern wollen."
  16. 107  LOCATE 12,20: PRINT "Bei einem Laufwerk empfiehlt sich Laufwerk    A:"
  17. 108  LOCATE 13,20: PRINT "Bei zwei Laufwerken empfiehlt sich Laufwerk   B:"
  18. 109  LOCATE 14,20: PRINT "Bei einer Festplatte empfiehlt sich Laufwerk  A:/C:"
  19. 110  LOCATE 16,20: PRINT "WENDnschen Sie Laufwerk A,B oder C : "
  20. 115  E$=INKEY$: IF E$="" THEN 115
  21. 116  IF E$="a" OR E$="A" THEN LW$="A": GOTO 120
  22. 117  IF E$="b" OR E$="B" THEN LW$="B": GOTO 120
  23. 118  IF E$="c" OR E$="C" THEN LW$="C": GOTO 120
  24. 119  BEEP: GOTO 115
  25. 120  LOCATE 18,20: PRINT "Sie haben Laufwerk ";LW$;" gewDATAhlt. Starten Sie das"
  26. 121  LOCATE 19,20: PRINT "Programm und legen Sie die Datendiskette in Laufwerk ";LW$;"."
  27. 122  LOCATE 22,25: PRINT "Beliebige Taste zum Beenden drENDcken"
  28. 123  OPEN "lw.dat" FOR OUTPUT AS #1
  29. 124  PRINT #1,LW$: CLOSE #1
  30. 125  E$=INKEY$: IF E$="" THEN 125
  31. 126  GOSUB 96
  32.