DUMP'1520.PROC

FILE INFORMATION

FILENAME(S): DUMP'1520.PROC

FILE TYPE(S): SEQ

FILE SIZE: 2.2K

FIRST SEEN: 2025-10-20 14:31:32

APPEARS ON: 11 disk(s)

FILE HASH

a3366dbc2426b40ecdbddaff9bd45eb79396f244e69f4957f3d2cddadd2b74a1

FOUND ON DISKS (11 DISKS)

DISK TITLE	FILENAME	FILE TYPE	COLLECTION	TRACK	SECTOR	ACTIONS
10808 SEITE B	DUMP'1520.PROC	SEQ	Treasure Chest - Klaus Der Suhler	34	13	DOWNLOAD FILE
10809 SEITE B	DUMP'1520.PROC	SEQ	C64er, DuncanTwain	4	6	DOWNLOAD FILE
10808 SEITE B	DUMP'1520.PROC	SEQ	C64er, DuncanTwain	34	13	DOWNLOAD FILE
10810 SEITE B	DUMP'1520.PROC	SEQ	C64er, DuncanTwain	6	4	DOWNLOAD FILE
10812 SEITE B	DUMP'1520.PROC	SEQ	C64er, DuncanTwain	6	4	DOWNLOAD FILE
10811 SEITE B	DUMP'1520.PROC	SEQ	C64er, DuncanTwain	6	4	DOWNLOAD FILE
10902 SEITE D	DUMP'1520.PROC	SEQ	C64er, DuncanTwain	30	9	DOWNLOAD FILE
10901 SEITE D	DUMP'1520.PROC	SEQ	C64er, DuncanTwain	6	4	DOWNLOAD FILE
10812 SEITE B	DUMP'1520.PROC	SEQ	DuncanTwain	6	4	DOWNLOAD FILE
10811 SEITE B	DUMP'1520.PROC	SEQ	DuncanTwain	6	4	DOWNLOAD FILE
10902 SEITE D	DUMP'1520.PROC	SEQ	DuncanTwain	30	9	DOWNLOAD FILE

FILE CONTENT & ANALYSIS

