ASK
FILE INFORMATION
FILENAME(S): ASK
FILE TYPE(S): PRG
FILE SIZE: 1.1K
FIRST SEEN: 2025-11-30 01:12:46
APPEARS ON: 2 disk(s)
FILE HASH
001d0d9e6f7e6b7eb51b80dcd32376d2a20357c88df6badfbc148df4e9880a82
FOUND ON DISKS (2 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| 10012 SEITE A | ASK | PRG | C64er, DuncanTwain | 31 | 15 | DOWNLOAD FILE |
| 10012 SEITE A | ASK | PRG | BrainSkull, Sammlung | 31 | 15 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 51 08 00 00 8F 20 20 20 20 20 20 53 41 56 |..Q.... SAV|
00000010: 45 22 40 3A 41 53 4B 22 2C 38 20 20 20 20 20 20 |E"@:ASK",8 |
00000020: 20 20 20 20 20 20 20 20 20 20 3A 20 52 45 4D 20 | : REM |
00000030: 2A 20 42 59 20 41 55 47 55 53 54 20 53 43 48 57 |* BY AUGUST SCHW|
00000040: 41 42 2C 20 41 2D 38 30 31 30 20 47 52 41 5A 20 |AB, A-8010 GRAZ |
00000050: 2A 00 93 08 01 00 47 B2 38 3A 9F 31 2C 47 2C 31 |*.....G.8:.1,G,1|
00000060: 35 3A 9F 32 2C 47 2C 32 2C 22 41 53 4B 2E 52 45 |5:.2,G,2,"ASK.RE|
00000070: 4C 2C 4C 2C 22 AA C7 28 33 38 29 3A 97 35 33 32 |L,L,"..(38):.532|
00000080: 38 30 2C 30 3A 97 35 33 32 38 31 2C 30 3A 46 B2 |80,0:.53281,0:F.|
00000090: 32 35 36 00 D8 08 02 00 86 41 28 39 39 29 3A 97 |256......A(99):.|
000000A0: 38 30 38 2C 32 33 30 3A 97 35 33 32 37 32 2C 32 |808,230:.53272,2|
000000B0: 33 3A 81 49 B2 30 A4 33 38 3A 4F 24 B2 4F 24 AA |3:.I.0.38:O$.O$.|
000000C0: 22 20 22 3A 55 24 B2 55 24 AA 22 C0 22 3A 82 3A |" ":U$.U$.".":.:|
000000D0: 4E 24 28 30 29 B2 22 CE 00 1E 09 03 00 99 22 93 |N$(0).".......".|
000000E0: 1F 22 55 24 22 20 05 C1 20 D3 20 CB 20 20 20 9B |."U$" .. . . .|
000000F0: CA 1C 3D CA 41 20 9B CE 1C 3D CE 45 49 4E 20 9B |..=.A ...=.EIN .|
00000100: 5E 1C 3D DA 55 52 55 45 43 4B 20 9B C1 1C 3D C1 |^.=.URUECK ...=.|
00000110: 45 4E 44 45 52 4E 22 3A 99 22 1F 22 55 24 00 63 |ENDERN":."."U$.c|
00000120: 09 04 00 4A 24 28 31 29 B2 22 20 22 3A 4A 24 28 |...J$(1)." ":J$(|
00000130: 30 29 B2 22 CA 22 3A 44 24 B2 C7 28 31 33 29 3A |0).".":D$..(13):|
00000140: 43 24 B2 C7 28 30 29 3A 59 B2 31 3A 8D 31 35 3A |C$..(0):Y.1:.15:|
00000150: 4C B2 52 28 30 29 3A 59 B2 32 3A 8B 4C B3 32 A7 |L.R(0):Y.2:.L.2.|
00000160: 4C B2 32 00 A1 09 05 00 8B 59 B2 30 A7 85 22 9A |L.2......Y.0..".|
00000170: C6 52 41 47 20 20 20 3D 9D 9D 9D 22 3B 47 24 3A |.RAG =...";G$:|
00000180: 99 22 91 20 20 20 20 20 22 3A 41 24 B2 C8 28 47 |.". ":A$..(G|
00000190: 24 2C 31 29 3A 4A B2 31 3A 53 50 B2 31 3A 89 31 |$,1):J.1:SP.1:.1|
000001A0: 33 00 EA 09 06 00 4E 24 28 31 29 B2 22 20 22 3A |3.....N$(1)." ":|
000001B0: 8D 31 35 3A 4D 24 B2 22 9E 20 22 AA 4A 24 28 AB |.15:M$.". ".J$(.|
000001C0: 28 52 28 31 29 B2 30 29 29 AA 22 2F 22 AA 4E 24 |(R(1).0))."/".N$|
000001D0: 28 AB 28 52 28 30 29 B2 30 29 29 AA 22 20 05 3F |(.(R(0).0))." .?|
000001E0: 9B 20 22 3A 8B 59 B2 30 A7 35 00 22 0A 07 00 4A |. ":.Y.0.5."...J|
000001F0: B2 32 3A 41 28 51 29 B2 59 3A 51 B2 51 AA 31 3A |.2:A(Q).Y:Q.Q.1:|
00000200: 99 4D 24 46 24 3A 97 31 39 38 2C 30 3A 92 31 39 |.M$F$:.198,0:.19|
00000210: 38 2C 31 3A A1 41 24 3A 8B 41 24 B2 22 5E 22 A7 |8,1:.A$:.A$."^".|
00000220: 31 33 00 4B 0A 08 00 8B 41 24 B2 22 4E 22 A7 99 |13.K....A$."N"..|
00000230: 22 91 9B CE 45 49 4E 20 22 3A 58 B2 59 3A 59 B2 |"...EIN ":X.Y:Y.|
00000240: 52 28 30 29 3A 5A B2 30 3A 89 35 00 7B 0A 09 00 |R(0):Z.0:.5.{...|
00000250: 8B 41 24 B2 22 41 22 A7 85 22 91 1C C1 45 4E 44 |.A$."A".."...END|
00000260: 20 22 3B 46 24 3A 99 22 91 20 20 20 20 22 3A 8D | ";F$:.". ":.|
00000270: 31 37 3A 99 22 91 91 22 3A 89 37 00 AA 0A 0A 00 |17:."..":.7.....|
00000280: 99 22 91 20 20 05 CA 41 20 22 3A 8B C8 28 46 24 |.". ..A ":..(F$|
00000290: 2C 31 29 B3 B1 22 3D 22 A7 58 B2 59 3A 59 B2 52 |,1).."=".X.Y:Y.R|
000002A0: 28 31 29 3A 5A B2 31 3A 89 35 00 D2 0A 0B 00 8B |(1):Z.1:.5......|
000002B0: 53 50 A7 59 B2 31 3A 52 28 30 29 B2 4C 3A 52 28 |SP.Y.1:R(0).L:R(|
000002C0: 31 29 B2 30 3A 46 24 B2 22 44 41 54 41 22 3A 8D |1).0:F$."DATA":.|
000002D0: 31 37 00 F7 0A 0C 00 A0 32 3A A0 31 3A 99 22 1F |17......2:.1:.".|
000002E0: 22 55 24 3A 97 31 39 38 2C 30 3A 92 31 39 38 2C |"U$:.198,0:.198,|
000002F0: 31 3A A1 41 24 3A 8A 00 30 0B 0D 00 8B 41 24 B2 |1:.A$:..0....A$.|
00000300: 22 5E 22 A7 51 B2 28 51 AB 4A 29 AC AB 28 28 51 |"^".Q.(Q.J)..((Q|
00000310: AB 4A 29 B1 AB 31 29 3A 59 B2 41 28 51 29 3A 99 |.J)..1):Y.A(Q):.|
00000320: 22 91 22 4F 24 22 91 91 91 91 11 11 22 3A 89 35 |"."O$"......":.5|
00000330: 00 6E 0B 0E 00 52 28 5A 29 B2 4C 3A 59 B2 58 3A |.n...R(Z).L:Y.X:|
00000340: 8D 31 37 3A 46 24 B2 47 24 3A 59 B2 4C 3A 4C B2 |.17:F$.G$:Y.L:L.|
00000350: 4C AA 31 3A 52 28 30 29 B2 30 3A 52 28 31 29 B2 |L.1:R(0).0:R(1).|
00000360: 30 3A 8D 31 37 3A 99 22 91 91 22 3A 89 37 00 9F |0:.17:."..":.7..|
00000370: 0B 0F 00 8D 31 38 3A 84 32 2C 46 24 3A 81 49 B2 |....18:.2,F$:.I.|
00000380: 30 A4 33 3A A1 23 32 2C 58 24 28 49 29 3A 82 3A |0.3:.#2,X$(I):.:|
00000390: 8B C3 28 46 24 29 B3 33 32 A7 59 B2 30 3A 8E 00 |..(F$).32.Y.0:..|
000003A0: E1 0B 10 00 81 49 B2 30 A4 33 3A 58 28 49 29 B2 |.....I.0.3:X(I).|
000003B0: C6 28 58 24 28 49 29 AA 43 24 29 3A 82 3A 52 28 |.(X$(I).C$):.:R(|
000003C0: 30 29 B2 58 28 30 29 AC 46 AA 58 28 31 29 3A 52 |0).X(0).F.X(1):R|
000003D0: 28 31 29 B2 58 28 32 29 AC 46 AA 58 28 33 29 3A |(1).X(2).F.X(3):|
000003E0: 8E 00 10 0C 11 00 8D 31 38 3A 98 32 2C C8 28 46 |.......18:.2,.(F|
000003F0: 24 AA 4F 24 2C 33 32 29 44 24 C7 28 4D 29 C7 28 |$.O$,32)D$.(M).(|
00000400: 4E 29 C7 28 55 29 C7 28 56 29 22 58 22 3B 3A 8E |N).(U).(V)"X";:.|
00000410: 00 30 0C 12 00 8D 32 30 3A 98 31 2C 22 50 22 C7 |.0....20:.1,"P".|
00000420: 28 39 38 29 C7 28 50 29 C7 28 4F 29 C7 28 31 29 |(98).(P).(O).(1)|
00000430: 00 4E 0C 13 00 84 31 2C 45 3A 8B 45 B2 35 30 A7 |.N....1,E:.E.50.|
00000440: 98 32 2C C7 28 32 35 35 29 3B 3A 89 31 38 00 93 |.2,.(255);:.18..|
00000450: 0C 14 00 4F B2 B5 28 59 AD 46 29 3A 50 B2 59 AB |...O..(Y.F):P.Y.|
00000460: 4F AC 46 3A 4D B2 B5 28 52 28 30 29 AD 46 29 3A |O.F:M..(R(0).F):|
00000470: 4E B2 52 28 30 29 AB 4D AC 46 3A 55 B2 B5 28 52 |N.R(0).M.F:U..(R|
00000480: 28 31 29 AD 46 29 3A 56 B2 52 28 31 29 AB 55 AC |(1).F):V.R(1).U.|
00000490: 46 3A 8E 00 00 00 |F:.... |
..Q.... SAVE"@:ASK",8
: REM * BY AUGUST SCHWAB, A-8010 GRAZ
*.....G.8:.1,G,15:.2,G,2,"ASK.REL,L,".G(
38):.53280,0:.53281,0:F.256.X....A(99):.
808,230:.53272,23:.I.0.38:O$.O$." ":U$.U
$.".":.:N$(0)."N......".."U$" .A S K .
J.=JA .N.=NEIN .^.=ZURUECK .A.=AENDERN":
."."U$.C...J$(1)." ":J$(0)."J":D$.G(13):
C$.G(0):Y.1:.15:L.R(0):Y.2:.L.2.L.2.....
.Y.0..".FRAG =...";G$:.". ":A$.H(G
$,1):J.1:SP.1:.13.....N$(1)." ":.15:M$."
. ".J$(.(R(1).0))."/".N$(.(R(0).0))." .?
. ":.Y.0.5."...J.2:A(Q).Y:Q.Q.1:.M$F$:.1
98,0:.198,1:.A$:.A$."^".13.K....A$."N"..
"..NEIN ":X.Y:Y.R(0):Z.0:.5.{....A$."A".
."..AEND ";F$:.". ":.17:."..":.7.....
.". .JA ":.H(F$,1).."=".X.Y:Y.R(1):Z.1:
.5.R....SP.Y.1:R(0).L:R(1).0:F$."DATA":.
17..... 2: 1:."."U$:.198,0:.198,1:.A$:..
0....A$."^".Q.(Q.J)..((Q.J)..1):Y.A(Q):.
"."O$"......":.5.N...R(Z).L:Y.X:.17:F$.G
$:Y.L:L.L.1:R(0).0:R(1).0:.17:."..":.7..
....18:.2,F$:.I.0.3:.#2,X$(I):.:.C(F$).3
2.Y.0:.......I.0.3:X(I).F(X$(I).C$):.:R(
0).X(0).F.X(1):R(1).X(2).F.X(3):.......1
8:.2,H(F$.O$,32)D$G(M)G(N)G(U)G(V)"X";:.
.0....20:.1,"P"G(98)G(P)G(O)G(1).N....1,
E:.E.50..2,G(255);:.18.....O..(Y.F):P.Y.
O.F:M..(R(0).F):N.R(0).M.F:U..(R(1).F):V
.R(1).U.F:....
> CLICK IMAGE PREVIEW FOR FULL MODAL