home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1991 February / 64er_Magazin_91-02_1991_Markt__Technik_de_Side_A.d64 / num80 (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  969b  |  22 lines
  1. 0 rem      save"@:num80",8              : rem * by august schwab, a-8010 graz *
  2. 9989 sys(peek(61)+29+peek(62)*256):rem"X[169]1[133][169][208][133][251][169][224][133][253][160][136][132][250][132][252][177][250][145][252][200][208][249][230][251][230][253][208][243][169]7[133]x{$60}
  3. 9990 z$[178]"25555521351111251124725121524445711746115224655527112222255255225553120
  4. 9991 gosub9998:fort=0to127:poke50177+t*4,t+128:next:fort=0to11:foru=0to9
  5. 9992 forj=0to7:by=60416+t*80+u*8+j:bi=val(mid$(z$,u*7+j+1,1)):ift=10then9997
  6. 9993 ift<>11then9996
  7. 9994 bi=bi*16:ifj=5orj=6thenbi=bi+2
  8. 9995 goto9997
  9. 9996 bi=bi or (val(mid$(z$,t*7+j+1,1))*16)
  10. 9997 pokeby,bi*-(j<7):pokeby-2048,bi*-(j<7):next:next:next
  11. 9998 poke53272,27:poke56576,144:poke648,196:print"[147]";:return
  12. 9999 n1=int(abs(z)):n2=z-n1+.005:n5$="":gosub10007
  13. 10000 n1$=str$(n1):n2$=str$(n2)+"00":ifleft$(n2$,2)<>" ."thenn2$=" .00"
  14. 10001 n4=len(n2$):n2$=right$(n2$,n4-1)
  15. 10002 n2$=left$(n2$,3):n1$="      "+n1$+n2$:n4=len(n1$)
  16. 10003 n3=val(right$(n1$,2)):gosub10008:n3=val(mid$(n1$,n4-3,1))+110:gosub10008
  17. 10004 forn6=n4-5to1step-2:n3$=mid$(n1$,n6,2):n3=val(n3$):ifn3=0then10006
  18. 10005 n3=n3-(left$(n3$,1)=" ")*100:gosub10008:next
  19. 10006 n5$="":ifz<0thenprint"[157]-";
  20. 10007 poke211,s0:poke214,z0:sys58640:printn5$;:n5$="":return
  21. 10008 print"[157] [157]";:pokepeek(210)*256+peek(209)+peek(211),n3+128:return
  22.