Thanks for your feedback about the site. To be honest, i havent worked much lately with this site since i am way overworked currently.
Site has existed pertty long, i think year 4 is goin on now. This is third "version" we have complited. First was pure html/frame site, made by MystikShadows. I think i do have copy of it in my secondary computer and i have planned to keep it online too someway.

Second site was build around TikiWiki software, but it was a bit mistake for us. Pretty quickly after moving to tikiwiki, we decided to move here where we are currently.

Hopefully this site can give you information as much as you need. If not, ask and we see if we could help.

E.K.Virtanen

p.s Mystik, yeah, youre old and your heart wont even survive flight over atlantic ocean :P

I wrote an article on the history of ASCII here for a little different point of view.
http://www.ascii-world.com/history

Hope this helped answer your question.

And E.K. One comment about my age here, and I'm going to Finland to kick your butt..LOL.

P.S. i've just found this site, and like it a lot.

We will update the game, adding new things to do about once every 2 weeks, it'll be fun and simple, and I hope you all will give it a try when it is ready.

Thanks, and I hope you all will have fun!

Links:
You can download from my website: http://operagn.co.nr/
Or you can just click <a href="http://web.mac.com/wozilla/OGN/SilverQuest_files/Silver%20Quest.zip">here</a> to get the game.

-Wolfgang Wozniak

P.S. Yes, all of it is supposed to look like that. :P
P.P.S. No, I didn't want to make an overly large post.

You site seems somehow familiar. Unfortunately i am not been able to do anykind of link check in long long time.
I will try to do so in next week-end and update your informations there too.

E.K.Virtanen

Some of the progams can also safely be run online from menus displayed.

Gordon

E.K.Virtanen

The irony comes in with web sites that are entirely GUI, have RSS feeds, and other stuff that tired old QB must look at like flying cars from the Jetsons.

Of course you won't see me lining up to use that .Net crap myself. I keep hoping it will die and we'll get a new and decent Windows Basic compiler from Microsoft. I wanted to love FB but it is such a pile of 1982 that I can't even be bothered to download newer versions.

Things are so bad I start to wonder if we shouldn't make a tombstone for Basic. R.I.P.

- BVOCS

E.K.Virtanen

E.K.Virtanen

E.K.Virtanen

Your tui sounds interesting. Im in need of one soon ;)
See link for more http://forum.basicprogramming.org/index.php?topic=242.0

E.K.Virtanen

Still no internet connect yet I'm afraid. Hopefully, soon.

However, I haven't been just laying around. :) While working on a couple of programs, I decided that I needed an easy to use gui system for FB. Since there really isn't one (that I know of) that is written in pure FB, I decided to write my own. Right now I have the main desk object and menu object working. The desk object is the core gui object that is the container for the menu and window objects. The window object is a container for the different control objects such as a textbox, label, button, etc. The syntax is quite easy to use. For example:

sub MessageHandler (objID as integer, e as EVENT)

'handle message

end sub

dim mydesk as desk = desk([options])

CreatMenu [options]
AddNewMenuItem [options]
…
desk.menu.ShowMenu
desk.ProcessMessage = @MessageHandler
desk.ShowDesk
desk.Run

The run command enters into the gui message loop. The MessageHandler sub is a user defined sub that you would use to handle any messages generated by the system. The objID is the id of the object you used when you created the object and the e as EVENT is the FB ScreenEvent record that is passed from the desk message loop. You pass the address of your message handler to the desk ProcessMessage before you run the desk object.

Next time I can get online I'll post some screen shots.

Your projects sounds darn interesting (as usual), specially that book is something i would love to read. Game sounds HUGE. I want to know more details, and now i got to wait a whole month here?

Anyway, hopefully we get you back soon.

E.K.Virtanen

Just a little note to let you know I am still kicking. I will, hopefully, have my own connection next month some time. I have had a hard time finding an ISP that I could afford down here in Austin.

Even though I haven't been online, I have been working on a few things. I have an ascii (of course) space trading game in the works. Over 500 computer generated star systems to explore, numerous alien races, full economics model including banking and stock market, trade legally or smuggle or both, tactical combat system, create a space corporation or remain small and mobile, with open-ended game play. The object is to gain a least a billion credits but you play the game as long as you like.

I am also kicking around the idea of a book on rogue-like development using ascii. There might be a small market for that type of book since people are still interested in RL development. We'll see how that goes.

I hope everyone is well. See you all soon.

