Name files with QB 4.0

[relsoft]

BASICA? Anyone???

Dang!!!! I'm looking at a Reinstall!!!! DAmn Virus!!!!!

[toonski84]

bah, you and your basica... real men use apple II basic!

[na_th_an]

Real men use Sinclair Basic

OBFUSCATED BASIC CODE ANYONE?

Code:

10 BORDER 0: PAPER 0: INK 7: CLS : POKE 23658,8: POKE 23606,80: POKE 23607,194: REM STARTS
  20 DIM S$(4,3): LET S$(1)="`ab": LET S$(2)="cde": LET S$(3)="fgh": LET S$(4)="ijk"
  30 PRINT AT 0,0; INVERSE 1;S$(1);AT 0,28;S$(1);AT 1,0;S$(2);AT 1,28;S$(2);AT 2,0;S$(3);AT 2,28;S$(3);AT 3,0;S$(4);AT 3,28;S$(4)
  40 LET A$="WAR TOWER": LET B$= "ooooooooo": PRINT AT 0,16-LEN a$/2; INK 4;A$;AT 1,16-LEN B$/2; INK 2;B$
  50 PRINT AT 7,0;"   {INK 6} GO UP INSIDE THE TOWER AND  RESCUE THE HOSTAGES.{INK 7}"
  60 PRINT AT 21,0;"{INK 5}£££(C) 1993 BY LOKO SOFT S.A £££{INK 7}"
  70 PRINT AT 10,0;"{INK 3}KEYS ARE:{INK 7}";AT 12,0;"{INK 4}GO LEFT-O   {A}{B}{INK 7}                              {INK 4}{E}{F}{INK 7}                   "'"{INK 5}{INK 4}GO RGHT-P   {G}{H}{INK 7}"'               "            {INK 4}{K}{L}{INK 7}"''"{INK 4} & JUMP-Q   {A}{B}{INK 7}"'               "            {INK 4}{C}{D}{INK 7}r                                r "
  75 PRINT #0;AT 0,0;"{INK 2}IMPORTANT:YOU CAN PULL THE RED  BLOCKS. USE IT TO WIN!{INK 7}"
  80 PAUSE 0: CLS
  90 CLS : LET PUN=0: LET LIVES=5: GO SUB 8700: GO SUB 8720