00000000: 39 30 30 30 20 2F 2F 0D  39 30 30 35 20 50 52 4F  |9000 //.9005 PRO|
00000010: 43 20 44 55 4D 50 31 35  32 30 28 52 45 56 45 52  |C DUMP1520(REVER|
00000020: 53 45 2C 43 4F 4C 4F 52  29 20 43 4C 4F 53 45 44  |SE,COLOR) CLOSED|
00000030: 0D 39 30 31 30 20 44 49  4D 20 44 24 20 4F 46 20  |.9010 DIM D$ OF |
00000040: 31 0D 39 30 31 35 20 44  49 4D 20 4D 4F 24 20 4F  |1.9015 DIM MO$ O|
00000050: 46 20 31 0D 39 30 32 30  20 44 49 4D 20 50 24 20  |F 1.9020 DIM P$ |
00000060: 4F 46 20 31 0D 39 30 32  35 20 44 49 4D 20 58 43  |OF 1.9025 DIM XC|
00000070: 24 20 4F 46 20 33 0D 39  30 33 30 20 44 49 4D 20  |$ OF 3.9030 DIM |
00000080: 59 43 24 20 4F 46 20 34  0D 39 30 33 35 20 44 49  |YC$ OF 4.9035 DI|
00000090: 4D 20 50 4F 53 24 20 4F  46 20 39 0D 39 30 34 30  |M POS$ OF 9.9040|
000000A0: 20 44 49 4D 20 45 4E 44  4C 24 20 4F 46 20 33 0D  | DIM ENDL$ OF 3.|
000000B0: 39 30 34 35 20 49 46 20  52 45 56 45 52 53 45 20  |9045 IF REVERSE |
000000C0: 54 48 45 4E 0D 39 30 35  30 20 44 24 3A 3D 22 4D  |THEN.9050 D$:="M|
000000D0: 22 3B 20 4D 4F 24 3A 3D  22 44 22 0D 39 30 35 35  |"; MO$:="D".9055|
000000E0: 20 45 4C 53 45 20 0D 39  30 36 30 20 44 24 3A 3D  | ELSE .9060 D$:=|
000000F0: 22 44 22 3B 20 4D 4F 24  3A 3D 22 4D 22 0D 39 30  |"D"; MO$:="M".90|
00000100: 36 35 20 45 4E 44 49 46  20 0D 39 30 37 30 20 4F  |65 ENDIF .9070 O|
00000110: 50 45 4E 20 46 49 4C 45  20 31 2C 22 22 2C 55 4E  |PEN FILE 1,"",UN|
00000120: 49 54 20 36 2C 31 2C 57  52 49 54 45 0D 39 30 37  |IT 6,1,WRITE.907|
00000130: 35 20 4F 50 45 4E 20 46  49 4C 45 20 36 2C 22 22  |5 OPEN FILE 6,""|
00000140: 2C 55 4E 49 54 20 36 2C  30 2C 57 52 49 54 45 0D  |,UNIT 6,0,WRITE.|
00000150: 39 30 38 30 20 4F 50 45  4E 20 46 49 4C 45 20 32  |9080 OPEN FILE 2|
00000160: 2C 22 22 2C 55 4E 49 54  20 36 2C 32 2C 57 52 49  |,"",UNIT 6,2,WRI|
00000170: 54 45 0D 39 30 38 35 20  4F 50 45 4E 20 46 49 4C  |TE.9085 OPEN FIL|
00000180: 45 20 37 2C 22 22 2C 55  4E 49 54 20 36 2C 37 2C  |E 7,"",UNIT 6,7,|
00000190: 57 52 49 54 45 0D 39 30  39 30 20 50 52 49 4E 54  |WRITE.9090 PRINT|
000001A0: 20 46 49 4C 45 20 32 3A  20 43 48 52 24 28 43 4F  | FILE 2: CHR$(CO|
000001B0: 4C 4F 52 2B 4F 52 44 28  22 30 22 29 29 2C 0D 39  |LOR+ORD("0")),.9|
000001C0: 30 39 35 20 2F 2F 0D 39  31 30 30 20 46 4F 52 20  |095 //.9100 FOR |
000001D0: 49 3A 3D 31 20 54 4F 20  31 30 20 44 4F 0D 39 31  |I:=1 TO 10 DO.91|
000001E0: 30 35 20 50 52 49 4E 54  20 46 49 4C 45 20 36 3A  |05 PRINT FILE 6:|
000001F0: 20 0D 39 31 31 30 20 45  4E 44 46 4F 52 20 49 0D  | .9110 ENDFOR I.|
00000200: 39 31 31 35 20 50 52 49  4E 54 20 46 49 4C 45 20  |9115 PRINT FILE |
00000210: 31 3A 20 22 20 4D 38 30  20 31 39 39 22 0D 39 31  |1: " M80 199".91|
00000220: 32 30 20 46 4F 52 20 59  3A 3D 31 39 39 20 54 4F  |20 FOR Y:=199 TO|
00000230: 20 30 20 53 54 45 50 20  2D 32 20 44 4F 0D 39 31  | 0 STEP -2 DO.91|
00000240: 32 35 20 59 43 24 3A 3D  22 22 0D 39 31 33 30 20  |25 YC$:="".9130 |
00000250: 53 54 52 50 50 28 59 43  24 2C 59 29 0D 39 31 33  |STRPP(YC$,Y).913|
00000260: 35 20 59 43 24 3A 3D 22  20 22 2B 59 43 24 0D 39  |5 YC$:=" "+YC$.9|
00000270: 31 34 30 20 50 4F 53 24  3A 3D 22 4D 38 30 22 2B  |140 POS$:="M80"+|
00000280: 59 43 24 0D 39 31 34 35  20 59 59 3A 3D 59 0D 39  |YC$.9145 YY:=Y.9|
00000290: 31 35 30 20 5A 3A 3D 47  45 54 43 4F 4C 4F 52 28  |150 Z:=GETCOLOR(|
000002A0: 30 2C 59 59 29 0D 39 31  35 35 20 50 52 49 4E 54  |0,YY).9155 PRINT|
000002B0: 20 46 49 4C 45 20 31 3A  20 50 4F 53 24 0D 39 31  | FILE 1: POS$.91|
000002C0: 36 30 20 46 4F 52 20 49  3A 3D 31 20 54 4F 20 32  |60 FOR I:=1 TO 2|
000002D0: 20 44 4F 0D 39 31 36 35  20 49 46 20 49 3D 31 20  | DO.9165 IF I=1 |
000002E0: 54 48 45 4E 0D 39 31 37  30 20 53 53 3A 3D 30 0D  |THEN.9170 SS:=0.|
000002F0: 39 31 37 35 20 46 46 3A  3D 33 31 39 0D 39 31 38  |9175 FF:=319.918|
00000300: 30 20 53 50 3A 3D 31 0D  39 31 38 35 20 45 4E 44  |0 SP:=1.9185 END|
00000310: 4C 24 3A 3D 22 33 39 39  22 0D 39 31 39 30 20 45  |L$:="399".9190 E|
00000320: 4C 53 45 20 0D 39 31 39  35 20 46 46 3A 3D 30 0D  |LSE .9195 FF:=0.|
00000330: 39 32 30 30 20 53 53 3A  3D 33 31 39 0D 39 32 30  |9200 SS:=319.920|
00000340: 35 20 53 50 3A 3D 2D 31  0D 39 32 31 30 20 45 4E  |5 SP:=-1.9210 EN|
00000350: 44 4C 24 3A 3D 22 38 30  22 0D 39 32 31 35 20 59  |DL$:="80".9215 Y|
00000360: 59 3A 3D 59 2D 31 0D 39  32 32 30 20 59 43 24 3A  |Y:=Y-1.9220 YC$:|
00000370: 3D 22 22 0D 39 32 32 35  20 53 54 52 50 50 28 59  |="".9225 STRPP(Y|
00000380: 43 24 2C 59 59 29 0D 39  32 33 30 20 59 43 24 3A  |C$,YY).9230 YC$:|
00000390: 3D 22 20 22 2B 59 43 24  0D 39 32 33 35 20 50 4F  |=" "+YC$.9235 PO|
000003A0: 53 24 3A 3D 22 4D 22 2B  22 33 39 39 22 2B 59 43  |S$:="M"+"399"+YC|
000003B0: 24 0D 39 32 34 30 20 50  52 49 4E 54 20 46 49 4C  |$.9240 PRINT FIL|
000003C0: 45 20 31 3A 20 50 4F 53  24 0D 39 32 34 35 20 45  |E 1: POS$.9245 E|
000003D0: 4E 44 49 46 20 0D 39 32  35 30 20 46 4F 52 20 58  |NDIF .9250 FOR X|
000003E0: 3A 3D 53 53 20 54 4F 20  46 46 20 53 54 45 50 20  |:=SS TO FF STEP |
000003F0: 53 50 20 44 4F 0D 39 32  35 35 20 49 46 20 47 45  |SP DO.9255 IF GE|
00000400: 54 43 4F 4C 4F 52 28 58  2C 59 59 29 3C 3E 5A 20  |TCOLOR(X,YY)<>Z |
00000410: 54 48 45 4E 0D 39 32 36  30 20 43 41 53 45 20 5A  |THEN.9260 CASE Z|
00000420: 20 4F 46 0D 39 32 36 35  20 57 48 45 4E 20 31 0D  | OF.9265 WHEN 1.|
00000430: 39 32 37 30 20 50 24 3A  3D 4D 4F 24 0D 39 32 37  |9270 P$:=MO$.927|
00000440: 35 20 4F 54 48 45 52 57  49 53 45 20 0D 39 32 38  |5 OTHERWISE .928|
00000450: 30 20 50 24 3A 3D 44 24  0D 39 32 38 35 20 45 4E  |0 P$:=D$.9285 EN|
00000460: 44 43 41 53 45 20 0D 39  32 39 30 20 58 43 24 3A  |DCASE .9290 XC$:|
00000470: 3D 22 22 0D 39 32 39 35  20 58 58 3A 3D 58 0D 39  |="".9295 XX:=X.9|
00000480: 33 30 30 20 49 46 20 49  3D 32 20 54 48 45 4E 20  |300 IF I=2 THEN |
00000490: 58 58 3A 3D 58 58 2B 31  0D 39 33 30 35 20 53 54  |XX:=XX+1.9305 ST|
000004A0: 52 50 50 28 58 43 24 2C  58 58 2B 38 30 29 0D 39  |RPP(XC$,XX+80).9|
000004B0: 33 31 30 20 50 4F 53 24  3A 3D 50 24 2B 58 43 24  |310 POS$:=P$+XC$|
000004C0: 2B 59 43 24 0D 39 33 31  35 20 50 52 49 4E 54 20  |+YC$.9315 PRINT |
000004D0: 46 49 4C 45 20 31 3A 20  50 4F 53 24 0D 39 33 32  |FILE 1: POS$.932|
000004E0: 30 20 5A 3A 3D 47 45 54  43 4F 4C 4F 52 28 58 2C  |0 Z:=GETCOLOR(X,|
000004F0: 59 59 29 0D 39 33 32 35  20 45 4E 44 49 46 20 0D  |YY).9325 ENDIF .|
00000500: 39 33 33 30 20 45 4E 44  46 4F 52 20 58 0D 39 33  |9330 ENDFOR X.93|
00000510: 33 35 20 5A 3A 3D 47 45  54 43 4F 4C 4F 52 28 33  |35 Z:=GETCOLOR(3|
00000520: 31 39 2C 59 59 29 0D 39  33 34 30 20 49 46 20 5A  |19,YY).9340 IF Z|
00000530: 3C 3E 31 20 54 48 45 4E  0D 39 33 34 35 20 50 4F  |<>1 THEN.9345 PO|
00000540: 53 24 3A 3D 44 24 2B 45  4E 44 4C 24 2B 59 43 24  |S$:=D$+ENDL$+YC$|
00000550: 0D 39 33 35 30 20 50 52  49 4E 54 20 46 49 4C 45  |.9350 PRINT FILE|
00000560: 20 31 3A 20 50 4F 53 24  0D 39 33 35 35 20 45 4E  | 1: POS$.9355 EN|
00000570: 44 49 46 20 0D 39 33 36  30 20 5A 3A 3D 47 45 54  |DIF .9360 Z:=GET|
00000580: 43 4F 4C 4F 52 28 33 31  39 2C 59 2D 31 29 0D 39  |COLOR(319,Y-1).9|
00000590: 33 36 35 20 45 4E 44 46  4F 52 20 49 0D 39 33 37  |365 ENDFOR I.937|
000005A0: 30 20 45 4E 44 46 4F 52  20 59 0D 39 33 37 35 20  |0 ENDFOR Y.9375 |
000005B0: 50 52 49 4E 54 20 46 49  4C 45 20 31 3A 20 22 4D  |PRINT FILE 1: "M|
000005C0: 22 0D 39 33 38 30 20 50  52 49 4E 54 20 46 49 4C  |".9380 PRINT FIL|
000005D0: 45 20 36 3A 20 43 48 52  24 28 31 33 29 2C 43 48  |E 6: CHR$(13),CH|
000005E0: 52 24 28 31 33 29 0D 39  33 38 35 20 50 52 49 4E  |R$(13).9385 PRIN|
000005F0: 54 20 46 49 4C 45 20 37  3A 20 0D 39 33 39 30 20  |T FILE 7: .9390 |
00000600: 43 4C 4F 53 45 0D 39 33  39 35 20 45 4E 44 50 52  |CLOSE.9395 ENDPR|
00000610: 4F 43 20 44 55 4D 50 31  35 32 30 0D 39 34 30 30  |OC DUMP1520.9400|
00000620: 20 2F 2F 0D 39 34 30 35  20 50 52 4F 43 20 53 54  | //.9405 PROC ST|
00000630: 52 50 50 28 52 45 46 20  43 24 2C 4E 29 20 43 4C  |RPP(REF C$,N) CL|
00000640: 4F 53 45 44 0D 39 34 31  30 20 44 49 4D 20 54 24  |OSED.9410 DIM T$|
00000650: 20 4F 46 20 36 0D 39 34  31 35 20 4E 3A 3D 41 42  | OF 6.9415 N:=AB|
00000660: 53 28 4E 29 0D 39 34 32  30 20 44 3A 3D 4E 20 4D  |S(N).9420 D:=N M|
00000670: 4F 44 20 31 30 0D 39 34  32 35 20 54 24 3A 3D 54  |OD 10.9425 T$:=T|
00000680: 24 2B 43 48 52 24 28 44  2B 34 38 29 0D 39 34 33  |$+CHR$(D+48).943|
00000690: 30 20 49 46 20 44 3D 4E  20 54 48 45 4E 0D 39 34  |0 IF D=N THEN.94|
000006A0: 33 35 20 43 24 3A 3D 43  24 2B 54 24 0D 39 34 34  |35 C$:=C$+T$.944|
000006B0: 30 20 45 4C 53 45 20 0D  39 34 34 35 20 53 54 52  |0 ELSE .9445 STR|
000006C0: 50 50 28 43 24 2C 28 4E  2D 44 29 2F 31 30 29 0D  |PP(C$,(N-D)/10).|
000006D0: 39 34 35 30 20 43 24 3A  3D 43 24 2B 54 24 0D 39  |9450 C$:=C$+T$.9|
000006E0: 34 35 35 20 45 4E 44 49  46 20 0D 39 34 36 30 20  |455 ENDIF .9460 |
000006F0: 45 4E 44 50 52 4F 43 20  53 54 52 50 50 0D 39 34  |ENDPROC STRPP.94|
00000700: 36 35 20 2F 2F 0D 39 34  37 30 20 50 52 4F 43 20  |65 //.9470 PROC |
00000710: 53 54 52 28 52 45 46 20  43 24 2C 4E 29 20 43 4C  |STR(REF C$,N) CL|
00000720: 4F 53 45 44 0D 39 34 37  35 20 44 49 4D 20 54 24  |OSED.9475 DIM T$|
00000730: 20 4F 46 20 31 31 2C 20  53 24 20 4F 46 20 31 2C  | OF 11, S$ OF 1,|
00000740: 20 44 44 24 20 4F 46 20  35 0D 39 34 38 30 20 49  | DD$ OF 5.9480 I|
00000750: 46 20 4E 3C 30 20 54 48  45 4E 20 53 24 3A 3D 22  |F N<0 THEN S$:="|
00000760: 2D 22 0D 39 34 38 35 20  4E 3A 3D 41 42 53 28 4E  |-".9485 N:=ABS(N|
00000770: 29 0D 39 34 39 30 20 49  46 20 28 4E 20 44 49 56  |).9490 IF (N DIV|
00000780: 20 31 29 3C 3E 4E 20 54  48 45 4E 0D 39 34 39 35  | 1)<>N THEN.9495|
00000790: 20 46 3A 3D 49 4E 54 28  28 4E 2A 31 30 30 30 30  | F:=INT((N*10000|
000007A0: 29 20 4D 4F 44 20 31 30  30 30 30 2B 2E 35 29 0D  |) MOD 10000+.5).|
000007B0: 39 35 30 30 20 53 54 52  28 44 44 24 2C 46 29 0D  |9500 STR(DD$,F).|
000007C0: 39 35 30 35 20 44 44 24  3A 3D 22 2E 22 2B 44 44  |9505 DD$:="."+DD|
000007D0: 24 0D 39 35 31 30 20 50  3A 3D 4C 45 4E 28 44 44  |$.9510 P:=LEN(DD|
000007E0: 24 29 0D 39 35 31 35 20  57 48 49 4C 45 20 44 44  |$).9515 WHILE DD|
000007F0: 24 28 50 29 3D 22 30 22  20 41 4E 44 20 50 3E 31  |$(P)="0" AND P>1|
00000800: 20 44 4F 0D 39 35 32 30  20 44 44 24 3A 3D 44 44  | DO.9520 DD$:=DD|
00000810: 24 28 31 3A 50 2D 31 29  0D 39 35 32 35 20 50 3A  |$(1:P-1).9525 P:|
00000820: 3D 50 2D 31 0D 39 35 33  30 20 45 4E 44 57 48 49  |=P-1.9530 ENDWHI|
00000830: 4C 45 20 0D 39 35 33 35  20 4E 3A 3D 4E 20 44 49  |LE .9535 N:=N DI|
00000840: 56 20 31 0D 39 35 34 30  20 45 4E 44 49 46 20 0D  |V 1.9540 ENDIF .|
00000850: 39 35 34 35 20 44 3A 3D  4E 20 4D 4F 44 20 31 30  |9545 D:=N MOD 10|
00000860: 0D 39 35 35 30 20 54 24  3A 3D 54 24 2B 43 48 52  |.9550 T$:=T$+CHR|
00000870: 24 28 44 2B 34 38 29 0D  39 35 35 35 20 49 46 20  |$(D+48).9555 IF |
00000880: 44 3D 4E 20 54 48 45 4E  0D 39 35 36 30 20 43 24  |D=N THEN.9560 C$|
00000890: 3A 3D 43 24 2B 54 24 0D  39 35 36 35 20 45 4C 53  |:=C$+T$.9565 ELS|
000008A0: 45 20 0D 39 35 37 30 20  53 54 52 28 43 24 2C 28  |E .9570 STR(C$,(|
000008B0: 4E 2D 44 29 2F 31 30 29  0D 39 35 37 35 20 43 24  |N-D)/10).9575 C$|
000008C0: 3A 3D 43 24 2B 54 24 0D  39 35 38 30 20 45 4E 44  |:=C$+T$.9580 END|
000008D0: 49 46 20 0D 39 35 38 35  20 43 24 3A 3D 53 24 2B  |IF .9585 C$:=S$+|
000008E0: 43 24 2B 44 44 24 0D 39  35 39 30 20 45 4E 44 50  |C$+DD$.9590 ENDP|
000008F0: 52 4F 43 20 53 54 52 0D                           |ROC STR.        |

