New samples, updated docs

cbasic.js

@@ -88,8 +88,7 @@ if (args.length !== 1) {
 
 var filename = args[0];
 
-function load(_s) { eval(host.fetch(_s)); }
-load("basic.js");
+eval(host.fetch("basic.js"));
 
 // Compile
 var program = (function() {

reference.htm

@@ -199,6 +199,8 @@ This is intended as a quick reference for the <a href="index.htm">Applesoft BASI
         <li><code>POKE 49233,0</code> - text mode
         <li><code>POKE 49234,0</code> - full graphics mode
         <li><code>POKE 49235,0</code> - mixed text/graphics mode
+        <li><code>POKE 49236,0</code> - display page 1
+        <li><code>POKE 49237,0</code> - display page 2
         <li><code>POKE 49238,0</code> - lores graphics mode
         <li><code>POKE 49239,0</code> - hires graphics mode
       </ul>

samples/sample.fsim.txt

@@ -0,0 +1,83 @@
+
+0 REM Sky palette:
+0 REM Clouds    6/1 (light blue)
+0 REM Sky       6/6 (blue)
+0 REM Dusk      6/2 (purple)
+0 REM Night     6/0 (dark blue)
+
+0 REM Ground palette:
+0 REM Water         6/0 (dark blue)
+0 REM Water (night) 0/0 (black)
+0 REM Water         6/1 (turquoise)
+0 REM Cement        1/2 (gray)
+0 REM Grass         1/1 (green)
+0 REM Forest        1/0 (dark green)
+0 REM Sand          5/1 (khaki)
+0 REM Tundra        1/3 (light green)
+0 REM Ice           3/3 (white)
+
+10 HGR : HGR2 : PG = 0
+20 DIM SC(192), GC(192)
+30 FOR Y = 0 TO 191 STEP 2 
+: SC(Y) = 6 : SC(Y+1) = 6
+: GC(Y) = 5 : GC(Y+1) = 1
+: NEXT
+
+100 POKE 49236 + (1-PG), 0 : POKE 230, 32 + 32 * PG
+
+120 M = 2 * ( 0.5 - (PDL(0) / 255) )
+121 B = 192 * (PDL(1) / 255) - 96
+122 B = B * 2
+
+140 GOSUB 1000
+150 PG = PG + 1 : IF PG > 1 THEN PG = 0
+160 GOTO 100
+
+999 END
+
+
+
+1000 REM Draw sky/horizon; call w/ M, B (y=Mx + B); 0,0 is center
+
+1010 Y1 = ( M * -140 ) + B + 96
+1011 Y2 = ( M *  140 ) + B + 96
+1012 IF Y1 < 0 AND Y2 < 0 THEN FOR Y = 0 TO 191
+: HCOLOR= GC(Y) : HPLOT 0,Y TO 279,Y 
+: NEXT : RETURN
+
+1013 IF Y1 > 279 AND Y2 > 279 THEN FOR Y = 0 TO 191
+: HCOLOR= SC(Y) : HPLOT 0,Y TO 279,Y 
+: NEXT : RETURN
+
+1014 IF Y1 = Y2 THEN Y1 = INT(Y1) 
+: FOR Y = 0 TO Y1 - 1 
+: HCOLOR= SC(Y) : HPLOT 0,Y TO 279,Y 
+: NEXT
+: FOR Y = Y1 TO 191 
+: HCOLOR= GC(Y) : HPLOT 0,Y TO 279,Y 
+: NEXT
+: RETURN
+
+1015 REM TODO: Optimize for near-horizontal lines with solid above/below
+
+
+
+: REM (y-b)/m = x
+
+1020 X1 = ( -96 - B ) / M + 140
+1021 X2 = (  96 - B ) / M + 140
+1022 DX = (X2 - X1) / 192
+
+: REM TODO: flip colors if DX is negative
+
+
+1040 XF = X1 : FOR Y = 0 TO 191 : X = INT(XF) : XF = XF + DX
+
+1041 IF DX <= 0 THEN C1 = SC(Y) : C2 = GC(Y)
+1042 IF DX >  0 THEN C1 = GC(Y) : C2 = SC(Y)
+
+1050 IF X < 1   THEN HCOLOR= C2 : HPLOT 0,Y TO 279,Y : GOTO 1080
+1051 IF X > 279 THEN HCOLOR= C1 : HPLOT 0,Y TO 279,Y : GOTO 1080
+1052 HCOLOR= C1 : HPLOT 0,Y TO X-1, Y : HCOLOR= C2 : HPLOT X,Y TO 279,Y
+
+1080 NEXT : RETURN

samples/sample.hgrblends.txt

@@ -0,0 +1,14 @@
+0 DIM C(5) : FOR I = 0 TO 5 : READ X : C(I) = X : NEXT : DATA 0,1,2,5,6,7
+
+5 HGR2
+
+10 FOR X = 0 TO 5 : FOR Y = 0 TO 5
+20 SX = INT(X / 6 * 279)
+: EX = INT((X+1) / 6 * 279)
+: SY = INT(Y / 6 * 190)
+: EY = INT((Y+1) / 6 * 190)
+30 FOR PY = SY TO EY
+: HCOLOR= C(X) : HPLOT SX,PY TO EX,PY : PY = PY + 1
+: HCOLOR= C(Y) : HPLOT SX,PY TO EX,PY 
+
+40 NEXT : NEXT : NEXT