Listing of file='BELLDEMO' on disk='vmedia/games-droz00.wvd.zip'
# Sector 192, program filename = 'BELLDEMO' 1000 REM plotting initialization 1010 DIM X$(1)2,Y$(1)2 : X$(1)=HEX(222E) : Y$(1)=HEX(606F) : MAT REDIM X$(2)1,Y$(2)1 1020 DIM Z$(14)8 : INIT(09)Z$() : MAT REDIM Z$(33)1 : INIT(0A)Z$() : MAT REDIM Z$(112)1 1030 Y0, Z0 = 1 1040 GOTO 1200 1050 REM draw dot at row @1 col @2 1060 DEFFN '100( Y, Z ) 1070 X = INT(Y/2) 1080 Z$(1) = X$(Y-X*2+1) 1090 $GIO /F05 (4001 A000 4210, Z$()) Z$()<35-X,X+Z-2> 1100 RETURN 1110 REM move circle to row @1 col @2 1120 DEFFN '101( Y, Z ) 1130 X = INT(Y/2) 1140 Z$(1) = Y$(Y-X*2+1) 1150 $GIO /F05 (4001 A000 4020, Z$()) Z$()<35-Y0,Y0+Z0-2> 1160 $GIO /F05 (4001 A000 4210, Z$()) Z$()<35-X,X+Z-2> 1170 Y0 = X : Z0 = Z 1180 RETURN 1190 REM - - - - - - - - - - 1200 PRINT HEX(0306); 1210 DIM H$33, H(24) : INIT(A0) H$ : MAT H = ZER 1220 FOR I = 1 TO 22 1230 FOR J = I TO 0 STEP -2 1240 GOSUB '100( 27-J, 2*I ) 1250 GOSUB '100( 25+J, 2*I ) 1260 NEXT J 1270 NEXT I 1280 PRINT HEX(01); " Pascal's triangle simulation"; TAB(47); H$; HEX(01) 1290 FOR J = 23 TO 0 STEP -2 1300 GOSUB '100( 27-J, 46 ) 1310 PRINT " "; H$; HEX(01) 1320 GOSUB '100( 25+J, 46 ) 1330 PRINT " "; H$; HEX(01) 1340 NEXT J 1350 FOR I = 1 TO 200 1360 P = 26 : Q = 1 1370 GOSUB '101( P, Q ) 1380 FOR J = 1 TO 23 1390 P = P+INT(RND(1)-.5)*2+1 1400 Q = Q+2 1410 GOSUB '101( P, Q ) 1420 NEXT J 1430 R = P/2+1 1440 H(R) = H(R)+1 1450 $GIO /F05 (4008 4020 40EF, Z$()) 1460 FOR J = 32 TO H(R) STEP -1 1470 $GIO /F05 (4008 40A0 40EF, Z$()) 1480 NEXT J 1490 NEXT I 1500 PRINT HEX(010A0A) 1510 STOP " Bell curve illustrated. Key FN for menu." 1520 DEFFN '126 : LOAD T#0,"START"