home *** CD-ROM | disk | FTP | other *** search
/ M.u.C.S. Disc 2000 / MUCS2000.iso / sigisoft / label.ibm / pd_label.bas < prev    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 5.00      MS-DOS für PD SOFTWARE"
  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 /mit MS-DOS PUBLIC-DOMAIN SOFTWARE"
  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 SO  F R E I   KOPIERBAR  !"
  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 / mit MS-DOS  PUBLIC-DOMAIN SOFTWARE  "
  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  SO  F R E I  KOPIERBAR    "
  30. 290 LPRINT CHR$(18)
  31. 291 locate 21,21:print "ANDERE TASTE = PROGRAMM VERLASSEN."
  32. 300 LOCATE 20,21: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.