`_-_-_-_-_-_-_-_-_-_-_-_-_-_
`| Special Print |
`-_-_-_-_-_-_-_-_-_-_-_-_-_-
`instructions:
`to print something on the screen you can use one of 2 ways to do it!
`1: Type print(space)what goes on the screen
`
`NOTICE THAT THERE ARE NO "S !!!
`
`2: type 6 _s or -s and then what you want to print as
`long as it has print in it
`---------------------------
`¦ main loop ¦
`---------------------------
do
input string$
if string$ <> "" then gosub printf
loop
`---------------------------
`¦ gosub ¦
`---------------------------
printf:
for s = 1 to len(string$)
c$ = mid$(string$,s)
select c$
case "p" : p = 1 : endcase
case "r" : r = 1 : endcase
case "i" : i = 1 : endcase
case "n" : n = 1 : endcase
case "t" : t = 1 : endcase
endselect
next s
if p+r+i+n+t = 5 then print right$(string$,len(string$)-6)
if p+r+i+n+t <> 5 then print "syntax error"
return
I made a cool printing thingy. Give it a try buy it is hard to figure out unless you read the instructions.
(Y=M*X+B)=(X=(Y-B)/M)=(B=Y-M*X)=(M=Y-B/X)
and if you can figure out what it means i will give you a cookie.