100 PRINT AT 21,0;"{INK 2}{M}{M}{M}{M}{M}{M}{M}{M}{M}{M}{M}{M}{M}{M}{M}{M}{M}{M}{M}{M}{M}{M}{M}{M}{M}{M}{M}{M}{M}{M}{M}{M}{INK 7}"
110 PRINT AT 10,0;"  GO, THIS IS THE TOWER -"
120 FOR N=2 TO 20: PRINT AT N,30;"{INK 6}{M}{M}{INK 7}": NEXT N
130 LET SAL=0: LET NU=0: LET A$="{INK 4}{G}{H}{INK 7}": LET B$="{INK 4}{I}{J}{INK 7}": LET C$="{INK 4}{K}{L}{INK 7}": LET A=0: LET W=20
135 FOR N=12 TO 20: PRINT AT N,10;"{INK 2}{M}{M}{INK 7}": NEXT N
140 GO SUB 8000: IF A=28 THEN GO TO 150
145 GO TO 140
150 LET PROBLEM=1: GO SUB 8300
160 CLS : PRINT AT 21,0;"{INK 2}{INK 1}{INK 7}{INK 1}qqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqq{INK 7}"
170 RESTORE 180: FOR N=0 TO 5: READ XXX: PRINT AT 20,XXX;"{INK 2}{INK 4}{INK 6}{M}{M}{INK 7}";AT 19,XXX;"{FLASH 1}{INK 4}{INK 6}{FLASH 0}{BRIGHT 1}{M}{M}{BRIGHT 0}{INK 7}": NEXT N
180 DATA 0,5,10,15,20,25
190 GO SUB 8700: LET A=1: LET W=18: PRINT AT W-1,A;A$;AT W,A;B$: FOR N=2 TO 21: PRINT AT N,0;"{INK 2}{M}{INK 7}";AT N,31;"{INK 2}{M}{INK 7}": NEXT N: PRINT AT 10,28;"{INK 2}{M}{M}{M}{INK 7}";AT 8,2;"{INK 5}{M}{M}{M}{M}{M}{M}{M}{M}{M}{M}{M}{M}{M}{M}{M}{M}{M}{M}{M}{M}{M}{M}{M}{M}{M}{M}{INK 7}": FOR N=2 TO 6: PRINT AT N,10;"{INK 2}{M}{M}{INK 7}";AT N+1,10;"{INK 2}{M}{M}{INK 7}";AT 8,1;"{FLASH 1}{PAPER 1}{INK 2}{M}{M}{INK 7}{FLASH 0}{PAPER 0}";#0;AT 1,0;"PUT YOU ON THE FLASHING BLOCK."
200 NEXT N: PRINT AT 8,24;"    ";AT 15,3;"{INK 2}{M}{M}{INK 7}";AT 14,3;"{INK 2}{M}{M}{INK 7}"
210 GO SUB 8000: IF A=1 AND W=7 THEN GO TO 230
220 GO TO 210
230 LET PROBLEM=2: GO SUB 8400: CLS : PRINT AT 21,0;"{INK 2}{INK 1}{INK 7}{INK 1}qqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqq{INK 7}"
240 GO SUB 8700: FOR N=2 TO 20: PRINT AT N,0;"{INK 2}{M}{INK 7}";AT N,31;"{INK 2}{M}{INK 7}": NEXT N: PRINT AT 20,1;"{INK 6}{M}{M}{FLASH 0}{INK 7}": LET W=18: LET A=1: PRINT AT 19,1;"{INK 6}{M}{M}{INK 7}";AT W-1,A;A$;AT W,A;B$: FOR N=2 TO 14: PRINT AT N,15;"{INK 2}{M}{M}{INK 7}": NEXT N: PRINT AT 15,13;"{INK 2}{M}{M}{INK 7}";AT 16,13;"{INK 2}{M}{M}{INK 7}": PRINT AT 7,1;"{INK 5}{M}{M}{M}{M}{M}{M}{M}{M}{PAPER 1}{INK 2}{FLASH 1}{M}{M}{FLASH 0}{PAPER 0}{INK 5}{M}{M}{INK 7}"
250 PRINT AT 17,7;"{INK 2}{M}{M}{INK 7}";AT 18,7;"{INK 2}{M}{M}{INK 7}"
260 GO SUB 8000: IF A=9 AND W=6 THEN GO TO 280
265 IF ATTR (7,9)<>1*8+2+128 OR ATTR (7,10)<>1*8+2+128 THEN PAPER 6: CLS : PAPER 2: CLS : PAPER 0: CLS : PRINT AT 5,0;" A BLOCK TOUCHED THE FLASING         BLOCK. YOU ARE DEAD": LET LIVES=-1: GO TO 8000:
270 GO SUB 260
280 CLS : LET XXX=16-LEN S$(1)/2
290 PRINT AT 9,XXX; INVERSE 1;S$(1);AT 10,XXX;S$(2);AT 11,XXX;S$(3);AT 12,XXX;S$(4): LET T$="-HELP ME!": PRINT AT 14,16-LEN T$/2; INK 4;T$: FOR N=0 TO 10: BEEP .01,20: BEEP .01,25: NEXT N: PAUSE 0: CLS
300 LET PROBLEM=3: GO SUB 8400
310 CLS : LET W=18: LET A=1: PRINT AT W-1,A;A$;AT W,A;B$: PRINT AT 21,0;"{INK 1}rrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrr{INK 7}": GO SUB 8700: FOR N=2 TO 20: PRINT AT N,0;"{INK 2}{M}{INK 7}";AT N,31;"{INK 2}{M}{INK 7}": NEXT N: PRINT AT 8,2;"{INK 5}{M}{M}{M}{M}{M}{M}{M}{M}{M}{M}{M}{M}{M}{M}{M}{M}{M}{M}{M}{M}{M}{M}{M}{INK 7}": PRINT #0;AT 1,0;"PULL THE KEY ON THE RIGHT.": PRINT AT 10,28;"{INK 4}¤{INK 6}ooo{FLASH 0}{INK 7}": FOR N=3 TO 7: PRINT AT N,10;"{INK 4}{M}{INK 7}": PRINT AT 8,1;"{FLASH 1}{PAPER 1}{INK 2}{M}{M}{INK 7}{BRIGHT 0}{PAPER 0}{FLASH 0}"
315 NEXT N
320 RESTORE 325: FOR N=1 TO 6: READ XXX: PRINT AT 20,XXX;"{INK 6}{M}{M}{INK 7}";AT 19,XXX;"{BRIGHT 1}{INK 6}{M}{M}{FLASH 0}{PAPER 7}{BRIGHT 0}{PAPER 0}{INK 7}": NEXT N
325 DATA 0,5,10,15,20,25
330 PRINT AT 14,3;"{INK 2}{M}{M}{INK 7}";AT 15,3;"{INK 2}{M}{M}{INK 7}"
340 GO SUB 8000: IF A=28 AND W=9 THEN GO TO 360
350 GO TO 340
360 FOR N=3 TO 7: PRINT AT N,10;" ": NEXT N: PRINT AT W-1,A;"  ";AT W,A;"  ": LET W=18: LET A=1
380 PRINT AT W-1,A;"{INK 4}{A}{B}{INK 7}";AT W,A;"{INK 4}{C}{D}{FLASH 0}{INK 7}": PRINT AT 14,3;"{INK 2}{M}{M}{INK 7}";AT 15,3;"{INK 2}{M}{M}{INK 7}"
390 GO SUB 8000: IF A=1 AND W=7 THEN GO TO 410
400 GO TO 390
7999 STOP
8000 GO SUB 8720: IF LIVES=-1 THEN LET T$="GAME OVER": PRINT AT 10,16-LEN T$/2; PAPER 1; INK 7;T$: FOR N=60 TO -20 STEP -10: BEEP .05,N: NEXT N: PAUSE 0: RUN
8001 IF SAL=1 THEN GO TO 8020
8010 IF ATTR (W+1,A)=7 THEN IF ATTR (W+1,A+1)=7 THEN LET W=W+1: PRINT AT W-2,A;"  ";AT W-1,A;A$;AT W,A;B$
8020 IF INKEY$="O" THEN IF A>0 THEN IF ATTR (W-1,A-1)=7 THEN IF ATTR (W,A-1)=7 THEN LET A=A-1: LET A$="{INK 4}{A}{B}{INK 7}": LET B$="{INK 4}{C}{D}{INK 7}": LET C$="{INK 4}{E}{F}{INK 7}": PRINT AT W-1,A;A$;" ";AT W,A;(B$ AND INT (A/2)=A/2);(C$ AND INT (A/2)<>A/2);" ": IF A>2 THEN IF ATTR (W-1,A-1)=2 THEN IF ATTR (W,A-1)=2 THEN PRINT AT W-1,A-3;"{INK 2}{M}{M}{INK 7} {INK 7}";AT W,A-3;"{INK 2}{M}{M}{INK 7} "
8021 IF INKEY$="O" THEN IF A>2 THEN IF ATTR (W-1,A-1)=2 THEN IF ATTR (W,A-1)=2 THEN LET PUN=PUN+10: PRINT AT W-1,A-3;"{INK 2}{M}{M}{INK 7} ";AT W,A-3;"{INK 2}{M}{M}{INK 7} "
8030 IF INKEY$="P" THEN IF A<30 THEN IF ATTR (W-1,A+2)=7 THEN IF ATTR (W,A+2)=7 THEN LET A$="{INK 4}{G}{H}{INK 7}": LET B$="{INK 4}{I}{J}{INK 7}": LET C$="{INK 4}{K}{L}{INK 7}": PRINT AT W-1,A;" ";A$;AT W,A;" ";(C$ AND INT (A/2)=A/2);(B$ AND INT (A/2)<>A/2): LET A=A+1: IF A<28 THEN IF ATTR (W-1,A+2)=2 THEN IF ATTR (W,A+2)=2 THEN PRINT AT W-1,A+2;" {INK 2}{M}{M}{INK 7}";AT W,A+2;" {INK 2}{M}{M}{INK 7}"
8031 IF INKEY$="P" THEN IF A<28 THEN IF ATTR (W-1,A+2)=2 THEN IF ATTR (W,A+2)=2 THEN LET PUN=PUN+10: PRINT AT W-1,A+2;" {INK 2}{M}{M}{INK 7}";AT W,A+2;" {INK 2}{M}{M}{INK 7}"
8040 IF INKEY$="Q" THEN IF ATTR (W+1,A)<>7 OR ATTR (W+1,A+1)<>7 THEN LET SAL=1: LET NU=0
8041 IF ATTR (W+1,A)=1 THEN IF ATTR (W+1,A+1)=1 THEN PRINT AT W-1,A;"  ";AT W,A;"{INK 4}{A}{B}{INK 7}";AT W-1,A;"AY": FOR N=0 TO 10: BEEP .01,INT (RND*30): NEXT N: LET LIVES=LIVES-1: PRINT AT W-1,A;"  ";AT W,A;"  ": LET A=1: LET W=18: PRINT AT W-1,A;"{INK 4}{A}{B}{INK 7}";AT W,A;"{INK 4}{C}{D}{INK 7}"
8050 IF SAL=0 THEN RETURN
8060 IF W>1 THEN IF ATTR (W-2,A)=7 THEN IF ATTR (W-2,A+1)=7 THEN LET W=W-1: PRINT AT W-1,A;A$;AT W,A;B$;AT W+1,A;"  "
8070 LET NU=NU+1: IF NU=6 THEN LET SAL=0
8080 RETURN
8500 CLS : LET P$="PROBLEM "+STR$ PROBLEM: LET Q$="GOOD LUCK!": PRINT AT 10,16-LEN P$/2;P$;AT 12,16-LEN Q$/2; INK 4;Q$: PAUSE 0: FOR N=0 TO 30: BEEP .01,N: NEXT N: RETURN
8699 STOP
8700 PRINT AT 0,0;             " {INK 4}  1UP  sm     {INVERSE 1}HI{INVERSE 0}{INVERSE 0}         2UP   {INK 6} 000000      000000      000000{INK 7}"
8710 RETURN
8720 LET P$=STR$ PUN
8730 LET K=LEN P$-1: PRINT AT 1,6-K; INK 6;P$; INK 5;AT 0,8;LIVES: RETURN