Rick

We are not dead, actually we are planning to release next issue of PCopy! e-zine (issue #70) at the end of this month.
All contributions are welcomed, as usual :) We cant do this with out you folks.

MystikShadows is a editor in chief for this issue, but e-zine is the same as allways.

PCopy! website is at http://pcopy.wikidot.com/ and you can contribute articles, editorials, letters, comics, reviews, previews, news and everything to moc.liamg|ffats.ypocp#moc.liamg|ffats.ypocp

Alternative emails;
moc.liamg|dlrowiicsa#moc.liamg|dlrowiicsa
moc.liamg|swodahskitsym#moc.liamg|swodahskitsym

E.K.Virtanen, da Mystiks little helper.

I am glad now after looking around programming websites around the web. Resources of computers does get better all the time and learning to make 2D and 3D graphics gets easier in same speed.
Still, new ASCII applications does pop-up nearly every week.

How come this is possible? Why newbies does still start with ASCII when simple 2D is easy to do after few weeks of learning?

I have allways thought that ASCII game is like a book. Book cant beat the movie? Maybe because it does leave visual part of the fun for reader? In same way, i think ASCII games does work.
Game is the story and the action, but visual side comes from your own imagination. There is no way 3D can beat that?

E.K.Virtanen

E.K.Virtanen

There's still time, but there's no point waiting for the last day ;-). So get cracking folks (your knuckles that is) and start writing up the goods. The earlier the better.

I have one contribution and planning on a few more. at least.

Since situation is this, i can only move deadline at 2'nd of January 2008. This is only way to make sure there is enough time to do and build next issue so its not bug hell.

Sorry.

E.K.Virtanen

In that case, just change "2" to "4" in url and you should be ok to go.
Ill try to check everything in this day.

E.K.Virtanen

E.K.Virtanen

Just reminding you that deadline for next PCopy issue is in 10 days.
To see more, check http://pcopy.wikidot.com
About PCopy! in last issue in last published issue.

All contributions at moc.liamg|ffats.ypocp#moc.liamg|ffats.ypocp
Alternative emails at http://pcopy.wikidot.com/contact

Thank you. We could not do this with out you :)

