10REM Packet setup for Tiny-2 using " Terminal" 20REM By E3E Version A 2.3 90: 100IF INKEY(-256)<>253 MODE7:PROCb:END 110MODE131 120*FX8,4 130*FX212,216 140REM 1200 baud & soft G Bell 170REM (f) Keys 180*KEY0 CONV|M 190*KEY1 |C |M 200*KEY2 |C MH|M 210*KEY3 |C M ON|M 220*KEY4 |C M OFF|M 230*KEY5 C GB7??? |M 240*KEY6 C GB7??? |M 250*KEY7 C GB7??? |M 260*KEY8 |C DIS|M 270*KEY9 *EXEC $.Date|M 280REM Set Date & Time 290*SPOOL $.Date 300PRINT"*TE."CHR$13 310PRINT"DA "MID$(TIME$,14,2)RIGHT$("0 "+STR$(INSTR("**JanFebMarAprMayJunJulAug SepOctNovDec",MID$(TIME$,8,3))/3),2)MID$ (TIME$,5,2)MID$(TIME$,17,2)MID$(TIME$,20 ,2) 320*SPOOL 330OSCLI"FX21":*FX138,0,137 340END 360: 380REM *** PRINT"DA "RIGHT$(STR$(VAL (MID$(TIME$,14,2))+32),2)RIGHT$("0"+STR$ (INSTR("**JanFebMarAprMayJunJulAugSepOct NovDec",MID$(TIME$,8,3))/3),2)MID$(TIME$ ,5,2)MID$(TIME$,17,2)MID$(TIME$,20,2) *** use after Year 1999 *** 390: 400DEFPROCb 410PRINTTAB(5,10)" Only for The Maste r 128"'''' 420SOUND0,-15,2,20 430ENDPROC