epbas.lgb.hu :: Enterprise-128 EXOS file analyzer, lister and disassembler

File name: /tmp/phpYwk3oc (4547 bytes)
Options: bin=None cset='BRD' dasm='' html='' info='' out='/tmp/phpYwk3oc.out'
EP-ASCII: BRD
EXOS header pos/serial: #0 at 0x0
EXOS type/header: 0x4 [00 04 A3 11 00 00 00 00 00 00 00 00 00 00 00 00]
EXOS type determined: IS-BASIC program (single)

Program: 0x0, size: 0x11a3 bytes.
  100 PROGRAM "nyilvantartas"
  105 !88888                                 © 1989. Gulcsik Istvån                  
  110 LET MOD=1:LET MX=50:LET N=0
  120 DIM Q$(MX,4),W$(4)
  130 LET W$(1)="Név"
  140 LET W$(2)="Személyi szåm"
  150 LET W$(3)="Lakcim"
  160 LET W$(4)="Telefonszåm"
  170 TEXT 
  180 PRINT "Nyilvåntartås";CHR$(241):PRINT 
  190 PRINT "1. Uj személy bevitele"
  200 PRINT "2. Adatok javitåsa"
  210 PRINT "3. Adatok törlése"
  220 PRINT "4. Adatok beolvasåsa"
  230 PRINT "5. Adatok kimentése"
  240 PRINT "6. Adatok rendezése"
  250 PRINT "7. Adatok liståzåsa"
  260 PRINT "8. Személy keresése"
  270 PRINT "9. Összes adat törlése"
  280 PRINT "0. Üzemmod vålasztås"
  290 PRINT :PRINT "Nyomd le a kivånt billentyüt!":PRINT :PRINT 
  300 PRINT "Üzemmod: ";W$(MOD)
  310 PRINT "szerinti keresés / rendezés.":PRINT :PRINT 
  320 GET A$
  330 IF A$<"0"ORA$>"9"THEN 320
  340 ON (ORD(A$)-47)GOSUB 1770, 370, 480, 700, 950, 1120, 1220, 1330, 1510, 1720
  350 WAIT 1
  360 GOTO  170
  370 IF N=MXTHENPRINT "A tår megtelt!":RETURN 
  380 LET N=N+1
  390 INPUT PROMPT"Név: ":Q$(N,1)
  400 IF Q$(N,1)=""THEN 390
  410 INPUT PROMPT"Személyi szåm: ":Q$(N,2)
  420 IF Q$(N,2)=""ORLEN(Q$(N,2))<>11THEN 410
  430 INPUT PROMPT"Lakcim: ":Q$(N,3)
  440 IF Q$(N,3)=""THEN 430
  450 INPUT PROMPT"Telefonszåm: ":Q$(N,4)
  460 IF Q$(N,4)=""THEN 450
  470 RETURN 
  480 IF N=0THENPRINT "Nincs adat a tårban!":RETURN 
  490 PRINT W$(MOD);
  500 INPUT PROMPT":":A$
  510 LET A=0
  520 FOR F=1TON
  530   IF A$<>Q$(F,MOD)THEN 670
  540   PRINT "Név: ";Q$(F,1):PRINT CHR$(176);
  550   INPUT PROMPT"Név: ":Q$(F,1)
  560   IF Q$(F,1)=""THEN 550
  570   PRINT "Személyi szåm: ";Q$(F,2):PRINT CHR$(176);
  580   INPUT PROMPT"Személyi szåm: ":Q$(F,2)
  590   IF Q$(F,2)=""ORLEN(Q$(F,2))<>11THEN 580
  600   PRINT "Lakcim: ";Q$(F,3):PRINT CHR$(176);
  610   INPUT PROMPT"Lakcim: ":Q$(F,3)
  620   IF Q$(F,3)=""THEN 610
  630   PRINT "Telefonszåm: ";Q$(F,4):PRINT CHR$(176);
  640   INPUT PROMPT"Telefonszåm: ":Q$(F,4)
  650   IF Q$(F,4)=""THEN 640
  660   LET A=1:PRINT 
  670 NEXT 
  680 IF A=0THENPRINT "Nincs ilyen adat!"
  690 RETURN 
  700 IF N=0THENPRINT "Nincs adat a tårban!":RETURN 
  710 PRINT W$(MOD);
  720 INPUT PROMPT":":A$
  730 LET A=0
  740 LET F=1
  750 IF A$<>Q$(F,MOD)THEN 910
  760 PRINT "Név: ";Q$(F,1)
  770 PRINT "Személyi szåm: ";Q$(F,2)
  780 PRINT "Lakcim: ";Q$(F,3)
  790 PRINT "Telefonszåm: ";Q$(F,4)
  800 PRINT :PRINT "Töröljem? (I/N)"
  810 GET B$
  820 IF B$="n"ORB$="N"THEN 900
  830 IF B$<>"i"ANDB$<>"I"THEN 810
  840 FOR G=FTON-1
  850   FOR H=1TO4
  860     LET Q$(G,H)=Q$(G+1,H)
  870   NEXT 
  880 NEXT 
  890 LET N=N-1:LET F=F-1
  900 PRINT :LET A=1
  910 LET F=F+1
  920 IF F<NTHEN 750
  930 IF A=0THENPRINT "Nincs ilyen adat!"
  940 RETURN 
  950 PRINT "Az adatokat töröljem? (I/N)"
  960 GET A$
  970 IF A$="i"ORA$="I"THENLET N=0:GOTO  1000
  980 IF A$="n"ORA$="N"THEN 1000
  990 GOTO  960
 1000 IF N=MXTHENPRINT "A tår tele van!":RETURN 
 1010 OPEN #2:"tape:adat"ACCESSINPUT: ! open 2,8,2,"0:adat,s,r"
 1020 INPUT #2:M
 1030 IF N+M>MXTHENCLOSE #2:PRINT "Kevés a szabad hely!":RETURN 
 1040 FOR F=N+1TON+M
 1050   FOR G=1TO4
 1060     INPUT #2:Q$(F,G)
 1070   NEXT 
 1080 NEXT 
 1090 CLOSE #2
 1100 LET N=N+M
 1110 RETURN 
 1120 IF N=0THENPRINT "Nincs adat a tårban!":RETURN 
 1130 OPEN #2:"tape:adat"ACCESSOUTPUT: !open 2,8,2,"0:adat,s,w"
 1140 PRINT #2:N
 1150 FOR F=1TON
 1160   FOR G=1TO4
 1170     PRINT #2:Q$(F,G)
 1180   NEXT 
 1190 NEXT 
 1200 CLOSE #2
 1210 RETURN 
 1220 IF N=0THENPRINT "Nincs adat a tårban!":RETURN 
 1230 PRINT "Rendezés. Kis türelmet!"
 1240 FOR F=N-1TO1STEP-1
 1250   FOR G=1TOF
 1260     IF Q$(G,MOD)<=Q$(G+1,MOD)THEN 1300
 1270     FOR H=1TO4
 1280       LET Q$(G,H)=Q$(G+1,H)
 1290     NEXT 
 1300   NEXT 
 1310 NEXT 
 1320 RETURN 
 1330 IF N=0THENPRINT "Nincs adat a tårban!":RETURN 
 1340 TEXT 
 1350 LET M=0
 1360 FOR F=1TON
 1370   FOR G=1TO4
 1380     PRINT W$(G);": ";Q$(F,G)
 1390   NEXT 
 1400   PRINT :LET M=M+1
 1410   IF M<5THEN 1460
 1420   GET A$
 1430   IF A$=""THEN 1430
 1440   TEXT 
 1450   LET M=0
 1460 NEXT 
 1470 IF M=0THENRETURN 
 1480 GET A$
 1490 IF A$=""THEN 1480
 1500 RETURN 
 1510 IF N=0THENPRINT "Nincs adat a tårban!":RETURN 
 1520 PRINT W$(MOD);
 1530 INPUT PROMPT":":A$
 1540 LET A=0:LET M=0
 1550 FOR F=1TON
 1560   IF A$<>Q$(F,MOD)THEN 1660
 1570   PRINT "Név: ";Q$(F,1)
 1580   PRINT "Személyi szåm: ";Q$(F,2)
 1590   PRINT "Lakcim: ";Q$(F,3)
 1600   PRINT "Telefonszåm: ";Q$(F,4)
 1610   LET A=1:LET M=M+1:PRINT 
 1620   IF M<5THEN 1660
 1630   GET A$
 1640   IF A$=""THEN 1430
 1650   LET M=0:TEXT 
 1660 NEXT 
 1670 IF A=0THENPRINT "Nincs ilyen adat!"
 1680 IF M=0THENRETURN 
 1690 GET A$
 1700 IF A$=""THEN 1690
 1710 RETURN 
 1720 PRINT "Biztos ?  (I/N)"
 1730 GET A$
 1740 IF A$="i"ORA$="I"THENLET N=0:RETURN 
 1750 IF A$="n"ORA$="N"THENRETURN 
 1760 GOTO  1730
 1770 PRINT "Mi szerint rendezzek és liståzzak?"
 1780 PRINT "Néz / Szem. szåm / Lakcim / Telefonszåm"
 1790 GET A$
 1800 IF A$="n"ORA$="N"THENLET MOD=1:RETURN 
 1810 IF A$="s"ORA$="S"THENLET MOD=2:RETURN 
 1820 IF A$="l"ORA$="L"THENLET MOD=3:RETURN 
 1830 IF A$="t"ORA$="T"THENLET MOD=4:RETURN 
 1840 GOTO  1790

EXOS header pos/serial: #1 at 0x11b3
EXOS type/header: 0xa [00 0A 00 00 00 00 00 00 00 00 00 00 00 00 00 00]
EXOS type determined: End of module


End of FILE parsing, because: End-of-module header got (type=10)