00000000: 00 70 74 73 3A 53 69 6D 70 6C 65 20 73 75 62 74 |.pts:Simple subt|
00000010: 72 61 63 74 69 6F 6E 0D 3A 0D 3A 0D 2A 61 6E 6F |raction.:.:.*ano|
00000020: 74 68 20 63 3A 20 78 20 3D 20 72 6E 64 28 31 30 |th c: x = rnd(10|
00000030: 29 0D 63 3A 20 79 20 3D 20 72 6E 64 28 31 30 29 |).c: y = rnd(10)|
00000040: 0D 6A 28 79 3E 78 29 3A 61 6E 6F 74 68 0D 74 3A |.j(y>x):anoth.t:|
00000050: 20 20 20 23 78 0D 3A 0D 74 3A 20 2D 20 23 79 0D | #x.:.t: - #y.|
00000060: 67 3A 70 38 2C 31 34 30 3B 64 33 36 2C 31 34 30 |g:p8,140;d36,140|
00000070: 3B 73 32 0D 74 68 3A 20 20 20 0D 61 3A 0D 74 3A |;s2.th: .a:.t:|
00000080: 0D 74 28 78 2D 79 3D 25 62 29 3A 47 6F 6F 64 2E |.t(x-y=%b):Good.|
00000090: 0D 6A 63 3A 40 70 20 20 20 20 20 20 20 20 0D 74 |.jc:@p .t|
000000A0: 68 28 78 2D 79 3E 25 62 29 3A 54 6F 6F 20 6C 6F |h(x-y>%b):Too lo|
000000B0: 77 3B 0D 74 68 28 78 2D 79 3C 25 62 29 3A 54 6F |w;.th(x-y<%b):To|
000000C0: 6F 20 68 69 67 68 3B 0D 74 3A 20 74 72 79 20 61 |o high;.t: try a|
000000D0: 67 61 69 6E 2E 0D 77 3A 32 30 0D 74 73 68 3A 20 |gain..w:20.tsh: |
000000E0: 20 20 0D 6A 3A 40 61 0D 70 72 3A 20 20 20 0D 77 | .j:@a.pr: .w|
000000F0: 3A 31 30 0D 0D 0D 0D 0D 00 |:10...... |
.PTS:SIMPLE SUBTRACTION.:.:.*ANOTH C: X
= RND(10).C: Y = RND(10).J(Y>X):ANOTH.T:
#X.:.T: - #Y.G:P8,140;D36,140;S2.TH:
.A:.T:.T(X-Y=%B):GOOD..JC:@P .T
H(X-Y>%B):TOO LOW;.TH(X-Y<%B):TOO HIGH;.
T: TRY AGAIN..W:20.TSH: .J:@A.PR: .W
:10......
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL