Mais um blog inútil.

Junho 2, 2013

De onde tudo começou…

Filed under: Coding — falso @ 21:12

Ora viva!

Ultimamente tenho andado a fazer reverse engineering ao classico do Spectrum o Paradise Café, mas essa historia fica para mais para a frente, entretanto ontem andava ali de volta das minhas cassetes do Spectrum a ver o que tinha para la guardado, e lá no meio achei uma cassete que dizia "SUPER MEGA TAPE", e claro decidi investigar ;-)

Liguei a aparelhagem old school ao line in, e pus me a gravar a cena, ate conseguir uma qualidade fiável. E fiquei maravilhado com o que achei!

É uma "mix-tape" com vários jogos para o Spectrum que fiz para amigos. E em cada lado pus uma pequena "intro" com "INSTROCOES" (lol). Tudo feito com BASIC, e com altas truques que via na altura nas revistas para esconder as listagens e cenas do género. Isto foi feito quando era bues puto, e provavelmente foi daqui que veio o gosto pelas programações.

https://www.youtube.com/watch?v=g2AO4H8nAFE&width=640&height=480

tape1
   0\{p0} POKE (PEEK 23635+256*PEEK 23636+1),0: REM                          \#017\#000\#017\#006OLHEM OUTRO MIRONE\#017\#007\#017\#000
   5\{p0} INK 0
  10\{p0} FOR a=0 TO 21
  20\{p0} LET b=RND*6
  30\{p0} PRINT AT a,0; INK b;"\::!!!!!!!!!!INSTROCOES!!!!!!!!!!\::": BEEP .01,a
  40\{b1p0} BEEP .01,a
  50\{p0} NEXT a
  60\{p0} PAUSE 0
  70\{p0} CLS 
  80\{p0} FOR a=0 TO 6
  90\{p0} PRINT AT 10,1; INK a;"INSTROCOES DA SUPER MEGA TAPE": PAUSE 5
 100\{p0} NEXT a
 110\{p0} PAUSE 0
 120\{p0} CLS 
 130\{p0} PRINT AT 0,0; INK 0;"\{p7}INSTROCOES DO";AT 0,15; INK 7; PAPER 0; FLASH 1; BRIGHT 1;"SUPER TROLLEY !!!"
 140\{p0} INK 0: PRINT AT 2,0;"\{p0p7p6}SUPER TROLLEY\{p7p7p7p7p7p7p6p4p3p2p1p1p2p3p4p5p6p7b0b1} um jogo com bons graficos(de porcaria).O jogo serve para a gente ir as compras..No primeiro nivel tem que se logo encher os barris de tracinhos(como este{-}).O segundo nivel ja' e' nas compras ,isso e que eu nao sei o que e' para fazer....": PRINT "\{p1p2p3p4p5p6p7b0b1}  Teclado redefenivel!!!"
 150\{p0} PRINT #0;"PULSA UMA TECLA PARA CONTINUAR!!"
 160\{p0} PAUSE 0
 170\{p0} INK 0: CLS 
 180 INK 0:\{p0} PRINT AT 0,0;"INSTROCOES DO";AT 0,15; INK 7; PAPER 0; FLASH 1; BRIGHT 1;"SKATE WARS !!!"
 190\{p0} PRINT AT 2,0;"\{p6}SKATE WARS\{p7p1p2p3p4p5p6p7b0b1} e' o desporto do futuro!A gente vamos jogar num estadio de gelo.Voces como sao estupidos nao vao chegar ao nivel 9..As teclas do Jugador 1 sao:X=ESQUERDA..C=DIREITA..J=CIMA..N=BAIXO..K=FOGO E SALTO..As teclas do jugador 2 sao:Z=ESQUERDA..X=DIREITA..K=CIMA..M=BAIXO..L=FOGO E SALTO"
 200 PRINT #0;"PULSE UMA TECLA PARA CONTINUAR!!"
 210 INK 0:\{b0b0b0p6p5p0} PAUSE 0
 220 INK 9: CLS 
 230 PRINT AT 0,0;"INSTROCOES DO";AT 0,15; INK 7; PAPER 0; FLASH 1; BRIGHT 1;"ARKANOID !!!"
 240 PRINT AT 2,0;"\{p6}ARKANOID\{p7p1p2p3p4p5p6p7b0b1} um jogo que e' para derrubar paredes, o jogo se eu me lembro tem 32 niveis,mas a partir do 30 sao bue dificeis como o caracas..As teclas sao:1=ESQUERDA..2=DIREITA..A S D F G H J K L=AMANDAR A BOLA.Aquelas letras todas sao para atirar a bola,mas a que da' mais jeito e' o {G}...\{p7p7p7p7p6p5p6p7p6p5p4p3p2p1p2p3p4p5p6p6p7b0}"
 250\{p0} PRINT #0;"PULSE UMA TECLA PARA CONTINUAR!!"
 260\{p0} PAUSE 0
 270 INK 0:\{p0} CLS 
 280\{p0} FOR a=0 TO 64
 290\{p0} BEEP .01,a
 300\{p0} NEXT a
 310\{p0} PRINT AT 10,8;"SUPER MEGA TAPE"
 320\{p0} PAUSE 0
 330\{p0} RANDOMIZE USR 0: PRINT USR 0: NEW 
