10 REM Packet setup for Tiny-2 using "Terminal" 20 REM By E3E Version A 2.3 90 : 100 IF INKEY(-256)<>253 MODE7:PROCb:END 110 MODE131 120 *FX8,4 130 *FX212,216 140 REM 1200 baud & soft G Bell 170 REM (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 280 REM Set Date & Time 290 *SPOOL $.Date 300 PRINT"*TE."CHR$13 310 PRINT"DA "MID$(TIME$,14,2)RIGHT$("0"+STR$(INSTR("**JanFebMarAprMayJunJulAugSepOctNovDec",MID$(TIME$,8,3))/3),2)MID$(TIME$,5,2)MID$(TIME$,17,2)MID$(TIME$,20,2) 320 *SPOOL 330 OSCLI"FX21":*FX138,0,137 340 END 360 : 380 REM *** PRINT"DA "RIGHT$(STR$(VAL(MID$(TIME$,14,2))+32),2)RIGHT$("0"+STR$(INSTR("**JanFebMarAprMayJunJulAugSepOctNovDec",MID$(TIME$,8,3))/3),2)MID$(TIME$,5,2)MID$(TIME$,17,2)MID$(TIME$,20,2) *** use after Year 1999 *** 390 : 400 DEFPROCb 410 PRINTTAB(5,10)"Only for The Master 128"'''' 420 SOUND0,-15,2,20 430 ENDPROC