0 REM ********  INPUT 64  *************
1 REM *********************************
3 POKE53280,0:POKE53281,14:PRINT"[147][144]"
5 PRINT"       *************************"
6 PRINT"       ******  BITMASTER  ******"
7 PRINT"       *************************"
9 PRINT" DENKEN SIE SICH BITTE EINE ZAHL"
10 PRINT" ZWISCHEN 0 UND 128 AUS!"
12 PRINT" ICH WERDE IHNEN DANN 7 LISTEN "
14 PRINT" ZEIGEN UND SIE GEBEN MIR DURCH"
16 PRINT" JA/NEIN (J/N) ZU VERSTEHEN, OB"
18 PRINT" SICH DIE VON IHNEN GEWAEHLTE"
20 PRINT" ZAHL DARUNTER BEFINDET!
22 [153]" DANACH TEILE ICH IHNEN UMGEHEND"
24 [153]" IHRE AUSGEDACHTE ZAHL MIT."
26 [153]" (TASTE)"
40 [134]E(500):Z[178]0
60 [129]T[178] 16[164] 31: E(Z)[178]T  :Z[178]Z[170]1 :[130]
70 [129]T[178] 48[164] 63: E(Z)[178]T  :Z[178]Z[170]1 :[130]
80 [129]T[178] 80[164] 95: E(Z)[178]T  :Z[178]Z[170]1 :[130]
90 [129]T[178]112[164]127: E(Z)[178]T  :Z[178]Z[170]1 :[130]
100 [129]T[178] 32[164]63 :E(Z)[178]T  :Z[178]Z[170]1 :[130]
110 [129]T[178] 96[164]127:E(Z)[178]T  :Z[178]Z[170]1 :[130]
120 [129]T[178]  4[164]124[169]8:E(Z)[178]T:E(Z[170]1)[178]T[170]1:E(Z[170]2)[178]T[170]2:E(Z[170]3)[178]T[170]3:Z[178]Z[170]4:[130]
130 [129]T[178]2 [164]126[169]4:E(Z)[178]T:E(Z[170]1)[178]T[170]1:Z[178]Z[170]2:[130]
140 [129]T[178]8 [164]15:E(Z)[178]T:Z[178]Z[170]1:[130]
145 [129]T[178]24[164]31:E(Z)[178]T:Z[178]Z[170]1:[130]
147 [129]T[178]40[164]47:E(Z)[178]T:Z[178]Z[170]1:[130]
150 [129]T[178]56[164]63:E(Z)[178]T:Z[178]Z[170]1:[130]
160 [129]T[178]72[164]79:E(Z)[178]T:Z[178]Z[170]1:[130]
170 [129]T[178]88[164]95:E(Z)[178]T:Z[178]Z[170]1:[130]
180 [129]T[178]104[164]111:E(Z)[178]T:Z[178]Z[170]1:[130]
190 [129]T[178]120[164]127:E(Z)[178]T:Z[178]Z[170]1:[130]
200 [129]T[178]1[164]127[169]2:E(Z)[178]T:Z[178]Z[170]1:[130]
210 [129]T[178]64 [164]127:E(Z)[178]T:Z[178]Z[170]1:[130]
299 [161]A$:[139]A$[178]""[167]299
300 XE[178]16:N[178]1:[141]400
310 XE[178]32:N[178]2:[141]400
320 XE[178]4 :N[178]3:[141]400
330 XE[178]2 :N[178]4:[141]400
335 XE[178]8 :N[178]5:[141]400
340 XE[178]1 :N[178]6:[141]400
350 XE[178]64:N[178]7:[141]400
370 [153]"IHRE ZAHL IST DIE ";X
375 [153]" NOCHMAL ?  (J)ON"
378 [161]A$:[139]A$[178]""[167]378
380 [139]A$[178]"J"[167]X[178]0:[140]:[137]300
390 [128]
400 B[178]0:[153]"LOAD":[129]I[178](N[171]1)[172]64[164]N[172]64[171]1:D$[178]"   "[170][196](E(I))
405 [153][201](D$,4);:B[178]B[170]1
410 [139]B[173]7[178][181](B[173]7)[167][153]:[153]:B[178]0
420 [130]
430 [141]2000
440 [142]
2000 [153]:[153]" IST IHRE ZAHL DABEI?  (J/N)"
2010 [161]A$:[139]A$[178]""[167]2010
2020 [139]A$[178]"N"[167][142]
2030 [139]A$[179][177]"J"[167]2010
2040 X[178]X[170]XE
2050 [142]