home *** CD-ROM | disk | FTP | other *** search
/ RUN Flagazine Extra: Special 1 / run-special-1.zip / SUPERMEM.BAS < prev    next >
BASIC Source File  |  1992-03-06  |  3KB  |  36 lines
  1. 100 REM SUPERMEMORY XYZ - GWBASIC NIET GRAFISCH (C) RUN FLAGAZINE NR. 5
  2. 110 COLOR 11,14:KEY OFF:RANDOMIZE TIMER:CLS:DIM A$(19,76),B$(19,76):X=11:Y=40
  3. 120 FOR K=1 TO 19:FOR L=1 TO 76:B%=88+INT(RND*3):A$(K,L)=CHR$(B%):NEXT L,K
  4. 130 GOSUB 340:FOR A%=22 TO 23:LOCATE A%,3:PRINT SPACE$(76);:NEXT A%:COLOR 31,0
  5. 140 LOCATE X,Y:PRINT CHR$(2):COLOR 14,0:LOCATE 22,3:PRINT "Rij:    10"
  6. 150 LOCATE 23,3:PRINT "Kolom:  38":LOCATE 22,25:PRINT "Letter:";
  7. 160 LOCATE 23,25:PRINT "Letter:";:LOCATE 22,55:PRINT "Beurt: 1";
  8. 170 LOCATE 23,55:PRINT "Score:":A$(X-1,Y-2)=CHR$(0):B$(X-1,Y-2)=CHR$(0)
  9. 180 I$=INKEY$:IF I$="" THEN 180
  10. 190 IF V=1 THEN LOCATE K,L:PRINT Q$(1)
  11. 200 IF I$=CHR$(0)+CHR$(77) AND Y=78 THEN SOUND 1000,.5:GOTO 180
  12. 210 IF I$=CHR$(0)+CHR$(72) AND X=2 THEN SOUND 1000,.5:GOTO 180
  13. 220 IF I$=CHR$(0)+CHR$(80) AND X=20 THEN SOUND 1000,.5:GOTO 180
  14. 230 IF I$=CHR$(0)+CHR$(75) AND Y=3 THEN SOUND 1000,.5:GOTO 180
  15. 240 IF I$=CHR$(0)+CHR$(77) THEN Y=Y+1:LOCATE X,Y:PRINT CHR$(26):LOCATE 22,11:PRINT USING "##";X-1:LOCATE 23,11:PRINT USING "##";Y-2
  16. 250 IF I$=CHR$(0)+CHR$(75) THEN Y=Y-1:LOCATE X,Y:PRINT CHR$(27):LOCATE 22,11:PRINT USING "##";X-1:LOCATE 23,11:PRINT USING "##";Y-2
  17. 260 IF I$=CHR$(0)+CHR$(80) THEN X=X+1:LOCATE X,Y:PRINT CHR$(25):LOCATE 22,11:PRINT USING "##";X-1:LOCATE 23,11:PRINT USING "##";Y-2
  18. 270 IF I$=CHR$(0)+CHR$(72) THEN X=X-1:LOCATE X,Y:PRINT CHR$(24):LOCATE 22,11:PRINT USING "##";X-1:LOCATE 23,11:PRINT USING "##";Y-2
  19. 280 IF I$=CHR$(13) AND A$(X-1,Y-2)=CHR$(0) THEN 180
  20. 290 IF I$=CHR$(13) THEN COLOR 15,0:LOCATE X,Y:PRINT A$(X-1,Y-2):GOSUB 310
  21. 300 COLOR 15,0:GOTO 180
  22. 310 V=V+1:K=X:L=Y:Q$(V)=A$(X-1,Y-2):LOCATE V+21,35:PRINT Q$(V);" op ";X-1;Y-2
  23. 320 IF V=1 THEN D=X-1:E=Y-2 ELSE IF Q$(1)=Q$(2) THEN GOSUB 380
  24. 330 IF V=2 THEN V=0:GOSUB 340:Q$(1)="":Q$(2)="":X=11:Y=40:LOCATE X,Y:COLOR 31,0:PRINT CHR$(2):RETURN ELSE RETURN
  25. 340 COLOR 14,0:FOR A%=2 TO 20:LOCATE A%,3:PRINT STRING$(76,8):NEXT A%
  26. 350 FOR A%=1 TO 19:FOR B%=1 TO 76
  27. 360 IF B$(A%,B%)=CHR$(0) THEN LOCATE A%+1,B%+2:PRINT CHR$(32)
  28. 370 NEXT B%,A%:BE=BE+1:LOCATE 22,61:PRINT BE:RETURN
  29. 380 B$(D,E)=CHR$(0):B$(X-1,Y-2)=CHR$(0):A$(D,E)=CHR$(0):A$(X-1,Y-2)=CHR$(0)
  30. 390 SOUND 1250,1:LOCATE 22,35:PRINT SPACE$(13):LOCATE 23,35:PRINT SPACE$(13)
  31. 400 SC=SC+1:LOCATE 23,61:PRINT SC;:RETURN
  32. 410 REM /* 30/.4360,3955,4262,3802,3847,3903,3975,1485,1979,3218
  33. 420 REM /*/....3151,3198,3156,7371,7372,7362,7364,2457,3987,1101
  34. 430 REM /*/....4333,3163,6423,3765,1486,3093,2922,3874,4251,2401
  35. 440 REM Checksum...............:  117016
  36.