共同資財理工研究会イシバシステムズ(共用) Ishibasystems

## EPSON HC-45 SIN-WAVE DEMO
100 CLS
110 FOR X=0 TO 240
120  LINE(X,SIN(((X+N)/20)*3.1415)*32+32)-(X,SIN(((X+N+1)/20)*3.1415)*32+32)
130 NEXT X
140 N=N+2
150 IF N=40 THEN N=0:CLS
160 GOTO 110

## 動作確認用PC
旗艦

***22号機「山雅 - Sanga」(AT992E)
|運用開始|2013/01/10|
|更新日時|2024/01/21|
|運用状態|デスクトップPC|
|OS|Windows 10 22H2 Enterprise 64bit|
|CPU|Core i5 4460 3.20GHz(Max 3.40GHz)|
|メモリー|16GB 25.6GB/s(DDR3-1600)|
|解像度|1920x1080 60Hz|

## TAKAGI.BAS
100 '---Takagi function---
110 SCREEN 3,0,0,1
120 CLS 3
130 PSET(0,400)
140 FOR I=0 TO 640
150   T=0
160   FOR K=1 TO 10
170     O=1!*I/640
180     FOR J=0 TO K
190       O=O*SGN(.5-O)*2+SGN(O-.5)+1

## MCM.BAS
100 '---Monte Carlo method---
110 SCREEN 3,0,0,1
120 CLS 3
130 RANDOMIZE VAL(RIGHT$(TIME$,2))
140 N=10000
150 COUNT=0
160 FOR K=0 TO N
170   X=RND*2-1
180   Y=RND*2-1
190   IF X^2+Y^2<=1 THEN PSET(X*200+320,-Y*200+200),2 : COUNT=COUNT+1                               ELSE PSET(X*200+320,-Y*200+200),1

## PC98-NX NSETUP.EXE 一覧
	#include "user32.as"

	chdir "S:\\FILES\\FLP\\PC-98\\instset\\Applications"

	notesel sum

	sdim x, 1024
	y=""
	name=""


## escape.bas
100 '---緊急脱出プログラム---
110 CONSOLE 0,25,0,1
120 CLS 3
130 ON ERROR GOTO 360
140 ON KEY GOSUB 360:KEY OFF
150 ON STOP GOSUB 360:STOP OFF
160 WAITTIME=12000
170 GOSUB *HYOJI
180 FOR L=0 TO 13:PRINT:NEXT
190 LOCATE,CSRLIN-12

## DUMP.HSP
sdim dump,3*1024*1024
bload"D:\\DOS\\dump.usb",dump,3*1024*1024,0x08810020
bsave"D:\\DOS\\dump.usb.jpg",dump,0x0025FF82
end

## PW生成.cmd
@echo off
set /a roll=%random%*10000/32768
set /a rnd=%random%*26/32768
if %rnd% == 0  set pw=a
if %rnd% == 1  set pw=b
if %rnd% == 2  set pw=c
if %rnd% == 3  set pw=d
if %rnd% == 4  set pw=e
if %rnd% == 5  set pw=f
if %rnd% == 6  set pw=g

## 空フォルダ削除.cmd
for /f "usebackq tokens=*" %%d in (`dir /ad /b /s`) do rd /q "%%d" 2>nul

## 一括連結.hsp
#define nodo 50

#module

	#defcfunc nameup var name, int byte
		hoge=peek(name,byte)
		if hoge>'9' | hoge<'0' : return 1
		if hoge='9' {
			if byte<1 | nameup(name,byte-1) : return 1
			hoge='0'-1
	100 CLS
	110 FOR X=0 TO 240
	120 LINE(X,SIN(((X+N)/20)3.1415)32+32)-(X,SIN(((X+N+1)/20)3.1415)32+32)
	130 NEXT X
	140 N=N+2
	150 IF N=40 THEN N=0:CLS
	160 GOTO 110
	旗艦

	***22号機「山雅 - Sanga」(AT992E)
	\|運用開始\|2013/01/10\|
	\|更新日時\|2024/01/21\|
	\|運用状態\|デスクトップPC\|
	\|OS\|Windows 10 22H2 Enterprise 64bit\|
	\|CPU\|Core i5 4460 3.20GHz(Max 3.40GHz)\|
	\|メモリー\|16GB 25.6GB/s(DDR3-1600)\|
	\|解像度\|1920x1080 60Hz\|
	100 '---Takagi function---
	110 SCREEN 3,0,0,1
	120 CLS 3
	130 PSET(0,400)
	140 FOR I=0 TO 640
	150 T=0
	160 FOR K=1 TO 10
	170 O=1!*I/640
	180 FOR J=0 TO K
	190 O=OSGN(.5-O)2+SGN(O-.5)+1
	100 '---Monte Carlo method---
	110 SCREEN 3,0,0,1
	120 CLS 3
	130 RANDOMIZE VAL(RIGHT$(TIME$,2))
	140 N=10000
	150 COUNT=0
	160 FOR K=0 TO N
	170 X=RND*2-1
	180 Y=RND*2-1
	190 IF X^2+Y^2<=1 THEN PSET(X200+320,-Y200+200),2 : COUNT=COUNT+1 ELSE PSET(X200+320,-Y200+200),1
	#include "user32.as"

	chdir "S:\\FILES\\FLP\\PC-98\\instset\\Applications"

	notesel sum

	sdim x, 1024
	y=""
	name=""
	100 '---緊急脱出プログラム---
	110 CONSOLE 0,25,0,1
	120 CLS 3
	130 ON ERROR GOTO 360
	140 ON KEY GOSUB 360:KEY OFF
	150 ON STOP GOSUB 360:STOP OFF
	160 WAITTIME=12000
	170 GOSUB *HYOJI
	180 FOR L=0 TO 13:PRINT:NEXT
	190 LOCATE,CSRLIN-12
	sdim dump,310241024
	bload"D:\\DOS\\dump.usb",dump,310241024,0x08810020
	bsave"D:\\DOS\\dump.usb.jpg",dump,0x0025FF82
	end
	@echo off
	set /a roll=%random%*10000/32768
	set /a rnd=%random%*26/32768
	if %rnd% == 0 set pw=a
	if %rnd% == 1 set pw=b
	if %rnd% == 2 set pw=c
	if %rnd% == 3 set pw=d
	if %rnd% == 4 set pw=e
	if %rnd% == 5 set pw=f
	if %rnd% == 6 set pw=g
	#define nodo 50

	#module

	#defcfunc nameup var name, int byte
	hoge=peek(name,byte)
	if hoge>'9' \| hoge<'0' : return 1
	if hoge='9' {
	if byte<1 \| nameup(name,byte-1) : return 1
	hoge='0'-1