COUNT 100 <,<_> COUNT 100 ,23627K\,100d:23628L\,0 23561 \,200 2:2:0: 18,5;7;"" )5;7;"" )5;7;"STOP THE TAPE " )5;7;"" )5;7;"" 200 7:7:0: ,1;"COPYRIGHT WIDGIT SOFTWARE 1983" (6,11 ;6;"COUNT 100" >8,0;"UP TO 100 MEN CAN APPEAR ON":"THE SCREEN" b:"1. THE COMUTER PICKS THE NUMBER":"OF MEN. TYPE THIS NUMBER":"FOLLOWED BY ";1;"ENTER" :"2. TYPE YOUR OWN NUMBER FOLLOWED":"BY ";1;"ENTER";0;" TO SEE THEM APPEAR"::"CHOOSE ";1;"1";0;" OR ";1;"2" (21,0;"PRESS 0 TO END NOW" V$ V$=""20 W=1̱V$:W$=V$(WW) )(W$<480)(W$>579)20 W V=V$ V>220 5(V=0)(23730\=243)32599W: 5(V=0)(23730\=242)65367W: 21,0,24,33!,0,64@,22,255,122z,150,119w,35#,11 ,120x,177,32 ,247,201 <+N=118:B:32499~+N,B:N dA f#A=07:B:""+A,B:A hD3,3,3,1,7,11 ,19,35# nB p#A=07:B:""+A,B:A rC35#,2,2,4,8,16,8,0 xC z#A=07:B:""+A,B:A |M128,0,128,0,128,192,160,144 D #A=07:B:""+A,B:A J136,128,64@,32 ,16,16,24,0 E #A=07:B:""+A,B:A M568,480,568,16,120x,124|,188,186 F #A=07:B:""+A,B:A K185,168,40(,40(,72H,136,76L,0  0:0:6:  T=4 '.2~L,30 *V=13051 +V=21000 , -3X=23731\:X<12832499~:3 .32498~:3 1Q=1+(*100d) 6Q$=Q @1Q$=100dJ=10 :K=0:380| E+Q$<10 K=Q$:J=0:380| JJ=Q$(11) TK=Q$(22) |%L=02*J-22 N=4222 $L,N;T;"":L+1,N;T;"" N L+1,0;"____" &L+1,0;L/2+1 L M=2*K2-2 N=2M2 L,N;"":L+1,N;""  5 L,N;"":L+1,N;"";  5  "L,N;"":L+1,N;"" N &M 0L+1,0;"____" :V=21100L 23+26,A$ A$=""700 Z=1̱A$:X$=A$(ZZ) *(X$<480)(X$>579)700 Z 'A$=Q$.5,10 :800  A$="0"11  700 *%L=02*J-22 /'L,24;"-";L/2+1;"0" 4L 9$L+1,24;"-";1;Q pN=1750-1 /25*8,N:1;24,0 N N=110 2 ?D=20+N26+N3:.05|L,D:32500~:D N  280 ):5,8;"HOW MANY MEN?":X$ X$=""1000 W=1̱X$:W$=X$(WW) +(W$<480)(X$>579)1000 W Q=X$ Q>100d1000 $Q=011 ) . 3106 LL+1,25;Q OE=210 Q32500~ VD=20+E25+E ` .1}L,D jD tE  1000