This code is from a game I coded around 1992 in my Sinclair ZX Spectrum - Graphics files are missing, of course

[Neo]

Er... I understand the code, except all non-QB4.5 words, like INK, PAPER, etc.

[Blitz]

Horrible nathan, horrible. That will give me nightmares...

[red_Marvin]

in other words, qb.exe.

but yeah, you know the story now. actually, i used qb4.5 not only because i found it first, but that black screen is so depressing, and the bright blue and white one is so happy!

Defintely an artist ;-) I can't stand the blue screen, I changed my ide colour settings to black and white.

Black background, green text

[Jark]

I think you forgot this forum was about computers when you typed the prohibited word "Apple" (fuck, it was a test on my keyboard, which is not bill-proof!). We're speaking about computers only, here, no damn vanderbilt's maths or so :rotfl: 8)

And.

The Real Men play a Fender Telecaster. I'm a real man :rotfl: :rotfl: :rotfl: :rotfl:

(I love that rotfl smiley indeed, looks like me, got no hair!)

[na_th_an]

I use white over dark gray on my 486, white over blue on my 233 and green over black on my 500. That helps me know in which computer I am

[Hexadecimal Disaster]

Black background, green text

LOL, same here.

Just to build up my angst against those goddamned IBM AS/400 terminals. (so you dislike my ultra-modern amber monitor? to hell with you! burn your retinas with the power of the green phosphorus!) And so, the black/green/light-green/tab(4) version of QB45 was born.

Jark, the stratocaster 0wnz yer telecaster.

[Jark]

I always found very funny that "friendly competition" between Tele's and Strat's... I have played wonderful Squier Strats and horrible MIM Tele's. Their qualities vary a lot from an axe to another. But since my Tele is 25 years old now, you can imagine how personal it became...

And hopefully, there is no hard drive to crash on a guitar, like the HD I crashed yesterday by spilling water on the machine. I'm been depressed since then, hope I'll get a new machine soon... and I have a couple of days of work to restore the most urgent.

Trust me, straight water may damage your health :lol: