1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44
| 10 SCREEN 0,0:WIDTH 80
20 KEY OFF:CLS:CLOSE
30 LOCATE 12,21:PRINT "ARCHIVAGE des DONNEES reues de COM1":LOCATE 23,48:PRINT "PROGRAMME fait par JML"
35 FOR I=1 TO 1000:NEXT I:CLS
40 A!=0:B!=0:C!=0:D!=0:A$="":B$="":W$="":A1=0:B1=0:C1=0:D1=0
45 B$=INKEY$:IF B$="f" OR B$="F" THEN 490 ELSE 50
50 OPEN "com1:1200,e,7,1,DS0,CS0,CD0,PE" AS #1
55 ON ERROR GOTO 500
56 OPEN "SCRN:" FOR OUTPUT AS #3
60 LOCATE 25,1:PRINT "-PRCI_1.RES - Sortir TAPEZ [F] - Imprimer TAPEZ [P] Arret Impression TAPEZ [ ]-"
65 OPEN "C:\SPY\PRCI_1.RES" FOR OUTPUT AS #2
66 IF LOC (1)<2 THEN B$=INKEY$:IF B$="f" OR B$="F" THEN 490 ELSE IF B$="S" OR B$="s" OR W$="S" THEN B$="":W$="":LOCATE 25,77:PRINT " ":GOTO 66 ELSE IF B$="P" OR B$="p" THEN B$="":W$="P":LOCATE 25,77:PRINT "S":GOTO 66 ELSE 66 ELSE 70
70 INPUT#1,A$
75 B$=INKEY$:IF B$="F"OR B$="f"THEN 490 ELSE IF B$="S" OR B$="s" THEN W$="S":LOCATE 25,77:PRINT " ":GOTO 80 ELSE IF B$="P" OR B$="p" THEN W$="P":LOCATE 25,77:PRINT "S":GOTO 80 ELSE IF W$="P" THEN LPRINT A$:GOTO 80 ELSE 80
80 A!=A!+1
90 IF A!>25000! THEN A1=1:CLOSE #2:GOTO 200 ELSE 100
100 PRINT #3,A$:PRINT #2,A$:GOTO 66
200 OPEN "C:\SPY\PRCI_2.RES" FOR OUTPUT AS #2
205 LOCATE 25,1:PRINT "-PRCI_2.RES"
206 IF LOC (1)<2 THEN B$=INKEY$:IF B$="f" OR B$="F" THEN 490 ELSE IF B$="S" OR B$="s" OR W$="S" THEN B$="":W$="":LOCATE 25,77:PRINT " ":GOTO 206 ELSE IF B$="P" OR B$="p" THEN B$="":W$="P":LOCATE 25,77:PRINT "S":GOTO 206 ELSE 206 ELSE 210
210 INPUT#1,A$
215 B$=INKEY$:IF B$="F"OR B$="f"THEN 490 ELSE IF B$="S" OR B$="s" THEN W$="S":LOCATE 25,77:PRINT " ":GOTO 220 ELSE IF B$="P" OR B$="p" THEN W$="P":LOCATE 25,77:PRINT "S":GOTO 220 ELSE IF W$="P" THEN LPRINT A$:GOTO 220 ELSE 220
220 B!=B!+1
230 IF B!>25000! THEN B1=1:CLOSE #2:GOTO 300 ELSE 240
240 PRINT #3,A$:PRINT #2,A$:GOTO 206
300 OPEN "D:\SPY\PRCI_3.RES" FOR OUTPUT AS #2
305 LOCATE 25,1:PRINT "-PRCI_3.RES"
306 IF LOC (1)<2 THEN B$=INKEY$:IF B$="f" OR B$="F" THEN 490 ELSE IF B$="S" OR B$="s" OR W$="S" THEN B$="":W$="":LOCATE 25,77:PRINT " ":GOTO 306 ELSE IF B$="P" OR B$="p" THEN B$="":W$="P":LOCATE 25,77:PRINT "S":GOTO 306 ELSE 306 ELSE 310
310 INPUT#1,A$
315 B$=INKEY$:IF B$="F"OR B$="f"THEN 490 ELSE IF B$="S" OR B$="s" THEN W$="S":LOCATE 25,77:PRINT " ":GOTO 320 ELSE IF B$="P" OR B$="p" THEN W$="P":LOCATE 25,77:PRINT "S":GOTO 320 ELSE IF W$="P" THEN LPRINT A$:GOTO 320 ELSE 320
320 C!=C!+1
330 IF C!>25000! THEN C1=1:CLOSE #2:GOTO 400 ELSE 340
340 PRINT #3,A$:PRINT #2,A$:GOTO 306
400 OPEN "D:\SPY\PRCI_4.RES" FOR OUTPUT AS #2
405 LOCATE 25,1:PRINT "-PRCI_4.RES"
406 IF LOC (1)<2 THEN B$=INKEY$:IF B$="f" OR B$="F" THEN 490 ELSE IF B$="S" OR B$="s" OR W$="S" THEN B$="":W$="":LOCATE 25,77:PRINT " ":GOTO 406 ELSE IF B$="P" OR B$="p" THEN B$="":W$="P":LOCATE 25,77:PRINT "S":GOTO 406 ELSE 406 ELSE 410
410 INPUT#1,A$
415 B$=INKEY$:IF B$="F"OR B$="f"THEN 490 ELSE IF B$="S" OR B$="s" THEN W$="S":LOCATE 25,77:PRINT " ":GOTO 420 ELSE IF B$="P" OR B$="p" THEN W$="P":LOCATE 25,77:PRINT "S":GOTO 420 ELSE IF W$="P" THEN LPRINT A$:GOTO 420 ELSE 420
420 D!=D!+1
430 IF D!>25000! THEN D1=1:CLOSE #2:A!=0:A1=0:B!=0:B1=0:C!=0:C1=0:D!=0:D1=0:LOCATE 25,1:PRINT "-PRCI_1.RES":GOTO 65 ELSE 440
440 PRINT #3,A$:PRINT #2,A$:GOTO 406
490 CLOSE : SYSTEM
500 RESUME NEXT
|
Partager