epbas.lgb.hu :: Enterprise-128 EXOS file analyzer, lister and disassembler
File name: /tmp/phpUSLHo4 (15855 bytes)
Options: bin=None cset='UK' dasm='' html='' info='' out='/tmp/phpUSLHo4.out'
EP-ASCII: UK
EXOS header pos/serial: #0 at 0x0
EXOS type/header: 0x4 [00 04 CF 3D 00 00 00 00 00 00 00 00 00 00 00 00]
EXOS type determined: IS-BASIC program (single)
Program: 0x0, size: 0x3dcf bytes.
24000 PROGRAM "BABADAT"(MOD,NEV$,REC,AMSZ,ANH,AMH) !
24001 WHEN EXCEPTIONUSEHIBA
24002 PRINT :PRINT :PRINT ! !!!!!!!!!!
24003 LET A,B,C,D,E,F,G,H,I,J,RSZ=0:LET A$,B$,C$="":LET BORD,PAPIR1,PAPIR2,PAPIR3=0:LET TINTA1,TINTA2,TINTA3=10
24004 IF MOD=0THEN
24005 SET 26,1:TEXT 80:PRINT AT5,1:"":POKE 49144,45:GET B$
24006 LET REC,AMSZ,ANH,AMH=5:LET NEV$="NEVTELEN":GOSUB 24452 !
24007 PRINT "Köszöntöm a program felhasznålojaként! "&CHR$(241):PRINT :PRINT :PRINT " Rendszer neve: BABADAT v.2.2":PRINT " Programozo : Budavåri Låszlo":PRINT " BABSOFT_1989"
24008 PRINT " Informåcio : BUDAPEST":PRINT " SALLAI Ltp.1008.ép.":PRINT " H.lh.II/4.":PRINT " 1182":PRINT :PRINT :PRINT " Kis türelmet ! Rendszer betöltés !"
24009 OPEN #8:"BABADAT.DAT"ACCESSINPUT
24010 INPUT #8:BORD
24011 INPUT #8:PAPIR1
24012 INPUT #8:PAPIR2
24013 INPUT #8:TINTA1
24014 INPUT #8:TINTA2
24015 INPUT #8:PAPIR3
24016 INPUT #8:TINTA3
24017 CLOSE #8
24018 SET #102:PALETTEPAPIR3,TINTA3,0,10,0,0,0,0:SET 27,BORD
24019 SET 22,2:SET 24,42:SET 25,22 !
24020 OPEN #202:"VIDEO:"
24021 SET #202:PALETTEPAPIR1,TINTA1,0,0,PAPIR2,TINTA2,0,0
24022 DO
24023 READ A,B,C,D,E,F,G,H,I,J
24024 IF A=0THENEXIT DO
24025 SET CHARACTERA,B,C,D,E,F,G,H,I,J
24026 LOOP
24027 ELSE IF MOD=1THEN
24028 GOTO 24040
24029 ELSE IF MOD=2THEN
24030 CALL MT
24031 DISPLAY #202:AT1FROM1TO21
24032 GOTO 24041
24033 ELSE IF MOD=3THEN
24034 GOSUB 24443
24035 DISPLAY #202:AT1FROM1TO21
24036 GOTO 24041
24037 END IF
24038 GOSUB 24443
24039 DISPLAY #202:AT1FROM1TO21
24040 PRINT :PRINT :PRINT
24041 PRINT #202,AT2,25:" ":CALL INF:CALL MEN(0)
24042 POKE 49144,45
24043 SELECT CASEA
24044 CASE 1 !
24045 PRINT #202,AT2,25:"Dåtum beållitås ":PRINT #202,AT4,3:"Kérem a mai dåtumot !":PRINT #202,AT6,3:"év: ....":CALL BEO(6,7,4,1980,2070):LET EV$=C$
24046 PRINT #202,AT6,13:"ho: ..":CALL BEO(6,17,2,1,12):LET HO$=C$
24047 PRINT #202,AT6,21:"nap: ..":CALL BEO(6,26,2,1,31):LET NAP$=C$:LET I=28
24048 IF VAL(EV$)/4=INT(VAL(EV$)/4)THENLET I=29
24049 SELECT VAL(HO$)
24050 CASE 1,3,5,7,8,10,12
24051 LET I=31
24052 CASE 4,6,9,11
24053 LET I=30
24054 CASE 2
24055 END SELECT
24056 IF VAL(NAP$)>ITHENPRINT #202,AT4,3:"A szåm tul nagy ! ":GOTO 24047
24057 DATE EV$&HO$&NAP$
24058 PRINT #202,AT2,57:DATE$(1:4)&"."&DATE$(5:6)&"."&DATE$(7:8):PRINT #202,AT2,25:" ":PRINT #202,AT4,3:" ":PRINT #202,AT6,3:" "
24059 IF HO$="02"THEN !
24060 PRINT #202,AT7,10:"A programozomnak ebben a honapban van":PRINT #202,AT8,9:"a születésnapja.Kötelességem üdvözölni." !
24061 WAIT 5 !
24062 FOR X=10TO14STEP2 !
24063 PING
24064 PRINT #202,ATX,20:"HIP HIP HURRA"
24065 NEXT
24066 WAIT 5
24067 FOR X=7TO14
24068 PRINT #202,ATX,9:" " !
24069 NEXT
24070 END IF
24071 CASE 2
24072 PRINT #202,AT2,25:"Idö beållitås":PRINT #202,AT4,3:"Kérem a pontos idöt !":PRINT #202,AT6,3:"ora: ..":CALL BEO(6,8,2,0,24):LET ORA$=C$:PRINT #202,AT6,13:"perc: ..":CALL BEO(6,19,2,0,59):LET PERC$=C$
24073 TIME ORA$&":"&PERC$&":00"
24074 PRINT #202,AT2,25:" ":PRINT #202,AT4,3:" ":PRINT #202,AT6,3:" "
24075 CASE 4 !
24076 PRINT #202,AT2,25:"Rekord szerkesztés":PRINT #202,AT4,3:"Mi legyen az adatållomåny neve ?":CALL BEIRAS(4,40,8):LET NEV$=RTRIM$(UCASE$(C$)):CALL INF
24077 PRINT #202,AT4,3:"Mennyi karakterböl ålljon egy adatnév ? ( 5 - 30 )":CALL BEO(7,10,2,5,30):LET ANH=VAL(C$):CALL INF
24078 PRINT #202,AT4,3:"Mennyi karakterböl ålljon egy adatmezö ? ( 5 -";48-ANH;")":CALL BEO(7,10,2,5,48-ANH):LET AMH=VAL(C$):CALL INF
24079 PRINT #202,AT4,3:"Mennyi adatmezö legyen egy rekordban ? ( 1 - 13 ) ":CALL BEO(7,10,2,1,13):LET AMSZ=VAL(C$):CALL INF
24080 PRINT #202,AT4,3:" ":PRINT #202,AT7,10:" ":PRINT #202,AT2,25:" "
24081 LET FRE=FREE-((AMSZ*3)+(ANH*AMSZ)+37)+800
24082 FOR REC=30TO800STEP10
24083 LET B=(REC*AMSZ*AMH)+(3*REC)+(3*AMSZ)+(2*REC*AMSZ)+41
24084 IF FRE<BTHENLET REC=REC-11:EXIT FOR
24085 NEXT
24086 CALL INF
24087 CASE 5
24088 CALL MT
24089 GOSUB 24452
24090 CALL LOAD !
24091 CASE 6
24092 CALL MT
24093 PRINT #202,AT2,25:"Kis türelmet kérek !";
24094 RUN "BABADAT.PRG"(1,NEV$,REC,AMSZ,ANH,AMH)
24095 CASE 8
24096 PRINT #202,AT2,25:"Direktori "
24097 EXT "RAMDISK 1 /D"
24098 OPEN #8:"BAB"ACCESSOUTPUT
24099 CLOSE #8
24100 EXT "DEL BAB"
24101 PRINT :PRINT :PRINT
24102 OPEN #8:"E:DIR"ACCESSOUTPUT
24103 REDIRECT FROM#0TO#8
24104 EXT "DIR /H"
24105 CLOSE #8
24106 REDIRECT FROM#0TO#0
24107 OPEN #8:"E:DIR"
24108 FOR X=0TO2
24109 INPUT #8:A$
24110 NEXT
24111 DO
24112 INPUT #8:A$
24113 IF A$(1:12)<>UCASE$(A$(1:12))THENEXIT DO
24114 IF A$(10:12)="BAB"THENPRINT A$(1:8)&" ";
24115 LOOP
24116 CLOSE #8
24117 EXT "RAMDISK /D"
24118 WAIT 3
24119 PRINT :PRINT :PRINT !
24120 CASE 9
24121 CLEAR TEXT
24122 DISPLAY TEXT
24123 EXT "TYPE BABADAT.HLP"
24124 WAIT 3
24125 DISPLAY #202:AT1FROM1TO21
24126 PRINT AT23,1:""
24127 CASE 10
24128 PRINT #202,AT2,25:"Kilépés "
24129 PRINT #202,AT4,3:"Biztos,hogy ki akar lépni a programbol ? (i-n)"
24130 CALL WAIT !
24131 IF UCASE$(A$)="I"THENEXT "BASIC" !
24132 IF UCASE$(A$)="N"THEN 24134
24133 GOTO 24130
24134 PRINT #202,AT4,3:" "
24135 CASE 11
24136 GOSUB 24303
24137 CASE ELSE
24138 PING
24139 GOTO 24141
24140 END SELECT
24141 CALL MEN(1)
24142 GOTO 24043
24143 END WHEN
24144 END
24145 DEF WAIT
24146 DO
24147 SET #202:INK0
24148 FOR J=0TO20
24149 NEXT
24150 PRINT #202,AT2,69:TIME$;
24151 GET A$
24152 LOOP UNTILA$<>""
24153 LET A$=UCASE$(A$)
24154 END DEF
24155 END
24156 DEF BEO(A,B,C,D,E)
24157 LET F=B
24158 LET A$,C$="":LET B=F
24159 FOR G=FTOF+C-1
24160 PRINT #202,ATA,G:"."
24161 NEXT
24162 DO
24163 SET #202:INK4
24164 PRINT #202,ATA,B:"."
24165 CALL WAIT
24166 SET #202:INK4
24167 SELECT CASEORD(A$)
24168 CASE 48TO57 !
24169 SET #202:INK1:PRINT #202,ATA,B:A$:LET B=B+1:LET C$=C$&A$
24170 CASE 164
24171 IF B=FTHENPING
24172 IF B>FTHENSET #202:INK1:PRINT #202,ATA,B-1:"..":LET B=B-1:LET C$=C$(1:LEN(C$)-1)
24173 CASE ELSE
24174 PING
24175 GOTO 24165
24176 END SELECT
24177 LOOP UNTILLEN(C$)=C
24178 SET #202:INK1
24179 IF VAL(C$)>ETHENPRINT #202,AT4,3:"A szåm tul nagy ! ":GOTO 24158
24180 IF VAL(C$)<DTHENPRINT #202,AT4,3:"A szåm tul kicsi ! ":GOTO 24158
24181 END DEF
24182 DEF MT
24183 FOR I=4TO7
24184 PRINT #202,ATI,58:" ";
24185 NEXT
24186 FOR I=9TO20
24187 PRINT #202,ATI,58:" ";
24188 NEXT
24189 END DEF
24190 DEF MEN(MOOD)
24191 PRINT #202,AT2,25:"Nyito menü "
24192 IF MOOD=0THENPRINT #202,AT10,60:"Dåtum beållitås ":PRINT #202,AT11,60:"Idö beållitås":PRINT #202,AT13,60:"Rekord szerkesztés":PRINT #202,AT14,60:"Adat betöltés":PRINT #202,AT15,60:"Adat kezelés"
24193 IF MOOD=0THENPRINT #202,AT17,60:"Direktori":PRINT #202,AT18,60:"Informåcio":PRINT #202,AT19,60:"Kilépés":PRINT #202,AT20,60:"Szinbeållitås"
24194 CALL KERES("Vålasszon a menüböl ! ",10,11,58)
24195 SELECT CASEA
24196 CASE 0,3,7 !
24197 PING
24198 GOTO 24194
24199 CASE ELSE
24200 END SELECT
24201 END DEF
24202 DATA 95,0,0,0,0,0,0,0,0,0,145,0,0,0,0,255,0,0,0,0,151,16,16,16,16,16,16,16,16,16,133,0,0,0,0,192,32,16,16,16,146,16,16,16,32,192,0,0,0,0,153,16,16,16,32,192,32,16,16,16
24203 DATA 137,0,0,0,0,7,8,16,16,16,143,16,16,16,8,7,0,0,0,0,144,16,16,16,8,7,8,16,16,16,129,0,0,0,0,199,40,16,16,16,134,16,16,16,40,199,0,0,0,0,135,16,16,16,40,199,40,16,16,16,0,0,0,0,0,0,0,0,0,0
24204 DATA ÇΣΣΣΣΣΣΣΣΣΣΣΣΣΣΣΣ#ΣΣΣΣΣΣΣΣΣΣΣΣΣΣΣΣΣΣΣΣΣΣΣΣΣΣΣΣΣΣΣΣΣΣΣΣΣ#ΣΣΣΣΣΣΣΣΣΣΣΣΣΣΣΣΣΣΣΣΣÅ,æ BABADAT v2.2 æ æ æ,πΣΣΣΣΣΣΣΣΣΣΣΣΣΣΣΣØΣΣΣΣΣΣΣΣΣΣΣΣΣΣΣΣΣΣΣΣΣΣΣΣΣΣΣΣΣΣΣΣΣΣΣΣΣÆΣΣΣΣΣΣΣΣΣΣΣΣΣΣΣΣΣΣΣΣΣ§
24205 DATA æ æ Név : æ,πΣΣΣΣΣΣΣΣΣΣΣΣΣΣΣΣΣΣΣΣΣΣΣΣΣΣΣΣΣΣΣΣΣΣΣΣΣΣΣΣΣΣΣΣΣΣΣΣΣΣΣΣΣΣ§ Rek.: Amsz.: æ
24206 DATA æ æ Anh.: Amh. : æ,æ æ æ,æ πΣΣΣΣΣΣΣΣΣΣΣΣΣΣΣΣΣΣΣΣΣ§
24207 DATA æ æ æ,æ æ æ,æ æ æ
24208 DATA æ æ æ
24209 DATA æ æ æ,æ æ æ,æ æ æ
24210 DATA æ æ æ,æ æ æ,æ æ æ
24211 DATA æ æ æ
24212 DATA æ æ æ,ƒΣΣΣΣΣΣΣΣΣΣΣΣΣΣΣΣΣΣΣΣΣΣΣΣΣΣΣΣΣΣΣΣΣΣΣΣΣΣΣΣΣΣΣΣΣΣΣΣΣΣΣΣΣΣØΣΣΣΣΣΣΣΣΣΣΣΣΣΣΣΣΣΣΣΣΣä
24213 DATA vege
24214 DEF KERES(A$,C,D,E)
24215 LET A,B=0:PRINT #202,AT4,3:A$
24216 SET #202:INK1:PRINT #202,ATB+C,E:" ":SET #202:INK4:PRINT #202,ATA+C,E:"→";
24217 CALL WAIT
24218 LET F=ORD(A$) !
24219 IF F=27THEN 24223
24220 IF F=176THENLET B=A:LET A=A-SGN(A):GOTO 24216
24221 IF F=180THENLET B=A:LET A=A+SGN((D-1)-A):GOTO 24216
24222 IF F<>13THEN 24216
24223 PRINT #202,AT4,3:" ":PRINT #202,ATA+C,E:" ";:LET A=A+1
24224 IF F=27THENLET A=0
24225 END DEF
24226 DEF BEIRAS(A,B,C)
24227 LET D=B
24228 SET #202:INK4
24229 PRINT #202,ATA,B-1:"[":PRINT #202,ATA,B+C:"]"
24230 FOR I=BTOB+C-1
24231 PRINT #202,ATA,I:"-":POKE 400+I,45
24232 NEXT
24233 CALL WAIT
24234 SET #202:INK4
24235 LET E=ORD(A$)
24236 SELECT CASEE
24237 CASE 27
24238 LET F=1:LET C$="":GOTO 24270
24239 CASE 48TO57,65TO90,95,97TO122
24240 PRINT #202,ATA,D:CHR$(E):POKE 400+D,E
24241 IF D<B+C-1THEN
24242 LET D=D+1
24243 GOTO 24233
24244 END IF
24245 GOTO 24233
24246 CASE 164,184
24247 IF D=B+C-1ANDPEEK(400+D)<>45THEN
24248 PRINT #202,ATA,D:"-":POKE 400+D,45
24249 ELSE IF D>BTHEN
24250 LET D=D-1
24251 PRINT #202,ATA,D:"-":POKE 400+D,45
24252 GOTO 24233
24253 END IF
24254 GOTO 24233
24255 CASE 168,188
24256 IF D<B+C-1THEN
24257 PRINT #202,ATA,D:"-":POKE 400+D,45
24258 LET D=D+1
24259 GOTO 24233
24260 END IF
24261 GOTO 24233
24262 CASE 13
24263 LET C$=""
24264 FOR I=BTOB+C-1
24265 LET C$=C$&CHR$(PEEK(400+I))
24266 NEXT
24267 CASE ELSE
24268 GOTO 24233
24269 END SELECT
24270 SET #202:INK1
24271 IF F=0THENPRINT #202,ATA,B-1:" "C$" ";
24272 IF F=1THEN
24273 FOR I=B-1TOB+C+1
24274 PRINT #202,ATA,I:" ";
24275 NEXT
24276 END IF
24277 END DEF
24278 HANDLER HIBA
24279 SET #202:INK0
24280 PRINT #202,AT4,3:" "
24281 PRINT #202,AT4,3:EXSTRING$(EXTYPE)" "EXTYPE;
24282 CHAIN "BABADAT"(2,NEV$,REC,AMSZ,ANH,AMH) !
24283 END HANDLER
24284 DEF LOAD !
24285 PRINT #202,AT2,25:"Adat betöltés ":LET F=0:PRINT #202,AT4,3:"Kérem a betöltendö adatållomåny nevét !":CALL BEIRAS(7,20,8)
24286 PRINT #202,AT4,3:" ":PRINT #202,AT7,19:" ";
24287 IF F=1THENCHAIN "BABADAT"(1)
24288 LET NEV$=RTRIM$(UCASE$(C$)):LET C$=C$&".BAB" !
24289 OPEN #8:C$ACCESSINPUT
24290 INPUT #8:REC
24291 INPUT #8:AMSZ
24292 INPUT #8:ANH
24293 INPUT #8:AMH
24294 CLOSE #8
24295 PRINT :PRINT :PRINT !
24296 PRINT #202,AT2,25:"Kis türelmet kérek !";
24297 RUN "BABADAT.PRG"(2,NEV$,REC,AMSZ,ANH,AMH)
24298 END DEF
24299 DEF INF
24300 IF MOD=2THENPRINT #202,AT4,58:"Név :":PRINT #202,AT5,58:"Rek.:":PRINT #202,AT5,69:"Amsz.:":PRINT #202,AT6,58:"Anh.:":PRINT #202,AT6,69:"Amh.:"
24301 PRINT #202,AT4,64:NEV$:PRINT #202,AT5,63:REC:PRINT #202,AT5,74:AMSZ:PRINT #202,AT6,63:ANH:PRINT #202,AT6,74:AMH
24302 END DEF
24303 PRINT #202,AT2,25:"Szinbeållitås "
24304 PRINT #202,AT4,3:"Kérem a keret szinét !";
24305 GET A$
24306 IF A$=""THEN 24305
24307 SELECT CASEORD(A$)
24308 CASE 176
24309 LET BORD=BORD+1
24310 IF BORD=256THENLET BORD=255
24311 SET 27,BORD
24312 CASE 180
24313 LET BORD=BORD-1
24314 IF BORD=-1THENLET BORD=0
24315 SET 27,BORD
24316 CASE 13
24317 GOTO 24321
24318 CASE ELSE
24319 END SELECT
24320 GOTO 24305
24321 PRINT #202,AT4,3:"Kérem a papir 1. szinét !";
24322 GET A$
24323 IF A$=""THEN 24322
24324 SELECT CASEORD(A$)
24325 CASE 176
24326 LET PAPIR1=PAPIR1+1
24327 IF PAPIR1=256THENLET PAPIR1=255
24328 SET #202:PALETTEPAPIR1,TINTA1,0,0,PAPIR2,TINTA2,0,0
24329 CASE 180
24330 LET PAPIR1=PAPIR1-1
24331 IF PAPIR1=-1THENLET PAPIR1=0
24332 SET #202:PALETTEPAPIR1,TINTA1,0,0,PAPIR2,TINTA2,0,0
24333 CASE 13
24334 GOTO 24338
24335 CASE ELSE
24336 END SELECT
24337 GOTO 24322
24338 PRINT #202,AT4,3:" ";
24339 PRINT #202,AT4,3:"Kérem az irås 1. szinét !";
24340 GET A$
24341 IF A$=""THEN 24340
24342 SELECT CASEORD(A$)
24343 CASE 176
24344 LET TINTA1=TINTA1+1
24345 IF TINTA1=256THENLET TINTA1=255
24346 SET #202:PALETTEPAPIR1,TINTA1,0,0,PAPIR2,TINTA2
24347 CASE 180
24348 LET TINTA1=TINTA1-1
24349 IF TINTA1=-1THENLET TINTA1=0
24350 SET #202:PALETTEPAPIR1,TINTA1,0,0,PAPIR2,TINTA2,0,0,
24351 CASE 13
24352 GOTO 24358
24353 CASE ELSE
24354 END SELECT
24355 GOTO 24340
24356 SET #202:INK4
24357 LET TINTA2=TINTA2+1
24358 SET #202:INK4
24359 PRINT #202,AT4,3:"Kérem a papir 2. szinét !";
24360 GET A$
24361 IF A$=""THEN 24360
24362 SELECT CASEORD(A$)
24363 CASE 176
24364 LET PAPIR2=PAPIR2+1
24365 IF PAPIR2=256THENLET PAPIR2=255
24366 SET #202:PALETTEPAPIR1,TINTA1,0,0,PAPIR2,TINTA2
24367 CASE 180
24368 LET PAPIR2=PAPIR2-1
24369 IF PAPIR2=-1THENLET PAPIR2=0
24370 SET #202:PALETTEPAPIR1,TINTA1,0,0,PAPIR2,TINTA2,0,0,
24371 CASE 13
24372 GOTO 24376
24373 CASE ELSE
24374 END SELECT
24375 GOTO 24360
24376 PRINT #202,AT4,3:" ";
24377 PRINT #202,AT4,3:"Kérem az irås 2. szinét !";
24378 GET A$
24379 IF A$=""THEN 24378
24380 SELECT CASEORD(A$)
24381 CASE 176
24382 LET TINTA2=TINTA2+1
24383 IF TINTA2=256THENLET TINTA2=255
24384 SET #202:PALETTEPAPIR1,TINTA1,0,0,PAPIR2,TINTA2
24385 CASE 180
24386 LET TINTA2=TINTA2-1
24387 IF TINTA2=-1THENLET TINTA2=0
24388 SET #202:PALETTEPAPIR1,TINTA1,0,0,PAPIR2,TINTA2,0,0,
24389 CASE 13 !
24390 SET #202:INK1
24391 PRINT #202,AT4,3:" ";
24392 GOTO 24396
24393 CASE ELSE
24394 END SELECT
24395 GOTO 24378
24396 PRINT AT23,3:"Kérem a hibaüzenet tintaszinét !";
24397 GET A$
24398 IF A$=""THEN 24397
24399 SELECT CASEORD(A$)
24400 CASE 176
24401 LET TINTA3=TINTA3+1
24402 IF TINTA3=256THENLET TINTA3=255
24403 SET #102:PALETTEPAPIR3,TINTA3,0,0,0,0,0,0,
24404 CASE 180
24405 LET TINTA3=TINTA3-1
24406 IF TINTA3=-1THENLET TINTA3=0
24407 SET #102:PALETTEPAPIR3,TINTA3,0,0,0,0,0,0,
24408 CASE 13
24409 GOTO 24413
24410 CASE ELSE
24411 END SELECT
24412 GOTO 24397
24413 PRINT AT23,3:" ";
24414 PRINT AT23,3:"Kérem a hibaüzenet papirszinét !";
24415 GET A$
24416 IF A$=""THEN 24415
24417 SELECT CASEORD(A$)
24418 CASE 176
24419 LET PAPIR3=PAPIR3+1
24420 IF PAPIR3=256THENLET PAPIR3=255
24421 SET #102:PALETTEPAPIR3,TINTA3,0,10,0,0,0,0,
24422 CASE 180
24423 LET PAPIR3=PAPIR3-1
24424 IF PAPIR3=-1THENLET PAPIR3=0
24425 SET #102:PALETTEPAPIR3,TINTA3,0,10,0,0,0,0,
24426 CASE 13
24427 GOTO 24431
24428 CASE ELSE
24429 END SELECT
24430 GOTO 24415
24431 PRINT :PRINT :PRINT
24432 OPEN #8:"BABADAT.DAT"ACCESSOUTPUT
24433 PRINT #8:BORD
24434 PRINT #8:PAPIR1
24435 PRINT #8:PAPIR2
24436 PRINT #8:TINTA1
24437 PRINT #8:TINTA2
24438 PRINT #8:PAPIR3
24439 PRINT #8:TINTA3
24440 CLOSE #8
24441 PRINT :PRINT :PRINT !
24442 RETURN
24443 RESTORE 24204
24444 CLEAR #202:
24445 DO
24446 READ A$
24447 IF A$="vege"THENEXIT DO
24448 PRINT #202:A$
24449 LOOP
24450 PRINT #202,AT2,57:DATE$(1:4)&"."&DATE$(5:6)&"."&DATE$(7:8)&" "&TIME$ !
24451 RETURN
24452 IF B$="☀"THENCLEAR TEXT:PRINT AT9,15:"BABADAT v.2.2 BABSOFT 1989" !
24453 LET VER$="" !
24454 LET Y=PEEK(538)+(PEEK(539)*256)+15755
24455 FOR X=YTOY+27
24456 LET VER$=VER$&CHR$(PEEK(X)) !
24457 NEXT
24458 IF B$="☀"THEN
24459 IF VER$<>"BABADAT v.2.2 BABSOFT 1989"THENPRINT AT11,15:"Köszöntelek Programozom !":PRINT AT13,15:"Sajnålattal közlöm a betöltö megsérült !"
24460 IF VER$="BABADAT v.2.2 BABSOFT 1989"THENPRINT AT11,15:"Köszöntelek Programozom !":PRINT AT13,15:"Orömmel közlöm a betöltövel minden rendben !" !
24461 RUN "BABADAT.PRG"(255,"",0,0,0,0)
24462 ELSE
24463 IF VER$<>"BABADAT v.2.2 BABSOFT 1989"THENSET 0,0 ! !!!!
24464 END IF
24465 RETURN
EXOS header pos/serial: #1 at 0x3ddf
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)
Enterprise-128 EXOS file analyzer, lister and disassembler v0.5.8 ©2012,2013 "LGB" Gábor Lénárt (lgb at-sign lgb dot hu)