image of READY prompt

Wang2200.org

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"