00:00:00 --- log: started forth/15.02.28 00:08:30 --- join: true-grue (~grue@95-27-180-247.broadband.corbina.ru) joined #forth 00:08:49 --- quit: mnemnion (Remote host closed the connection) 01:30:18 --- quit: yunfan (Quit: already be with hell) 01:45:33 --- quit: karswell (Remote host closed the connection) 01:46:48 --- join: karswell (~user@182.13.199.146.dyn.plus.net) joined #forth 05:58:30 --- quit: probonono (Ping timeout: 240 seconds) 06:01:19 --- join: Zarutian (~Adium@168-110-22-46.fiber.hringdu.is) joined #forth 06:13:16 --- quit: bjorkintosh (Ping timeout: 252 seconds) 06:26:37 --- join: mnemnion (~mnemnion@c-98-210-219-91.hsd1.ca.comcast.net) joined #forth 06:46:35 --- quit: Bahman (Quit: Ave atque vale) 06:52:27 --- quit: darkf (Quit: Leaving) 06:59:13 --- join: saml_ (~saml@cpe-24-102-97-97.nyc.res.rr.com) joined #forth 07:03:57 --- join: kumul (~mool@adsl-72-50-84-186.prtc.net) joined #forth 07:13:08 --- join: impomatic_ (~chatzilla@61.205.125.91.dyn.plus.net) joined #forth 07:13:35 --- quit: impomatic (Ping timeout: 245 seconds) 07:13:47 --- nick: impomatic_ -> impomatic 07:19:58 --- join: joneshf-laptop (~joneshf@98.208.35.89) joined #forth 07:22:28 --- quit: impomatic (Ping timeout: 246 seconds) 07:23:45 --- join: impomatic (~chatzilla@61.205.125.91.dyn.plus.net) joined #forth 07:46:08 --- join: ASau` (~user@46.115.5.110) joined #forth 07:49:00 --- quit: ASau (Ping timeout: 245 seconds) 08:03:31 --- nick: ASau` -> ASau 08:09:12 --- join: impomatic_ (~chatzilla@61.205.125.91.dyn.plus.net) joined #forth 08:09:18 --- join: johnmark_ (~johnmark@c-73-51-235-57.hsd1.il.comcast.net) joined #forth 08:11:12 --- quit: impomatic (Ping timeout: 244 seconds) 08:14:56 --- quit: impomatic_ (Ping timeout: 272 seconds) 08:17:01 --- join: impomatic (~chatzilla@61.205.125.91.dyn.plus.net) joined #forth 08:22:15 --- join: fantazo (~fantazo@089144219034.atnat0028.highway.a1.net) joined #forth 09:07:21 --- join: bandrami (~ubuntu@triband-mum-120.60.229.116.mtnl.net.in) joined #forth 09:09:03 --- join: ZioFork (~ziofork@2a02:8084:a180:1480:5e93:a2ff:fea2:6077) joined #forth 09:25:09 --- quit: Zarutian (Quit: Leaving.) 09:43:13 --- join: _spt_ (~jaat@unaffiliated/-spt-/x-5624824) joined #forth 09:53:49 --- quit: bandrami (Quit: Ex-Chat) 10:05:20 --- quit: ZioFork (Quit: Leaving) 10:09:26 --- join: Zarutian (~Adium@168-110-22-46.fiber.hringdu.is) joined #forth 10:10:52 --- join: nighty-_ (~nighty@hokuriku.rural-networks.com) joined #forth 11:05:17 --- join: bedah (~bedah@g230214003.adsl.alicedsl.de) joined #forth 11:25:38 --- quit: saml_ (Ping timeout: 245 seconds) 11:50:00 --- join: bjorkintosh (~bjork@ip68-13-229-200.ok.ok.cox.net) joined #forth 12:22:51 --- quit: fantazo (Quit: Verlassend) 13:00:34 <_spt_> evening all 14:18:31 how do I cast and int to float in forth? 14:19:44 --- quit: true-grue (Read error: Connection reset by peer) 14:32:44 http://pastebin.com/BfdrrYdv 14:33:44 The link above is an example of how I got something to work. 14:48:13 I think I found what I am looking for: I D>F DEG F! 14:56:39 No that did not work but S>F works!!! 14:58:08 --- join: MrMobius (~Joey@c-68-45-16-225.hsd1.nj.comcast.net) joined #forth 15:02:06 http://pastebin.com/r6nCQiq4 15:19:22 Above is my final program it works!!! 15:22:55 johnmakr_: what forth are you using? 15:24:17 --- quit: nighty-_ (Quit: Disappears in a puff of smoke) 15:26:57 hence? henceforth? nah. 15:27:01 too cheap. 15:48:44 --- quit: _spt_ (Quit: gone to fix a server for Staffc CC) 15:50:38 gforth 15:51:38 GNU forth 15:53:04 I also have a Tandy Color Computer 3 that can run Color forth. 15:54:49 The TRS-80 Color Computers and Tandy Color Computers are affectionately called the CoCo 15:55:16 So I have a CoCo 3 15:56:55 It is about a 30 year old computer. 16:00:41 I am working on a newsletter artical on forth. I would like to translate a BASIC program to forth. The instruction I am stuck on is "INPUT "Weight?";W". Where W is a float. 16:02:45 Another example is "INPUT "Do you require a space suit? (Y/N)";Q$". 16:04:38 200.0e0 180.0e0 F+ 6.0e0 F/ F. 16:05:01 A 200 pound man in a space suit will what what on the moon. 16:10:30 Note: An Apollo style space suit weight is 180 pounds. 16:10:39 --- join: gabriel_laddel (~user@unaffiliated/gabriel-laddel/x-9909917) joined #forth 16:11:43 Hi gabriel_ladder 16:14:07 --- quit: Zarutian (Quit: Leaving.) 16:33:09 --- quit: bedah (Quit: gn8) 17:04:47 --- quit: ASau (Remote host closed the connection) 17:28:29 --- join: yunfan (~roooot@unaffiliated/yunfan) joined #forth 17:40:24 http://rosettacode.org/wiki/Rosetta_Code 17:42:08 How to translate BASIC Code to Forth Code 17:42:16 http://rosettacode.org/wiki/Category:Solutions_by_Programming_Task 17:48:07 pad dup 80 accept >float 17:48:16 It works!!! 17:48:40 http://rosettacode.org/wiki/A%2BB 18:12:58 --- quit: gabriel_laddel (Remote host closed the connection) 18:13:50 --- join: darkf (~darkf___@unaffiliated/darkf) joined #forth 18:38:22 --- quit: karswell (Remote host closed the connection) 18:39:33 --- join: karswell (~user@182.13.199.146.dyn.plus.net) joined #forth 18:43:16 --- quit: kumul (Ping timeout: 246 seconds) 19:07:43 --- join: gabriel_laddel (~user@unaffiliated/gabriel-laddel/x-9909917) joined #forth 19:16:57 --- join: kumul (~mool@adsl-72-50-86-122.prtc.net) joined #forth 20:15:56 --- quit: mnemnion (Remote host closed the connection) 20:27:54 --- quit: karswell (Ping timeout: 264 seconds) 20:38:58 --- join: karswell (~user@182.13.199.146.dyn.plus.net) joined #forth 20:51:00 How do I input or getchar in forth? 20:51:08 Another example is "INPUT "Do you require a space suit? (Y/N)";Q$". 20:51:46 http://pastebin.com/ayQSuVQG 20:52:00 pad 1 y-or-n 20:52:10 hear 1 y-or-n 20:53:15 http://rosettacode.org/wiki/Keyboard_input/Obtain_a_Y_or_N_response#Forth 21:20:43 --- join: Bahman (~Bahman@85.133.140.132) joined #forth 21:20:54 --- join: Tod-Autojoined (~Tod@50-198-177-186-static.hfc.comcastbusiness.net) joined #forth 21:21:36 --- quit: TodPunk (Read error: Connection reset by peer) 21:22:09 --- nick: Tod-Autojoined -> TodPunk 21:37:03 --- quit: johnmark_ (Quit: Leaving) 22:17:16 --- quit: kumul (Quit: Leaving) 22:36:23 --- join: lynx` (~lynx@46.21.154.83) joined #forth 22:49:13 --- quit: karswell (Read error: Connection reset by peer) 22:50:21 --- join: karswell (~user@182.13.199.146.dyn.plus.net) joined #forth 23:22:42 --- quit: karswell (Remote host closed the connection) 23:24:03 --- join: karswell (~user@182.13.199.146.dyn.plus.net) joined #forth 23:59:59 --- log: ended forth/15.02.28