MicroHobby27.pdf

j5000 REM PES@UISAS GERA
IS
5010 HOME
5020 INVERSE: HTAB 8: F
OR I = i TO LEN (N~): VTA
B 2: PRINT MIDS INS,I,1);
POKE 36, PEEK (36) + 1 +
3 * (I = 5): NEXT: NORMA
L
5030 VTAS 5: HTA8 10: PR
INT "PESGUISA
S GERAIS POR :"
5040 NR = 0
5050 VTAS 8:H = 10
5060 FOR I = 1 TO Nei.: H
TAB H: PRINT
SPC( I ( 10); CHR$ (91);
I; CHR1
(93); SPC( 2);NC$II): NEX
T
I
5070 VTAB 23: HTA8 10:
NPUT "opeAO (
O=FIM) =} ";op
5080 IF OP ) NC% THEN P
RINT CHR$ (7
);: GOB 5070
5090 IF Of = 0 THEN 300
5100 VTAB 5: CALL - 958
5110 VTAB 23: HTAB 14: I
NVERSE : PRINT "(ESC) VOLT
A AO MENU II: NORMAL
5120 VTAB 10: PRINT "PES
GUISA POR ";N
C$(OP)
5130 ViAS 12: PRINT "IDE
NTIFICADOR"; SPCI 2):V = 1
2:H = PEEK (36) + i:LN =
L
(OP): GOSU8 15800
5140 IF GUIT THEN 5000
5150 IF P~ = "" THEN 513
o
5160 ID1 = P$: REM 10EH:
IFICADOR
5170 RE~ REALIZAR PROCU
RA
51BO PRINT DS;"OPEN";AR0
~~
$:",L":TR%
5190 FOR R = 1 TO NPZ
5200 PRINT D$;"READII:ARQ
11;" , R"; REGZ (R
)
5210 FOR I = 1 TO NC~:
NPUT OC1(I): NEXT
5220 IF IDS = LEFT1I IDC
$ Ion, LEN 1I
D$)) THEN NR = NR + 1:RZ!
NR) = RE
5230 NEXT
5240 PRINT D~: REM NAO
FEeHA ARQUIVO
5250 CT = 1: GO TO 5330
5260 REM CONTROLE DE CO
MSULTA
5270 GET A~:A = ASC IA~
5280 IF A = 21 THEN CT =
CT + 1
5290 IF A = 8 THEN CT =
CT - 1
5300 IF CT ( 1 THEN CT =
1: GOTO 5270
5320 IF CT ) NR THEN CT
= NR: GOTO 52
70
5330 REM LER 0 REGISTRO
5340 RX = RZICT)
5350 PRINT D$:IIREAD":ARG
i;",R";R
5360 FOR I = 1 TO NC~:
NPUT OC$II): NEXT
5370 PRINT D$
5380 REM APRESENTAR
5390 MSloP) = "PESQUISAS
GERAIS"
5400 GOSUB 15900
54iG VTAB 5: HTAB 30: PR
INT "TOTAL#":
NR
5420 VTAB 7: HTAB 3D: PR
INT I/ATUAL W'
:: INVERSE: PRINT CT: NO
RMAL
5430 VTAB 23: INVERSE :
PRINT II{-j-}M
OVIMENTAM CAMPO --(ISO M
ENU/!;: NORMAL
5440 ViAS VI
5450 FOR I ~ 1 TO NCt.
5460 HTAB HI
5470 IF I = OP THEN INV
ERSE : PRINT
DC~II): NORMAL: GOTO 549
o
5480 PRINT D[$(I)
5490 NEXT
5500 GOTO 5260
6000 REM ANIVERSARIANiE
S
6010 HOME
6020 INVERSE: HTAB 8: F
OR I = i TO LEN IN~): VTA
B 2: PRINT MID$ (N~rI,1);
POKE 36, PEEK (36) + 1 +
3 * (I = 5): NEXT: NORMA
,
L
6030 VTAS 5: HTAB 12: IN
VERSf : PRINT
6040 VTA8 9: HTA8 5: PRI
NT "ENTRE A D
ATA INICIAL :/1
6050 VTAB 11: HTAB 13: P
RINT /lDATA FI
6060 V = 9:H = 28:LNG = 5
: GOSU3 15800
6070 IF PS = "" THEN 606
o 6080 IF MIOS IP~,3,1) <
) II /" OR RI
GTH~(PS,2) > 1112" OR LEF
is IPS,2
) ) /l3i ll OR ~EN (P$) {
) 5 THEN
6060
6090 Li1 = p~
6iOo Li = VAL 1 MIDS IP$
,1,2)) + VAL
1 MIOS IP$,4,2)) * 31
6iiO V = 11:H = 28:LNG =
5: GOSUB i580
o
6120 IF PS = "" THEN 611
G
613D IF MIDS (PS,3,1) (
) Ii I" OR R I
GTHSIP$,2) } "12"ODR LEFT
$ IPl,2)
) 1/31"OR LEN (P$) ( ) 5
THEN ~r
10
6140 L2$ = P$
6150 L2 = VAL ( MIDS (PS
,1,2)) + VAL
( MIDS (P~,4,2» * 31
6160 IF L2) = L1 THEN
6210
6170 VTAS 23: INVERSE :
PRINT I/ERRO !
- DATA FINAL ( DATA INIC
IAL/I: NORMAL
6180 GET RS
6i90 ViAS 23: CALL - B6
8
6200 GOTO 6110
6210 REM REALIZAR PROC
URA
6220 PRINT Dt:"OPEN":ARQ
$;" ,L':; TRi.
6230 FOR R = 1 TO NPk
6240 PRINT D$:"READ":ARQ
$;".RI/;REGi.
6250 FOR I = 1 TO NCi.: I
NPUT DC~(I): NEXT
6260 LX = VAL ( MID$ (DC
$(9),1,2) +
VAL ( MIDS (DC$(9),4,2»
* 31
6270 IF LX ( L1 OR LX }
L2 THEN 6310
6280 NR = NR + 1:NOME$(NR
6290 COD$(NR) = DG$(3)
6300 DT$(NR) = LEFTS (DC
$(9),2) + /II'
+ R1GTHSIGHT$IDC$(9),2)
6310 NEXT
6320 PRINT O$:"CLOSE"
6330 REM APRESENTAR
6340 HOME ~