SLIDER.GEN

00000000: 01 40 1B 40 0A 00 8F 20  44 53 41 56 45 20 22 40  |.@.@... DSAVE "@|
00000010: 53 4C 49 44 45 52 2E 47  45 4E 22 00 2D 40 14 00  |SLIDER.GEN".-@..|
00000020: 8B 20 CC 28 30 29 B3 34  20 A7 20 DE 30 00 4B 40  |. .(0).4 . .0.K@|
00000030: 1E 00 99 20 22 13 13 93  12 53 4C 49 44 45 52 20  |... "....SLIDER |
00000040: 44 45 4D 4F 22 3A D7 20  35 37 30 00 5B 40 28 00  |DEMO":. 570.[@(.|
00000050: 8D 20 34 39 30 3A 8D 20  35 34 30 00 78 40 32 00  |. 490:. 540.x@2.|
00000060: E7 2E 2C 31 3A E7 31 2C  33 3A E7 32 2C 32 3A E7  |..,1:.1,3:.2,2:.|
00000070: 33 2C 37 3A E7 34 2C 31  00 AA 40 3C 00 45 B2 38  |3,7:.4,1..@<.E.8|
00000080: 31 39 32 3A 42 53 B2 32  AE 31 36 3A 4C B2 38 31  |192:BS.2.16:L.81|
00000090: 39 32 3A 8B 20 46 B2 30  20 A7 20 53 B2 32 AC 42  |92:. F.0 . S.2.B|
000000A0: 53 3A D5 3A 53 B2 34 AC  42 53 00 BB 40 46 00 54  |S:.:S.4.BS..@F.T|
000000B0: 49 24 B2 22 30 30 30 30  30 30 22 00 CA 40 50 00  |I$."000000"..@P.|
000000C0: 4E B2 B5 28 53 AD 4C 29  AB 31 00 EF 40 5A 00 85  |N..(S.L).1..@Z..|
000000D0: 22 4C 4F 41 44 20 52 41  4D 20 28 59 2F 4E 29 22  |"LOAD RAM (Y/N)"|
000000E0: 3B 41 24 3A 8B 41 24 B2  22 4E 22 A7 32 30 30 00  |;A$:.A$."N".200.|
000000F0: 24 41 64 00 85 22 53 48  4F 57 20 57 48 49 4C 45  |$Ad.."SHOW WHILE|
00000100: 20 50 4C 4F 54 54 49 4E  47 20 28 20 54 41 4B 45  | PLOTTING ( TAKE|
00000110: 53 20 4C 4F 4E 47 45 52  20 29 20 20 4E 9D 9D 9D  |S LONGER )  N...|
00000120: 22 3B 41 24 00 3D 41 6E  00 47 B2 31 20 3A 20 8B  |";A$.=An.G.1 : .|
00000130: 20 41 24 B2 22 59 22 20  A7 20 47 B2 30 00 86 41  | A$."Y" . G.0..A|
00000140: 78 00 52 33 B2 BA 28 33  29 AD 32 3A 48 B2 2E 35  |x.R3..(3).2:H..5|
00000150: 3A 4D 58 B2 31 2E 35 3A  4D 4E B2 2E 32 3A 58 43  |:MX.1.5:MN..2:XC|
00000160: B2 37 36 3A 59 43 B2 37  30 3A 58 53 B2 32 35 3A  |.76:YC.70:XS.25:|
00000170: 59 53 B2 31 2E 34 AC 58  53 3A 4D 43 B2 48 AC 28  |YS.1.4.XS:MC.H.(|
00000180: 4D 58 AB 4D 4E 29 00 AF  41 82 00 4D 43 B2 48 AC  |MX.MN)..A..MC.H.|
00000190: 28 4D 58 AB 4D 4E 29 3A  54 54 B2 32 AC FF AD 33  |(MX.MN):TT.2...3|
000001A0: 3A 52 43 B2 4D 4E AA 4D  58 20 3A DE 33 2C 31 00  |:RC.MN.MX :.3,1.|
000001B0: E4 41 8C 00 58 58 B2 31  3A 58 59 B2 2E 3A 58 5A  |.A..XX.1:XY..:XZ|
000001C0: B2 AB 2E 35 3A 59 58 B2  2E 3A 59 59 B2 2E 39 3A  |...5:YX..:YY..9:|
000001D0: 59 5A B2 2E 34 3A 8F 20  20 50 45 52 53 50 45 43  |YZ..4:.  PERSPEC|
000001E0: 54 49 56 45 00 08 42 96  00 81 50 B2 2E A4 4E 3A  |TIVE..B...P...N:|
000001F0: 50 48 B2 50 AD 28 4E AA  31 29 3A 99 50 48 3A 8B  |PH.P.(N.1):.PH:.|
00000200: 47 B3 B1 30 A7 20 FE 25  00 12 42 A0 00 3A 8D 32  |G..0. .%..B..:.2|
00000210: 33 30 00 31 42 AA 00 3A  42 4B B2 B5 28 50 AC 4C  |30.1B..:BK..(P.L|
00000220: AD 42 53 29 3A 45 41 B2  50 AC 4C AB 42 53 AC 42  |.BS):EA.P.L.BS.B|
00000230: 4B 00 49 42 B4 00 3A FE  26 3A 20 FE 1F 20 4C 2C  |K.IB..:.&: .. L,|
00000240: 45 2C 45 41 2C 42 4B 3A  82 00 65 42 BE 00 99 22  |E,EA,BK:..eB..."|
00000250: 20 54 49 4D 45 20 46 4F  52 20 47 45 4E 20 3D 20  | TIME FOR GEN = |
00000260: 22 3B 54 49 24 00 86 42  C8 00 DE 33 2C 31 3A 20  |";TI$..B...3,1: |
00000270: 8F 20 43 59 43 4C 45 20  54 48 52 4F 55 47 48 20  |. CYCLE THROUGH |
00000280: 46 52 41 4D 45 53 00 AE  42 D2 00 EB 3A 81 20 46  |FRAMES..B...:. F|
00000290: B2 30 A4 4E 3A 42 4B B2  B5 28 46 AC 4C AD 42 53  |.0.N:BK..(F.L.BS|
000002A0: 29 3A 45 41 B2 46 AC 4C  AB 42 53 AC 42 4B 00 C3  |):EA.F.L.BS.BK..|
000002B0: 42 DC 00 FE 21 20 4C 2C  45 2C 45 41 2C 42 4B 3A  |B...! L,E,EA,BK:|
000002C0: 82 3A EC 00 D6 42 E6 00  DE 33 2C 31 3A 54 48 B2  |.:...B...3,1:TH.|
000002D0: 50 48 AC FF AC 32 00 1C  43 F0 00 53 58 B2 4D 4E  |PH...2..C..SX.MN|
000002E0: AA 4D 43 AC 28 31 AA BF  28 54 48 29 29 3A 53 59  |.MC.(1..(TH)):SY|
000002F0: B2 4D 4E AA 4D 43 AC 28  31 AA BF 28 54 48 AA 54  |.MN.MC.(1..(TH.T|
00000300: 54 29 29 3A 53 5A B2 4D  4E AA 4D 43 AC 28 31 AA  |T)):SZ.MN.MC.(1.|
00000310: BF 28 54 48 AA 54 54 AA  54 54 29 29 00 3B 43 FA  |.(TH.TT.TT)).;C.|
00000320: 00 52 58 B2 52 43 AB 53  58 3A 52 59 B2 52 43 AB  |.RX.RC.SX:RY.RC.|
00000330: 53 59 3A 52 5A B2 52 43  AB 53 5A 00 6E 43 04 01  |SY:RZ.RC.SZ.nC..|
00000340: 4D B2 35 34 3A 43 B2 31  3A 43 58 B2 2E 3A 43 59  |M.54:C.1:CX..:CY|
00000350: B2 2E 3A 43 5A B2 AB 53  5A 3A 54 58 B2 31 3A 54  |..:CZ..SZ:TX.1:T|
00000360: 59 B2 31 3A 54 5A B2 53  5A 3A 8D 33 32 30 00 A1  |Y.1:TZ.SZ:.320..|
00000370: 43 0E 01 4D B2 32 37 3A  43 B2 32 3A 43 58 B2 AB  |C..M.27:C.2:CX..|
00000380: 53 58 3A 43 59 B2 2E 3A  43 5A B2 2E 3A 54 58 B2  |SX:CY..:CZ..:TX.|
00000390: 53 58 3A 54 59 B2 31 3A  54 5A B2 31 3A 8D 33 32  |SX:TY.1:TZ.1:.32|
000003A0: 30 00 D4 43 18 01 4D B2  34 35 3A 43 B2 33 3A 43  |0..C..M.45:C.3:C|
000003B0: 58 B2 2E 3A 43 59 B2 31  3A 43 5A B2 2E 20 20 3A  |X..:CY.1:CZ..  :|
000003C0: 54 58 B2 31 3A 54 59 B2  53 59 3A 54 5A B2 31 3A  |TX.1:TY.SY:TZ.1:|
000003D0: 8D 33 32 30 00 07 44 22  01 4D B2 35 34 3A 43 B2  |.320..D".M.54:C.|
000003E0: 31 3A 43 58 B2 2E 3A 43  59 B2 2E 3A 43 5A B2 31  |1:CX..:CY..:CZ.1|
000003F0: 20 20 3A 54 58 B2 31 3A  54 59 B2 31 3A 54 5A B2  |  :TX.1:TY.1:TZ.|
00000400: 52 5A 3A 8D 33 32 30 00  3A 44 2C 01 4D B2 32 37  |RZ:.320.:D,.M.27|
00000410: 3A 43 B2 32 3A 43 58 B2  31 3A 43 59 B2 2E 3A 43  |:C.2:CX.1:CY..:C|
00000420: 5A B2 2E 20 20 3A 54 58  B2 52 58 3A 54 59 B2 31  |Z..  :TX.RX:TY.1|
00000430: 3A 54 5A B2 31 3A 8D 33  32 30 00 6F 44 36 01 4D  |:TZ.1:.320.oD6.M|
00000440: B2 34 35 3A 43 B2 33 3A  43 58 B2 2E 3A 43 59 B2  |.45:C.3:CX..:CY.|
00000450: AB 52 59 3A 43 5A B2 2E  3A 54 58 B2 31 3A 54 59  |.RY:CZ..:TX.1:TY|
00000460: B2 52 59 3A 54 5A B2 31  3A 8D 33 32 30 3A 8E 00  |.RY:TZ.1:.320:..|
00000470: 75 44 40 01 8F 00 A4 44  4A 01 81 49 B2 2E A4 35  |uD@....DJ..I...5|
00000480: 3A 8B 28 4D AF 28 32 AE  49 29 29 B2 2E A7 82 3A  |:.(M.(2.I))....:|
00000490: 8E 3A D5 46 58 B2 43 58  3A 46 59 B2 43 59 3A 46  |.:.FX.CX:FY.CY:F|
000004A0: 5A B2 43 5A 00 B6 44 54  01 8B 49 B2 33 A7 46 5A  |Z.CZ..DT..I.3.FZ|
000004B0: B2 46 5A AA 54 5A 00 C8  44 5E 01 8B 49 B2 31 A7  |.FZ.TZ..D^..I.1.|
000004C0: 46 59 B2 46 59 AA 54 59  00 DA 44 68 01 8B 49 B2  |FY.FY.TY..Dh..I.|
000004D0: 35 A7 46 58 B2 46 58 AA  54 58 00 18 45 72 01 58  |5.FX.FX.TX..Er.X|
000004E0: 30 B2 58 43 AA 58 53 AC  28 58 58 AC 46 58 AA 58  |0.XC.XS.(XX.FX.X|
000004F0: 59 AC 46 59 AA 58 5A AC  46 5A 29 3A 59 30 B2 59  |Y.FY.XZ.FZ):Y0.Y|
00000500: 43 AA 59 53 AC 28 59 58  AC 46 58 AA 59 59 AC 46  |C.YS.(YX.FX.YY.F|
00000510: 59 AA 59 5A AC 46 5A 29  00 4C 45 7C 01 44 58 B2  |Y.YZ.FZ).LE|.DX.|
00000520: 58 53 AC 58 5A AC 54 5A  3A 44 59 B2 59 53 AC 59  |XS.XZ.TZ:DY.YS.Y|
00000530: 5A AC 54 5A 3A 45 58 B2  58 53 AC 58 58 AC 54 58  |Z.TZ:EX.XS.XX.TX|
00000540: 3A 45 59 B2 59 53 AC 59  58 AC 54 58 00 60 45 86  |:EY.YS.YX.TX.`E.|
00000550: 01 8B 49 B1 32 A7 4A B2  49 AB 33 3A D5 4A B2 49  |..I.2.J.I.3:.J.I|
00000560: 00 81 45 90 01 8B 4A B2  32 A7 45 58 B2 58 53 AC  |..E...J.2.EX.XS.|
00000570: 58 59 AC 54 59 3A 45 59  B2 59 53 AC 59 59 AC 54  |XY.TY:EY.YS.YY.T|
00000580: 59 00 A2 45 9A 01 8B 4A  B2 2E A7 44 58 B2 58 53  |Y..E...J...DX.XS|
00000590: AC 58 59 AC 54 59 3A 44  59 B2 59 53 AC 59 59 AC  |.XY.TY:DY.YS.YY.|
000005A0: 54 59 00 D7 45 A4 01 8F  20 20 50 52 49 4E 54 3A  |TY..E...  PRINT:|
000005B0: 50 52 49 4E 54 20 55 53  49 4E 47 20 22 23 23 23  |PRINT USING "###|
000005C0: 2E 20 20 22 3B 58 30 2C  44 58 2C 45 58 2C 59 30  |.  ";X0,DX,EX,Y0|
000005D0: 2C 44 59 2C 45 59 3B 00  0D 46 AE 01 8B 20 45 59  |,DY,EY;..F... EY|
000005E0: B2 30 20 A7 20 81 20 58  51 B2 58 30 A4 58 30 AA  |.0 . . XQ.X0.X0.|
000005F0: 45 58 3A E5 20 43 2C 58  51 2C 59 30 20 A4 20 58  |EX:. C,XQ,Y0 . X|
00000600: 51 AA 44 58 2C 59 30 AA  44 59 20 3A 82 00 43 46  |Q.DX,Y0.DY :..CF|
00000610: B8 01 8B 20 45 58 B2 30  20 A7 20 81 20 59 51 B2  |... EX.0 . . YQ.|
00000620: 59 30 A4 59 30 AA 45 59  3A E5 20 43 2C 58 30 2C  |Y0.Y0.EY:. C,X0,|
00000630: 59 51 20 A4 20 58 30 AA  44 58 2C 59 51 AA 44 59  |YQ . X0.DX,YQ.DY|
00000640: 20 3A 82 00 73 46 C2 01  E5 20 2E 2C 58 30 2C 59  | :..sF... .,X0,Y|
00000650: 30 20 A4 20 58 30 AA 45  58 2C 59 30 AA 45 59 20  |0 . X0.EX,Y0.EY |
00000660: A4 20 58 30 AA 45 58 AA  44 58 2C 59 30 AA 45 59  |. X0.EX.DX,Y0.EY|
00000670: AA 44 59 00 A3 46 CC 01  E5 20 2E 2C 58 30 2C 59  |.DY..F... .,X0,Y|
00000680: 30 20 A4 20 58 30 AA 44  58 2C 59 30 AA 44 59 20  |0 . X0.DX,Y0.DY |
00000690: A4 20 58 30 AA 45 58 AA  44 58 2C 59 30 AA 45 59  |. X0.EX.DX,Y0.EY|
000006A0: AA 44 59 00 AB 46 D6 01  82 3A 8E 00 BD 46 E0 01  |.DY..F...:...F..|
000006B0: 8B 20 CC 28 30 29 B3 34  20 A7 20 DE 30 00 DF 46  |. .(0).4 . .0..F|
000006C0: EA 01 8F 20 56 45 52 49  46 59 20 50 52 45 53 45  |... VERIFY PRESE|
000006D0: 4E 43 45 20 4F 46 20 52  41 4D 20 43 41 52 44 00  |NCE OF RAM CARD.|
000006E0: F8 46 F4 01 FE 02 31 35  3A 41 B2 D1 28 22 44 46  |.F....15:A..("DF|
000006F0: 30 35 22 29 3A 56 B2 30  00 0A 47 FE 01 8D 20 35  |05"):V.0..G... 5|
00000700: 32 30 3A 56 B2 32 35 35  AB 56 00 21 47 08 02 97  |20:V.255.V.!G...|
00000710: 20 41 2C 56 3A 8B 20 56  B2 C2 28 41 29 20 A7 20  | A,V:. V..(A) . |
00000720: 8E 00 5F 47 12 02 99 20  22 13 13 93 11 11 11 11  |.._G... ".......|
00000730: 11 11 11 11 11 07 45 52  52 4F 52 3A 20 20 52 41  |......ERROR:  RA|
00000740: 4D 44 49 53 4B 20 4E 4F  54 20 49 4E 53 54 41 4C  |MDISK NOT INSTAL|
00000750: 4C 45 44 11 11 11 11 11  11 11 11 11 22 3A 80 00  |LED.........":..|
00000760: 88 47 1C 02 8F 20 53 45  54 20 46 3D 31 20 49 46  |.G... SET F=1 IF|
00000770: 20 35 31 32 4B 20 45 4C  53 45 20 46 20 3D 30 20  | 512K ELSE F =0 |
00000780: 49 46 20 31 32 38 20 4B  00 B1 47 26 02 FE 02 31  |IF 128 K..G&...1|
00000790: 35 3A 46 B2 31 3A 8B 20  30 B2 28 31 36 AF C2 28  |5:F.1:. 0.(16..(|
000007A0: D1 28 22 44 46 30 30 22  29 29 29 20 A7 20 46 B2  |.("DF00"))) . F.|
000007B0: 30 00 B7 47 30 02 8E 00  CC 47 3A 02 FE 26 3A 8B  |0..G0....G:..&:.|
000007C0: 20 CC 28 30 29 B3 34 20  A7 20 DE 30 00 00 00     | .(0).4 . .0... |

.@.@... DSAVE "@SLIDER.GEN".-@... L(0).4
 . .0.K@... "....SLIDER DEMO":W 570.[@(.
. 490:. 540.X@2...,1:.1,3:.2,2:.3,7:.4,1
..@<.E.8192:BS.2.16:L.8192:. F.0 . S.2.B
S:U:S.4.BS..@F.TI$."000000".J@P.N..(S.L)
.1..@Z.."LOAD RAM (Y/N)";A$:.A$."N".200.
$AD.."SHOW WHILE PLOTTING ( TAKES LONGER
 )  N...";A$.=AN.G.1 : . A$."Y" . G.0..A
X.R3..(3).2:H..5:MX.1.5:MN..2:XC.76:YC.7
0:XS.25:YS.1.4.XS:MC.H.(MX.MN)..A..MC.H.
(MX.MN):TT.2...3:RC.MN.MX :.3,1..A..XX.1
:XY..:XZ...5:YX..:YY..9:YZ..4:.  PERSPEC
TIVE..B...P...N:PH.P.(N.1):.PH:.G..0. .%
..B .:.230.1B..:BK..(P.L.BS):EA.P.L.BS.B
K.IB..:.&: .. L,E,EA,BK:..EB..." TIME FO
R GEN = ";TI$..BH..3,1: . CYCLE THROUGH 
FRAMES..BR..:. F.0.N:BK..(F.L.BS):EA.F.L
.BS.BK.CB...! L,E,EA,BK:.:..VB...3,1:TH.
PH...2..C..SX.MN.MC.(1..(TH)):SY.MN.MC.(
1..(TH.TT)):SZ.MN.MC.(1..(TH.TT.TT)).;C.
.RX.RC.SX:RY.RC.SY:RZ.RC.SZ.NC..M.54:C.1
:CX..:CY..:CZ..SZ:TX.1:TY.1:TZ.SZ:.320..
C..M.27:C.2:CX..SX:CY..:CZ..:TX.SX:TY.1:
TZ.1:.320.TC..M.45:C.3:CX..:CY.1:CZ..  :
TX.1:TY.SY:TZ.1:.320..D".M.54:C.1:CX..:C
Y..:CZ.1  :TX.1:TY.1:TZ.RZ:.320.:D,.M.27
:C.2:CX.1:CY..:CZ..  :TX.RX:TY.1:TZ.1:.3
20.OD6.M.45:C.3:CX..:CY..RY:CZ..:TX.1:TY
.RY:TZ.1:.320:..UD@....DJ..I...5:.(M.(2.
I))....:.:UFX.CX:FY.CY:FZ.CZ..DT..I.3.FZ
.FZ.TZ.HD^..I.1.FY.FY.TY.ZDH..I.5.FX.FX.
TX..ER.X0.XC.XS.(XX.FX.XY.FY.XZ.FZ):Y0.Y
C.YS.(YX.FX.YY.FY.YZ.FZ).LE|.DX.XS.XZ.TZ
:DY.YS.YZ.TZ:EX.XS.XX.TX:EY.YS.YX.TX.`E.
..I.2.J.I.3:UJ.I..E...J.2.EX.XS.XY.TY:EY
.YS.YY.TY..E...J...DX.XS.XY.TY:DY.YS.YY.
TY.WE...  PRINT:PRINT USING "###.  ";X0,
DX,EX,Y0,DY,EY;..F... EY.0 . . XQ.X0.X0.
EX:. C,XQ,Y0 . XQ.DX,Y0.DY :..CF... EX.0
 . . YQ.Y0.Y0.EY:. C,X0,YQ . X0.DX,YQ.DY
 :..SFB.. .,X0,Y0 . X0.EX,Y0.EY . X0.EX.
DX,Y0.EY.DY..FL.. .,X0,Y0 . X0.DX,Y0.DY 
. X0.EX.DX,Y0.EY.DY..FV..:...F... L(0).4
 . .0..F... VERIFY PRESENCE OF RAM CARD.
.F....15:A.Q("DF05"):V.0..G... 520:V.255
.V.!G... A,V:. V.B(A) . .._G... ".......
......ERROR:  RAMDISK NOT INSTALLED.....
....":...G... SET F=1 IF 512K ELSE F =0 
IF 128 K..G&...15:F.1:. 0.(16.B(Q("DF00"
))) . F.0..G0...LG:..&:. L(0).4 . .0...

×

C64 Image

> CLICK IMAGE PREVIEW FOR FULL MODAL