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 3A 20 20 20 |raction.:.:.: |
00000020: 38 0D 3A 0D 3A 20 2D 20 35 0D 67 3A 70 38 2C 31 |8.:.: - 5.g:p8,1|
00000030: 34 30 3B 64 33 36 2C 31 34 30 3B 73 32 0D 74 68 |40;d36,140;s2.th|
00000040: 3A 20 20 20 0D 61 3A 0D 74 3A 0D 74 28 33 3D 25 |: .a:.t:.t(3=%|
00000050: 62 29 3A 52 69 67 68 74 2E 0D 6A 28 33 3D 25 62 |b):Right..j(3=%b|
00000060: 29 3A 6E 65 78 74 0D 74 68 28 33 3E 25 62 29 3A |):next.th(3>%b):|
00000070: 54 6F 6F 20 6C 6F 77 3B 0D 74 68 28 33 3C 25 62 |Too low;.th(3<%b|
00000080: 29 3A 54 6F 6F 20 68 69 67 68 3B 0D 74 3A 20 74 |):Too high;.t: t|
00000090: 72 79 20 61 67 61 69 6E 2E 0D 77 3A 31 35 0D 74 |ry again..w:15.t|
000000A0: 73 68 3A 20 20 20 0D 6A 3A 40 61 0D 2A 6E 65 78 |sh: .j:@a.*nex|
000000B0: 74 0D 00 |t.. |
.PTS:SIMPLE SUBTRACTION.:.:.: 8.:.: -
5.G:P8,140;D36,140;S2.TH: .A:.T:.T(3=%
B):RIGHT..J(3=%B):NEXT.TH(3>%B):TOO LOW;
.TH(3<%B):TOO HIGH;.T: TRY AGAIN..W:15.T
SH: .J:@A.*NEXT..
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL