224 Asset Stripper
2780 CH=100000
2790 ZXCH=CH
2800 AW=0
2810 T$="0"
2e20 PT=0
2830 FOR X=1 TO 10
2840 A(X)=INT(RND*S/2)+I
2e5o D(X)=S/A(X)
2860 B(X)=INT(RND*S/10)+1
2870 H(X)=B(X)/100/1000
2880 W(X)=60
2e90 F$(X)="X"
2900 L(X)=S
2910 NEXT X
2920 GOTO 2340
2930 WIRE$=STRING$(38,46)+C$(X)+"	"+T
W$4-STRING$(42,46)
2940 FOR WT=1 TO LEN(WIRE$)-40:SOUND 1,1 00,10,4:LOCATE 1,10:PEN 3:PRINT MID$(WIR E$,WT,40);:NEXT:PEN 2:RETURN
2950 WIRES=STRING$(40,46)+TW$I-STRING$(40 ,46):FOR WT=1 TO LEN(WIRE$)-40:SOUND 1,7 5,10,2:LOCATE I,10:PEN 3:PRINT MIDS(WIRE $,WT,40);:NEXT:PEN 2:RETURN