It reminds me of the Pandora!


RZR

Member
Joined
Sep 12, 2019
Messages
91
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,247
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.
 
Top