*/
static char *moire_program[]={
"10 HGR2\n",
- "20 FOR Y = 0 TO 191 STEP 2\n",
+ "20 FOR Y = 0 TO 190 STEP 2\n",
"30 HCOLOR=4 : REM BLACK\n",
- "40 HLINE 0,191-Y TO 279,Y\n",
+ "40 HPLOT 0,191-Y TO 279,Y\n",
"60 HCOLOR=7 : REM WHITE\n",
- "80 HLINE 0,190-Y TO 279,Y+1\n",
+ "80 HPLOT 0,190-Y TO 279,Y+1\n",
"90 NEXT Y\n",
- "100 FOR X = 0 TO 279 STEP 3\n",
+ "100 FOR X = 0 TO 278 STEP 3\n",
"110 HCOLOR=4\n",
- "120 HLINE 279-X,0 TO X,192\n",
+ "120 HPLOT 279-X,0 TO X,191\n",
"140 HCOLOR=7\n",
- "150 HLINE 278-X,0 TO X+1,192\n",
+ "150 HPLOT 278-X,0 TO X+1,191\n",
"160 NEXT X\n",
NULL
};
"25 K=0\n",
"30 FOR X = 0 TO 279\n",
"32 HCOLOR= 0\n",
- "35 HLINE X,0 TO X,159\n",
+ "35 HPLOT X,0 TO X,159\n",
"38 HCOLOR= 3\n",
- "40 Y = 80 + SIN(15*(X-K)/279)\n",
+ "40 Y = 80 + SIN(15*(X-K)/279) * 40\n",
"50 HPLOT X,Y\n",
"60 NEXT X\n",
"70 K=K+4\n",
"100 COLOR= RND(1)*16\n",
"110 X=RND(1)*40\n",
- "120 Y1=RND(1)*48\n",
- "130 Y2=RND(1)*48\n",
+ "120 Y1=RND(1)*40\n",
+ "130 Y2=RND(1)*40\n",
"140 FOR Y = Y1 TO Y2\n",
"150 PLOT X,Y\n",
"160 NEXT Y\n",
- "210 Y=RND(1)*48\n",
+ "210 Y=RND(1)*40\n",
"220 X1=RND(1)*40\n",
"230 X2=RND(1)*40\n",
"240 FOR X = X1 TO X2\n",