> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 27 08 01 00 8F 20 33 44 20 44 45 4D 4F 2C |..'.... 3D DEMO,|
00000010: 20 28 43 29 31 39 38 39 20 4D 2E 48 2E 57 45 53 | (C)1989 M.H.WES|
00000020: 54 45 52 57 45 45 4C 00 46 08 02 00 97 35 33 32 |TERWEEL.F....532|
00000030: 38 30 2C 31 34 3A 97 35 33 32 38 31 2C 36 3A 97 |80,14:.53281,6:.|
00000040: 36 34 36 2C 31 34 00 64 08 03 00 8F 20 52 45 41 |646,14.d.... REA|
00000050: 44 20 31 53 54 20 46 49 4C 45 20 46 52 4F 4D 20 |D 1ST FILE FROM |
00000060: 44 49 53 4B 00 82 08 04 00 8F 20 3D 3D 3D 3D 3D |DISK...... =====|
00000070: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================|
00000080: 3D 3D 00 AB 08 05 00 86 44 33 24 28 34 33 29 3A |==......D3$(43):|
00000090: 9F 38 2C 38 2C 38 2C 22 30 3A 33 44 2D 54 45 58 |.8,8,8,"0:3D-TEX|
000000A0: 54 20 46 49 4C 45 2C 53 2C 52 22 00 D4 08 0A 00 |T FILE,S,R".....|
000000B0: 81 44 33 B2 31 A4 33 36 3A 84 38 2C 58 24 3A 84 |.D3.1.36:.8,X$:.|
000000C0: 38 2C 59 24 3A 44 33 24 28 44 33 29 B2 58 24 AA |8,Y$:D3$(D3).X$.|
000000D0: 59 24 3A 82 00 F2 08 0F 00 81 44 33 B2 33 37 A4 |Y$:.......D3.37.|
000000E0: 34 32 3A 84 38 2C 44 33 24 28 44 33 29 3A 82 3A |42:.8,D3$(D3):.:|
000000F0: A0 38 00 13 09 14 00 44 33 24 28 34 33 29 B2 C7 |.8.....D3$(43)..|
00000100: 28 31 33 29 AA 22 11 11 11 11 11 11 11 11 11 11 |(13)."..........|
00000110: 11 1D 22 00 19 09 16 00 3A 00 37 09 17 00 8F 20 |..".....:.7.... |
00000120: 52 45 41 44 20 32 4E 44 20 46 49 4C 45 20 46 52 |READ 2ND FILE FR|
00000130: 4F 4D 20 44 49 53 4B 00 55 09 18 00 8F 20 3D 3D |OM DISK.U.... ==|
00000140: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================|
00000150: 3D 3D 3D 3D 3D 00 80 09 19 00 86 44 44 24 28 34 |=====......DD$(4|
00000160: 33 29 3A 9F 38 2C 38 2C 38 2C 22 30 3A 33 44 2D |3):.8,8,8,"0:3D-|
00000170: 54 45 58 54 20 46 49 4C 45 20 32 2C 53 2C 52 22 |TEXT FILE 2,S,R"|
00000180: 00 A9 09 1E 00 81 44 44 B2 31 A4 33 36 3A 84 38 |......DD.1.36:.8|
00000190: 2C 58 24 3A 84 38 2C 59 24 3A 44 44 24 28 44 44 |,X$:.8,Y$:DD$(DD|
000001A0: 29 B2 58 24 AA 59 24 3A 82 00 D7 09 23 00 81 44 |).X$.Y$:....#..D|
000001B0: 44 B2 33 37 A4 34 32 3A 84 38 2C 44 44 24 28 44 |D.37.42:.8,DD$(D|
000001C0: 44 29 3A 82 3A A0 38 3A 44 44 24 28 34 33 29 B2 |D):.:.8:DD$(43).|
000001D0: 44 33 24 28 34 33 29 00 DD 09 25 00 3A 00 FC 09 |D3$(43)...%.:...|
000001E0: 26 00 8F 20 49 4E 49 54 49 41 4C 49 5A 45 20 53 |&.. INITIALIZE S|
000001F0: 54 52 49 4E 47 53 20 26 20 52 4E 44 00 1B 0A 27 |TRINGS & RND...'|
00000200: 00 8F 20 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |.. =============|
00000210: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 00 3F 0A 28 00 |===========.?.(.|
00000220: 55 50 24 B2 22 91 91 91 91 91 22 3A 5A 24 B2 22 |UP$.".....":Z$."|
00000230: 93 11 92 05 22 3A 54 54 B2 BB 28 AB 54 49 29 00 |....":TT..(.TI).|
00000240: 45 0A 2F 00 3A 00 6B 0A 30 00 8F 20 52 45 41 44 |E./.:.k.0.. READ|
00000250: 20 57 52 4F 4E 47 2C 20 52 49 47 48 54 20 26 20 | WRONG, RIGHT & |
00000260: 48 55 48 3F 21 3F 20 44 41 54 41 00 91 0A 31 00 |HUH?!? DATA...1.|
00000270: 8F 20 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |. ==============|
00000280: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================|
00000290: 3D 00 AC 0A 32 00 86 41 28 31 36 29 3A 81 41 B2 |=...2..A(16):.A.|
000002A0: 31 A4 31 36 3A 87 41 28 41 29 3A 82 00 B2 0A 34 |1.16:.A(A):....4|
000002B0: 00 3A 00 D9 0A 35 00 8F 20 52 45 41 44 20 57 4F |.:...5.. READ WO|
000002C0: 57 21 21 21 20 28 43 45 4E 54 45 52 20 53 43 52 |W!!! (CENTER SCR|
000002D0: 45 45 4E 29 20 44 41 54 41 00 00 0B 36 00 8F 20 |EEN) DATA...6.. |
000002E0: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================|
000002F0: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================|
00000300: 00 1B 0B 37 00 86 42 28 31 34 29 3A 81 42 B2 31 |...7..B(14):.B.1|
00000310: A4 31 34 3A 87 42 28 42 29 3A 82 00 21 0B 39 00 |.14:.B(B):..!.9.|
00000320: 3A 00 43 0B 3A 00 8F 20 52 41 4E 44 4F 4D 49 5A |:.C.:.. RANDOMIZ|
00000330: 45 20 44 49 56 49 53 49 4F 4E 20 50 52 4F 42 4C |E DIVISION PROBL|
00000340: 45 4D 53 00 65 0B 3B 00 8F 20 3D 3D 3D 3D 3D 3D |EMS.e.;.. ======|
00000350: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================|
00000360: 3D 3D 3D 3D 3D 00 8E 0B 3C 00 58 B2 B5 28 31 35 |=====...<.X..(15|
00000370: AC BB 28 31 29 29 AA 31 3A 59 B2 B5 28 31 35 AC |..(1)).1:Y..(15.|
00000380: BB 28 31 29 29 AA 31 3A 58 59 B2 58 AC 59 00 A5 |.(1)).1:XY.X.Y..|
00000390: 0B 46 00 99 5A 24 3B 58 59 3B 22 2F 22 3B 59 3B |.F..Z$;XY;"/";Y;|
000003A0: 22 3D 20 22 3B 00 AB 0B 4D 00 3A 00 C9 0B 4E 00 |"= ";...M.:...N.|
000003B0: 8F 20 50 52 4F 43 45 53 53 20 55 53 45 52 27 53 |. PROCESS USER'S|
000003C0: 20 52 45 53 50 4F 4E 53 45 00 E7 0B 4F 00 8F 20 | RESPONSE...O.. |
000003D0: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================|
000003E0: 3D 3D 3D 3D 3D 3D 3D 00 0A 0C 50 00 85 49 24 3A |=======...P..I$:|
000003F0: 99 3A 99 C7 28 32 39 29 3B 3A 49 B2 C5 28 49 24 |.:..(29);:I..(I$|
00000400: 29 3A 8B 49 B2 58 A7 31 31 30 00 1C 0C 5A 00 8B |):.I.X.110...Z..|
00000410: 49 B3 31 B0 49 B1 31 35 A7 31 32 30 00 22 0C 61 |I.1.I.15.120.".a|
00000420: 00 3A 00 42 0C 62 00 3A 8F 20 50 52 49 4E 54 20 |.:.B.b.:. PRINT |
00000430: 46 45 45 44 42 41 43 4B 20 54 4F 20 53 43 52 45 |FEEDBACK TO SCRE|
00000440: 45 4E 00 62 0C 63 00 3A 8F 20 3D 3D 3D 3D 3D 3D |EN.b.c.:. ======|
00000450: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================|
00000460: 3D 3D 00 8B 0C 64 00 81 41 B2 31 A4 35 3A 99 44 |==...d..A.1.5:.D|
00000470: 33 24 28 41 28 41 29 29 55 50 24 3B 3A 82 3A 57 |3$(A(A))UP$;:.:W|
00000480: 52 B2 57 52 AA 31 3A 89 31 33 30 00 B5 0C 6E 00 |R.WR.1:.130...n.|
00000490: 81 41 B2 36 A4 31 30 3A 99 44 33 24 28 41 28 41 |.A.6.10:.D3$(A(A|
000004A0: 29 29 55 50 24 3B 3A 82 3A 52 49 B2 52 49 AA 31 |))UP$;:.:RI.RI.1|
000004B0: 3A 89 31 33 30 00 D7 0C 78 00 81 41 B2 31 31 A4 |:.130...x..A.11.|
000004C0: 31 36 3A 99 44 33 24 28 41 28 41 29 29 55 50 24 |16:.D3$(A(A))UP$|
000004D0: 3B 3A 82 3A 48 B2 31 00 FB 0C 82 00 49 24 B2 22 |;:.:H.1.....I$."|
000004E0: 22 3A 81 57 B2 31 A4 31 30 30 30 3A 82 57 3A 8B |":.W.1.1000:.W:.|
000004F0: 48 B2 31 A7 48 B2 30 3A 89 37 30 00 0C 0D 8C 00 |H.1.H.0:.70.....|
00000500: 8B 57 52 AA 52 49 B3 31 30 A7 36 30 00 37 0D 96 |.WR.RI.10.60.7..|
00000510: 00 99 5A 24 A6 31 30 29 3B 52 49 3B 22 4F 55 54 |..Z$.10);RI;"OUT|
00000520: 20 4F 46 20 31 30 20 52 49 47 48 54 22 3A 8B 52 | OF 10 RIGHT":.R|
00000530: 49 B3 38 A7 31 37 30 00 3D 0D 98 00 3A 00 60 0D |I.8.170.=...:.`.|
00000540: 99 00 8F 20 50 52 49 4E 54 20 57 4F 57 21 21 21 |... PRINT WOW!!!|
00000550: 20 46 4F 52 20 38 2B 2F 31 30 20 52 49 47 48 54 | FOR 8+/10 RIGHT|
00000560: 00 83 0D 9A 00 8F 20 3D 3D 3D 3D 3D 3D 3D 3D 3D |...... =========|
00000570: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================|
00000580: 3D 3D 3D 00 90 0D 9B 00 81 5A 5A B2 31 A4 31 30 |===......ZZ.1.10|
00000590: 00 B3 0D A0 00 99 22 13 22 3B 3A 81 42 B2 31 A4 |......".";:.B.1.|
000005A0: 31 34 3A 99 44 33 24 28 42 28 42 29 29 55 50 24 |14:.D3$(B(B))UP$|
000005B0: 3B 3A 82 00 D8 0D A5 00 99 22 13 22 3B 3A 81 42 |;:.......".";:.B|
000005C0: B2 31 A4 31 34 3A 99 44 44 24 28 42 28 42 29 29 |.1.14:.DD$(B(B))|
000005D0: 55 50 24 3B 3A 82 3A 82 00 DE 0D A7 00 3A 00 FF |UP$;:.:......:..|
000005E0: 0D A8 00 8F 20 52 45 53 45 54 20 46 4F 52 20 4E |.... RESET FOR N|
000005F0: 45 58 54 20 31 30 20 50 52 4F 42 4C 45 4D 53 00 |EXT 10 PROBLEMS.|
00000600: 20 0E A9 00 8F 20 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D | .... ==========|
00000610: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================|
00000620: 00 3F 0E AA 00 52 49 B2 30 3A 57 52 B2 30 3A 81 |.?...RI.0:WR.0:.|
00000630: 57 B2 31 A4 32 30 30 30 3A 82 57 3A 89 36 30 00 |W.1.2000:.W:.60.|
00000640: 45 0E E5 03 3A 00 66 0E E6 03 3A 8F 20 44 41 54 |E...:.f...:. DAT|
00000650: 41 20 46 4F 52 20 50 52 49 4E 54 49 4E 47 20 33 |A FOR PRINTING 3|
00000660: 44 20 54 45 58 54 00 87 0E E7 03 3A 8F 20 3D 3D |D TEXT.....:. ==|
00000670: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================|
00000680: 3D 3D 3D 3D 3D 3D 3D 00 B7 0E E8 03 83 20 32 33 |=======...... 23|
00000690: 2C 31 38 2C 31 35 2C 31 34 2C 37 2C 31 38 2C 39 |,18,15,14,7,18,9|
000006A0: 2C 37 2C 38 2C 32 30 2C 38 2C 32 31 2C 38 2C 34 |,7,8,20,8,21,8,4|
000006B0: 31 2C 34 30 2C 34 31 00 E7 0E ED 03 83 20 34 33 |1,40,41...... 43|
000006C0: 2C 34 32 2C 34 32 2C 34 32 2C 34 32 2C 34 32 2C |,42,42,42,42,42,|
000006D0: 34 32 2C 34 32 2C 32 33 2C 31 35 2C 32 33 2C 34 |42,42,23,15,23,4|
000006E0: 30 2C 34 30 2C 34 30 00 00 00 |0,40,40... |
..'.... 3D DEMO, (C)1989 M.H.WESTERWEEL.
F....53280,14:.53281,6:.646,14.D.... REA
D 1ST FILE FROM DISK...... =============
==========......D3$(43):.8,8,8,"0:3D-TEX
T FILE,S,R".T....D3.1.36:.8,X$:.8,Y$:D3$
(D3).X$.Y$:.......D3.37.42:.8,D3$(D3):.:
8.....D3$(43).G(13)."............".....
:.7.... READ 2ND FILE FROM DISK.U.... ==
=====================......DD$(43):.8,8,
8,"0:3D-TEXT FILE 2,S,R"......DD.1.36:.8
,X$:.8,Y$:DD$(DD).X$.Y$:..W.#..DD.37.42:
.8,DD$(DD):.: 8:DD$(43).D3$(43)...%.:...
&.. INITIALIZE STRINGS & RND...'.. =====
===================.?.(.UP$.".....":Z$."
....":TT..(.TI).E./.:.K.0.. READ WRONG,
RIGHT & HUH?!? DATA...1.. ==============
=================...2..A(16):.A.1.16:.A(
A):....4.:.Y.5.. READ WOW!!! (CENTER SCR
EEN) DATA...6.. ========================
========...7..B(14):.B.1.14:.B(B):..!.9.
:.C.:.. RANDOMIZE DIVISION PROBLEMS.E.;.
. ===========================...<.X..(15
..(1)).1:Y..(15..(1)).1:XY.X.Y...F..Z$;X
Y;"/";Y;"= ";...M.:.I.N.. PROCESS USER'S
RESPONSE...O.. =======================.
..P..I$:.:.G(29);:I.E(I$):.I.X.110...Z..
I.1.I.15.120.".A.:.B.B.:. PRINT FEEDBACK
TO SCREEN.B.C.:. ======================
==...D..A.1.5:.D3$(A(A))UP$;:.:WR.WR.1:.
130...N..A.6.10:.D3$(A(A))UP$;:.:RI.RI.1
:.130.W.X..A.11.16:.D3$(A(A))UP$;:.:H.1.
....I$."":.W.1.1000:.W:.H.1.H.0:.70.....
.WR.RI.10.60.7....Z$.10);RI;"OUT OF 10 R
IGHT":.RI.8.170.=...:.`.... PRINT WOW!!!
FOR 8+/10 RIGHT...... =================
===========......ZZ.1.10... ..".";:.B.1.
14:.D3$(B(B))UP$;:..X....".";:.B.1.14:.D
D$(B(B))UP$;:.:......:...... RESET FOR N
EXT 10 PROBLEMS. .... ==================
========.?...RI.0:WR.0:.W.1.2000:.W:.60.
E...:.F...:. DATA FOR PRINTING 3D TEXT..
...:. =========================...... 23
,18,15,14,7,18,9,7,8,20,8,21,8,41,40,41.
..... 43,42,42,42,42,42,42,42,23,15,23,4
0,40,40...
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL