//=time() ?>
実験)#MSX 1でRNDでCIRCLE
1: _TURBO OFF
https://t.co/gD5P3ZfAZd
2: _TURBO ON
https://t.co/1cLC611dAZ
DEFINT未使用。たった1行のON/OFFの違いなのに、乱数の違い露骨すぎて引く。RNDの扱い?原因未特定。更に2では最後何故かエラー終了する。工夫が必要。
#MSXPen
#MSX N角形
1CLS:A=128:B=96:R=90:T=.01745:INPUT"N=3-360";N:SCREEN2:OPEN"GRP:"FOROUTPUTAS#1:PSET(0,0):PRINT#1,"N";N:S=360/N:X=R*COS(0)+A:Y=R*SIN(0)+B:PSET(X,Y):FORK=0TO360STEPS:H=K*T:X=R*COS(H)+A:Y=R*SIN(H)+B:LINE-(X,Y):NEXT:FORI=0TO1:IFINKEY$=""THENI=0:NEXT
https://t.co/1QAZeTGsY7
#MSXPen)薔薇(バラ)/ Rose
https://t.co/F6rEq0uXgC
警告:数時間かかります。
Warning:It takes several hours.
#MSX #BASIC