De onde tudo começou...
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.
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
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
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
Um comentário a “De onde tudo começou...”
Alta nostalgia ver este post... apetece-me voltar 20 e muitos anos para trás!
Posta lá masé sobre o Paradise Café também!