It reminds me of the Pandora!


rSl

teadrunk
Joined
Nov 19, 2005
Messages
1,063
Location
急須
happy b'day ed! <3

Happy-B-Day-Hunter_3357589.jpg
 
Last edited:

RZR

Very Active Member
Joined
Sep 12, 2019
Messages
113
Let's add a bit of old school style...:

Code:
      write(6,*) 'Feliz cumpleaños @EvilDragon.'

209   write(6,*) 'Want some cake?: (1)Sure (2)Nah'
      read(5,*) ipr2
      if(ipr2.lt.1) then
        write(6,*) 'Error!'
        goto 209
      endif
      if(ipr2.gt.2) then
        write(6,*) 'Error!'
        goto 209
      endif

      if(ipr2.lt.2) then
        write(6,*) '                0   0'
        write(6,*) '                |   |'
        write(6,*) '            ____|___|____'
        write(6,*) '         0  |~ ~ ~ ~ ~ ~|   0'
        write(6,*) '         |  |           |   |'
        write(6,*) '      ___|__|___________|___|__'
        write(6,*) '      |/\/\/\/\/\/\/\/\/\/\/\/|'
        write(6,*) '  0   |       F e l i z       |   0'
        write(6,*) '  |   |/\/\/\/\/\/\/\/\/\/\/\/|   |'
        write(6,*) ' _|___|_______________________|___|__'
        write(6,*) '|/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/|'
        write(6,*) '|                                   |'
        write(6,*) '|        C u m p l e a ñ o s        |'
        write(6,*) '|                                   |'
        write(6,*) '| ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ |'
        write(6,*) '|                                   |'
        write(6,*) '|           @EvilDragon! ! !        |'
        write(6,*) '|                                   |'
        write(6,*) '|/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/|'
        write(6,*) '|___________________________________|'
      endif

      end

And... It lives...:

01.jpg


:D
 
Last edited:

Silent-Hunter

Hardcore Member
Joined
May 29, 2010
Messages
3,477
Let's add a bit of old school style...:

Code:
      write(6,*) 'Feliz cumpleaños @EvilDragon.'

209   write(6,*) 'Want some cake?: (1)Sure (2)Nah'
      read(5,*) ipr2
      if(ipr2.lt.1) then
        write(6,*) 'Error!'
        goto 209
      endif
      if(ipr2.gt.2) then
        write(6,*) 'Error!'
        goto 209
      endif

      if(ipr2.lt.2) then
        write(6,*) '                0   0'
        write(6,*) '                |   |'
        write(6,*) '            ____|___|____'
        write(6,*) '         0  |~ ~ ~ ~ ~ ~|   0'
        write(6,*) '         |  |           |   |'
        write(6,*) '      ___|__|___________|___|__'
        write(6,*) '      |/\/\/\/\/\/\/\/\/\/\/\/|'
        write(6,*) '  0   |       F e l i z       |   0'
        write(6,*) '  |   |/\/\/\/\/\/\/\/\/\/\/\/|   |'
        write(6,*) ' _|___|_______________________|___|__'
        write(6,*) '|/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/|'
        write(6,*) '|                                   |'
        write(6,*) '|        C u m p l e a ñ o s        |'
        write(6,*) '|                                   |'
        write(6,*) '| ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ |'
        write(6,*) '|                                   |'
        write(6,*) '|           @EvilDragon! ! !        |'
        write(6,*) '|                                   |'
        write(6,*) '|/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/|'
        write(6,*) '|___________________________________|'
      endif

      return

      end

And... It lives...:

View attachment 36594

:D
Wait, you can do (5,*) and (6,*)? I did (*,*) for both read and write.
 

RZR

Very Active Member
Joined
Sep 12, 2019
Messages
113
Wait, you can do (5,*) and (6,*)? I did (*,*) for both read and write.

Standard FORTRAN reserves two UNIT numbers for I/O to user. They are:

UNIT = 5 for INPUT from the keyboard with the READ statement

UNIT = 6 for OUTPUT to the screen with the WRITE statement


Most versions of FORTRAN will also let you use the ASTERISK (*) for I/O to the TERMINAL. The asterisk can be used with both the READ and WRITE statements, thus there is no need to remember whether 5 or 6 is for input or output.

(5,*) and (6,*) is what you are supposed to do :p , but you can also do (*,*) in some cases:

If the compiler is using the default values for standard input and output, it's the same; if not, "*" is whatever environment variable was set. And you can't use "*" to output to files or input from them so I guess I got used to always putting a unit number back in the day... Anyway my FORTRAN is rusty as hell, but I always loved the ability of wreaking havoc with "goto"s, it's a lost art these days :D
 

matzesu

Forum Addict!
Staff member
Joined
Oct 24, 2008
Messages
11,966
Age
37
Location
Germany,, Saarland, at home
I wonder if the Boxes for the Pyra arrived in the Meantime,
Saw the Dragonbox Flix this morning about this Mini Notebook whit the "Joycon Controllers" , and wonder if the next Dragonboxflix episode may be about the Pyra...
Fortunly i found the Voucher Code this Weekend on my Dads Windows 8 Convertible, now its securely on my Stick, so im ready for Final Order...
 

matzesu

Forum Addict!
Staff member
Joined
Oct 24, 2008
Messages
11,966
Age
37
Location
Germany,, Saarland, at home
I just though i allready put this on my USB Stick, but seems like it was just on this Windows 8 Tablett and hopefully on my Own Thinkpad but i ditnt look at this.. I also though i put the Email whit the Voucher on a "Bill" Folder in Thunderbirth, but seems like i ditnt dit this..

Its also a bit confusing when you dont write on the TXT File i put the Code in that its the "Preeorder Code" , because i also have the "PreePreeOrderCode", but i think the Older Code is 290 € and the current code is 400 € worth..
 
Top