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