Timexly Tips

Thanks to Paul Hill, SINCUS

   5 GO TO 900
  10 PRINT #1;"This is printed i
n the lower    part of the scree
n": PRINT AT 10,10;"Press ANY ke
y!": PAUSE 0
  15 RETURN
  20 INPUT AT 22,0;AT 0,0;"What
is your name? "; LINE a$;AT 10,0
;"What is your age, ";(a$);" ";a
;AT 15,0;(a$);"'s age is ";(a);A
T 20,0;"Press ENTER to continue"
;b$
  25 RETURN
 100 IF INKEY$="" THEN GO TO 100
 105 LET z$=INKEY$: RETURN
 900 CLS : PRINT AT 10,10;"Selec
t Menu #1 or #2";AT 13,5;" 1  Pr
int in bottom 2 lines";AT 15,5;"
 2  Locate INPUTS": GO SUB 100
 905 IF z$<"1" OR z$>"2" THEN BE
EP .5,5: GO TO 900
 910 CLS : GO SUB 10*VAL z$: GO
TO 900
 915 STOP

9000>REM User Defined Graphics
        TS 2068 - Gary Ennis
        SINCUS,PO 523,Owego,NY
9005 FOR a=USR "a" TO USR "u"+7
9010 READ user: POKE a,user
9015 NEXT a
9019 RETURN
9020 REM "a"="★"
9021 DATA BIN 00001000,BIN 00011
100,BIN 01111111,BIN 00111110,BI
N 00011100,BIN 00110110,BIN 0010
0010,BIN 00000000
9025 REM "b"="→"
9026 DATA BIN 00000000,BIN 00000
000,BIN 00000100,BIN 00000010,BI
N 11111111,BIN 00000010,BIN 0000
0100,BIN 00000000
9030 REM "c"="←"
9031 DATA BIN 00000000,BIN 00000
000,BIN 00100000,BIN 01000000,BI
N 11111111,BIN 01000000,BIN 0010
0000,BIN 00000000
9035 REM "d"="↓"
9036 DATA BIN 00000000,BIN 00001
000,BIN 00001000,BIN 00001000,BI
N 00101010,BIN 00011100,BIN 0000
1000,BIN 00000000
9040 REM "e"="¢"
9041 DATA BIN 00001000,BIN 00001
000,BIN 00011100,BIN 00101010,BI
N 00101000,BIN 00101010,BIN 0001
1100,BIN 00001000
9045 REM "f"="●"
9046 DATA 60,126,255,255,255,255
,126,60
9050 REM "g"="[UDG]"
9051 DATA 24,60,60,24,60,36,0,0
9055 REM "h"="| "
9056 DATA 128,128,128,128,128,12
8,128,128
9060 REM "i"="‾"
9061 DATA 255,0,0,0,0,0,0,0
9065 REM "j"=" |"
9066 DATA 1,1,1,1,1,1,1,1
9070 REM "k"="|"
9071 DATA 16,16,16,16,16,16,16,1
6
9075 REM "l"="—"
9076 DATA 0,0,0,255,0,0,0,0
9080 REM "m"="♦"
9081 DATA 24,60,126,255,255,126,
60,24
9085 REM "n"="♣"
9086 DATA 24,60,126,255,255,90,2
4,60
9090 REM "o"="[UDG]"
9092 DATA BIN 00111100,BIN 01111
110,BIN 00111100,BIN 11111111,BI
N 11111111,BIN 01111110,BIN 0001
1000,BIN 00111100
9095 REM "p"="♥"
9096 DATA 68,238,254,254,254,124
,56,16
9100 REM "q"="[UDG]"
9101 DATA 12,24,62,127,127,127,1
27,62
9110 REM "r"="[UDG]"
9111 DATA 65,62,73,73,127,20,28,
0
9115 REM "s"="[UDG]"
9116 DATA 56,56,16,124,16,16,40,
68
9120 REM "t"="◇"
9121 DATA 24,36,66,129,129,66,36
,24
9125 REM "u"="□"
9126 DATA 255,129,129,129,129,12
9,129,255