GRAFIKS
FILE INFORMATION
FILENAME(S): GRAFIKS
FILE TYPE(S): PRG
FILE SIZE: 2.5K
FIRST SEEN: 2025-12-01 02:26:19
APPEARS ON: 1 disk(s)
FILE HASH
d67311b7830de37f68fdbf26969ef9cdda45678bc57879b3f02726ec5f1707e4
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| TONSOFT | GRAFIKS | PRG | Shine | 21 | 5 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 25 08 F8 2A 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A |..%..*.*********|
00000010: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000020: 2A 2A 2A 2A 2A 00 3E 08 02 2B 8F 20 20 20 20 20 |*****.>..+. |
00000030: 20 20 20 47 52 41 50 48 49 51 55 45 20 48 00 62 | GRAPHIQUE H.b|
00000040: 08 0C 2B 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |..+.************|
00000050: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000060: 2A 2A 00 70 08 11 2B 97 35 33 32 38 31 2C 31 35 |**.p..+.53281,15|
00000070: 00 9F 08 16 2B 85 20 22 93 90 11 43 4F 4E 53 55 |....+. "...CONSU|
00000080: 4C 54 41 54 49 4F 4E 20 44 55 20 47 52 41 50 48 |LTATION DU GRAPH|
00000090: 49 51 55 45 20 28 4F 2F 4E 29 3A 22 3B 51 24 00 |IQUE (O/N):";Q$.|
000000A0: B4 08 20 2B 8B 20 51 24 B2 22 4F 22 20 A7 20 31 |.. +. Q$."O" . 1|
000000B0: 32 34 32 30 00 DA 08 2A 2B 99 20 22 93 11 1D 1D |2420...*+. "....|
000000C0: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 12 1C 48 49 53 54 |............HIST|
000000D0: 4F 52 49 47 52 41 4D 4D 45 22 00 09 09 34 2B 99 |ORIGRAMME"...4+.|
000000E0: 20 22 11 90 4C 27 4F 52 44 4F 4E 4E 45 45 20 45 | "..L'ORDONNEE E|
000000F0: 53 54 20 44 49 56 49 53 45 45 20 45 4E 20 31 39 |ST DIVISEE EN 19|
00000100: 20 55 4E 49 54 45 53 2E 22 00 45 09 3E 2B 99 20 | UNITES.".E.>+. |
00000110: 22 11 1F 49 4E 54 52 4F 44 55 49 53 45 5A 20 4C |"..INTRODUISEZ L|
00000120: 45 20 4E 4F 4D 42 52 45 20 51 55 45 20 52 45 50 |E NOMBRE QUE REP|
00000130: 52 45 53 45 4E 54 45 20 20 20 20 55 4E 45 20 55 |RESENTE UNE U|
00000140: 4E 49 54 45 22 00 59 09 48 2B 99 3A 85 20 22 55 |NITE".Y.H+.:. "U|
00000150: 4E 49 54 45 3A 22 3B 55 56 00 79 09 52 2B 85 20 |NITE:";UV.y.R+. |
00000160: 22 11 1C 4E 4F 4D 20 44 45 20 4C 27 41 42 53 43 |"..NOM DE L'ABSC|
00000170: 49 53 53 45 22 3B 4E 48 24 00 A3 09 5C 2B 99 20 |ISSE";NH$...\+. |
00000180: 22 93 11 90 56 4F 55 53 20 44 49 53 50 4F 53 45 |"...VOUS DISPOSE|
00000190: 5A 20 44 45 20 53 49 58 20 43 4F 4C 4F 4E 4E 45 |Z DE SIX COLONNE|
000001A0: 53 2E 22 00 C8 09 66 2B 85 20 22 11 43 4F 4D 42 |S."...f+. ".COMB|
000001B0: 49 45 4E 20 45 4E 20 44 45 53 49 52 45 5A 2D 56 |IEN EN DESIREZ-V|
000001C0: 4F 55 53 3A 22 3B 4E 44 00 08 0A 70 2B 99 20 22 |OUS:";ND...p+. "|
000001D0: 11 11 1E 56 4F 55 53 20 50 4F 55 56 45 5A 20 4F |...VOUS POUVEZ O|
000001E0: 42 54 45 4E 49 52 20 33 20 52 45 50 52 45 53 45 |BTENIR 3 REPRESE|
000001F0: 4E 54 41 54 49 4F 4E 53 20 20 20 44 49 46 46 45 |NTATIONS DIFFE|
00000200: 52 45 4E 54 45 53 2E 22 00 2D 0A 7A 2B 85 20 22 |RENTES.".-.z+. "|
00000210: 11 43 4F 4D 42 49 45 4E 20 45 4E 20 44 45 53 49 |.COMBIEN EN DESI|
00000220: 52 45 5A 2D 56 4F 55 53 3A 22 3B 4E 42 00 3E 0A |REZ-VOUS:";NB.>.|
00000230: 84 2B 81 20 49 B2 30 20 A4 20 4E 42 AB 31 00 6C |.+. I.0 . NB.1.l|
00000240: 0A 8E 2B 99 20 22 11 1E 4E 4F 4D 20 44 45 20 4C |..+. "..NOM DE L|
00000250: 27 4F 52 44 4F 4E 4E 45 45 22 3B 49 AA 31 3B 3A |'ORDONNEE";I.1;:|
00000260: 85 20 4E 56 24 28 49 29 3A 82 20 49 00 7A 0A 98 |. NV$(I):. I.z..|
00000270: 2B 86 20 48 48 28 32 2C 36 29 00 92 0A A2 2B 99 |+. HH(2,6)....+.|
00000280: 20 22 93 22 3B 3A 81 20 49 B2 30 20 A4 20 4E 42 | ".";:. I.0 . NB|
00000290: AB 31 00 A1 0A AC 2B 81 20 4A B2 31 20 A4 20 4E |.1....+. J.1 . N|
000002A0: 44 00 CD 0A B6 2B 99 20 22 11 47 52 41 50 48 49 |D....+. ".GRAPHI|
000002B0: 51 55 45 22 3B 49 AA 31 3B 22 20 56 41 4C 45 55 |QUE";I.1;" VALEU|
000002C0: 52 22 3B 4A 3B 22 3A 22 3B 3A 85 20 54 00 00 0B |R";J;":";:. T...|
000002D0: C0 2B 8B 20 B5 28 54 AD 55 56 29 B1 31 39 20 A7 |.+. .(T.UV).19 .|
000002E0: 20 99 20 22 11 56 41 4C 45 55 52 20 54 52 4F 50 | . ".VALEUR TROP|
000002F0: 20 48 41 55 54 45 2E 22 3A 89 20 31 31 31 39 30 | HAUTE.":. 11190|
00000300: 00 14 0B CA 2B 48 48 28 49 2C 4A 29 B2 54 3A 82 |....+HH(I,J).T:.|
00000310: 20 4A 2C 49 00 38 0B E0 2E 8F 2A 2A 2A 2A 2A 2A | J,I.8....******|
00000320: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000330: 2A 2A 2A 2A 2A 2A 2A 2A 00 57 0B F4 2E 8F 20 20 |********.W.... |
00000340: 20 45 58 45 43 55 54 49 4F 4E 20 44 55 20 47 52 | EXECUTION DU GR|
00000350: 41 50 48 49 51 55 45 00 7B 0B FE 2E 8F 2A 2A 2A |APHIQUE.{....***|
00000360: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000370: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 A5 0B 08 2F |***********..../|
00000380: 97 20 35 33 32 38 31 2C 30 3A 99 20 22 93 95 11 |. 53281,0:. "...|
00000390: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |................|
000003A0: 11 11 11 22 3B 00 B4 0B 12 2F 46 24 B2 22 1D 1D |...";..../F$."..|
000003B0: 1D 1D 1D 22 00 F6 0B 1C 2F 81 20 49 B2 31 20 A4 |..."..../. I.1 .|
000003C0: 20 34 3A 99 20 46 24 3B 22 DF 12 20 20 20 20 20 | 4:. F$;".. |
000003D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000003E0: 20 20 20 20 20 20 20 20 DF 22 3A 46 24 B2 46 24 | .":F$.F$|
000003F0: AA 22 1D 22 3A 82 00 31 0C 26 2F 99 20 22 13 1D |.".":..1.&/. "..|
00000400: 1D 1D 1D 1D 05 AF AF AF AF AF AF AF AF AF AF AF |................|
00000410: AF AF AF AF AF AF AF AF AF AF AF AF AF AF AF AF |................|
00000420: AF AF AF 22 3A 8F 20 33 30 20 43 41 52 2F 4C 49 |...":. 30 CAR/LI|
00000430: 4E 00 4C 0C 30 2F 81 20 49 B2 31 20 A4 20 31 39 |N.L.0/. I.1 . 19|
00000440: 3A 99 20 22 1D 1D 1D 1D 1D CC 22 3B 00 74 0C 3A |:. "......";.t.:|
00000450: 2F 99 20 22 20 20 20 20 20 20 20 20 20 20 20 20 |/. " |
00000460: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000470: BA 22 3A 82 00 99 0C 44 2F 99 20 22 13 22 3B 3A |.":....D/. ".";:|
00000480: 81 20 49 B2 31 20 A4 20 34 3A 99 20 22 11 11 11 |. I.1 . 4:. "...|
00000490: 11 1D 1D 1D 1D 1D 1D 22 3B 00 C8 0C 4E 2F 99 22 |.......";...N/."|
000004A0: AF AF AF AF AF AF AF AF AF AF AF AF AF AF AF AF |................|
000004B0: AF AF AF AF AF AF AF AF AF AF AF AF 22 3A 82 3A |............":.:|
000004C0: 8F 20 32 38 20 43 41 52 00 16 0D 58 2F 46 31 24 |. 28 CAR...X/F1$|
000004D0: B2 22 13 11 11 11 11 11 11 11 11 11 11 11 11 11 |."..............|
000004E0: 11 11 11 11 11 11 11 22 3A 46 24 B2 22 1D 1D 1D |.......":F$."...|
000004F0: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
00000500: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 22 3A 43 4F 24 |...........":CO$|
00000510: B2 22 9E 1E 9C 22 00 3D 0D 62 2F 99 20 22 13 11 |."...".=.b/. "..|
00000520: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |................|
00000530: 11 11 11 11 11 11 11 22 3B 4E 48 24 3B 00 7D 0D |.......";NH$;.}.|
00000540: 6C 2F 81 20 48 B2 30 20 A4 20 4E 42 AB 31 3A 99 |l/. H.0 . NB.1:.|
00000550: 20 22 13 11 9D 9D 9D 9D 9D 9D 9D 22 3B CA 28 46 | ".........";.(F|
00000560: 24 2C 31 2C 32 AC 28 48 AA 31 29 29 3B CA 28 43 |$,1,2.(H.1));.(C|
00000570: 4F 24 2C 48 AA 31 2C 31 29 3B 20 20 20 00 BE 0D |O$,H.1,1); ...|
00000580: 76 2F 54 54 24 B2 4E 56 24 28 48 29 AA 22 20 2A |v/TT$.NV$(H)." *|
00000590: 22 AA C4 28 55 56 29 3A 81 20 49 B2 31 20 A4 20 |"..(UV):. I.1 . |
000005A0: C3 28 54 54 24 29 20 20 20 20 20 20 20 20 20 20 |.(TT$) |
000005B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00 DA | ..|
000005C0: 0D 80 2F 99 20 CA 28 54 54 24 2C 49 2C 31 29 3B |../. .(TT$,I,1);|
000005D0: 22 11 9D 22 3B 3A 82 49 2C 48 00 06 0E 8A 2F 99 |"..";:.I,H..../.|
000005E0: 20 22 13 1D 1D 1D 11 11 11 11 31 35 9D 9D 11 11 | "........15....|
000005F0: 11 11 11 31 30 9D 9D 11 11 11 11 11 20 35 9D 11 |...10....... 5..|
00000600: 11 11 11 11 30 22 00 2E 0E 94 2F 46 33 24 B2 46 |....0"..../F3$.F|
00000610: 31 24 3A 81 20 48 B2 30 20 A4 20 4E 42 AB 31 3A |1$:. H.0 . NB.1:|
00000620: 99 20 CA 28 43 4F 24 2C 48 AA 31 2E 31 29 00 54 |. .(CO$,H.1.1).T|
00000630: 0E 9E 2F 46 32 24 B2 C8 28 46 24 2C 38 AA 34 AC |../F2$..(F$,8.4.|
00000640: 28 4E 44 AB 31 29 AA 48 29 3A 99 20 46 31 24 3B |(ND.1).H):. F1$;|
00000650: 46 32 24 3B 00 81 0E A8 2F 81 20 49 B2 4E 44 20 |F2$;..../. I.ND |
00000660: A4 20 31 20 A9 AB 31 3A 8B 20 B5 28 48 48 28 48 |. 1 ..1:. .(HH(H|
00000670: 2C 49 29 AD 55 56 29 B2 30 20 A7 20 31 32 32 37 |,I).UV).0 . 1227|
00000680: 30 00 9D 0E B2 2F 81 20 4A B2 31 20 A4 20 B5 28 |0..../. J.1 . .(|
00000690: 48 48 28 48 2C 49 29 AD 55 56 29 AA 48 00 BB 0E |HH(H,I).UV).H...|
000006A0: BC 2F 8B 20 B5 28 48 48 28 48 2C 49 29 AD 55 56 |./. .(HH(H,I).UV|
000006B0: 29 B2 30 20 A7 20 31 32 32 37 30 00 E9 0E C6 2F |).0 . 12270..../|
000006C0: 8B 20 4A B2 31 20 A7 20 99 20 22 95 12 20 DF 22 |. J.1 . . ".. ."|
000006D0: 3B CA 28 43 4F 24 2C 48 AA 31 2C 31 29 3B 22 A5 |;.(CO$,H.1,1);".|
000006E0: 20 92 91 9D 9D 9D 9D 22 3B 00 06 0F D0 2F 8B 20 | ......";..../. |
000006F0: 4A B1 31 20 A7 20 99 20 22 A7 20 12 20 20 92 91 |J.1 . . ". . ..|
00000700: 9D 9D 9D 9D 22 3B 00 26 0F D5 2F 8F 20 43 41 52 |....";.&../. CAR|
00000710: 20 22 D9 2E 2E 12 2E D4 2E 2E 92 2E 91 2E 99 2E | "..............|
00000720: 99 2E 99 99 22 3B 00 2D 0F DA 2F 82 4A 00 3B 0F |....";.-../.J.;.|
00000730: E4 2F 99 20 22 A7 DF 12 20 DF 22 00 64 0F EE 2F |./. "... .".d../|
00000740: 99 3A 46 32 24 B2 C8 28 46 32 24 2C C3 28 46 32 |.:F2$..(F2$,.(F2|
00000750: 24 29 AB 34 29 3A 99 20 46 31 24 3B 46 32 24 3B |$).4):. F1$;F2$;|
00000760: 3A 82 20 49 00 74 0F F8 2F 46 31 24 B2 46 31 24 |:. I.t../F1$.F1$|
00000770: AA 22 11 22 00 98 0F 02 30 46 32 24 B2 C8 28 46 |."."....0F2$..(F|
00000780: 24 2C 39 AA 34 AC 28 4E 44 AB 31 29 29 3A 99 20 |$,9.4.(ND.1)):. |
00000790: 46 33 24 3B 46 32 24 3B 00 A0 0F 0C 30 82 20 48 |F3$;F2$;....0. H|
000007A0: 00 B6 0F 16 30 81 20 49 B2 31 20 A4 20 4E 44 3A |....0. I.1 . ND:|
000007B0: 99 20 46 33 24 3B 00 E0 0F 20 30 46 32 24 B2 C8 |. F3$;... 0F2$..|
000007C0: 28 46 24 2C 39 AA 34 AC 28 49 AB 31 29 29 3A 99 |(F$,9.4.(I.1)):.|
000007D0: 20 46 32 24 3B 3A 81 20 4A B2 31 20 A4 20 4E 42 | F2$;:. J.1 . NB|
000007E0: 00 04 10 2A 30 8B 20 4A B1 31 20 B0 20 48 48 28 |...*0. J.1 . HH(|
000007F0: 32 2C 49 AB 31 29 B2 30 20 A7 20 99 20 22 95 12 |2,I.1).0 . . "..|
00000800: DF 9D 22 3B 00 16 10 34 30 99 20 22 11 1D 22 3B |..";...40. "..";|
00000810: 3A 82 20 4A 2C 49 00 30 10 3E 30 A1 20 41 24 3A |:. J,I.0.>0. A$:|
00000820: 20 8B 20 41 24 B2 20 22 22 A7 20 31 32 33 35 30 | . A$. "". 12350|
00000830: 00 67 10 48 30 85 20 22 93 11 05 47 52 41 50 48 |.g.H0. "...GRAPH|
00000840: 49 51 55 45 20 41 20 43 4F 4E 53 45 52 56 45 52 |IQUE A CONSERVER|
00000850: 20 28 4F 2F 4E 29 3A 22 3B 51 24 3A 8B 51 24 B2 | (O/N):";Q$:.Q$.|
00000860: 22 4E 22 20 A7 20 80 00 A5 10 52 30 85 20 22 11 |"N" . ....R0. ".|
00000870: 50 4F 53 49 54 49 4F 4E 20 54 41 50 45 20 43 4F |POSITION TAPE CO|
00000880: 52 52 45 43 54 4C 59 2C 20 54 48 45 4E 20 12 52 |RRECTLY, THEN .R|
00000890: 45 54 55 52 4E 92 2D 2D 22 3B 51 24 3A 52 24 B2 |ETURN.--";Q$:R$.|
000008A0: C7 28 31 33 29 00 BD 10 5C 30 9F 20 31 2C 31 2C |.(13)...\0. 1,1,|
000008B0: 31 2C 22 47 52 41 50 48 49 51 55 45 22 00 DA 10 |1,"GRAPHIQUE"...|
000008C0: 66 30 98 31 2C 4E 42 3B 52 24 3B 4E 44 3B 52 24 |f0.1,NB;R$;ND;R$|
000008D0: 3B 4E 48 24 3B 52 24 3B 55 56 00 0A 11 70 30 81 |;NH$;R$;UV...p0.|
000008E0: 49 B2 30 A4 4E 42 AB 31 3A 98 31 2C 4E 56 24 28 |I.0.NB.1:.1,NV$(|
000008F0: 49 29 3A 81 4A B2 30 A4 4E 44 3A 98 31 2C 48 48 |I):.J.0.ND:.1,HH|
00000900: 28 49 2C 4A 29 3A 82 4A 2C 49 00 13 11 7A 30 A0 |(I,J):.J,I...z0.|
00000910: 31 3A 80 00 59 11 84 30 85 22 93 11 1E 50 4F 53 |1:..Y..0."...POS|
00000920: 49 54 49 4F 4E 20 54 41 50 45 20 43 4F 52 52 45 |ITION TAPE CORRE|
00000930: 43 54 4C 59 2C 20 54 48 45 4E 20 12 52 45 54 55 |CTLY, THEN .RETU|
00000940: 52 4E 92 2D 2D 22 3B 51 24 3A 86 4E 56 24 28 32 |RN.--";Q$:.NV$(2|
00000950: 29 2C 48 48 28 32 2C 36 29 00 70 11 8E 30 9F 31 |),HH(2,6).p..0.1|
00000960: 2C 31 2C 30 2C 22 47 52 41 50 48 49 51 55 45 22 |,1,0,"GRAPHIQUE"|
00000970: 00 84 11 98 30 84 31 2C 4E 42 2C 4E 44 2C 4E 48 |....0.1,NB,ND,NH|
00000980: 24 2C 55 56 00 B4 11 A2 30 81 49 B2 30 A4 4E 42 |$,UV....0.I.0.NB|
00000990: AB 31 3A 84 31 2C 4E 56 24 28 49 29 3A 81 4A B2 |.1:.1,NV$(I):.J.|
000009A0: 30 A4 4E 44 3A 84 31 2C 48 48 28 49 2C 4A 29 3A |0.ND:.1,HH(I,J):|
000009B0: 82 4A 2C 49 00 C2 11 AC 30 A0 31 3A 89 31 32 30 |.J,I....0.1:.120|
000009C0: 30 30 00 CD 11 B6 30 89 31 32 34 37 30 00 00 00 |00....0.12470...|
..%..*.******************************.>.
.+. GRAPHIQUE H.B..+.************
******************.P..+.53281,15....+. "
...CONSULTATION DU GRAPHIQUE (O/N):";Q$.
.. +. Q$."O" . 12420.Z.*+. "............
....HISTORIGRAMME"...4+. "..L'ORDONNEE E
ST DIVISEE EN 19 UNITES.".E.>+. "..INTRO
DUISEZ LE NOMBRE QUE REPRESENTE UNE U
NITE".Y.H+.:. "UNITE:";UV.Y.R+. "..NOM D
E L'ABSCISSE";NH$...\+. "...VOUS DISPOSE
Z DE SIX COLONNES.".H.F+. ".COMBIEN EN D
ESIREZ-VOUS:";ND...P+. "...VOUS POUVEZ O
BTENIR 3 REPRESENTATIONS DIFFERENTES."
.-.Z+. ".COMBIEN EN DESIREZ-VOUS:";NB.>.
.+. I.0 . NB.1.L..+. "..NOM DE L'ORDONNE
E";I.1;:. NV$(I):. I.Z..+. HH(2,6)....+.
".";:. I.0 . NB.1....+. J.1 . ND.M..+.
".GRAPHIQUE";I.1;" VALEUR";J;":";:. T...
.+. .(T.UV).19 . . ".VALEUR TROP HAUTE."
:. 11190...J+HH(I,J).T:. J,I.8....******
************************.W.... EXECUTI
ON DU GRAPHIQUE.{....*******************
***********..../. 53281,0:. "...........
...........";..../F$."....."..../. I.1 .
4:. F$;"..
.":F$.F$.".":..1.&/. "..................
...................":. 30 CAR/LIN.L.0/.
I.1 . 19:. ".....L";.T.:/. "
.":....D/. ".";:. I.1 .
4:. "..........";.H.N/."................
............":.:. 28 CAR...X/F1$."......
...............":F$."...................
...........":CO$."...".=.B/. "..........
...............";NH$;.}.L/. H.0 . NB.1:.
".........";J(F$,1,2.(H.1));J(CO$,H.1,1
); ...V/TT$.NV$(H)." *".D(UV):. I.1 .
C(TT$) .Z../. J(T
T$,I,1);"..";:.I,H..../. "........15....
...10....... 5......0"..../F3$.F1$:. H.0
. NB.1:. J(CO$,H.1.1).T../F2$.H(F$,8.4.
(ND.1).H):. F1$;F2$;..../. I.ND . 1 ..1:
. .(HH(H,I).UV).0 . 12270..../. J.1 . .(
HH(H,I).UV).H..../. .(HH(H,I).UV).0 . 12
270...F/. J.1 . . ".. .";J(CO$,H.1,1);".
......";...P/. J.1 . . ". . ......";.&
.U/. CAR "Y....T............";.-.Z/.J.;.
./. "... .".D../.:F2$.H(F2$,C(F2$).4):.
F1$;F2$;:. I.T../F1$.F1$."."....0F2$.H(F
$,9.4.(ND.1)):. F3$;F2$;. ..0. H....0. I
.1 . ND:. F3$;... 0F2$.H(F$,9.4.(I.1)):.
F2$;:. J.1 . NB...*0. J.1 . HH(2,I.1).0
. . "....";...40. "..";:. J,I.0.>0. A$:
. A$. "". 12350.G.H0. "...GRAPHIQUE A C
ONSERVER (O/N):";Q$:.Q$."N" . ....R0. ".
POSITION TAPE CORRECTLY, THEN .RETURN.--
";Q$:R$.G(13)...\0. 1,1,1,"GRAPHIQUE".Z.
F0.1,NB;R$;ND;R$;NH$;R$;UV...P0.I.0.NB.1
:.1,NV$(I):.J.0.ND:.1,HH(I,J):.J,I...Z0
1:..Y..0."...POSITION TAPE CORRECTLY, TH
EN .RETURN.--";Q$:.NV$(2),HH(2,6).P..0.1
,1,0,"GRAPHIQUE"....0.1,NB,ND,NH$,UV....
0.I.0.NB.1:.1,NV$(I):.J.0.ND:.1,HH(I,J):
.J,I.B..0 1:.12000.M..0.12470...
> CLICK IMAGE PREVIEW FOR FULL MODAL