Here - 1000 BiT

1 REM A27-110 REM *** BACKWARD ***12 PRINT "(clr)(wht)(dn)(dn)(dn)"20 INPUT " GIVE ME A NUMBER";N30 N$=STR$(N]35 L=LEN(N$)40 FOR 1=1 TO L45 B$=B$+$MID$[N$.L+$1-I.1]50 NEXT I55 B=VAL(B$)57 PRINT "(clr)(dn)(dn)(dn)"60 PRINT "";N$61 PRINT "+$";B$65 PRINT" ";LEFT$(" ".L)70 A=N+$B72 A$=STR$(A)75 IF LEN(A$)=LTHEN PRINT "";A$76 IF LEN(A$]=L+$1 THEN PRINT " ";A$80 END1 REM A27-210 REM*** LEAP FROG***12 PRINT "(clr)(wht)(dn](dn)(dn)"20 INPUT "GIVE ME A NUMBER";N25 N$=STR$(N)26 L=LEN(N$]27 N$=RIGHT$(N$.L-1]: L=L-130FORI=0TO39-L32 PRINT "(hm)(dn)(dnJ(dn)(dn)(dn)(dnHdn)(dn){dn)(dnHdn)"35PRINTTAB[I);"";N$40 N$=RIGHT$(N$,L-1 J+$LEFT$(N$,1)45 FOR T=1 TO 300: NEXT T50 NEXT I1 REM A30-110 REM *** THIRTY DAYS HAS ...***12 PRINT "(clr)(wht)(dn)(dn](dn)"15 DIM D(12)20 FOR 1=1 TO 1222 READ D(l]25 NEXT I30 INPUT " WHICH MONTH (1 TO 12)";M31 PRINT: PRINT35 PRINT" MONTH NUMBER";M;"HAS";D{M);"DAYS"99 DATA 31,28.31.30.31.30.31,31.30,31.30.31231