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