1000 POKE PEEK 23635+256*PEEK 23636,1

https://www.youtube.com/watch?v=TQk60qzYcuU&width=640&height=480

  10 IF INKEY$="1" THEN GO TO 110
  20 IF INKEY$="2" THEN GO TO 140
  30 IF INKEY$="3" THEN GO TO 170
  40 GO TO 10
  50 RESTORE : PAPER 1: CLS : FLASH 0: BORDER 5: INPUT "": LET a$=" SUPER MEGA TAPE ": LET b$=a$
  60 INK 7: PLOT 0,0: DRAW 255,0: DRAW 0,175: DRAW -255,0: DRAW 0,-175
  70 PRINT AT 5,4;"INSTROCOES DO :"
  80 PAPER 5: INK 0: PRINT AT 6,4;"1=GREAT ESCAPE";AT 8,4;"2=CAVEMANIA";AT 10,4;"3=JUNGLE WARRIOR"
  90 FOR i=1 TO 26: PRINT #0; PAPER 6; BRIGHT 1;AT 1,7;b$: GO SUB 20: BEEP .0004,45: GO SUB 20: BEEP .0006,55: GO SUB 20: NEXT i
 100 GO TO 90
 110 INK 7: PAPER 0: BORDER 0: CLS 
 120 PRINT "GREAT ESCAPE-Um jogo fixe so que para mim custa muito a passar...": PRINT "Da para redefinir as teclas": PRINT "Cuidado com os guardas."
 130 PAUSE 0: CLS : GO TO 50
 140 INK 7: PAPER 0: BORDER 0: CLS 
 150 PRINT "CAVEMANIA-Um jogo bue facil como o caracas tem-se 99vidas,o jogo e' para apanhar ovos num ninho,e mete-los na nossa casa.": PRINT "Teclado redefenivel": PRINT "Cuidado com os vulcoes."
 160 PAUSE 0: CLS : GO TO 50
 170 INK 7: PAPER 0: BORDER 0: CLS 
 180 PRINT "JUNGLE WARRIOR-Um jogo que eu nao sei o que e' para fazer mas eu acho que e' para salvar o mulher que esta pendurada numa arvore.Quando a gente perdemos uma vida,a gente transforma-se em um anjinho.": PRINT "Teclado redefenivel.": PRINT "Cuidado com os fantasmas."
 190 PAUSE 0: CLS : GO TO 50

https://www.youtube.com/watch?v=-jDVcI3KT_w&width=640&height=480

tape3
   1 BORDER 0: INK 0: PAPER 0: CLS 
  10 REM \#017\#007EI OLHEM OUTRO MIRONE\#017\#000
  20 REM \#017\#007ESTUPIDO COMO OS\#017\#000
  30 REM \#017\#007CAMELOS,ANDA CAMELO!!\#017\#000
  40 REM \#017\#007NAO VEZ UM BOI!!!\#017\#000
  50 REM \#017\#007ESPECIAL/////\#017\#000
  60 REM \#017\#007NAO BEZ UM VOI!!!\#017\#000
  70 REM \#017\#007SEUS BORRADAS\#017\#000
  80 REM \#017\#007SEUS CAGADAS\#017\#000
  90 REM \#017\#007DAQUI FALA\#017\#000
 100 REM \#017\#007O PEDRO\#017\#000
 110 REM \#017\#007DA\#017\#000
 120 REM \#017\#007SUPER MEGA TAPE\#017\#000

- Lado A - WAV - TZX
- Lado B - WAV - TZX
- Extra - WAV - TZX

Um comentário a “De onde tudo começou…”

  1. thread diz:

    Amei!

    Alta nostalgia ver este post... apetece-me voltar 20 e muitos anos para trás!

    Posta lá masé sobre o Paradise Café também!

Comentar

widgeon
widgeon
widgeon
widgeon