home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1990 November / 64er_Magazin_90-11_1990_Markt__Technik_de_Side_A.d64 / quersumme (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  158b  |  11 lines
  1. 10 print"[147]":rem quersumme
  2. 20 print"quersumme
  3. 30 [153]"*********"
  4. 40 [133]"  zahl";z
  5. 50 z$[178][196](z)
  6. 60 l[178][195](z$)
  7. 70 [129]i[178]1[164]l
  8. 80 q[178]q[170][197]([202](z$,i,1))
  9. 90 [130]i
  10. 100 [153]"  quersumme="q
  11.