E.K.Virtanen

 ''' TinyBASIC, by Nicholas Christopoulos '' A SmallBASIC example :) DIM variables(26) '' variables (one for each letter) DIM stack(10) '' executor''s stack (GOSUB/FOR-NEXT/WHILE-WEND) DIM labels(), program() DEF varidx(name) = asc(left(name))-65 ip = -1 '' next command to execute (-1 = none, -2 = error) sp = 0 '' stack pointer CLS print cat(2);"TinyBASIC v1";cat(-2) print "A 450-line (with expression parser) SmallBASIC example" print print "Type HELP for catalog." print "Type QUIT to exit..." print print "READY" print repeat input "> ", inpstr inpstr = trim(upper(inpstr)) cmd = trim(leftof(inpstr+" ", " ")) '' get command name if len(cmd) par = trim(rightof(inpstr, " ")) if isnumber(cmd) '' store command addcmd val(cmd), par else '' execute command execute cmd, par fi fi until cmd="QUIT" end '' Store command to memory sub addcmd(num, cmd) local i, ins, rep ins = len(labels): rep = -1 for i = 0 to len(labels)-1 if labels(i) = num then rep=i:exit if labels(i) > num then ins=i:exit next if rep = -1 '' new record if len(cmd) '' no error, insert (or append) insert labels, ins, num insert program, ins, cmd fi else if len(cmd) '' replace program(rep) = cmd else '' erase delete labels, rep delete program, rep fi fi end '' set value to a variable sub setvar(varname, varval) local idx if len(varname)>1 TBError "ILLEGAL VARIABLES NAME, USE ONE-CHAR NAMES" else idx = varidx(varname) varval = trim(varval) if left(varvar) = chr(34) '' it is a string variables(idx) = disclose(varval) else '' it is an expression variables(idx) = tbeval(varval) fi fi end '' execute a TB command sub execute(cmd, par) local idx, i, var, vstr local parA, tstr, fstr, f, num if cmd in ["END", "NEW"] '' new program or end of program; syntax: NEW or END ip = -1 sp = 0 if cmd="NEW" erase labels, commands '' clear program dim variables(26) '' clear variables print:print "* DONE *":print fi elif cmd in ["QUIT", "REM"] '' do nothing elif cmd="LET" '' assigns a value to a variable; syntax: LET variable = expression sinput par; var, "=", vstr setvar var, vstr elif cmd="LIST" '' prints the program, syntax: LIST if len(labels) for i=0 to len(labels)-1 print using "####: &"; labels(i); program(i) next else TBError "NO PROGRAM IN MEMORY" fi elif cmd="RUN" '' run the program, syntax: RUN ip = 0 while ip<len(labels) last_ip = ip cmd = trim(leftof(program(ip)+" ", " ")) par = trim(rightof(program(ip), " ")) execute cmd, par if ip = -2 print "* ERROR AT ";labels(last_ip);" *" sp = 0 exit elif ip = -1 print:print "* DONE *":print sp = 0 exit else ip = ip + 1 fi wend elif cmd="INPUT" '' get a value form console, syntax: INPUT [prompt,] variable split par, ",", para, chr(34)+chr(34) use trim(x) if len(para) = 0 ip = -2 else if len(para) = 2 idx = 1 input disclose(para(i)); vstr else idx = 0 input "? ", vstr fi setvar para(idx), vstr fi elif cmd="PRINT" '' print to console, syntax: PRINT [var1 [, varN]] split par, ",", para, chr(34)+chr(34)+"()" use trim(x) for vstr in para if left(vstr)=chr(34) '' print string print disclose(vstr); " "; else '' print number (expression) print tbeval(vstr); " "; fi next print elif cmd in ["GOTO", "GOSUB"] '' Syntax: GOTO line or GOSUB line search labels, val(par), idx if idx = -1 TBError "LABEL "+par+" DOES NOT EXIST" else if cmd="GOSUB" stack(sp) = ["R", ip] '' "R" = a ''return'' command must read it sp = sp + 1 fi ip = idx-1 fi elif cmd="RETURN" '' syntax: RETURN if sp > 0 sp = sp - 1 if stack(sp)(0) = "R" '' later you can add code for FOR and WHILE ip = stack(sp)(1) else TBError "STACK MESS" fi else TBError "STACK UNDERFLOW" fi elif cmd="IF" '' IF! what else?. Syntax: IF expression THEN line [ ELSE line ] sinput par; vstr, " THEN ", tstr, " ELSE ", fstr if tbeval(vstr) execute "GOTO",tstr elif len(fstr) execute "GOTO",fstr fi elif cmd="SAVE" f=disclose(par) if len(f)=0 TBError "MISSING: FILENAME" else if isarray(labels) if instr(f, ".TBAS")=0 THEN f=f+".tbas" ELSE f=leftoflast(f, ".TBAS")+".tbas" open f for output as #1 for i=0 to len(labels)-1 print #1; labels(i); " "; program(i) next close #1 print:print "* DONE *":print else TBError "NO PROGRAM IN MEMORY" fi fi elif cmd="LOAD" f=disclose(par) if len(f)=0 TBError "MISSING: FILENAME" else ip = -1 sp = 0 erase labels, commands '' clear program dim variables(26) '' clear variables if instr(f, ".TBAS")=0 THEN f=f+".tbas" ELSE f=leftoflast(f, ".TBAS")+".tbas" open f for input as #1 while not eof(1) line input #1; vstr num = leftof (vstr, " ") par = rightof(vstr, " ") addcmd val(num), par wend close #1 print:print "* DONE *":print fi elif cmd="FILES" print files("*.tbas") elif cmd="HELP" PRINT print " ";cat(2);"TinyBASIC, v1";cat(-2) PRINT print " * All variables are real numbers." print " * There are 26 variables, one for each letter" print " * INPUT return real number (not string)" print " * IF-THEN accepts only line-numbers (IF x THEN line ELSE line)" print " * PRINT uses only , as separator" PRINT print " HELP";tab(15);"This screen" print " NEW";tab(15);"New program" print " RUN";tab(15);"Run program" print " LIST";tab(15);"Prints program to screen" print " SAVE";tab(15);"Saves program to disk" print " LOAD";tab(15);"Loads a program from disk" print " FILES";tab(15);"Prints the list of TB programs" print " REM";tab(15);"Remarks" print " GOTO";tab(15);"Transfers control to ..." print " LET";tab(15);"Assigns a value to a variable" print " PRINT";tab(15);"Prints an expression" print " INPUT";tab(15);"Inputs a value" print " IF";tab(15);" " print " GOSUB";tab(15);" " print " RETURN";tab(15);" " print " END";tab(15);"Terminate the program" PRINT else TBError "BAD COMMAND" fi end '' Run-time error sub TBError(errmsg) PRINT print chr(7);"* ";errmsg;" *" PRINT ip = -2 end '' ==== expression parser ==== '' evaluate an expression def TBEval(expr) local result, rmn, c result = 0 expr = ltrim(expr) if len(expr) then logical result, expr TBEval = result end '' number def valueof(byref expr) local c, i, v for i=1 to len(expr) c = mid(expr, i, 1) if not (c in "0123456789.") then exit next if i < len(expr) v = left(expr, i-1) expr = mid(expr, i) else v = expr expr = "" fi valueof = val(v) end '' operators: ( ) or value sub parenth(byref l, byref expr) local op, vname op = left(expr) if op = "(" expr = mid(expr, 2) logical l, expr if left(expr)=")" then expr = mid(expr, 2) else if op in "0123456789." l = valueof(expr) '' elif, check for function else '' variable l = variables(varidx(expr)) expr = if(len(expr)>1, mid(expr, 2), "") fi fi end '' unary operators: - + NOT sub unary(byref l, byref expr) local op if left(expr,3) = "NOT" op="NOT" expr = mid(expr,4) elif left(expr,1) in ["-", "+"] op=left(expr) expr=mid(expr,2) fi parenth l, expr if op="NOT" l = NOT l elif op="-" l = -l elif op="+" '' ignore it fi end '' operators: * / sub muldiv(byref l, byref expr) local op, r unary l, expr while left(expr) in "*/" op = left(expr) expr = mid(expr, 2) unary r, expr if op = "*" l *= r elif op = "/" if r=0 TBError "DIVISION BY ZERO" else l /= r fi fi wend end '' operators: + - sub addsub(byref l, byref expr) local op, r muldiv l, expr while left(expr) in "+-" op = left(expr) expr = mid(expr, 2) muldiv r, expr if op = "+" l += r elif op = "-" l -= r fi wend end '' returns the logical operator func getlogopr(expr) local idx, op3, op2, op1 op3=["AND"] op2=["OR", "<=", ">=", "=<", "=>", "<>"] op1=["=", ">", "<"] search op3, left(expr,3), idx if idx >= 0 then getlogopr=op3(idx):exit search op2, left(expr,2), idx if idx >= 0 then getlogopr=op2(idx):exit search op1, left(expr,1), idx if idx >= 0 then getlogopr=op1(idx):exit getlogopr="" end '' logical and comparation operators sub logical(byref l, byref expr) local op, r addsub l, expr while getlogopr(expr) <> "" op = getlogopr(expr) expr = mid(expr, len(op)+1) addsub r, expr if op = "AND" l = l AND r elif op = "OR" l = l OR r elif op = "=" l = (l = r) elif op = "<" l = l < r elif op = ">" l = l > r elif op = ">=" or op = "=>" l = l >= r elif op = "<=" or op = "=<" l = l <= r elif op = "<>" l = l <> r fi wend end ' 

http://smallbasic.sourceforge.net/?q=node/139

 // WAR Card Game for yaBasic // E.K.Virtanen 2007 // www.ascii-world.com // Public Domain // ==================================== Main loop of game CanExit = FALSE while(CanExit = FALSE) clear screen print "" print color("red") " --- War ---" print "" print " Card game for yaBasic." print " E.K.Virtanen, www.ascii-world.com" print " Public Domain" print "" print color("yellow") " 1.)"; : print " Play" print color("yellow") " 2.)"; : print " Help" print color("yellow") " 3.)"; : print " Quit" temp$ = inkey$ if temp$ = "1" gosub play if temp$ = "2" gosub help if temp$ = "3" CanExit = TRUE wend print "" print " Thank you for playing." end // ==================================== Play sub label play gosub createDeck // we need to create deck with what we play gosub shuffleDeck // and then we shuffle it gosub playGame // now we play return // ==================================== createDeck sub label createDeck dim cardColor$(4, 2) cardColor$(1, 1) = "red" : cardColor$(1, 2) = "Heart" : cardColor$(2, 1) = "red" : cardColor$(2, 2) = "Diamond" cardColor$(3, 1) = "white" : cardColor$(3, 2) = "Spade" : cardColor$(4,1) = "white" : cardColor$(4,2) = "Cross" // some nifty looping and MOD to get a deck of cards dim cardDeck(52, 2) for counter = 0 to 51 cardDeck(counter + 1, 1) = int(counter / 4 + 1) cardDeck(counter + 1, 2) = Mod(counter, 4) + 1 next counter return // ==================================== shuffleDeck sub label shuffleDeck dim temp(2) for counter = 1 TO 10000 // ten thousand rounds should be more than enough :D tempFirst = int(ran(52) + 1) tempSecond = int(ran(52) + 1) if tempFirst <> tempSecond then temp(1) = cardDeck(tempFirst, 1) temp(2) = cardDeck(tempFirst, 2) cardDeck(tempFirst, 1) = cardDeck(tempSecond, 1) cardDeck(tempFirst, 2) = cardDeck(tempSecond, 2) cardDeck(tempSecond, 1) = temp(1) cardDeck(tempSecond, 2) = temp(2) end if next counter return // ==================================== playGame sub label playGame canExit = false roundNumber = 0 cardNumber = 1 plrTotal = 0 cpuTotal = 0 clear screen print "" print color("red") " --- War ---" print "" print " You can start." while(canExit = false) print " Choose, do you want first or second card?" print color("yellow") " 1.)"; : print " First" print color("yellow") " 2.)"; : print " Second" print " Any other key for Cpu choose." choice$ = inkey$ print "" if(choice$ <> "1" and choice$ <> "2") gosub cpuChoose if choice$ = "1" then print " You take first." plrCard = cardNumber cpuCard = cardNumber + 1 end if if choice$ = "2" then print " Cpu takes first." plrCard = cardNumber + 1 cpuCard = cardNumber end if cardNumber = cardNumber + 2 roundNumber = roundNumber + 1 if cardNumber = 53 canExit = true gosub revealCards gosub whoWin clear screen wend print "" print " War is over and results are:" print color("yellow") " You: "; : print plrTotal; : print " cards." print color("red") " Cpu: "; : print cpuTotal; : print " cards." print "" print " Press any key for back to menu." inkey$ return // ==================================== whoWin sub label whoWin if cardDeck(plrCard, 1) > cardDeck(cpuCard, 1) then print "" print color("green") " You win!" print " You got both cards. "; plrTotal = plrTotal + 2 if cardDeck(plrCard, 1) - cardDeck(cpuCard, 1) > 8 print " You really did crash Cpu!" if cardDeck(plrCard, 1) - cardDeck(cpuCard, 1) < 3 print " So tight!" end if if cardDeck(plrCard, 1) < cardDeck(cpuCard, 1) then print "" print color("red") " You lose!" print " Cpu got both cards."; if cardDeck(cpuCard, 1) - cardDeck(plrCard, 1) > 8 print " Cpu really did override you!" if cardDeck(cpuCard, 1) - cardDeck(plrCard, 1) < 3 print " Close, so close!" cpuTotal = cpuTotal + 2 end if if cardDeck(plrCard, 1) = cardDeck(cpuCard, 1) then print "" print color("yellow") " It's a tie." print " Both got their own card." cpuTotal = cpuTotal + 1 : plrTotal = plrTotal + 1 end if print "" print color("yellow") " Winned cards after round: "; : print roundNumber print "" print " You: "; : print plrTotal print " Cpu: "; : print cpuTotal gosub uselessComments print "" print color("yellow") " Press a key for next round." inkey$ return // ==================================== uselessComments sub label uselessComments if plrTotal > cpuTotal then temp$ = " You are leading here!!!" if plrTotal - cpuTotal > 5 temp$ = " Making a good lead there." if plrTotal - cpuTotal > 10 temp$ = " You trying to escape?" if plrTotal - cpuTotal > 15 temp$ = " HEHE, youre really crushing Cpu here!!!" end if if plrTotal < cpuTotal then temp$ = " You are loosing!!!" if cpuTotal - plrTotal > 5 temp$ = " Cpu leads clearly!" if cpuTotal - plrTotal > 10 temp$ = " Cpu is trying to escape?" if cpuTotal - plrTotal > 15 temp$ = " LOL, Cpu really kicks your ass here." end if if plrTotal = cpuTotal temp$ = " Side by side!" print temp$ return // ==================================== revealCards sub label revealCards print "" print " Your card is..."; print color(cardColor$(cardDeck(plrCard, 2), 1)) cardColor$(cardDeck(plrCard, 2), 2); : print " "; : print cardDeck(plrCard, 1) print " ...and Cpu slowly reveales hes card what is."; for counter = 1 to 2 sleep 1 print "."; next counter print color(cardColor$(cardDeck(cpuCard, 2), 1)) cardColor$(cardDeck(cpuCard, 2), 2); : print " "; : print cardDeck(cpuCard, 1) print "" return // ==================================== cpuChoose sub label cpuChoose choice$ = "1" if ran() = true choice$ = "2" return // ==================================== help sub label help clear screen print "" print color("red") " --- War ---" print "" print " Card game for yaBasic." print " E.K.Virtanen, www.ascii-world.com" print " Public Domain" print "" print " I game of War, a normal card deck is shuffled." print " Then from a top of deck, both players gets an card." print " Who's card is higher (in numerical value) wins and he get's the cards." print " This way, whole deck is revealed to the end. Who has more cards is the winner." print "" print " You opponent is Cpu (computer) so this is one player game." print "" print color("yellow") " Press any key to return for menu." inkey$ return 

E.K.Virtanen

 // Dice game for yaBasic www.yabasic.de // Just having a fun here. Nothing special diceMax = 6 // max value of dice diceMin = 1 // min value of dice CanExit = false // MAIN GAME LOOP while(CanExit = false) clear screen print "" print " Dice Game for yaBasic!" print " ************************" print "" print " Just having fun, nothing special here." print " E.K.Virtanen www.ascii-world.com" print " Public Domain" print "" print " Select:" print " 1.) Play" print " 2.) Help" print " 3.) Quit" temp$ = inkey$ if(temp$ = "1") gosub play if(temp$ = "2") gosub help if(temp$ = "3") CanExit = true wend clear screen print "" print " Thank you for playing." end label play gosub plrPlay if plrTotal < 22 gosub cpuPlay return label plrPlay plrTotal = 0 throwNum = 0 done = false while(done = false) throwNum = (throwNum + 1) clear screen print "" print " This is throw #", throwNum print " Press a key to throw a dice" print "" inkey$ diceVal = int(ran(diceMax) + diceMin) plrTotal = (plrTotal + diceVal) sleep 1 print " You did throw ", diceVal // Now we check few things. if(plrTotal > 21) then print " You go over 21. You lost." done = true end if if(plrTotal = 21) then print " You got it. 21 excatly." done = true break end if print " Your total is ", plrTotal print " Press 's' to stay or any other key for more." if(inkey$ = "s") done = true wend return label cpuPlay cpuTotal = 0 throwNum = 0 done = false while(done = false) throwNum = (throwNum + 1) clear screen print "" print " This is my throw #", throwNum print "" sleep 1 diceVal = int(ran(diceMax) + diceMin) cpuTotal = (cpuTotal + diceVal) print " I did throw ", diceVal // Now we check few things. if(cpuTotal > 21) then print " I did go over 21. I lost." break end if if(cpuTotal = 21) then if(plrTotal < 21) print " You lost, i got 21." if(plrTotal = 21) print" Amazing, we both got 21. You lost since it's tie." break end if if(cpuTotal = plrTotal) then print " I have same result now, in tie so i win." break end if print " My total is ", cpuTotal print " Your total was ", plrTotal print "" if(plrTotal > cpuTotal) print " I just got to throw more to beat you." if(plrTotal < cpuTotal) then print " No need to throw more, i did beat you" done = true end if sleep 3 wend inkey$ return label help clear screen print "" print " Dice Game for yaBasic!" print " ************************" print "" print " In this game, you throw a single six sided dice." print " Result of your throw is counted after every round." print " Idea is to get as close of total 21 as possible." print " Basic idea is same than in BlackJack card game." print "" print " If you go over 21, you loose automaticly." print " After youre done, computer throws too and tries to beat you." print " In tie, computer wins." print "" print " Press any key to return for menu." inkey$ return 

Guess it

PÄÄLOOPPI
tehdään valimistelut, printataan alkuteksti blaablaa

PELILOOPPI
kysellään kunnes oikein
//PELILOOPPI

Pääloopissa pysytään kunnen pelaaja arvaa 0 (eli haluaa lopettaa)
//PÄÄLOOPPI

Here is more better looking one: http://koti.mbnet.fi/jare1/filer/files/guess.CB

 //the Ultimate Guessing Game (is that name proper English?) //By: Jarkko 'Jare' Linnanvirta 2007 (e-mail me if you want to ask something: kpelit2003@hotmail.com) //Can be used freely. 'The very important title SetWindow "the Ultimate Guessing Game!" 'Start by randomizing a number theNumber = Rand(1,100) Repeat Text 0,0, "Guess what number I am thinking (1 - 100)" 'Show console for user's ansrver Locate 0, ScreenHeight()-20 ansver = Input("? ") 'Check ansver when user hit's enter If KeyHit(cbKeyReturn) Then times + 1 If ansver = theNumber Then 'User got it right Text 0,20, "Yes, that's what I was thinking!" Text 0,40, "You tried "+times+" times." DrawScreen WaitKey theNumber = Rand(1,100) times = 0 ElseIf ansver < theNumber Then 'User got it wrong Text 0,20, "No, too low!" DrawScreen WaitKey Else 'User got it wrong again Text 0,20, "No, too high!" DrawScreen WaitKey End If CloseInput 'Clear ansver in console End If DrawScreen 'Update screen so we can see something Forever 'Eternal loop (of course there is an inbuild safe exit feature: Escape key closes the program) 

admin edit: added code tags.

 // Do you dare? Version 0.001b for yaBasic // E.K.Virtanen, public domain. // www.ascii-world.com bulletMin = 1 bulletMax = 6 while(exitPrg = false) roundNum = 0 exitPrg = false exitGame = false // INTRO clear screen print color("red", "black") " Do You Dare?" print " E.K.Virtanen, public domain." print " Uberneat game for yaBasic ;D" print print " You are man with no future. You have nothing to lose." print " Wife left you, took your dog and childrens with her." print " You need to sell your house to pay kid's maintenance liability." print " Doctor told you have a bad brain tumor and you will die in few months." print print " So you dont have anything to loose..." print print " Green fairy comes to you, you are life 'WTF?!?" print " Fairy says, that if you take and survive of her challenge..." print " ...she heals your tumor and gives you a billion dollars of money." print print " Fairy has a revolver with a bullet. Point it to your head and pull the trigger." print " After every pull, bullet chamber is rolled randomly if you survive." print " If you survive for ten times, you have passed the challenge." print print color("red", "black") "PRESS A KEY TO ENTER FOR A CHALLENGE!" : inkey$ // ENTER THE GAME clear screen print color("yellow", "black") " Fairy thinks you are a brave man." print bulletIs = int(ran(6) + 1) // THE CHALLENGE repeat roundNum = (roundNum + 1) print print " This is round number: ", roundNum, "." print print " Fairy rolls the bullet wheel"; // BIT DELAY FOR EXCITEMENT for counter = 1 to 5 pause 0.5 print "."; next counter wheelIs = int(ran(bulletMax) + bulletMin) print print " ...and gives the revolver to you which you point to your head." print " Now you only need to pull the trigger and hope for the best." print print color("red", "black") " PRESS A KEY TO PULL THE TRIGGER!!!" inkey$ clear screen if wheelIs <> bulletIs then print color("green", "black") " You survived of this round!!!!!!" print color("green", "black") " There is still hope!!!" end if if wheelIs = bulletIs then print color("red", "black") " You feel shortly how the bullet smashes your brains..." print color("red", "black") " ...and now, you dont feel anything anymore." print color("red", "black") " May your body and soul rest in peace." break end if if roundNum = 10 then exitGame = true end if print " Press a key for next round." : inkey$ clear screen until(exitGame = true) if roundNum = 10 and exitGame = true then clear screen print print color("green", "black") " YOU HAVE SURVIVED THROUGH IMPOSSIBLE CHALLENGE!!!" print color("green", "black") " ***************************************************" print color("green", "black") " You pulled the trigger for TEN TIMES and you are still alive!" print print " Fairy cant believe it. But as for fairy of honor, she heals your tumor." print " She also gives you and briefcase which has a billion dollars." end if print print " Press 'y' to play again. Any other key to quit."; YesNo$ = inkey$ if upper$(YesNo$) <> "Y" then exitPrg = true end if wend 

E.K.Virtanen

E.K.Virtanen

Here is a screenshot:
http://www.childrenofmillennium.org/junk/screenshot3.gif

Download the game here, and run Heroes.exe: Ancient Heroes

Would it be worth making a purely ASCII version for upload? The game is of course much smaller without images.

—Mark

E.K.Virtanen

E.K.Virtanen

E.K.Virtanen

Instead of "mid-january", PCopy! #60 is planned to get published before christmas. This places deadline at 15'th December 2007.
All contributions and letters are welcomed :)

PCopy! website; http://pcopy.wikidot.com/
About PCopy!l article in issue #50.
Email pcopy.staff(AT)gmail.com

E.K.Virtanen

 ' ============================================= ' = Countdown = ' = Original program by Mark Chambers = ' = from BASIC Computer Games Vol. II = ' = TRS-80 Edition - page 46 = ' = Creative Computing Morristown, New Jersey = ' ============================================= ' FreeBasic version by Harmon V. ' Public Domain Dim As Integer A, N, T, X, game Dim AS String YesNo, Message Screen 12 Do Cls Color 14, 0 Print : Print Print Tab(30); "C O U N T D O W N" Print Print print Color 15, 0 print tab(10); : input "Hit <Enter> to start";YesNo A = int(10*rnd(1)) N = 0 : T = 0 print print "You have activated the self-destruct sequence" print "in this school. If you wish, you may stop the" print "countdown. To do so, just type in the correct" print "number, which will stop the countdown." print "The number is from 0 to 9." print print "Please Hurry! There is no time to waste!!!!" game=0 while game=0 print : input "What'll it be? "; X if T=4 then game =-1 : exit while if X=A then game = 1 : exit while if X<A then print "Too small !!!! "; if X>A then print "Too big !!!! "; print "Your number does not compute." T = T + 1 print "Please try again !!!" if T=2 then print "Time grows short, please hurry !!!!" if T=3 then print "Hurry, the Count-down is approaching zero !!!!!" end if wend print if game<0 then print ,"\\\\\|/////" print ,"> B-O-O-M <" print ,"/////|\\\\\" print print " You died a hero's death." print "Your funeral was well-attended." else print ,"Correct!!!!!" print ,"The countdown has stopped." print ,"You have saved the school !!" print print " *** Congratulations ***" print "(Have you seen your shrink lately?)" end if Print : Print "Do you want to play again? "; Do : YesNo = Inkey$ : Loop Until YesNo<>"" Loop While Ucase(YesNo)="Y" END 

Bill Gates and
Petals Around the Rose

It was June 1977, the very early days of the microcomputer industry. The founders of Microsoft, Bill Gates and Paul Allen, were amongst those heading home to Albuquerque from the National Computer Conference in Dallas. In the September/October 1977 edition of "Personal Computing" magazine, Henry Gilroy provided the following report on the introduction of the Petals Around the Rose brain teaser to his fellow travelers on the return journey.

for the rest of the story visit …
Bill Gates and Petals Around the Rose

He also has "modified" versions with space between keywords too… Nice!

You'll need to scroll down about half-way to see the links.

For anyone who wants to contribute FB code to the Retro2FB project, this is a great resource.

Regular Columns:

• From Our Editing Desk (E.K.Virtanen)
• Submitting to PCOPY! (Stephane Richard & E.K.Virtanen)
• Letters To The Editors (Mixed Contributors)
• Letters To The Hartnell (Mixed Contributors)
• In The News (Mixed Contributors)
• Exit Issue (E.K.Virtanen)

ARTICLES:

• About PCopy! (E.K.Virtanen)

*The mindset problem (Bill Williams)

• Interview with Eros Olmi (E.K.Virtanen)

Reviews & Presentations:

• VIXEN: An XBLITE GUI Generator (Guy (gl) Lonné)
• Introducing Fatal Method Games (FMG)
• More about smallBasic (Chris Warren-Smith)
• 3D graphics in thinBASIC: (Petr Schreiber)

Tutorials & HowTo's:

• Coding Functions: (Guy (gl) Lonné)

5 days to deadline which is 15'th Nov. 2007. I need to build this issue at friday 16'th since i am offline whole week-end after that.
Letters, editorials, tutorials, reviews, previews, news hints or briefs and anything you can imagine, are welcomed.

E.K.Virtanen
moc.liamg|dlrowiicsa#moc.liamg|dlrowiicsa

Guess it in Bash-Script
Guess It in Ansi C
Guess It in ChipMunk BASIC
Guess It in FreeBASIC
Guess It in FreePascal
Guess It in python
Guess It in QBASIC
Guess It in Run BASIC
Guess It in SmallBasic
Guess It in thinBasic
Guess It in yaBasic

E.K.Virtanen

http://www.petesqbsite.com/sections/express/issue25/index.html