BAS4-->BAS7
FILE INFORMATION
FILENAME(S): BAS4-->BAS7
FILE TYPE(S): PRG
FILE SIZE: 1.4K
FIRST SEEN: 2025-11-30 16:22:59
APPEARS ON: 1 disk(s)
FILE HASH
6d60237a19ff9fe9d65faa176f6cce545d8fc851baefa2975008f80f47e4275d
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| STATIK | BAS4-->BAS7 | PRG | BrainSkull, Markus Geier | 15 | 3 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 01 1C 18 1C 0A 00 8F 20 53 41 56 45 22 30 3A 34 |....... SAVE"0:4| 00000010: 4E 41 43 48 37 22 2C 38 00 45 1C 14 00 8F 20 54 |NACH7",8.E.... T| 00000020: 4F 4B 45 4E 2D 55 4D 53 45 54 5A 55 4E 47 20 42 |OKEN-UMSETZUNG B| 00000030: 41 53 49 43 34 2E 30 20 4E 41 43 48 20 42 41 53 |ASIC4.0 NACH BAS| 00000040: 49 43 37 2E 30 00 68 1C 32 00 86 41 24 2C 5A 5A |IC7.0.h.2..A$,ZZ| 00000050: 24 2C 4E 24 2C 46 47 3A 4E 24 B2 C7 28 30 29 3A |$,N$,FG:N$..(0):| 00000060: 47 24 B2 C7 28 33 34 29 00 8C 1C 64 00 99 22 44 |G$..(34)...d.."D| 00000070: 49 53 4B 45 54 54 45 20 49 4E 20 44 52 49 56 45 |ISKETTE IN DRIVE| 00000080: 20 30 20 45 49 4E 4C 45 47 45 4E 2E 00 BD 1C 69 | 0 EINLEGEN....i| 00000090: 00 99 22 55 4D 53 45 54 5A 55 4E 47 20 45 52 46 |.."UMSETZUNG ERF| 000000A0: 4F 4C 47 54 20 56 4F 4E 20 44 49 53 4B 45 54 54 |OLGT VON DISKETT| 000000B0: 45 20 5A 55 20 44 49 53 4B 45 54 54 45 00 D3 1C |E ZU DISKETTE...| 000000C0: 6E 00 85 22 38 58 58 58 2D 4E 41 4D 45 3D 22 3B |n.."8XXX-NAME=";| 000000D0: 4E 38 24 00 F5 1C 78 00 85 22 31 32 38 2D 4E 41 |N8$...x.."128-NA| 000000E0: 4D 45 3D 22 3B 4E 32 24 3A 8B 4E 38 24 B2 4E 32 |ME=";N2$:.N8$.N2| 000000F0: 24 A7 31 32 30 00 23 1D 8C 00 9F 32 2C 38 2C 34 |$.120.#....2,8,4| 00000100: 2C 4E 32 24 3A A1 23 32 2C 41 24 2C 41 24 3A 53 |,N2$:.#2,A$,A$:S| 00000110: B2 53 54 3A A0 32 3A 8F 20 54 45 53 54 20 4C 45 |.ST:.2:. TEST LE| 00000120: 53 45 4E 00 4A 1D 96 00 8B 53 B2 30 A7 99 22 5A |SEN.J....S.0.."Z| 00000130: 49 45 4C 46 49 4C 45 20 45 58 49 53 54 49 45 52 |IELFILE EXISTIER| 00000140: 54 21 22 3A 99 3A 89 31 32 30 00 6B 1D A0 00 9F |T!":.:.120.k....| 00000150: 31 2C 38 2C 33 2C 4E 38 24 3A 9F 32 2C 38 2C 34 |1,8,3,N8$:.2,8,4| 00000160: 2C 4E 32 24 AA 22 2C 50 2C 57 22 00 9D 1D AA 00 |,N2$.",P,W".....| 00000170: A1 23 31 2C 41 24 2C 42 24 3A 41 38 B2 C6 28 41 |.#1,A$,B$:A8..(A| 00000180: 24 AA 4E 24 29 AA 32 35 36 AC C6 28 42 24 AA 4E |$.N$).256..(B$.N| 00000190: 24 29 3A 8F 20 4C 41 44 45 2D 41 44 52 00 C7 1D |$):. LADE-ADR...| 000001A0: B4 00 41 32 B2 32 38 AC 32 35 36 AA 31 3A 8F 20 |..A2.28.256.1:. | 000001B0: 46 55 45 52 20 31 32 38 3A 4C 41 44 45 20 41 44 |FUER 128:LADE AD| 000001C0: 52 3D 24 31 43 30 31 00 EF 1D B5 00 48 32 B2 B5 |R=$1C01.....H2..| 000001D0: 28 41 32 AD 32 35 36 29 3A 98 32 2C C7 28 41 32 |(A2.256):.2,.(A2| 000001E0: AB 48 32 AC 32 35 36 29 3B C7 28 48 32 29 3B 00 |.H2.256);.(H2);.| 000001F0: 1B 1E BE 00 86 43 24 28 32 35 36 29 2C 5A 4E 28 |.....C$(256),ZN(| 00000200: 32 35 36 29 3A 8F 20 54 4F 4B 45 4E 20 55 4D 53 |256):. TOKEN UMS| 00000210: 45 54 5A 54 41 42 45 4C 4C 45 4E 00 41 1E BF 00 |ETZTABELLEN.A...| 00000220: 81 49 B2 32 30 34 A4 32 35 36 3A 87 41 24 3A 8B |.I.204.256:.A$:.| 00000230: 41 24 B2 22 45 22 A7 49 B2 39 39 39 3A 89 31 39 |A$."E".I.999:.19| 00000240: 34 00 6A 1E C0 00 5A 4E 28 49 29 B2 AB 28 C3 28 |4.j...ZN(I)..(.(| 00000250: 41 24 29 B1 33 29 3A 43 24 28 49 29 B2 C7 28 C5 |A$).3):C$(I)..(.| 00000260: 28 C8 28 41 24 2C 33 29 29 29 00 8F 1E C1 00 8B |(.(A$,3)))......| 00000270: 5A 4E 28 49 29 A7 43 24 28 49 29 B2 43 24 28 49 |ZN(I).C$(I).C$(I| 00000280: 29 AA C7 28 C5 28 C9 28 41 24 2C 33 29 29 29 00 |)..(.(.(A$,3))).| 00000290: 95 1E C2 00 82 00 CF 1E C8 00 A1 23 31 2C 41 24 |...........#1,A$| 000002A0: 2C 42 24 3A 42 38 B2 C6 28 41 24 AA 4E 24 29 AA |,B$:B8..(A$.N$).| 000002B0: 32 35 36 AC C6 28 42 24 AA 4E 24 29 3A 8F 20 43 |256..(B$.N$):. C| 000002C0: 48 41 49 4E 49 4E 47 20 50 4F 49 4E 54 45 52 00 |HAINING POINTER.| 000002D0: 01 1F C9 00 4E 38 B2 42 38 AB 41 38 3A 3A 8B 42 |....N8.B8.A8::.B| 000002E0: 38 B2 30 A7 98 32 2C 4E 24 3B 4E 24 3B 3A A0 31 |8.0..2,N$;N$;:.1| 000002F0: 3A A0 32 3A 80 3A 8F 20 50 52 4F 47 2D 45 4E 44 |:.2:.:. PROG-END| 00000300: 45 00 3A 1F D2 00 5A 32 B2 30 3A 46 47 B2 AB 31 |E.:...Z2.0:FG..1| 00000310: 3A A1 23 31 2C 41 24 3A 5A 5A 24 B2 C8 28 41 24 |:.#1,A$:ZZ$..(A$| 00000320: AA 4E 24 2C 31 29 3A 8F 20 4E 45 55 45 20 5A 45 |.N$,1):. NEUE ZE| 00000330: 49 4C 45 20 49 4E 20 5A 5A 24 00 6E 1F D3 00 A1 |ILE IN ZZ$.n....| 00000340: 23 31 2C 42 24 3A 5A 5A 24 B2 5A 5A 24 AA C8 28 |#1,B$:ZZ$.ZZ$..(| 00000350: 42 24 AA 4E 24 2C 31 29 3A 8F 20 5A 45 49 4C 45 |B$.N$,1):. ZEILE| 00000360: 4E 4E 55 4D 4D 45 52 20 46 45 52 54 49 47 00 97 |NNUMMER FERTIG..| 00000370: 1F D7 00 99 22 5A 45 49 4C 45 22 3B C6 28 C8 28 |...."ZEILE";.(.(| 00000380: 5A 5A 24 2C 31 29 29 AA 32 35 36 AC C6 28 C9 28 |ZZ$,1)).256..(.(| 00000390: 5A 5A 24 2C 31 29 29 00 CA 1F DC 00 81 49 B2 34 |ZZ$,1))......I.4| 000003A0: A4 4E 38 AB 32 3A A1 23 31 2C 41 24 3A 8B 41 24 |.N8.2:.#1,A$:.A$| 000003B0: B2 47 24 A7 46 47 B2 A8 46 47 3A 8F 20 46 4F 52 |.G$.FG..FG:. FOR| 000003C0: 46 55 45 52 20 5A 45 49 4C 45 00 04 20 E6 00 8B |FUER ZEILE.. ...| 000003D0: 46 47 A7 41 B2 C6 28 41 24 29 3A 8B 41 B1 32 30 |FG.A..(A$):.A.20| 000003E0: 33 AF 41 B3 32 35 35 A7 41 24 B2 43 24 28 41 29 |3.A.255.A$.C$(A)| 000003F0: 3A 5A 32 B2 5A 32 AA 5A 4E 28 41 29 3A 8F 20 55 |:Z2.Z2.ZN(A):. U| 00000400: 4D 43 4F 44 00 3C 20 F0 00 5A 5A 24 B2 5A 5A 24 |MCOD.< ..ZZ$.ZZ$| 00000410: AA 41 24 3A 82 3A A1 23 31 2C 41 24 3A 5A 5A 24 |.A$:.:.#1,A$:ZZ$| 00000420: B2 5A 5A 24 AA 4E 24 3A 8F 20 4E 55 4C 4C 20 41 |.ZZ$.N$:. NULL A| 00000430: 4D 20 5A 45 49 4C 45 4E 45 4E 44 45 00 74 20 FA |M ZEILENENDE.t .| 00000440: 00 41 38 B2 42 38 3A 41 32 B2 41 32 AA 4E 38 AA |.A8.B8:A2.A2.N8.| 00000450: 5A 32 3A 48 32 B2 B5 28 41 32 AD 32 35 36 29 3A |Z2:H2..(A2.256):| 00000460: 8F 20 43 48 41 49 4E 49 4E 47 20 4D 49 54 5A 41 |. CHAINING MITZA| 00000470: 45 4C 45 4E 00 A5 20 04 01 98 32 2C C7 28 41 32 |ELEN.. ...2,.(A2| 00000480: AB 32 35 36 AC 48 32 29 3B C7 28 48 32 29 3B 5A |.256.H2);.(H2);Z| 00000490: 5A 24 3B 3A 89 32 30 30 3A 8F 20 4E 45 55 45 20 |Z$;:.200:. NEUE | 000004A0: 5A 45 49 4C 45 00 D5 20 28 23 8F 20 43 4F 4E 43 |ZEILE.. (#. CONC| 000004B0: 41 54 2C 44 4F 50 45 4E 2C 44 43 4C 4F 53 45 2C |AT,DOPEN,DCLOSE,| 000004C0: 52 45 43 4F 52 44 2C 48 45 41 44 45 52 2C 43 4F |RECORD,HEADER,CO| 000004D0: 4C 4C 45 43 54 00 FE 20 32 23 83 32 35 34 30 31 |LLECT.. 2#.25401| 000004E0: 39 2C 32 35 34 30 31 33 2C 32 35 34 30 31 35 2C |9,254013,254015,| 000004F0: 32 35 34 30 31 38 2C 32 34 31 2C 32 34 33 00 2B |254018,241,243.+| 00000500: 21 3C 23 8F 20 42 41 43 4B 55 50 2C 43 4F 50 59 |!<#. BACKUP,COPY| 00000510: 2C 41 50 50 45 4E 44 2C 44 53 41 56 45 2C 44 4C |,APPEND,DSAVE,DL| 00000520: 4F 41 44 2C 43 41 54 41 4C 4F 47 00 4E 21 46 23 |OAD,CATALOG.N!F#| 00000530: 83 32 34 36 2C 32 34 34 2C 32 35 34 30 31 34 2C |.246,244,254014,| 00000540: 32 33 39 2C 32 34 30 2C 32 35 34 30 31 32 00 6D |239,240,254012.m| 00000550: 21 50 23 8F 20 52 45 4E 41 4D 45 2C 53 43 52 41 |!P#. RENAME,SCRA| 00000560: 54 43 48 2C 44 49 52 45 43 54 4F 52 59 00 80 21 |TCH,DIRECTORY..!| 00000570: 5A 23 83 32 34 35 2C 32 34 32 2C 32 33 38 2C 45 |Z#.245,242,238,E| 00000580: 00 00 00 |... |
....... SAVE"0:4NACH7",8.E.... TOKEN-UMS ETZUNG BASIC4.0 NACH BASIC7.0.H.2..A$,ZZ $,N$,FG:N$.G(0):G$.G(34)...D.."DISKETTE IN DRIVE 0 EINLEGEN....I.."UMSETZUNG ERF OLGT VON DISKETTE ZU DISKETTE.S.N.."8XXX -NAME=";N8$...X.."128-NAME=";N2$:.N8$.N2 $.120.#....2,8,4,N2$:.#2,A$,A$:S.ST: 2:. TEST LESEN.J....S.0.."ZIELFILE EXISTIER T!":.:.120.K. ..1,8,3,N8$:.2,8,4,N2$.",P ,W"......#1,A$,B$:A8.F(A$.N$).256.F(B$.N $):. LADE-ADR.G...A2.28.256.1:. FUER 128 :LADE ADR=$1C01.....H2..(A2.256):.2,G(A2 .H2.256);G(H2);......C$(256),ZN(256):. T OKEN UMSETZTABELLEN.A....I.204.256:.A$:. A$."E".I.999:.194.J...ZN(I)..(C(A$).3):C $(I).G(E(H(A$,3)))...A..ZN(I).C$(I).C$(I ).G(E(I(A$,3)))...B...O.H..#1,A$,B$:B8.F (A$.N$).256.F(B$.N$):. CHAINING POINTER. ..I.N8.B8.A8::.B8.0..2,N$;N$;: 1: 2:.:. PROG-ENDE.:.R.Z2.0:FG..1:.#1,A$:ZZ$.H(A$ .N$,1):. NEUE ZEILE IN ZZ$.N.S..#1,B$:ZZ $.ZZ$.H(B$.N$,1):. ZEILENNUMMER FERTIG.. .W.."ZEILE";F(H(ZZ$,1)).256.F(I(ZZ$,1)). J....I.4.N8.2:.#1,A$:.A$.G$.FG..FG:. FOR FUER ZEILE.. ...FG.A.F(A$):.A.203.A.255. A$.C$(A):Z2.Z2.ZN(A):. UMCOD.< ..ZZ$.ZZ$ .A$:.:.#1,A$:ZZ$.ZZ$.N$:. NULL AM ZEILEN ENDE.T ..A8.B8:A2.A2.N8.Z2:H2..(A2.256): . CHAINING MITZAELEN.. ...2,G(A2.256.H2) ;G(H2);ZZ$;:.200:. NEUE ZEILE.U (#. CONC AT,DOPEN,DCLOSE,RECORD,HEADER,COLLECT.. 2#.254019,254013,254015,254018,241,243.+ !<#. BACKUP,COPY,APPEND,DSAVE,DLOAD,CATA LOG.N!F#.246,244,254014,239,240,254012.M !P#. RENAME,SCRATCH,DIRECTORY..!Z#.245,2 42,238,E...
> CLICK IMAGE PREVIEW FOR FULL MODAL