10 SOUND 0,0,0,0:DIM SIMUL$(16)›20 RESTORE 9999:X=1›25 READ Q:IF Q<>-1 THEN SIMUL$(X)=CHR$(Q):X=X+1:GOTO 25›27 RESTORE 100›30 READ F1,C1,F2,C2,F3,C3,F4,C4›40 IF F1=-1 THEN END ›50 X=USR(ADR(SIMUL$),F1,C1,F2,C2,F3,C3,F4,C4)›55 FOR X=0 TO 150:NEXT X›60 GOTO 30›100 DATA 182,168,0,0,0,0,0,0›110 DATA 162,168,182,166,0,0,0,0›120 DATA 144,168,162,166,35,166,0,0›130 DATA 128,168,144,166,40,166,35,166›140 DATA 121,168,128,166,45,166,40,166›150 DATA 108,168,121,166,47,166,45,166›160 DATA 96,168,108,166,53,166,47,166›170 DATA 91,168,96,166,60,166,53,166›999 DATA -1,0,0,0,0,0,0,0›9000 REM ›9010 REM ›9020 REM this data contains the machine lang. program,›9030 REM and is read into SIMUL$›9999 DATA 104,133,203,162,0,104,104,157,0,210,232,228,203,208,246,96,-1›