home *** CD-ROM | disk | FTP | other *** search
/ M.u.C.S. Disc 2000 / MUCS2000.iso / sigisoft / label.ibm / ar_label.bas next >
BASIC Source File  |  1997-10-09  |  1KB  |  36 lines
  1. 10 T=18
  2. 20 WIDTH 80:CLS
  3. 30 PRINT" DISKETTEN-LABEL PD Version 4.00    MS-DOS für Arbeitskopie"
  4. 31 COLOR 0,1:print" ------ (c) 1991 by Siegfried Hübner, Obere Vorstadt 21, 8812 Windsbach ------- ":COLOR 1,0
  5. 40 PRINT :PRINT
  6. 50 PRINT :PRINT
  7. 60 PRINT TAB(T)"IBM-PC XT or AT /oder Kompatible ab MS-DOS 2.0 "
  8. 70 PRINT TAB(T)"-----------------------------------------------"
  9. 80 PRINT
  10. 90 LOCATE 10,17:   INPUT ">",A$
  11. 100 LOCATE 11,17:   INPUT ">",B$
  12. 110 PRINT TAB(T)"-----------------------------------------------"
  13. 120 PRINT TAB(T)"  DIESE  DISKETTE  IST  EINE  ARBEITSKOPIE    !"
  14. 130 LOCATE 20,20:PRINT " IST DER AUFKLEBER SO OK ? J/N ";
  15. 140 INPUT "",ANT$
  16. 150 IF ANT$="J" OR ANT$="j" THEN 170
  17. 160 IF ANT$="N" OR ANT$="n" THEN 20
  18. 170 LPRINT CHR$(27);"-";CHR$(1);
  19. 180 LPRINT CHR$(27);CHR$(15);"   IBM-PC XT or AT / oder Kompatible mit MS-DOS ab V.2,0  "
  20. 190 LPRINT CHR$(27);"-";CHR$(0);
  21. 200 LPRINT CHR$(18)
  22. 210 REM  LPRINT
  23. 220 LPRINT CHR$(27);CHR$(64);A$
  24. 230 LPRINT CHR$(27);CHR$(64);B$
  25. 240 REM  LPRINT
  26. 250 LPRINT CHR$(27);"-";CHR$(1);
  27. 260 LPRINT "                                  "
  28. 270 LPRINT CHR$(27);"-";CHR$(0);
  29. 280 LPRINT CHR$(27);CHR$(15);"  DIESE DISKETTE IST EINE ARBEITSKOPIE COPYRIGHT BEACHTEN"
  30. 290 LPRINT CHR$(18)
  31. 291 LOCATE 21,22:PRINT "ANDERE TASTE = PROGRAMM VERLASSEN."
  32. 300 LOCATE 20,22:PRINT "NOCHMAL DER GLEICHE AUFKLEBER ? J/N ";
  33. 310 INPUT "",JN$
  34. 320 IF JN$="J" OR JN$="j" THEN 170
  35. 330 IF JN$="N" OR JN$="n" THEN 20
  36.