9000 //.9005 PROC DUMP1520(REVERSE,COLOR
) CLOSED.9010 DIM D$ OF 1.9015 DIM MO$ O
F 1.9020 DIM P$ OF 1.9025 DIM XC$ OF 3.9
030 DIM YC$ OF 4.9035 DIM POS$ OF 9.9040
 DIM ENDL$ OF 3.9045 IF REVERSE THEN.905
0 D$:="M"; MO$:="D".9055 ELSE .9060 D$:=
"D"; MO$:="M".9065 ENDIF .9070 OPEN FILE
 1,"",UNIT 6,1,WRITE.9075 OPEN FILE 6,""
,UNIT 6,0,WRITE.9080 OPEN FILE 2,"",UNIT
 6,2,WRITE.9085 OPEN FILE 7,"",UNIT 6,7,
WRITE.9090 PRINT FILE 2: CHR$(COLOR+ORD(
"0")),.9095 //.9100 FOR I:=1 TO 10 DO.91
05 PRINT FILE 6: .9110 ENDFOR I.9115 PRI
NT FILE 1: " M80 199".9120 FOR Y:=199 TO
 0 STEP -2 DO.9125 YC$:="".9130 STRPP(YC
$,Y).9135 YC$:=" "+YC$.9140 POS$:="M80"+
YC$.9145 YY:=Y.9150 Z:=GETCOLOR(0,YY).91
55 PRINT FILE 1: POS$.9160 FOR I:=1 TO 2
 DO.9165 IF I=1 THEN.9170 SS:=0.9175 FF:
