home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 90xx / 9011a.d64 / quersumme (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  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.