ビジネスゲーム 5

プチコン3号に移植。もとのプログラムでXは20~100の任意の数字を入力しているが、それだと適正価格が逆算できてしまうので、隠しパラメータとした。

sp=rnd(80)+21

メインルーチンはFORループで3つのサブルーチンを5回くりかえす。

for i=1 to 5

gosub @input

gosub @model

gosub @print

next i

入力サブルーチン。

計算サブルーチン。

表示サブルーチン。