=319.9180 SP:=1.9185 ENDL$:="399".9190 E
LSE .9195 FF:=0.9200 SS:=319.9205 SP:=-1
.9210 ENDL$:="80".9215 YY:=Y-1.9220 YC$:
="".9225 STRPP(YC$,YY).9230 YC$:=" "+YC$
.9235 POS$:="M"+"399"+YC$.9240 PRINT FIL
E 1: POS$.9245 ENDIF .9250 FOR X:=SS TO 
FF STEP SP DO.9255 IF GETCOLOR(X,YY)<>Z 
THEN.9260 CASE Z OF.9265 WHEN 1.9270 P$:
=MO$.9275 OTHERWISE .9280 P$:=D$.9285 EN
DCASE .9290 XC$:="".9295 XX:=X.9300 IF I
=2 THEN XX:=XX+1.9305 STRPP(XC$,XX+80).9
310 POS$:=P$+XC$+YC$.9315 PRINT FILE 1: 
POS$.9320 Z:=GETCOLOR(X,YY).9325 ENDIF .
9330 ENDFOR X.9335 Z:=GETCOLOR(319,YY).9
340 IF Z<>1 THEN.9345 POS$:=D$+ENDL$+YC$
.9350 PRINT FILE 1: POS$.9355 ENDIF .936
0 Z:=GETCOLOR(319,Y-1).9365 ENDFOR I.937
0 ENDFOR Y.9375 PRINT FILE 1: "M".9380 P
RINT FILE 6: CHR$(13),CHR$(13).9385 PRIN
T FILE 7: .9390 CLOSE.9395 ENDPROC DUMP1
520.9400 //.9405 PROC STRPP(REF C$,N) CL
OSED.9410 DIM T$ OF 6.9415 N:=ABS(N).942
0 D:=N MOD 10.9425 T$:=T$+CHR$(D+48).943
0 IF D=N THEN.9435 C$:=C$+T$.9440 ELSE .
9445 STRPP(C$,(N-D)/10).9450 C$:=C$+T$.9
455 ENDIF .9460 ENDPROC STRPP.9465 //.94
70 PROC STR(REF C$,N) CLOSED.9475 DIM T$
 OF 11, S$ OF 1, DD$ OF 5.9480 IF N<0 TH
EN S$:="-".9485 N:=ABS(N).9490 IF (N DIV
 1)<>N THEN.9495 F:=INT((N*10000) MOD 10
000+.5).9500 STR(DD$,F).9505 DD$:="."+DD
$.9510 P:=LEN(DD$).9515 WHILE DD$(P)="0"
 AND P>1 DO.9520 DD$:=DD$(1:P-1).9525 P:
=P-1.9530 ENDWHILE .9535 N:=N DIV 1.9540
 ENDIF .9545 D:=N MOD 10.9550 T$:=T$+CHR
$(D+48).9555 IF D=N THEN.9560 C$:=C$+T$.
9565 ELSE .9570 STR(C$,(N-D)/10).9575 C$
:=C$+T$.9580 ENDIF .9585 C$:=S$+C$+DD$.9
590 ENDPROC STR.

Visualization:

Width: Skip load address (+2) Invert

> CLICK IMAGE PREVIEW FOR FULL MODAL