home *** CD-ROM | disk | FTP | other *** search
/ RUN Flagazine: Run 12 / run12.zip / MINICRY.BAS < prev    next >
BASIC Source File  |  1993-09-15  |  2KB  |  36 lines
  1. 100 REM MINICRYPTOGRAM GW/QBASIC (C) RUN FLAGAZINE
  2. 110 DEF SEG=0:POKE 1047,PEEK(1047) OR 64
  3. 120 DATA BSUFNJT0933,SME0941,APPNFO1033,NPPS1040,VMN1133,TUSPOL1137
  4. 130 DATA VQ1233,TUSPQEBT1236,SFTU1333,PNT1338,BM1342,OJFT1434,BTB1441
  5. 140 DATA FTQFSBOUP1533,GODIN VAN DE JACHT,RIJKSLUCHTVAARTDIENST
  6. 150 DATA BEELDEND OP EN NEER,ALLOCHTOON,DUITSE STAD,WAS OOIT BOOM,NIET DOWN
  7. 160 DATA SOMS WURGEND VOOR 'N MAN,IS OVER,ON-LINE MANAGEMENT SYSTEM
  8. 170 DATA REEDS,HA... HATSJOE!,LICHTGEVOELIG,TEGEN SPRAAKVERWARRING
  9. 180 DATA ALIAS DIANA,AFKORTING,POMPEN,OTHELLO,BIJ MUNCHEN,AFGEZAAGD
  10. 190 DATA OMHOOG,GEKLEED,KLIEK,AFKORTING,ISRAELISCHE LUCHT,HAND VOOR JE MOND
  11. 200 DATA NIET DIN,TAAL VAN DE HOOP:CLS:KEY OFF:LOCATE 8,31:PRINT CHR$(219);
  12. 210 PRINT STRING$(13,223)CHR$(219):FOR A=9 TO 16:LOCATE A,31:PRINT CHR$(219)
  13. 220 LOCATE A,45:PRINT CHR$(219):NEXT:LOCATE 16,32:PRINT STRING$(13,220)
  14. 230 COLOR 15,0:LOCATE 3,24:PRINT "RUN Flagazine Mini Cryptogram":COLOR 14,0
  15. 240 DIM W$(14),K$(14),O$(14),H$(14):FOR A=1 TO 14:READ W$(A):K$(A)=""
  16. 250 FOR B=1 TO LEN(W$(A))-4:K$(A)=K$(A)+CHR$(ASC(MID$(W$(A),B,1))-1)
  17. 260 NEXT B,A:K$(3)="Z"+MID$(K$(3),2):FOR A=9 TO 15
  18. 270 FOR B=33 TO 43:LOCATE A,B:PRINT ".":NEXT B,A:LOCATE 14,39:PRINT "A"
  19. 280 LOCATE 15,43:PRINT "P":FOR A=1 TO 14:READ O$(A):NEXT
  20. 290 FOR A=1 TO 14:READ H$(A):NEXT
  21. 300 FOR A=1 TO 14:LOCATE 18,31:PRINT SPC(25)
  22. 310 IF O$(A)<>"" THEN LOCATE 18,28:PRINT USING "## ";A;:PRINT O$(A) ELSE 350
  23. 320 IF VL=1 THEN GOSUB 390
  24. 330 LOCATE 20,28:PRINT SPC(20):LOCATE 20,31:PRINT STRING$(LEN(K$(A)),".")
  25. 340 LOCATE 20,29:INPUT A$:GOSUB 360
  26. 350 NEXT A:VL=1:GOTO 300
  27. 360 IF A$=K$(A) THEN SOUND 999,1:O$(A)="":X$=RIGHT$(W$(A),4):T=T+1 ELSE 380
  28. 370 LOCATE VAL(LEFT$(X$,2)),VAL(RIGHT$(X$,2)):PRINT A$
  29. 380 IF T=14 THEN COLOR 31,0:LOCATE 6,34:PRINT "OPGELOST":GOTO 400 ELSE RETURN
  30. 390 LOCATE 19,36:PRINT SPC(40):LOCATE 19,31:PRINT "HINT: ";H$(A):RETURN
  31. 400 COLOR 7,0:DEF SEG=0:POKE 1047,PEEK(1047) AND 191:END
  32. 410 REM /* 30/.1993,3985,3997,3977,4609,4083,4181,4261,4751,4315
  33. 420 REM /*/....4168,4061,5048,3318,3451,2466,3859,3000,1643,2286
  34. 430 REM /*/....3923,1258,4054,1843,1232,3908,3007,4406,4048,2953
  35. 440 REM Checksum...............:  104084
  36.