PythonAsBasic/bagels.bas.py at master · cdjc/PythonAsBasic · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
# Autogenerated code. DO NOT EDIT.
# Generated using basic_to_python.py at 2024-07-06T16:33:21.534237+12:00

from basic import basic
from basic_functions import *

@basic
def basic_bagels():

    _5. PRINT(TAB(33),"BAGELS")
    _10. PRINT(TAB(15),"CREATIVE COMPUTING  MORRISTOWN, NEW JERSEY")
    PRINT
    PRINT
    _15. REM # *** BAGLES NUMBER GUESSING GAME
    _20. REM # *** ORIGINAL SOURCE UNKNOWN BUT SUSPECTED TO BE
    _25. REM # *** LAWRENCE HALL OF SCIENCE, U.C. BERKELEY
    _30. DIM.A1(6),A(3),B(3)
    _40. Y=0
    T=255
    _50. PRINT
    PRINT
    PRINT
    _70. INPUT("WOULD YOU LIKE THE RULES (YES OR NO)").Astr
    _90. IF(LEFT(Astr,1)=="N").THEN._150
    _100. PRINT
    PRINT("I AM THINKING OF A THREE-DIGIT NUMBER.  TRY TO GUESS")
    _110. PRINT("MY NUMBER AND I WILL GIVE YOU CLUES AS FOLLOWS:")
    _120. PRINT("   PICO   - ONE DIGIT CORRECT BUT IN THE WRONG POSITION")
    _130. PRINT("   FERMI  - ONE DIGIT CORRECT AND IN THE RIGHT POSITION")
    _140. PRINT("   BAGELS - NO DIGITS CORRECT")
    _150. FOR.I=1,TO,3
    _160. A[I]=INT(10*RND(1))
    _165. IF(I-1==0).THEN._200
    _170. FOR.J=1,TO,I-1
    _180. IF(A[I]==A[J]).THEN._160
    _190. NEXT.J
    _200. NEXT.I
    _210. PRINT
    PRINT("O.K.  I HAVE A NUMBER IN MIND.")
    _220. FOR.I=1,TO,20
    _230. PRINT("GUESS #",I._)
    _240. INPUT.Astr
    _245. IF(LEN(Astr)!=3).THEN._630
    _250. FOR.Z=1,TO,3
    A1[Z]=ASC(MID(Astr,Z,1))
    NEXT.Z
    _260. FOR.J=1,TO,3
    _270. IF(A1[J]<48).THEN._300
    _280. IF(A1[J]>57).THEN._300
    _285. B[J]=A1[J]-48
    _290. NEXT.J
    _295. GOTO._320
    _300. PRINT("WHAT?")
    _310. GOTO._230
    _320. IF(B[1]==B[2]).THEN._650
    _330. IF(B[2]==B[3]).THEN._650
    _340. IF(B[3]==B[1]).THEN._650
    _350. C=0
    D=0
    _360. FOR.J=1,TO,2
    _370. IF(A[J]!=B[J+1]).THEN._390
    _380. C=C+1
    _390. IF(A[J+1]!=B[J]).THEN._410
    _400. C=C+1
    _410. NEXT.J
    _420. IF(A[1]!=B[3]).THEN._440
    _430. C=C+1
    _440. IF(A[3]!=B[1]).THEN._460
    _450. C=C+1
    _460. FOR.J=1,TO,3
    _470. IF(A[J]!=B[J]).THEN._490
    _480. D=D+1
    _490. NEXT.J
    _500. IF(D==3).THEN._680
    _505. IF(C==0).THEN._545
    _520. FOR.J=1,TO,C
    _530. PRINT("PICO "._)
    _540. NEXT.J
    _545. IF(D==0).THEN._580
    _550. FOR.J=1,TO,D
    _560. PRINT("FERMI "._)
    _570. NEXT.J
    _580. IF(C+D!=0).THEN._600
    _590. PRINT("BAGELS"._)
    _600. PRINT
    _605. NEXT.I
    _610. PRINT("OH WELL.")
    _615. PRINT("THAT'S TWENTY GUESSES.  MY NUMBER WAS",100*A(1)+10*A(2)+A(3))
    _620. GOTO._700
    _630. PRINT("TRY GUESSING A THREE-DIGIT NUMBER.")
    GOTO._230
    _650. PRINT("OH, I FORGOT TO TELL YOU THAT THE NUMBER I HAVE IN MIND")
    _660. PRINT("HAS NO TWO DIGITS THE SAME.")
    GOTO._230
    _680. PRINT("YOU GOT IT!!!")
    PRINT
    _690. Y=Y+1
    _700. INPUT("PLAY AGAIN (YES OR NO)").Astr
    _720. IF(LEFT(Astr,1)=="Y").THEN._150
    _730. IF(Y==0).THEN._750
    _740. PRINT
    PRINT("A",Y,"POINT BAGELS BUFF!!")
    _750. PRINT("HOPE YOU HAD FUN.  BYE.")
    _999. END


if __name__ == '__main__':
    basic_bagels()