VSPEXAMPLE.DATA
FILE INFORMATION
FILENAME(S): VSPEXAMPLE.DATA
FILE TYPE(S): PRG
FILE SIZE: 1.3K
FIRST SEEN: 2025-11-30 21:24:59
APPEARS ON: 1 disk(s)
FILE HASH
94cf95195dc489b68ec61a983d0fda3b6439be5ba696674ca02014f482d4202b
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| GRAPHICS | VSPEXAMPLE.DATA | PRG | DuncanTwain | 12 | 4 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 0F 08 0A 00 FE 82 33 2C 31 3A FE 82 30 00 |........3,1:..0.|
00000010: 24 08 14 00 FE 87 2C 31 31 2C 31 30 2C 31 30 2C |$.....,11,10,10,|
00000020: 2C 2C 2C 31 00 37 08 1E 00 FE 8C 41 24 2C 30 2C |,,,1.7.....A$,0,|
00000030: 30 2C 32 33 2C 32 30 00 44 08 28 00 8D 36 30 30 |0,23,20.D.(..600|
00000040: 30 30 3A 80 00 4F 08 32 00 8D 31 30 30 30 30 00 |00:..O.2..10000.|
00000050: 6C 08 3C 00 FE 95 41 24 2C 31 3A FE 91 31 2C 31 |l.<...A$,1:..1,1|
00000060: 36 30 2C 31 30 30 3A FE 93 31 2C 31 00 72 08 46 |60,100:..1,1.r.F|
00000070: 00 80 00 84 08 C8 00 83 20 36 37 20 20 3A 8F 20 |........ 67 :. |
00000080: 54 45 53 54 00 A9 08 D2 00 83 20 20 30 2C 32 35 |TEST...... 0,25|
00000090: 34 2C 20 20 30 2C 20 20 33 2C 31 33 31 2C 31 32 |4, 0, 3,131,12|
000000A0: 38 2C 20 20 36 2C 20 20 30 00 CE 08 DC 00 83 31 |8, 6, 0......1|
000000B0: 39 32 2C 20 20 38 2C 20 20 30 2C 20 33 32 2C 20 |92, 8, 0, 32, |
000000C0: 31 36 2C 20 20 30 2C 20 31 36 2C 20 34 38 00 F3 |16, 0, 16, 48..|
000000D0: 08 E6 00 83 20 20 30 2C 20 32 34 2C 20 33 32 2C |.... 0, 24, 32,|
000000E0: 20 20 30 2C 20 20 38 2C 20 39 36 2C 20 20 30 2C | 0, 8, 96, 0,|
000000F0: 20 31 32 00 18 09 F0 00 83 20 36 34 2C 20 20 30 | 12...... 64, 0|
00000100: 2C 20 20 34 2C 20 36 34 2C 20 20 30 2C 20 20 34 |, 4, 64, 0, 4|
00000110: 2C 20 36 34 2C 20 20 30 00 3D 09 FA 00 83 20 20 |, 64, 0.=.... |
00000120: 34 2C 20 36 34 2C 20 20 30 2C 20 20 34 2C 20 36 |4, 64, 0, 4, 6|
00000130: 34 2C 20 20 30 2C 20 20 34 2C 20 39 36 00 62 09 |4, 0, 4, 96.b.|
00000140: 04 01 83 20 20 30 2C 20 31 32 2C 20 33 32 2C 20 |... 0, 12, 32, |
00000150: 20 30 2C 20 20 38 2C 20 34 38 2C 20 20 30 2C 20 | 0, 8, 48, 0, |
00000160: 32 34 00 87 09 0E 01 83 20 31 36 2C 20 20 30 2C |24...... 16, 0,|
00000170: 20 31 36 2C 20 20 38 2C 20 20 30 2C 20 33 32 2C | 16, 8, 0, 32,|
00000180: 20 20 36 2C 20 20 30 00 AC 09 18 01 83 31 39 32 | 6, 0......192|
00000190: 2C 20 20 33 2C 31 33 31 2C 31 32 38 2C 20 20 30 |, 3,131,128, 0|
000001A0: 2C 32 35 34 2C 20 20 30 2C 20 32 33 00 BD 09 22 |,254, 0, 23..."|
000001B0: 01 83 20 20 30 2C 20 32 30 2C 20 20 30 00 E1 09 |.. 0, 20, 0...|
000001C0: 10 27 8F 20 54 48 49 53 20 52 4F 55 54 49 4E 45 |.'. THIS ROUTINE|
000001D0: 20 52 45 42 55 49 4C 44 53 20 47 52 41 50 48 49 | REBUILDS GRAPHI|
000001E0: 43 00 05 0A 1A 27 8F 20 53 54 52 49 4E 47 53 20 |C....'. STRINGS |
000001F0: 46 52 4F 4D 20 44 41 54 41 20 53 54 41 54 45 4D |FROM DATA STATEM|
00000200: 45 4E 54 53 2E 00 23 0A 24 27 8F 20 45 4E 54 45 |ENTS..#.$'. ENTE|
00000210: 52 20 54 48 49 53 20 52 4F 55 54 49 4E 45 20 56 |R THIS ROUTINE V|
00000220: 49 41 3A 00 29 0A 2E 27 8F 00 44 0A 38 27 8F 20 |IA:.)..'..D.8'. |
00000230: 20 20 20 20 20 20 20 20 20 47 4F 53 55 42 20 31 | GOSUB 1|
00000240: 30 30 30 30 00 4A 0A 42 27 8F 00 6D 0A 4C 27 8F |0000.J.B'..m.L'.|
00000250: 20 54 48 45 20 41 24 20 53 54 52 49 4E 47 20 43 | THE A$ STRING C|
00000260: 4F 4E 54 41 49 4E 53 20 44 41 54 41 2E 00 73 0A |ONTAINS DATA..s.|
00000270: 56 27 8F 00 82 0A 60 27 41 24 B2 22 22 20 3A 87 |V'....`'A$."" :.|
00000280: 20 4E 00 8D 0A 6A 27 81 49 B2 31 A4 4E 00 A1 0A | N...j'.I.1.N...|
00000290: 74 27 87 20 41 3A 20 41 24 B2 41 24 AA C7 28 41 |t'. A: A$.A$..(A|
000002A0: 29 00 A8 0A 7E 27 82 49 00 AE 0A 88 27 8E 00 D2 |)...~'.I....'...|
000002B0: 0A 60 EA 8F 20 54 48 49 53 20 52 4F 55 54 49 4E |.`.. THIS ROUTIN|
000002C0: 45 20 43 4F 4E 56 45 52 54 53 20 53 54 52 49 4E |E CONVERTS STRIN|
000002D0: 47 53 00 F6 0A 6A EA 8F 20 43 4F 4E 54 41 49 4E |GS...j.. CONTAIN|
000002E0: 49 4E 47 20 20 47 52 41 50 48 49 43 20 53 48 41 |ING GRAPHIC SHA|
000002F0: 50 45 53 20 4F 52 00 1A 0B 74 EA 8F 20 53 50 52 |PES OR...t.. SPR|
00000300: 49 54 45 53 20 49 4E 54 4F 20 20 44 41 54 41 20 |ITES INTO DATA |
00000310: 53 54 41 54 45 4D 45 4E 54 53 00 3E 0B 7E EA 8F |STATEMENTS.>.~..|
00000320: 20 41 4E 44 20 4D 45 52 47 45 53 20 54 48 45 4D | AND MERGES THEM|
00000330: 20 49 4E 54 4F 20 50 52 4F 47 52 41 4D 53 00 44 | INTO PROGRAMS.D|
00000340: 0B 88 EA 8F 00 68 0B 92 EA 8F 20 44 45 46 49 4E |.....h.... DEFIN|
00000350: 45 20 41 24 20 53 54 52 49 4E 47 20 46 49 52 53 |E A$ STRING FIRS|
00000360: 54 20 26 20 54 48 45 4E 00 86 0B 9C EA 8F 20 45 |T & THEN...... E|
00000370: 4E 54 45 52 20 54 48 49 53 20 52 4F 55 54 49 4E |NTER THIS ROUTIN|
00000380: 45 20 56 49 41 3A 00 8C 0B A6 EA 8F 00 A7 0B B0 |E VIA:..........|
00000390: EA 8F 20 20 20 20 20 20 20 20 20 20 47 4F 53 55 |.. GOSU|
000003A0: 42 20 36 30 30 30 30 00 AD 0B BA EA 8F 00 BB 0B |B 60000.........|
000003B0: C4 EA 4E B2 32 20 3A 53 49 B2 31 00 DC 0B CE EA |..N.2 :SI.1.....|
000003C0: 85 22 53 54 41 52 54 49 4E 47 20 53 54 41 54 45 |."STARTING STATE|
000003D0: 4D 45 4E 54 20 4E 4F 2E 22 3B 53 4E 00 FD 0B D8 |MENT NO.";SN....|
000003E0: EA 85 22 49 4E 43 52 45 4D 45 4E 54 20 54 4F 20 |.."INCREMENT TO |
000003F0: 4E 45 58 54 20 53 54 4D 54 22 3B 53 49 00 18 0C |NEXT STMT";SI...|
00000400: E2 EA 85 22 43 4F 4D 4D 45 4E 54 20 4F 52 20 4C |..."COMMENT OR L|
00000410: 41 42 45 4C 22 3B 43 24 00 34 0C EC EA 99 22 93 |ABEL";C$.4....".|
00000420: 11 11 22 CA 28 C4 28 53 4E 29 2C 32 29 22 44 41 |..".(.(SN),2)"DA|
00000430: 54 41 22 3B 00 49 0C F1 EA 99 C3 28 41 24 29 22 |TA";.I.....(A$)"|
00000440: 20 3A 52 45 4D 20 22 43 24 00 56 0C F2 EA 53 4E | :REM "C$.V...SN|
00000450: B2 53 4E AA 53 49 00 67 0C F6 EA 81 49 B2 31 A4 |.SN.SI.g....I.1.|
00000460: C3 28 41 24 29 A9 38 00 80 0C FB EA 99 20 CA 28 |.(A$).8...... .(|
00000470: C4 28 53 4E 29 2C 32 29 3B 22 44 41 54 41 22 3B |.(SN),2);"DATA";|
00000480: 00 92 0C 00 EB 81 4A B2 30 A4 37 20 3A 4B B2 49 |......J.0.7 :K.I|
00000490: AA 4A 00 B1 0C 0A EB 42 24 B2 CA 28 41 24 2C 4B |.J.....B$..(A$,K|
000004A0: 2C 31 29 20 3A 8B 42 24 B2 22 22 A7 36 30 32 30 |,1) :.B$."".6020|
000004B0: 30 00 CF 0C 14 EB 99 20 C9 28 22 20 20 22 AA C4 |0...... .(" "..|
000004C0: 28 C6 28 42 24 29 29 AA 22 2C 22 2C 34 29 3B 00 |(.(B$)).",",4);.|
000004D0: E7 0C 1E EB 82 4A 20 3A 53 4E B2 53 4E AA 53 49 |.....J :SN.SN.SI|
000004E0: 20 3A 4E B2 4E AA 31 00 F2 0C 28 EB 99 20 22 9D | :N.N.1...(.. ".|
000004F0: 20 22 00 01 0D 32 EB 82 49 20 3A 99 20 22 13 22 | "...2..I :. "."|
00000500: 3B 00 1B 0D 3C EB 81 49 B2 30 A4 4E 20 3A 97 20 |;...<..I.0.N :. |
00000510: 36 33 31 AA 49 2C 31 33 20 3A 82 00 27 0D 46 EB |631.I,13 :..'.F.|
00000520: 97 20 31 39 38 2C 4E 00 2D 0D 50 EB 8E 00 00 00 |. 198,N.-.P.....|
........3,1:..0.$.....,11,10,10,,,,1.7..
...A$,0,0,23,20.D.(..60000:..O.2..10000.
L.<...A$,1:..1,160,100:..1,1.R.F.....H..
67 :. TEST...R.. 0,254, 0, 3,131,12
8, 6, 0.N....192, 8, 0, 32, 16, 0,
16, 48...... 0, 24, 32, 0, 8, 96, 0,
12...... 64, 0, 4, 64, 0, 4, 64, 0
.=.... 4, 64, 0, 4, 64, 0, 4, 96.B.
... 0, 12, 32, 0, 8, 48, 0, 24......
16, 0, 16, 8, 0, 32, 6, 0......192
, 3,131,128, 0,254, 0, 23...".. 0, 2
0, 0....'. THIS ROUTINE REBUILDS GRAPHI
C....'. STRINGS FROM DATA STATEMENTS..#.
$'. ENTER THIS ROUTINE VIA:.)..'..D.8'.
GOSUB 10000.J.B'..M.L'. THE A$
STRING CONTAINS DATA..S.V'....`'A$."" :.
N...J'.I.1.N...T'. A: A$.A$.G(A)...~'.I
....'..R.`.. THIS ROUTINE CONVERTS STRIN
GS...J.. CONTAINING GRAPHIC SHAPES OR..
.T.. SPRITES INTO DATA STATEMENTS.>.~..
AND MERGES THEM INTO PROGRAMS.D.....H..
.. DEFINE A$ STRING FIRST & THEN...... E
NTER THIS ROUTINE VIA:............
GOSUB 60000.........D.N.2 :SI.1...N.
."STARTING STATEMENT NO.";SN...X.."INCRE
MENT TO NEXT STMT";SI......"COMMENT OR L
ABEL";C$.4...."..."J(D(SN),2)"DATA";.I..
..C(A$)" :REM "C$.V...SN.SN.SI.G....I.1.
C(A$).8...... J(D(SN),2);"DATA";......J.
0.7 :K.I.J.....B$.J(A$,K,1) :.B$."".6020
0.O.... I(" ".D(F(B$)).",",4);......J :
SN.SN.SI :N.N.1...(.. ". "...2..I :. "."
;...<..I.0.N :. 631.I,13 :..'.F.. 198,N.
-.P.....
> CLICK IMAGE PREVIEW FOR FULL MODAL