home *** CD-ROM | disk | FTP | other *** search
/ Commodore Disc 45 / Commodore_Disc_45_19xx_-_de.d64 / eniac (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  3KB  |  123 lines
  1. 10 rem eniac=================c64/c128
  2. 20 rem (p) commodore disc
  3. 30 rem ==============================
  4. 40 rem (c) by christian niederle v3.5
  5. 50 rem (v) a.m.                  v2.0
  6. 60 rem
  7. 70 rem basic v2.0/v7.0
  8. 80 rem c64/c128
  9. 90 rem ==============================
  10. 100 gosub 1090:printchr$(147);
  11. 110 dim a$(40):dim b$(40)
  12. 120 dim kl(40):r=1:rem *** r kann werte von 0 bis 5 annehmen
  13. 130 gosub 910
  14. 140 xk=5:yk=10:gosub1061:print"text codieren.........(c)";
  15. 150 xk=5:yk=15:gosub1061:print"text entschluesseln...(e)";
  16. 160 xk=5:yk=20:gosub1061:print"eniac spielen.........(s)";
  17. 170 getc$:ifc$=""then170
  18. 180 ifc$="c"then200
  19. 181 ifc$="e"then390
  20. 182 ifc$="s"then540
  21. 190 goto 170
  22. 200 printchr$(147);
  23. 210 gosub 910
  24. 220 x=0:print:print:input"eigener code(1-15 od.nur return)";x
  25. 230 if x>0 then goto 250
  26. 240 x=int(rnd(1)*11)+1
  27. 250 print:print
  28. 260 for i=0 to 39
  29. 270 geta$(i):ifa$(i)=""then270
  30. 280 if a$(i)=chr$(13) then a=i-1:i=39:goto 320
  31. 290 t=asc(a$(i))
  32. 300 b$(i)=chr$(t+x+r):a=i
  33. 310 xk=i:yk=15:gosub1061:printb$(i);
  34. 320 next i
  35. 330 x$=str$(x):xk=10:yk=20:gosub1061:printx$;
  36. 340 xk=0:yk=22:gosub1061:print"text auf drucker(j/n)";
  37. 345 gets$:ifs$=""then345
  38. 350 if s$="j" then gosub 970
  39. 360 xk=0:yk=24:gosub1061:print"zurueck zum menue(j/n)";
  40. 365 gets$:ifs$=""then365
  41. 370 if s$="j" then run
  42. 380 goto 200
  43. 390 printchr$(147);
  44. 400 gosub 910
  45. 410 print:print:input"gebe den code ein";x
  46. 420 for i=0 to 39
  47. 430 getb$(i):ifb$(i)=""then430
  48. 440 if b$(i)=chr$(13) then a=i-1:i=39:goto 480
  49. 450 t=asc(b$(i))
  50. 460 a$(i)=chr$(t-x-r)
  51. 470 xk=i:yk=15:gosub1061:printa$(i);
  52. 480 next i
  53. 490 print:print:print"soll text auf drucker(j/n)"
  54. 495 gets$:ifs$=""then495
  55. 500 if s$="j" then gosub 970
  56. 510 print:print:print"zurueck zu menue(j/n)"
  57. 515 gets$:ifs$=""then515
  58. 520 if s$="j" thenrun
  59. 530 goto 390
  60. 540 printchr$(147);
  61. 550 gosub 910
  62. 560 x=int(rnd(1)*11)+1
  63. 570 rem *** codieren ***
  64. 580 for i=0 to 39
  65. 590 geta$(i):ifa$(i)=""then590
  66. 600 if a$(i)=chr$(13) then a=i:i=39:goto 640
  67. 610 t=asc(a$(i))
  68. 620 b$(i)=chr$(t+x+r):a=i
  69. 630 xk=i:yk=10:gosub1061:printb$(i);
  70. 640 next i
  71. 650 printchr$(147);
  72. 660 gosub 910
  73. 670 for i=0 to a-1
  74. 680 xk=i:yk=15:gosub1061:print".";
  75. 690 next i
  76. 700 xk=0:yk=24:gosub1061:print"ok!";
  77. 701 getd$:ifd$=""then701
  78. 702 l=l+1:l$=str$(l):xk=15:yk=24:gosub1061:printl$;
  79. 720 y=a+3:y$=str$(y):xk=10:yk=24:gosub1061:printy$;
  80. 730 for i=0 to a
  81. 740 gosub 810
  82. 750 next i
  83. 760 if l=y then goto 860
  84. 770 if sr=1 then xk=0:yk=20:gosub1061:print"gratuliere, du hast den code geknackt!";
  85. 790 if sr=1 then 901
  86. 800 goto 700
  87. 810 xk=0:yk=24:gosub1061:print"   ";
  88. 820 if a$(i)=d$ then xk=i:yk=15:gosub1061:printd$;:kl(i)=kl(i)+1
  89. 830 if kl(i)=1 and a$(i)=d$ then u=u+1
  90. 840 if u=a then sr=1:i=a
  91. 850 return
  92. 860 xk=0:yk=20:gosub1061:print"pech gehabt! richtig heisst es:";
  93. 870 for i=0 to a
  94. 880 xk=i:yk=15:gosub1061:printa$(i);
  95. 890 next i
  96. 901 gettx$:iftx$=""then901
  97. 902 run
  98. 910 printtab(4)"[213][195][195][195][213][201][213] [209] [213][195][195][201] [213][195][195]  [195]"zh$"[195] [195]"zh$"[195]"
  99. 920 printtab(4)"[194]   [194][194][194]   [194]  [194] [194]     [194]   [194] "
  100. 930 printtab(4)za$"[195][195] [194][194][194] [194] "za$"[195][195]"zi$"[213]"zi$"     [194]   [194] "
  101. 940 printtab(4)"[194]   [194][194]"za$"[201]"za$"[201][194]  [194][194][194]     [194]   [194] "
  102. 950 printtab(4)"[202][195][195][195][203][202][203][202][203][202][203]  [202][203][202][195][195]  [195]"zg$"[195] [195]"zg$"[195] [209]"
  103. 960 return
  104. 970 open4,4
  105. 980 print#4
  106. 990 print#4,"   ";x;"   "
  107. 1000 for i=0 to a
  108. 1010 if c$="c" then print#4,b$(i);
  109. 1020 if c$="e" then print#4,a$(i);
  110. 1030 next
  111. 1040 print#4
  112. 1050 close 4
  113. 1060 return
  114. 1061 pokexr,yk:pokeyr,xk:sys65520:return
  115. 1070 rem nachspann ===========
  116. 1080 rem zeichensatz/graphik *
  117. 1090 za$=chr$(171):zg$=chr$(177)
  118. 1100 zh$=chr$(178):zi$=chr$(179)
  119. 1101 xr=7:yr=8:ifpeek(772)=124thenxr=781:yr=782
  120. 1110 return
  121. 1120 rem =eniac==========ende=
  122. 1130 rem =====================
  123.